Predmet:Re: Seek funkcija
Evo jedan primjer u accessu.
Isto bi bilo i na MySQl sem konekcije.
Koristi sam ado25
Tabela:
CREATE TABLE tblLista (ID counter CONSTRAINT ID PRIMARY KEY, Datum Date, Sifra INTEGER, Iznos Currency, Svrha INTEGER);
Procedura:
PreuzmiIzvorni kôd (Visual Basic):Function AdoSik()
Dim rst As New ADODB.Recordset
Dim cnn As ADODB.Connection
Dim SQL As String
Set rst = New ADODB.Recordset
Set cnn = CurrentProject.Connection
With rst
.Open Source:="tblLista", ActiveConnection:=cnn, _
CursorType:=adOpenKeyset, LockType:=adLockOptimistic, _
Options:=adCmdTableDirect
.Index = "ID"
.Seek (3)
End With
MsgBox rst!Iznos
End Function
E sad mozemo napraviti i neke komplikovanije.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.