sql upit u text box

[ dejan_su @ 12.06.2006. 16:39 ] @

Kako da mi TextBox1.Text bude neki sql upit??

[ divdesign @ 12.06.2006. 16:49 ] @

Code:

dim rs as recordset
Set db = OpenDatabase("c:\baza.mdb")
Set rs = db.OpenRecordset("SELECT * FROM tabela")
txtbox.text=rs!ime_polja

[ dejan_su @ 12.06.2006. 17:18 ] @

zasto ovo onda ne funkcionise??

Code:
Private Sub dcboProizvod1_Change()
  Set Rekordi = New ADODB.Recordset
  Rekordi.LockType = adLockOptimistic
  Rekordi.Open "SELECT Kod_proizvoda, Jedinicna_cena FROM Proizvod WHERE Kod_proizvoda = " & "'%" & dcboProizvod1.Text & "%' ", frmGlavna.Baza, adOpenDynamic, adLockOptimistic
  txtField(3).Text = Rekordi!Jedinicna_cena
End Sub

[ dejan_su @ 12.06.2006. 17:54 ] @

zapravo, ovako upit treba da izgleda

"SELECT Kod_proizvoda, Jedinicna_cena FROM Proizvod WHERE Kod_proizvoda = " & "'" & dcboProizvod1.Text & "'"

nece da radi a ne znam da li je greska u upitu ili necem drugom

[ divdesign @ 12.06.2006. 18:02 ] @

Pogledaj ove navodnike u upitu. To nekad ne funkcionise kako treba, bar kod mene.

[ dejan_su @ 12.06.2006. 18:19 ] @

hmmm....prepravio sam upit ovako

"SELECT * FROM Proizvod WHERE Kod_proizvoda = 'dcboProizvod1.Text'"

e sad to nece, ali recimo probam da upisem
"SELECT * FROM Proizvod WHERE Kod_proizvoda = 1"

i tako izbaci, ali cim stavim 1 u apostrof kaze Data Type Mismatch
dakle, meni treba ovaj prvi upit da radi ali bez apostrofa...kako to da dobijem?

[ dejan_su @ 12.06.2006. 18:39 ] @

grrrrrrrrr!!!

uspeo sam nesto ali sad imam novi problem
ovo radi:
rs.Open "SELECT Kod_proizvoda, Jed_cena FROM Proizvod WHERE Kod_proizvoda LIKE 'dcboProizvod.Text'", frmGlavna.Baza, adOpenDynamic, adLockOptimistic

ali ovde javi da je ili BOF ili EOF i da ne moze da ubaci nista u text box!!!
txtField(3).Text = rs!Jed_cena

[ divdesign @ 12.06.2006. 18:52 ] @

Ajd probaj ovako

Code:

"SELECT * FROM Proizvod WHERE Kod_proizvoda = '" + txtbox.Text + "'

[ elmagio @ 04.07.2006. 09:36 ] @

rs.Open "SELECT Kod_proizvoda, Jed_cena FROM Proizvod WHERE Kod_proizvoda LIKE ' " & dcboProizvod.Text & " ', frmGlavna.Baza, adOpenDynamic, adLockOptimistic

If rs!jed_cena = 0 then txtfield(3).text = 0 else

txtField(3).Text = rs!Jed_cena