[alsalamoni]

(23-02-20, 01:39 AM)mohamedgadain61 كتب : تمام ارجو توضح ذلك بالمثال اخي الفاضل

مشروعك غير مفهوم
ولا يوجد فيه سوى فورم واحد

بهذا الشكل سيعمل على تسجيل العميل كجديد في كل مره

ايضا لا ادري كيف ستعرض بيانات عميل محدد، فلا يوجد في المشروع فورم لاختيار العميل

اذا كنت تريد تسجيل فواتير للعملاء فتحتاج مشروع آخر غير هذا، ويوجد في المنتدى مشاريع فواتير ابحث عنها

لا تعتمد على هذا الكود
قبل ان تجرب هذا الكود عليك في جدول Customer1 بتغيير نوع بيانات الحقل ID_Customer الى رقم

كود :

Imports System.Data.OleDb
Imports System.IO

Public Class Form1

   Public Cn As New OleDbConnection("provider=microsoft.Ace.oledb.12.0;data source=  " & Application.StartupPath & "\TestDB.accdb")



   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Me.Customer1TableAdapter.Fill(Me.TestDBDataSet.Customer1)
       Me.CustomerTableAdapter.Fill(Me.TestDBDataSet.Customer)

   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       If Cn.State Then Cn.Close()
       Cn.Open()

       Dim Cmdd As New OleDbCommand("Insert into Customer(Customer_Name,Phone,total)values(@Customer_Name,@phone,@total)", Cn)
       Cmdd.Parameters.AddWithValue("@Customer_Name", Customer_NameTextBox.Text)
       Cmdd.Parameters.AddWithValue("@Phone", PhoneTextBox.Text)
       Cmdd.Parameters.AddWithValue("@total", TotalTextBox.Text)

       If Cmdd.ExecuteNonQuery >= 1 Then
           Cmdd.CommandText = "SELECT @@IDENTITY"
           Dim id_customer = Cmdd.ExecuteScalar

           Dim Cmdd2 As New OleDbCommand("Insert into Customer1(ID_Customer,proudect,price,items,total)values(@ID_Customer,@proudect,@price,@items,@total)", Cn)
           For Each r As DataGridViewRow In Customer1DataGridView.Rows
               If r.IsNewRow Then Exit For
               Cmdd2.Parameters.Clear()
               Cmdd2.Parameters.AddWithValue("@ID_Customer", id_customer)
               Cmdd2.Parameters.AddWithValue("@proudect", r.Cells(2).Value.ToString)
               Cmdd2.Parameters.AddWithValue("@price", r.Cells(3).Value.ToString)
               Cmdd2.Parameters.AddWithValue("@items", r.Cells(4).Value.ToString)
               Cmdd2.Parameters.AddWithValue("@total", r.Cells(5).Value.ToString)
               Cmdd2.ExecuteNonQuery()
           Next
       End If

       Cn.Close()

       'اريد كود حفظ بيانات داخل الداتا جيرد فيور + الربط بين الجدولين برقم المعرف من الجدول الأول وشكرا


       MsgBox("تم الحفظ")
   End Sub


End Class