- Код: Выделить всё
Private Sub LinkButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton4.Click
' пишем в базу покупки
Dim Qstr As String
Qstr = "INSERT INTO GOODS (OBJ,Code,DTA) VALUES ('" & DD1.SelectedItem.Text() & " '," & Label1.Text & ",'" & BuyBox.Text & "')"
Dim OleConn1 As New System.Data.OleDb.OleDbConnection()
Dim oleComd As New System.Data.OleDb.OleDbCommand(Qstr, OleConn1)
OleConn1.ConnectionString = ConnectionString
OleConn1.Open()
oleComd.ExecuteNonQuery()
OleConn1.Close()
End Sub
один раз нажимаешь - и ничего - два раза работает