[ _DeXy^ @ 27.03.2004. 14:36 ] @
Imam bazu podataka u kojoj su smestena polja SIFRA i IME.
Kako sad da napisem kod da kad unesem text u polje txtSifra i pritisnem taster ENTER da mi u polju txtIme automatski bude upisano ime za trazenu sifru. Znaci program otvara bazu i proverava sifru i upisuje ime.
Poz
[ mladenovicz @ 27.03.2004. 15:04 ] @
Pogledaj ovu temu.
[ _DeXy^ @ 27.03.2004. 15:30 ] @
Citat:
mladenovicz:
Pogledaj ovu temu.


Video sam i nista.
NEMA resenja mog problema
[ byTer @ 27.03.2004. 21:09 ] @
U neku DB komponentu stavi da ti query izgleda ovako

select username from users WHERE password = '''+password.text+'''

Onda samo procitas (ako ije isto ko u ASPu onda je)

Record.Open
username.text = record("username")

fora je da mogu da ti se dese dve iste sifre.
[ _DeXy^ @ 28.03.2004. 13:34 ] @
Citat:
byTer:
U neku DB komponentu stavi da ti query izgleda ovako

select username from users WHERE password = '''+password.text+'''

Onda samo procitas (ako ije isto ko u ASPu onda je)

Record.Open
username.text = record("username")

fora je da mogu da ti se dese dve iste sifre.


Mislim da nisam ukapirao ovo bas najbolje :)
Fora je u tome sto je ovo rad za skolu. Nesto kao seminarski. Treba napraviti program tako da kad uneses sifru artikla da ti program izbaci naziv tog artikla, cenu po jedinici mere, jedinicu mere... i tako to...
E sad ja sve podatke drzim u bazi podataka. Al' ne znam kako da napravim da kad unesem sifru artikla i pritisnem ENTER da mi se u ostalim tekstualnim poljima iscita ime artikla, cena...
Poz.
[ byTer @ 28.03.2004. 14:44 ] @
Ja koristim Delphi, ali verovatno ima nekih komponenti kao sto su DBTextBox u delphiju koje povezes na DataSuorce (koji je povezan sa Recordsetom) tako da ti automatski prikazuje DB polja. A onda uradis ono od napred.
[ Marko_L @ 28.03.2004. 15:32 ] @
Mozes i ovako.Postavi jedan textbox (nek bude Text1) kome ces dodeliti polje iz baze u kome su ti sifre i stavi visible false,zatim napravi jos dva textbox-a txtSifra i txtIme i textbox-u txtIme dodeli polje iz baze gde su smestena imena.I ukucaj sledeci kod u keypress event txtSifra
Code:
Private Sub txtSifra_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
db.Recordset.FindFirst "[ime polja gde su sifre] = " & Val(txtSifra.Text)
If db.Recordset.NoMatch = True Then MsgBox "U bazi ne postoji artikl sa unetom sifrom"
End If
End Sub

Ovo je kod pod uslovom da ti je polje gde su sifre neki number datatype(integer,long...), a ukoliko je string onda kod izmeni ovako
Code:
Private Sub txtSifra_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
db.Recordset.FindFirst "[ime polja gde su sifre] = '" & txtSifra.Text & "'"
If db.Recordset.NoMatch = True Then MsgBox "U bazi ne postoji artikl sa unetom sifrom"
End If
End Sub


Poz.