هل من كود سهل بسيط بدلآ من هذا الكود المعقد الغبى
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
ولكم ألف شكر
ألا يوجد أى كود أسهل من هذا الكود المعقد الغبى ؟
وبعدين أنا هنا وقفت عند خمس Fields
تخيلوا بقى لو كانوا أكتر من كده(10 مثلآ)
كان يبقى الكود شكله ايه
(04-04-15, 03:25 PM)اسلام الكبابى كتب : [ -> ]هل من كود سهل بسيط بدلآ من هذا الكود المعقد الغبى
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
ولكم ألف شكر
للفايده
لان اكيد الاخ الكبابي تجاوز هذا الموضوع من سنين
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