Problem sa trazenjem po bazi - VB...opet

[luka.l]

Citao sam raniji thread na ovu temu ali stvar prosto ne mogu da nateram da radi....

Elem, ne koristim obicnu data controlu vec onu, kako se zvase, ADO kontrolu.

Sve je to lepo povezano na formi ali kada hocu nesto da trazim imam problem. Naime, ovo parce koda radi:

adodc1.Recordset.Find "NekoPolje='nesto trazim'"

ali mi nikako ne ide od ruke da umesto tog stringa u kodu ubacim string promenljivu.

Pozdrav! :wave;

 

[legend]

dim trazi as string

trazi = "nesto"

adodc1.Recordset.Find "NekoPolje='" & trazi & "'"

ovo mora da radi !!!

obrati paznju na jednostruke i dvostruke navodnike, znaci ide (odvojicu radi citljivosti):

' " & trazi & " ' "

:wave;

 

[ssteva]

Samo bih sugerisao 2 stvari: :rtfm:

1. Nemoj koristiti ADO kontrolu. Koristi ADO objekte Connection i Recordset u kodu. Imaces bolju kontrolu u aplikaciji, a moci ces i da im das scope koji ti odgovara.

2. Koristi Filter property Recordseta. Brze, bolje i efikasnije nego Find. Filtriras po uslovu, pa ispitujes da li je rs prazan ili ne.

Imas dobrih primera u MSDN-u, u helpu za ADO...
:wave;

 

[legend]

potpuno se slazem.

trebas to da odradis kroz kreiranje rekordseta kroz sql.

recimo, dodas referencu ado-a u projekat, instanciras objekat ado-a, i odradis sql sa uslovom pretrage.

dim adocon as connection
dim adors as recordset
dim ime as string

set adocon = new connection
set adors = new recordset

ime = "pera"
adocon.open stringkonekcije
adors.open "Select * from [NESTO] where [IME] = '" & ime "'", adocon,3,3

ne zaboravi i "higijenu":

adors.close
adocon.close

set adors = nothing
set adocon = nothing



:wave; :wave;

 

[legend]

...pogledaj i na netu za primere, ima ih zaista puno....

 

[luka.l]

adodc1.Recordset.Find "NekoPolje='" & trazi & "'"

ovo mora da radi !!!

Radi....cheers

Hvala na pomoci.

Pozdrav! :wave;

 

[legend]

nema na cemu...cheers

 

[Carlito]

Combo box

Imam problem...po prvi put radim sa Data kontrolom.....i problem je ovakve prirode:
na prvoj formi se unose podaci o korisniku (ime, prezime, tel.....itd).
na drugoj bi trebalo da se unesu podaci zaduyenja nekog uredjaja..i to sve radi OK...povezao preko kontrole sa bazom u kojoj su tabele povezane preko ID Korisnika....
na dnu bi trebalo da bude Combo box u kom bi se izabrao korisnik iz tabele Korisnik (tj. podaci uneti na prvoj formi)....i NISTA. sve sam lepo povezao....i opet nista....ima li ko kakav savet.....cak nista ne izlazi

Hvala unapred!

 

[Aladin]

Re: Combo box

Nisam bas siguran da sam te razumeo najbolje , ali i ja sam imao problema sa punjenjem data combo boxa .Evo ti kod koji provereno radi :

On Error GoTo HandleErr

SQL1 = "SELECT * FROM fnAllGroups ()"

Set cmd = New ADODB.Command
With cmd
.ActiveConnection = conn
.CommandText = SQL1
.CommandType = adCmdText
End With

Set rst2 = New ADODB.Recordset
With rst2
.CursorLocation = adUseClient
.LockType = adLockOptimistic
.Open cmd, Options:=adCmdText
End With

With cmbGrupa
Set .RowSource = rst2
.BoundColumn = "grupaID"
.ListField = "ime"
End With

ExitHere:
Exit Sub

HandleErr:
Select Case Err
Case Else
MsgBox Err & ":" & Err.Description, vbCritical, "Error"
End Select
Resume ExitHere
Resume