تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
نقل نتائج الاستعلام الى الجدول
#1
لدى قاعدة البيانات بها جدولين اسم الأول TABLE1 واسم الثانى TABLE2 
الجدولين لهما نفس الDESIGN أى لهما نفس أسماء الحقول

ولدى فورم بها ADODC1 متصل بالجدول TABLE1 


وكتبت هذا الكود للاستعلام فى الجدول TABLE1 عن الحقول Name1 و Name2

فنفذ لى الاستعلام تنفيذآ صحيحآ وعرض جميع السجلات الموافقة لهذه الشروط فقط

وأريد من أحدكم أن يكمل لى هذا الكود أو يعدله 

بحيث يتم حذف جميع سجلات الجدول الثانى TABLE2 ووضع هذه السجلات فيه بدلآ منها 


Dim RS As New ADODB.Recordset

Dim DB As New ADODB.Connection

Private Sub Command2_Click()
NNamee1 = txtFields(1).Text
NNamee2 = txtFields(2).Text
       Set RS = New ADODB.Recordset
      RS.Open "select * from TABLE1 where Name1 like '" & NNamee1 & "' AND Name2 like '" & NNamee2 & "'", DB, adOpenStatic, adLockReadOnly
          Adodc1.RecordSource = RS1.Source
End Sub

Private Sub Form_Load()
Set DB = New ADODB.Connection
DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDBBig Grinatabase password=; Data Source=" & App.Path & "\بيانات الموظفين.mdb"
 End Sub


ولكم ألف شكر
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  الاستعلام كنونو 7 227 24-09-16, 01:09 PM
آخر رد: كنونو
  الكتابه في الجدول madih 0 360 03-07-13, 01:31 PM
آخر رد: madih
  كيف ابحث عن تاريخ معين موجود في الاستعلام المجود بقاعدة البيانات الخاصه برنامجي المرفق؟؟ softmail8 7 1,221 11-06-13, 08:29 PM
آخر رد: softmail8
  كيف اجعل الاستعلام الذي في برنامج المرفق بصيغة سطر واحد ؟؟ softmail8 2 517 22-05-13, 03:00 PM
آخر رد: softmail8
  معلومة: الاستعلام بجزء من النص باستخدام مكتبة dao mohdsader 1 533 20-05-13, 10:02 AM
آخر رد: تركي الحلواني
  موضوع خاص ب SQL Server 2008 التعديل على بنية الجدول ahmedabdelaliem 0 452 19-03-13, 02:16 AM
آخر رد: ahmedabdelaliem
  كيف اتغلب على nullفى الجدول hosney 12 1,126 04-02-13, 02:07 PM
آخر رد: تركي الحلواني

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم