Kako da mi TextBox1.Text bude neki sql upit??
sql upit u text box
Zaključano
Zakačeno
Code:
dim rs as recordset
Set db = OpenDatabase("c:\baza.mdb")
Set rs = db.OpenRecordset("SELECT * FROM tabela")
txtbox.text=rs!ime_polja
dim rs as recordset
Set db = OpenDatabase("c:\baza.mdb")
Set rs = db.OpenRecordset("SELECT * FROM tabela")
txtbox.text=rs!ime_polja
Potpis
"Ko igra za raju i zanemaruje taktiku zavrsice karijeru u nizerazrednom vratniku"
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
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
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
"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
Pogledaj ove navodnike u upitu. To nekad ne funkcionise kako treba, bar kod mene.
Potpis
"Ko igra za raju i zanemaruje taktiku zavrsice karijeru u nizerazrednom vratniku"
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?
"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?
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
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
Ajd probaj ovako
Code:
"SELECT * FROM Proizvod WHERE Kod_proizvoda = '" + txtbox.Text + "'
"SELECT * FROM Proizvod WHERE Kod_proizvoda = '" + txtbox.Text + "'
Potpis
"Ko igra za raju i zanemaruje taktiku zavrsice karijeru u nizerazrednom vratniku"
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