Prikazi cijelu temu 22.08.2015 23:38
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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):
  1. Function AdoSik()
  2. Dim rst As New ADODB.Recordset
  3. Dim cnn As ADODB.Connection
  4. Dim SQL As String
  5.  
  6.   Set rst = New ADODB.Recordset
  7.   Set cnn = CurrentProject.Connection
  8. With rst
  9.     .Open Source:="tblLista", ActiveConnection:=cnn, _
  10.       CursorType:=adOpenKeyset, LockType:=adLockOptimistic, _
  11.       Options:=adCmdTableDirect
  12.     .Index = "ID"
  13.     .Seek (3)
  14.   End With
  15. MsgBox rst!Iznos
  16. End Function

E sad mozemo napraviti i neke komplikovanije.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.