hamaz562006
یک شنبه 17 آذر 1387, 18:24 عصر
سلام بر دوستان دستور search با متد adodb و با دستورات sql چيه؟ لطفا كمكم كنيد.[[كدي كه من نوشتم در زير امده اما جواب نمي ده
CODE]Private Sub Combo1_Change()
On Error Resume Next
txtText1.ForeColor = vbBlue
rst.Open "SELECT*FROM rwd WHERE vocabulary LIKE '" & Trim(Combo1) & "%'", cnn, adOpenForwardOnly, adLockReadOnly, adCmdText
'If rst.EOF = False Then
txtText1 = rst.Fields!Description
txtText2 = rst.Fields!translation
'End If
End Sub[/code]
CODE]Private Sub Combo1_Change()
On Error Resume Next
txtText1.ForeColor = vbBlue
rst.Open "SELECT*FROM rwd WHERE vocabulary LIKE '" & Trim(Combo1) & "%'", cnn, adOpenForwardOnly, adLockReadOnly, adCmdText
'If rst.EOF = False Then
txtText1 = rst.Fields!Description
txtText2 = rst.Fields!translation
'End If
End Sub[/code]