romina2006
جمعه 14 خرداد 1389, 12:26 عصر
دوستان سلام
من با كامپوننت Adodc1 به بانك اطلاعاتي اكسس متصل ميشم.براي جستجو كد زير رو نوشتم :
Private Sub Command1_Click()
Dim Find As String
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\" & "Dictionary.mdb"
Find = Trim(UCase(Convert(TxtInfo(0).Text)))
Adodc1.RecordSource = "SELECT * FROM Drug WHERE GenericName LIKE '*" & Find & "*'"
Adodc1.Refresh
MsgBox Adodc1.Recordset.RecordCount
End Sub
هنگام اجرا خطاي زير ميده :
Method Refresh of Object IAdodc Failed
ميشه بگيد براي چيه و بايد چي كار كرد؟
من با كامپوننت Adodc1 به بانك اطلاعاتي اكسس متصل ميشم.براي جستجو كد زير رو نوشتم :
Private Sub Command1_Click()
Dim Find As String
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\" & "Dictionary.mdb"
Find = Trim(UCase(Convert(TxtInfo(0).Text)))
Adodc1.RecordSource = "SELECT * FROM Drug WHERE GenericName LIKE '*" & Find & "*'"
Adodc1.Refresh
MsgBox Adodc1.Recordset.RecordCount
End Sub
هنگام اجرا خطاي زير ميده :
Method Refresh of Object IAdodc Failed
ميشه بگيد براي چيه و بايد چي كار كرد؟