اريد حفظ محتوى من عدة اصناف داخل داتا جيرد مع اسم العميل ورقم المعرف الخاص بالعميل
مجرد كود اذا قمت بالغط على كلمة حفظ
يحفظ العميل ومشتريات العميل ويقوم بالربط بينهم بال ID
عجزت والله عشان اربطهم عندي مشكلة دائما مع الربط
ترجو المساعدة العاجلة وجزاكم الله الف خير
مرفق النموذج
(22-02-20, 09:28 PM)mohamedgadain61 كتب : [ -> ]اريد حفظ محتوى من عدة اصناف داخل داتا جيرد مع اسم العميل ورقم المعرف الخاص بالعميل
مجرد كود اذا قمت بالغط على كلمة حفظ
يحفظ العميل ومشتريات العميل ويقوم بالربط بينهم بال ID
عجزت والله عشان اربطهم عندي مشكلة دائما مع الربط
ترجو المساعدة العاجلة وجزاكم الله الف خير
مرفق النموذج
لربط حقلين يجب أن يكونو من نفس نوع البيانات
يعني اذا كان في الجدول الاول نوع الحقل رقم يجب ان يكون في الجدول الثاني نوع الحقل رقم ايضا
اعلم ذلك اخي الفاضل ولاكن لا اعرف كيف اقوم بعملية حفظ الجدولين بنفس الوقت مجرد الضغط على كلمة حفظ
مرفق النموذج للمساعدة وشكرا
(23-02-20, 12:45 AM)mohamedgadain61 كتب : [ -> ]اعلم ذلك اخي الفاضل ولاكن لا اعرف كيف اقوم بعملية حفظ الجدولين بنفس الوقت مجرد الضغط على كلمة حفظ
مرفق النموذج للمساعدة وشكرا
لا يوجد حفظ جدولين في نفس الوقت في كل قواعد البيانات، لابد من حفظ كل جدول على حده،
يعني تقوم بحفظ الجدول الاول وبعد الانتهاء منه تقوم بحفظ الثاني وهكذا لو كان هناك جدول ثالث ورابع الى اخره.
تمام ارجو توضح ذلك بالمثال اخي الفاضل
(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