Pozdrav, svima!
Hteo bih da predjem na ADO.Evo dela koda.
Dim con As ADODB.Connection
Dim ConString As String
Dim sTri As String
Dim rs As ADODB.Recordset
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
sTri = Text2.Text
ConString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\My Documents\Plate.mdb;Persist Security Info=False"
con.Open ConString
rs.Open "select * from Radnici where Ime like'" & sTri & "*'", con, adOpenKeyset, adLockOptimistic
Text1.Text = rs!Prezime
Ne funkcionise mi ovaj SQL upit, dok pri radu sa DAO sve lepo radi. Kad unesem pocetna slova ne izbacuje rezultat upita, niti javlja neku gresku.
Ako izbacim * (zvezdicu) i otkucam puno ime, onda radi i vraca mi rezultat upita. Hteo bih da ovo radi i kad unesem npr. samo pocetno slovo. U cemu je problem.
Hvala unapred.
Hteo bih da predjem na ADO.Evo dela koda.
Dim con As ADODB.Connection
Dim ConString As String
Dim sTri As String
Dim rs As ADODB.Recordset
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
sTri = Text2.Text
ConString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\My Documents\Plate.mdb;Persist Security Info=False"
con.Open ConString
rs.Open "select * from Radnici where Ime like'" & sTri & "*'", con, adOpenKeyset, adLockOptimistic
Text1.Text = rs!Prezime
Ne funkcionise mi ovaj SQL upit, dok pri radu sa DAO sve lepo radi. Kad unesem pocetna slova ne izbacuje rezultat upita, niti javlja neku gresku.
Ako izbacim * (zvezdicu) i otkucam puno ime, onda radi i vraca mi rezultat upita. Hteo bih da ovo radi i kad unesem npr. samo pocetno slovo. U cemu je problem.
Hvala unapred.