الأخ AHMAD FATHY ..
أشكرك على ردك السريع على مشكلتي ... فقد قمت بتحميل الكتاب الذي أشرت إليه و عملت بمضمونه خطوة بخطوة لكن مازلت أتلقى رسالة الخطأ :( التالية :
Syntax error in INSERT INTO statement
و هذا هو البرنامج :unsure:
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\1.mdb" sSQL = "SELECT * FROM Errors" ' The Table Name is 'Errors' 'Connect to database ... Dim ObjConn As New OleDbConnection(ConnStr) ObjConn.Open() 'Creat Data Adapter ... Dim objDA As New OleDbDataAdapter(sSQL, ObjConn) ' Creat Data Set ... Dim ObjDS As New DataSet objDA.Fill(ObjDS, "Errors") ' Add New Row ... Dim xRow As DataRow xRow = ObjDS.Tables(0).NewRow With xRow .Item(1) = 1 .Item(2) = "Serious New Error !" .Item(3) = Now.ToShortTimeString.ToString .Item(4) = Now.ToShortDateString.ToString End With ObjDS.Tables(0).Rows.Add(xRow) 'Update Data ( Creat CommandBuilder ) ... Dim objCMD As New OleDbCommandBuilder(objDA) objDA.UpdateCommand = objCMD.GetUpdateCommand objDA.DeleteCommand = objCMD.GetDeleteCommand objDA.InsertCommand = objCMD.GetInsertCommand objDA.Update(ObjDS, "Errors") ' This line generat Error ! ' Close the Connection ... ObjConn.Close()