Это может быть глупый вопрос, но мне нужно какое-то решение.
Я сделал как
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
Он отлично работает с параметрами, когда я пишу cmd под Using
Block.
Но, как я уже сказал, я избегаю писать Using
везде.
Но при этом происходит ошибка - Нет. Заданы значения для одного или нескольких обязательных параметров.