thomasandy
پنج شنبه 16 آذر 1391, 09:16 صبح
Adodc1.RecordSource = "select * from table where field='" & Text1.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.EOF = False Then
text6.text=adodc1.recorset.field!name
text5.text=adodc1.recordset.field!family
else
msgbox peyda nashod
با سلام میشه بجای کد adodc data base گذاشت
Adodc1.Refresh
If Adodc1.Recordset.EOF = False Then
text6.text=adodc1.recorset.field!name
text5.text=adodc1.recordset.field!family
else
msgbox peyda nashod
با سلام میشه بجای کد adodc data base گذاشت