[@@أبورائد@@]

السلام عليكم ورحمة الله وبركاته




لا يوجد لدي VB6، لذا أرجو من الأخوة الأعضاء مراجعة الكود

PHP كود :

Dim sql As String
    sql =  _
        " SELECT * " & _
        " FROM table1 " & _
        " WHERE [word] = '" & Text1.Text & "' "
    
    ''Set rs = db.OpenRecordset(sql)
    
    Data1.Recordset.OpenRecordset.Open sql
    
    If rs.RecordCount > 0 Then
        Text15.Text = Data1.Recordset.Fields!word
        Text16.Text = Data1.Recordset.Fields!mean
        Text17.Text = Data1.Recordset.Fields!no
        Text2.Visible = True
        Text2.Text = Text16.Text
        Label2.Caption = Text16.Text
        Command5.Visible = True
        Command6.Visible = True
    End If 


السلام عليكم ورحمة الله وبركاته