16-09-20, 01:05 AM
عند التشغيل لا تظهر رسائل خطأ
ويتم تنفيذ الكود بنجاح
ولكن لا يتم اضافة البيانات فى الجدول فى قاعدة البيانات
ويتم تنفيذ الكود بنجاح
ولكن لا يتم اضافة البيانات فى الجدول فى قاعدة البيانات
هذا هو الكود
Dim conn As New OleDbConnection
Private Sub frmdoctors_Load(sender As Object, e As EventArgs) Handles MyBase.Load
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Reservation.accdb"
End Sub
Private Sub btnadd_Click(sender As Object, e As EventArgs) Handles btnadd.Click
Try
Dim cmdinsert As New OleDb.OleDbCommand
cmdinsert.Connection = conn
cmdinsert.CommandType = CommandType.Text
cmdinsert.CommandText = "INSERT INTO tbl_doc
(DOC_Name,DOC_PHONE,DOC_specialist,COUNT_P,DAYS_WORK,TIME_WORK)
values
( '" & txtname.Text & "','" & txtphone.Text & "','" & cmpspec.Text & "',
'" & txtpcount.Text & "','" & cmpdays.Text & "','" & dtp.Value & "')"
MsgBox(conn.State)
conn.Open()
MsgBox(conn.State)
cmdinsert.ExecuteNonQuery()
MsgBox("تمت الاضافه بنجاح")
Catch ex As Exception
MsgBox(ex.Message)
Finally
conn.Close()
End Try
End Sub
End Clas
