Ovako,bazu sam uradio u Accessu i preko Data1 objekta povezao sa vb 6
Na formi imam txtbox,command buuton,dbGrid...
Pokusavam da prikazem rezultat upita u dbgridu,tako sto unesem brojcanu vrednost u txtbox i pritisnem command buuton i on prikaze rezultat u dbgridu...
Kod sam kucao u eventu command butona 1 i on je sledeci:
Code:
Private Sub Command1_Click()
Dim strSQL as String
Dim strWhere as String
strSQL = "SELECT * FROM ZB_0000"
strWhere = ""
if text1.Text<>"" then
strWhere = strWhere & "USR_ID = '" & text1.text & "' and "
end if
if strWhere <> "" then
strWhere = left(strWhere, len(strWhere) - 5)
end if
if strWhere <> "" then
strSQL = strSQL & " WHERE " & strWhere
end if
Set data1.Recordset = db.OpenRecordset(strSQL)
End Sub
a izbacuje mi gresku Run time '424'
Object required
Moje pitanje je to,gde sam pogresio?
da li treba jos sta podesiti u propertis sekciji za ove objekte...
Hvala i pomozite,ako mozete
Edit by Marko_L > Sređeni code tagovi
[Ovu poruku je menjao Marko_L dana 31.07.2009. u 11:04 GMT+1]