تصحيح هذا الكود - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40) +--- قسم : قسم اسئلة vb6.0 المتعلقة بقواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=72) +--- الموضوع : تصحيح هذا الكود (/showthread.php?tid=12088)

تصحيح هذا الكود - اسلام الكبابى - 17-04-15 أرجو كتابة الجملة الناقصة فى هذا الكود كود: 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 أريد استكمال الكود بتعديل جملة الRSend ولا أريد الكود فى جملة واحدة كهذه كود: RSend.Open "select * FROM " & ATablee & " WHERE (" & AField1 & " = " & CStr(AValue1) & ") and (" & AField2 & " = " & CStr(AValue2) & ")", DB, adOpenStatic, adLockReadOnly ولكم ألف شكر