Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- cmd.CommandText = "Insert Table1(Col1,Col2,Col3,Date) Values (1,'aa',101,?)"
- cmd.Connection = con2
- cmd.Parameters.AddWithValue("@Date", transdate)
- ExecuteQuery(con2,cmd)
- Private Sub ExecuteQuery(con as OledbConnection,cmd as OledbCommand)
- Using con1 As New OleDbConnection(con.ConnectionString)
- Using cmd1 As New OleDbCommand(cmd.CommandText)
- cmd1.Connection = con1
- con1.Open()
- cmd1.ExecuteNonQuery()
- con1.Close()
- End Using
- End Using
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement