VISUAL BASIC

Lep pozdrav

Imam bazo Imenik.mdb, v kateri so vpisani podatki.
Npr. ZaporednaSt, Priimek, Ime, ulica, Pošta, itd, pa me zanima kakšno kodo je potrebno napisati, da pridem do točno določenega podatka iz baze.

Rad bi, da se v Text1 izpiše podatek Priimek, ki je v bazi Imenik pod ZaporednoSt 115.

marko

da bo koda delovala moraš v Project/References odkljukati Microsoft ActiveX Data Objects 2.x Library (ADO)

Private Sub Test()
Dim Baza As ADODB.Connection
Dim Tabela As ADODB.Recordset

Set Baza = New ADODB.Connection
Baza.ConnectionString = “Provider=Microsoft.Jet.OLEDB.3.51;Data Source=C:\Imenik.mdb”
GBazaUdel.Open
Set Tabela = New ADODB.Recordset
‘Namesto ImeTabele vstaviš svoje ime tabele,ki se nahaja v Imenik.mdb
Tabela.Open “Select * From ImeTabele Where ZaporednoSt = 115”, Baza, adOpenDynamic, adLockOptimistic
If Not Tabela.BOF Then
Text1.Text = Tabela!Priimek
End If
Tabela.Close
Set Tabela = Nothing
Baza.Close
Set Baza = Nothing

End Sub

Če ADO komponente nimaš nameščene povej pa ti napišem primer v DAO