منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : أريد كودآ سهلآ بدلآ من هذا الكود الغبى
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
هل من كود سهل بسيط بدلآ من هذا الكود المعقد الغبى


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 Stringcon As String
    sql 
"select * from TABLE1 where "
 
   For I 1 To NUM
        con 
con " AND Name" " like '" Namee(I) & "' "
 
   Next I
    sql 
sql Mid$(conLen(" AND "))
 
   RS.Open sqldbadOpenStaticadLockReadOnly
    Print RS
.RecordCount