• 2 odgovora
  • 2.566 pregleda
traženje sloga u bazi 09.01.2006. u 18:48 · pre 253 meseci #1
kako da mi ovo proradi. trebam da upisem neki broj u text1.text i onda po njemu da mi nade u tabeli (mat) taj slog po ključu "ulica" (prvo polje u tabeli)
i kako da napravim opciju match tj. da dalje trazi jos ako ima jos takvih slogova.


probao sam nesto ovako, i zamjenit bb sa text1.text i bez kk i svakako al nikako ne uspjevam.. please help

.
.
Dim bb As String
Dim kk As Integer
bb = Text1.Text
kk = rsAdresar.Open "SELECT * from mat where ulica=bb", cnGlavna, adOpenDynamic, adLockOptimistic
rsAdresar.AbsolutePosition = kk
popunipolja
.
.
Re: traženje sloga u bazi 11.01.2006. u 15:03 · pre 253 meseci #2
Nije ti bas najjasniji kod ali pokusacu...


Ovako

Dim bb As String
Dim kk As Integer
bb = Text1.Text

'Pod pretpostavkom da si deklarisao promenljivu Dim rsAdresar as New Recordset
' i pod uslovom da ti je tekstualno polje u tabeli mat

rsAdresar.Open "SELECT * from mat where ulica= " & " ' " & trim(bb) & " ' ", cnGlavna, _ adOpenDynamic, adLockOptimistic

rsAdresar.MoveFirst

'Na formi iscrtaj komandno dugme i stavi Caption na "Trazi dalje..."

Private sub Command1_Click()

rsAdresar.MoveNext
popuniTextBoxove()

end sub

Za sada toliko, jer mi nije jasno sta si zeleo da kazes, ali se nadam da ce pomoci...
Tema je zaključana, nove poruke nisu moguće.

Premeštanje teme