نقل نتائج الاستعلام الى الجدول


(اسلام الكبابى) #1

[B]
[COLOR=“Black”]لدى قاعدة البيانات بها جدولين اسم الأول TABLE1 واسم الثانى TABLE2
الجدولين لهما نفس الDESIGN أى لهما نفس أسماء الحقول

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

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

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

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

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 OLEDB:Database password=; Data Source=" & App.Path & "\بيانات الموظفين.mdb"
 End Sub

ولكم ألف شكر
[/b]


(اسلام الكبابى) #2

ألا يوجد أى كود لنقل نتائج الاستعلام الى أى جدول