12-04-15, 09:36 PM
(آخر تعديل لهذه المشاركة : 20-04-15, 09:38 PM {2} بواسطة اسلام الكبابى.)
لدى قاعدة البيانات بها جدولين اسم الأول TABLE1 واسم الثانى TABLE2
الجدولين لهما نفس الDESIGN أى لهما نفس أسماء الحقول
ولدى فورم بها ADODC1 متصل بالجدول TABLE1
وكتبت هذا الكود للاستعلام فى الجدول TABLE1 عن الحقول Name1 و Name2
فنفذ لى الاستعلام تنفيذآ صحيحآ وعرض جميع السجلات الموافقة لهذه الشروط فقط
وأريد من أحدكم أن يكمل لى هذا الكود أو يعدله
بحيث يتم حذف جميع سجلات الجدول الثانى 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 OLEDBatabase password=; Data Source=" & App.Path & "\بيانات الموظفين.mdb"
End Sub
ولكم ألف شكر