تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
أريد كودآ سهلآ بدلآ من هذا الكود الغبى
#1
هل من كود سهل بسيط بدلآ من هذا الكود المعقد الغبى


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

ولكم ألف شكر
الرد }}}
تم الشكر بواسطة:
#2
ألا يوجد أى كود أسهل من هذا الكود المعقد الغبى ؟
الرد }}}
تم الشكر بواسطة:
#3
وبعدين أنا هنا وقفت عند خمس Fields
تخيلوا بقى لو كانوا أكتر من كده(10 مثلآ)
كان يبقى الكود شكله ايه
الرد }}}
تم الشكر بواسطة:
#4
(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 
الرد }}}
تم الشكر بواسطة: جلال اليمني



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم