السلام عليكم ورحمة الله وبركاته عندي مشكلة ماعارف كيف أضيف عن طريق ADO connection من ثلاث جداول بشرط بصير التحديث فالجداول الثلاثة
المرفق فيه الفورم مع الداتابيس اللي يعرف الطريقة يساعدني فيه
كيف أضيف من ثلاث جداول فالvb عن طريق الADO
مغلق
كيف محد يعرف الطريقة كيف
سوري المرفق موب أخر تحديث هذا المرفق ألصحيح
الكود الذي أرفقته يوجد فيه إشكاليّات كثيرة
على أيّ حال ..
إضافة البيانات الجديدة لثلاثة جداول مرتبطة من خلال عدد من الحقول غير ممكن من خلال استعلام واحد كما أعلم
لذا أقترح أن تستخدم جملة Insert لكل جدول على حدة ثم تنفيذ الاستعلام كما يلي :
Private Sub cmdadd_Click()
Dim strSQL As String
'جدول Category_Master
strSQL = "Insert Into Category_Master(Cat_code,Category_Name) values(" & Me.Text1.Text & "," & Me.Combo1.Text & ")"
cn.Execute (strSQL)
'جدول subcategory_Master
strSQL = "Insert Into subcategory_Master(Cat_code,SubCat_code) values(" & Me.Text1.Text & "," & Me.Combo2.Text & ")"
cn.Execute (strSQL)
'جدول transaction
strSQL = "Insert Into transaction(Cat_code,SubCat_code,Amount) values(" & Me.Text1.Text & "," & Me.Combo2.Text & Me.Text2.Text & ")"
cn.Execute (strSQL)
MsgBox "Record add seccuessfully"
End Subأخي
هذا مثال بسيط يجب عليك أن تكمله لكي يخدم رغبتك علماً بأنّه فعّال و يحل مشكلتك
أتمنى أن أكون أضفت شيئاً مفيداً
أخوي متأمل مشكور عالرد وان شاء الله بجربه وبخبرك أذا اشتغل معي
أما اخوي saad
قصدي هو إضافة البيانات الجديدة لثلاثة جداول مرتبطة من خلال عدد من الحقول
مرحبا أخوي متأمل جربت الكود مارضى يشتغل معي
أذا شلت cn.execute(StrSQL)
يطلعلي المسج انه ضاف بس لما أشيك فالداتابيس مايكون مضيوف
أما اذا ماتجاهلت هالعبارة cn.execute(strSQl)
يطلعلي هالمسج
No value given foe one or more required parameters
يا ليت لو ترفع محاولتك لأتمكن من التعديل عليها
هذا الموضوع مغلق.