+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=11951)
أريد كودآ سهلآ بدلآ من هذا الكود الغبى - اسلام الكبابى - 04-04-15
هل من كود سهل بسيط بدلآ من هذا الكود المعقد الغبى
For I = 1 To NUM
Namee(I) = txtFields(I).Text
Next I
Set RS = New ADODB.Recordset
If NUM = 2 Then RS.Open "select * from TABLE1 where Name1 like '" & Namee(1) & "' AND Name2 like '" & Namee(2) & "'", db, adOpenStatic, adLockReadOnly: GoTo 10
If NUM = 3 Then RS.Open "select * from TABLE1 where Name1 like '" & Namee(1) & "' AND Name2 like '" & Namee(2) & "' AND Name3 like '" & Namee(3) & "'", db, adOpenStatic, adLockReadOnly: GoTo 10
If NUM = 4 Then RS.Open "select * from TABLE1 where Name1 like '" & Namee(1) & "' AND Name2 like '" & Namee(2) & "' AND Name3 like '" & Namee(3) & "' AND Name4 like '" & Namee(4) & "'", db, adOpenStatic, adLockReadOnly: GoTo 10
If NUM = 5 Then RS.Open "select * from TABLE1 where Name1 like '" & Namee(1) & "' AND Name2 like '" & Namee(2) & "' AND Name3 like '" & Namee(3) & "' AND Name4 like '" & Namee(4) & "' AND Name5 like '" & Namee(5) & "'", db, adOpenStatic, adLockReadOnly
10 Print RS.RecordCount
ولكم ألف شكر
RE: أريد كودآ سهلآ بدلآ من هذا الكود الغبى - اسلام الكبابى - 11-04-15
ألا يوجد أى كود أسهل من هذا الكود المعقد الغبى ؟
RE: أريد كودآ سهلآ بدلآ من هذا الكود الغبى - اسلام الكبابى - 13-04-15
وبعدين أنا هنا وقفت عند خمس Fields
تخيلوا بقى لو كانوا أكتر من كده(10 مثلآ)
كان يبقى الكود شكله ايه
RE: أريد كودآ سهلآ بدلآ من هذا الكود الغبى - Hasaneen - 07-09-20
(04-04-15, 03:25 PM)اسلام الكبابى كتب : هل من كود سهل بسيط بدلآ من هذا الكود المعقد الغبى
For I = 1 To NUMNamee(I) = txtFields(I).TextNext ISet RS = New ADODB.RecordsetIf NUM = 2 Then RS.Open "select * from TABLE1 where Name1 like '" & Namee(1) & "' AND Name2 like '" & Namee(2) & "'", db, adOpenStatic, adLockReadOnly: GoTo 10If NUM = 3 Then RS.Open "select * from TABLE1 where Name1 like '" & Namee(1) & "' AND Name2 like '" & Namee(2) & "' AND Name3 like '" & Namee(3) & "'", db, adOpenStatic, adLockReadOnly: GoTo 10If NUM = 4 Then RS.Open "select * from TABLE1 where Name1 like '" & Namee(1) & "' AND Name2 like '" & Namee(2) & "' AND Name3 like '" & Namee(3) & "' AND Name4 like '" & Namee(4) & "'", db, adOpenStatic, adLockReadOnly: GoTo 10If NUM = 5 Then RS.Open "select * from TABLE1 where Name1 like '" & Namee(1) & "' AND Name2 like '" & Namee(2) & "' AND Name3 like '" & Namee(3) & "' AND Name4 like '" & Namee(4) & "' AND Name5 like '" & Namee(5) & "'", db, adOpenStatic, adLockReadOnly10 Print RS.RecordCount
ولكم ألف شكر
للفايده
لان اكيد الاخ الكبابي تجاوز هذا الموضوع من سنين
PHP كود :
Dim sql As String, con As String
sql = "select * from TABLE1 where "
For I = 1 To NUM
con = con & " AND Name" & I & " like '" & Namee(I) & "' "
Next I
sql = sql & Mid$(con, Len(" AND "))
RS.Open sql, db, adOpenStatic, adLockReadOnly
Print RS.RecordCount