ถามเออเร้อ mycommand.ExecuteNonQuery() คะ
คือต้องการบันทึกเพิ่มอ่าคะ ซึ่งใส่โดดังนี้
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Dim mbr As MsgBoxResult
mbr = MsgBox("ท่านต้องบันทึกข้อมูลหรือไม่", _ MsgBoxStyle.YesNo + _ MsgBoxStyle.Question + _ MsgBoxStyle.ApplicationModal, _ "บันทึกข้อมูล")
If (mbr = MsgBoxResult.Yes) Then Cnnstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Pro\DataHos.mdb"
With Cnn
If .State = ConnectionState.Open Then Close() .ConnectionString = Cnnstring .Open() .Close() End With myConn.Open()
Dim db = "INSERT INTO EMP(EMP_ID,Class,Level,Title,Names,Sur,Birth,Age,Card,Sex)" db &= "VALUES('" & EMP_IDTextBox.Text & "','" & ClassTextBox.Text & "','" & LevelComboBox.Text & "','" & TitleComboBox.Text & " ','" & NamesTextBox.Text & "','" & SurTextBox.Text & "','" & BirthDateTimePicker.Text & "','" & AgeTextBox.Text & "','" & CardMaskedTextBox.Text & "','" & SexComboBox.Text & "')"
mycommand = New OleDb.OleDbCommand(db, myConn) mycommand.ExecuteNonQuery() myConn.Close()
MessageBox.Show("บันทึกข้อมูลเรียบร้อยแล้ว", "บันทึกข้อมูล") Me.EMPTableAdapter.Fill(Me.DataHosDataSet.EMP)
End If End Sub
|