سلام دوستان برنامه جستجو كه با اكسس و با ديتا نوشته شده بود من ميخواهم با بانك اسكويل و با اي دي او يا غير از ان استفاده كنم براي همين در فرم يك آى دى آو ايجاد و انرا به بانك وصل كردم و يك ديتا گريد هم اضافه و ديتا سورس انرا همين اي دي او گذاشتم و يك تكس باكس براي گرفتن مقادير جستجو ... و لي عمل نكرد و در قسمت رفرش
خطا گرفت
لطفا يك برنامه ساده كه بانك ان اسكويل باشد و جستجو ساده براي فاميل داشته باشد و با اي دي او هم نباشد
از كجا ميتوانم بدست اورم
باشد كه نيكيتان را پاسخ دهم
-گ-گ----------------------------------------------------------------------------------
'Code for search
Private Sub cmdSearch_Click()
'With Data2
'Query to find students with particular grade
' .RecordSource = "Select * from students Where Grade = '" & txtSearch.Text & "'"
' .Refresh
'End With
With Adodc2
.RecordSource = "Select * from _T_ADAM Where LASTNAM = '" & txtSearch.Text & "'"
.Refresh
End With
End Sub
'Code for complex search
×-----------------------------------------------
Private Sub Form_Load()
'With Data1
' .DatabaseName = App.Path & "\Test.mdb" 'set database name
' .RecordSource = "students" 'set table name
'End With
'Data2.DatabaseName = App.Path & "\Test.mdb" 'set database name
'Data3.DatabaseName = App.Path & "\Test.mdb" 'set database name
Dim DB As Database
Dim RS As Recordset
Dim SQL As String
END SUB
×-------------------------------------------------------------
