(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
