با سلام و خسته نباشید به شما
بنده هنگامی که می خواهم در ویژوال بیسیک متصل به بانک اطلاعاتی اکسس جستجو را بر اساس کد ملی انجام بدم متاسفانه با خطای method 'refresh' of object 'IAdodc' failed مواجه می شوم که محل خطا به صورت قرمز رنگ می باشد .در ضمن کد برنامه به صورت زیر است. نکته جالب توجه این است که این سرچ را برحسب نام یا نام خانوادگی انجام دادم هیچ مشکلی ندارد. و در قسمت مرتب کردن نیز که با دستورات اس کیو ال نوشتم همین مشکلات رخ داد و جالب اینجاست که میخواستم مرتب کردن را برحسب یکی از فیلدهای متنی غیر از نام یا نام خانوادگی انجام دهم با خطای بالا روبرو شدم. لطفا اگر ممکنه در این زمینه راهنمایی لازم را فرمایید. با تشکر
Dim skin As String
Private Sub cmdall_Click()
Adodc1.RecordSource = "SELECT * FROM Table1"
Adodc1.Refresh
Call Form_Activate
End Sub
Private Sub cmdgo_Click()
Call cmdall_Click
Adodc1.RecordSource = "select * from table1 where fn like '" & txtbyname.Text & "%'"
Adodc1.Refresh
On Error GoTo X
If Adodc1.Recordset.Fields(0) = "" Then
Call cmdall_Click
MsgBox3 Me, "јæÑÏ ãæÑÏ äÙÑ íÇÝÊ äÔÏ.", vbOKOnly, "ÌÓÊÌæ äÇãæÝÞ"
End If
Exit Sub
X:
MsgBox3 Me, "äÇã ãæÑÏ äÙÑ íÇÝÊ äÔÏ.", vbOKOnly, "ÌÓÊÌæ äÇãæÝÞ"
Call cmdall_Click
txtbyname.Text = ""
End Sub
Private Sub cmdgocom_Click()
Call cmdall_Click
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "SELECT * FROM table1 WHERE co-m = '" & Trim(txtbycom.Text) & "'"
Adodc1.Refresh
On Error GoTo X
If Adodc1.Recordset.Fields(0) = "" Then
Call cmdall_Click
MsgBox3 Me, "јæÑÏ ãæÑÏ äÙÑ íÇÝÊ äÔÏ.", vbOKOnly, "ÌÓÊÌæ äÇãæÝÞ"
End If
Exit Sub
X:
MsgBox3 Me, "äÇã ãæÑÏ äÙÑ íÇÝÊ äÔÏ.", vbOKOnly, "ÌÓÊÌæ äÇãæÝÞ"
Call cmdall_Click
txtbycom.Text = ""
End Sub
Private Sub cmdgofn_Click()
Call cmdall_Click
Adodc1.RecordSource = "select * from table1 where ln like '" & txtbyfname.Text & "%'"
Adodc1.Refresh
On Error GoTo X
If Adodc1.Recordset.Fields(0) = "" Then
Call cmdall_Click
MsgBox3 Me, "јæÑÏ ãæÑÏ äÙÑ íÇÝÊ äÔÏ.", vbOKOnly, "ÌÓÊÌæ äÇãæÝÞ"
End If
Exit Sub
X:
MsgBox3 Me, "äÇã ÎÇäæÇÏí ãæÑÏ äÙÑ íÇÝÊ äÔÏ.", vbOKOnly, "ÌÓÊÌæ äÇãæÝÞ"
Call cmdall_Click
txtbyfname.Text = ""
End Sub