[سعود]

الان فتح معي
سبق وقلت لك  تعمل مثال جديد بسيط حتى يكون شغلي محصور بشي معين لكي اجزم اني حليت المشكلة اما الان لا استطيع ان اجزم اني ساعدتك لكن انظر للتعديل الخاص باجراء الحفظ لجدول buy1

كود :

Private Sub SaveBuy1(ByVal id As String, ByVal sdate As String, ByVal cuid As String, ByVal name As String, ByVal address As String, ByVal phone As String, ByVal driv As String, ByVal assi As String, ByVal caid As String, ByVal cna As String, ByVal cq As String, ByVal cnu As String, ByVal tot As String, ByVal md As String, ByVal pa As String)
       Con.Open()
       Using olecmd As New OleDbCommand("INSERT INTO buy1 ([date],cusid, cus, address, phone,driv, assis, carid, carnam,carqan, carnum, invtol, mdfo, baky) VALUES (@sdate,@cuid, @name,@address,@phone,@driv,@assi,@caid,@cna,@cq,@cnu,@tot,@md,@pa)", Con)
           olecmd.Parameters.Clear()
           ' olecmd.Parameters.AddWithValue("@id", id)
           olecmd.Parameters.AddWithValue("@sdate", sdate)
           olecmd.Parameters.AddWithValue("@cuid", cuid)
           olecmd.Parameters.AddWithValue("@name", name)
           olecmd.Parameters.AddWithValue("@address", address)
           olecmd.Parameters.AddWithValue("@phone", phone)
           olecmd.Parameters.AddWithValue("@driv", driv)
           olecmd.Parameters.AddWithValue("@assi", assi)
           olecmd.Parameters.AddWithValue("@caid", caid)
           olecmd.Parameters.AddWithValue("@cna", cna)
           olecmd.Parameters.AddWithValue("@cq", cq)
           olecmd.Parameters.AddWithValue("@cnu", cnu)
           olecmd.Parameters.AddWithValue("@tot", tot)
           olecmd.Parameters.AddWithValue("@md", md)
           olecmd.Parameters.AddWithValue("@pa", pa)
           olecmd.ExecuteNonQuery()
       End Using
   End Sub

ثم انظر للتعديل الخاص باجراء الحفظ لجدول buy2

كود :

Private Sub SaveBuu2(ByVal id1 As String, ByVal date1 As Date, ByVal itemid As String, ByVal name As String, ByVal q As String, ByVal price As String, ByVal total As String)

       Dim sql As String = "INSERT INTO buy2  (invono, date, invsuc, invsun, invqu, invprc, invsal) VALUES (@date,@itmid,@name,@q,@price,@total)"
       Using olecmd As New OleDbCommand(sql, Con)
           olecmd.Parameters.Clear()
           ' olecmd.Parameters.AddWithValue("@id", id1)
           olecmd.Parameters.AddWithValue("@date", date1)
           olecmd.Parameters.AddWithValue("@itmid", itemid)
           olecmd.Parameters.AddWithValue("@name", name)
           olecmd.Parameters.AddWithValue("@q", q)
           olecmd.Parameters.AddWithValue("@price", price)
           olecmd.Parameters.AddWithValue("@total", total)
           If Con.State = ConnectionState.Closed Then
               Con.Open()
           End If
           olecmd.ExecuteNonQuery()
           Con.Close()

       End Using
   End Sub

مثل ماقلت لك لو تسوي مثال جديد جديد New Example
استطيع ان اقدم لك المفيد