[mamas1]

PHP كود :

Set RSd = Nothing
Set RSd = New ADODB.Recordset

Dim i As Integer
Dim a  As String
Dim X As Integer

    For i = 0 To CList1.ListCount - 1
      If CList1.Selected(i) = True Then
      X = X = 1
        a = a & " " & Label1 & CList1.List(i) & Label1
        If X < CList1.SelCount Then a = a & ","
        
       End If
    Next
    If a = "" Then
    SkinLabel2 = 0
    Exit Sub
    End If
RSd.Open "SELECT * From table1 Where [Zone] in (" & a & ")", CN, adOpenStatic, adLockOptimistic
SkinLabel2 = RSd.RecordCount 


استعملت هذا الكود لقراءة الليست
و يعطيني عدد السجلات التي يتوفر فيها هذا العنصر ....

المشكل عندما أتعامل مع access يعمل الكود لكن عندما اتصل ب mysql خطأ؟؟؟؟