السلام عليكم ورحمة الله وبركاته
لا يوجد لدي 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
السلام عليكم ورحمة الله وبركاته
