17-04-15, 06:05 PM
أرجو كتابة الجملة الناقصة فى هذا الكود
ولا أريد الكود فى جملة واحدة كهذه
كود:
RSend.Open "select * FROM " & ATablee & " WHERE (" & AField1 & " = " & CStr(AValue1) & ") and (" & AField2 & " = " & CStr(AValue2) & ")", DB, adOpenStatic, adLockReadOnly
ولكم ألف شكر
كود:
AValue1 = txtFields(1).Text: AValue2 = txtFields(2).Text
Set RS1 = New ADODB.Recordset
RS1.Open "select * FROM " & ATablee & " WHERE (" & AField1 & " = " & CStr(AValue1) & ") ", DB, adOpenStatic, adLockReadOnly
If RS1.RecordCount = 0 Then CORRECT = 0: GoTo 25
Set RS2 = New ADODB.Recordset
RS2.Open "select * FROM " & ATablee & " WHERE (" & AField2 & " = " & CStr(AValue2) & ") ", DB, adOpenStatic, adLockReadOnly
RSend.Open
RS2 ما يحقق شرط RS1 أريد كتابة الجملة السابقة بمعنى اختر من
RS1 ما يحقق شرط RS2 أو بمعنى اختر من
أو بمعنى اختر من قاعدة البيانات ما يحقق الشرطين معآ
Adodc1.RecordSource = RS.Source
GoTo 50
25 Z = MsgBox("لا يوجد أى سجلات", vbOKOnly, "")
50 End Sub
أريد استكمال الكود بتعديل جملة الRSendAValue1 = txtFields(1).Text: AValue2 = txtFields(2).Text
Set RS1 = New ADODB.Recordset
RS1.Open "select * FROM " & ATablee & " WHERE (" & AField1 & " = " & CStr(AValue1) & ") ", DB, adOpenStatic, adLockReadOnly
If RS1.RecordCount = 0 Then CORRECT = 0: GoTo 25
Set RS2 = New ADODB.Recordset
RS2.Open "select * FROM " & ATablee & " WHERE (" & AField2 & " = " & CStr(AValue2) & ") ", DB, adOpenStatic, adLockReadOnly
RSend.Open
RS2 ما يحقق شرط RS1 أريد كتابة الجملة السابقة بمعنى اختر من
RS1 ما يحقق شرط RS2 أو بمعنى اختر من
أو بمعنى اختر من قاعدة البيانات ما يحقق الشرطين معآ
Adodc1.RecordSource = RS.Source
GoTo 50
25 Z = MsgBox("لا يوجد أى سجلات", vbOKOnly, "")
50 End Sub
ولا أريد الكود فى جملة واحدة كهذه
كود:
RSend.Open "select * FROM " & ATablee & " WHERE (" & AField1 & " = " & CStr(AValue1) & ") and (" & AField2 & " = " & CStr(AValue2) & ")", DB, adOpenStatic, adLockReadOnly
ولكم ألف شكر