VB i SQL Upit - Pitanje...

[ set_X @ 03.03.2005. 09:32 ] @

Ovako, radim preko ADO i SQL.

Evo kako izvlacim podatke iz jedne table.

Code:

upit = "SELECT Naslov, ID, Velicina, Tip, Status FROM lista WHERE ID = '" & Form4.Text1.Text & "'"
rs.Open upit, dcn, adOpenStatic, adLockOptimistic 'Pokrecemo SQL upit

Pitanje 1: Iz prethodne forme (form4), uzimam vrednost iz text polja, kao sto vidite, i trebam da selektujem ID koji je unesen u form4.text1.text.

Ali mi prikazuje gresku da je to pogresna vrednost (iako sam uneo broj - postojeci ID).

to se isto desava i sa ostalim poljim, osim polja Tip.
Kako da ovo resim?

Pitanje 2: Kao sto vidite selektujem Naslov, ID, Velicina, Tip i Status iz baze.

Kako da sad stavim da selektovani Naslov se pojavi u text1.text na istoj formi?

PS: Ovaj kod je u Form Load.

Unapred Hvala!

[ Aleksandar Ružičić @ 03.03.2005. 13:15 ] @

pogledaj TOP temu imas link ka tutorijalu sa rad za bazama koristeci SQL

[ mladenovicz @ 03.03.2005. 14:47 ] @

Par pravila za uslove u WHERE delu
1. ako je polje tipa text
ImePolja = 'Neka vrednost'
2. ako je polje tipa Date
ImePolja = #Neka vrednost#
3. ako je broj
ImePolja = 12345

[ set_X @ 03.03.2005. 17:06 ] @

mladenovicz mnogo hvala, ali bi mi vise pomogao da mi prepravis ovaj kod:

Code:

    Dim cd_id
    cd_id = Form4.Text1.Text
    upit = "DELETE FROM lista WHERE ID = " & cd_id & ""
    rs.Open upit, dcn, adOpenStatic, adLockOptimistic 'Pokrecemo SQL upit

Meni nikako ne ide...

[ set_X @ 03.03.2005. 22:08 ] @

Ajde ako neko zeli da mi pomogne...

Jako mi je bitno da se odgovori na prethodno pitanje i na pitanje broj 2. u prvoj poruci, pozeljno sto pre...

Unapred Hvala.

[ vujkev @ 03.03.2005. 23:39 ] @

Code:

dcn.Execute "DELETE FROM lista WHERE ID = " & cd_id

navodnici na kraju nisu potrebni

[ set_X @ 04.03.2005. 00:30 ] @

nece ni tako ;)

[ vujkev @ 04.03.2005. 01:27 ] @

Koju gresku prijavljuje?

[ set_X @ 04.03.2005. 06:16 ] @

Syntax error (missing operator) in query expression 'ID ='

[ set_X @ 04.03.2005. 06:25 ] @

Usput jos jedno pitanje:

Ovako na form2 ubacujem preko SQL podatke u bazu, koji se pokazuju u DataGrid1 na Form1.

I posle unosa radim Form1.DataGrid1.Refresh

Medjutim, taj zadnji unos se ne prikaze, vec moram da restartujem program, sto je veliki nedostatak.

Moze li neko pomoci?

[ Marko_L @ 04.03.2005. 18:48 ] @

Probaj ovako:

Code:
dcn.Execute ("DELETE * FROM lista WHERE ID = " & cd_id)

A za ovo drugo, pokušaj da refrešuješ celu bazu, a ne samo grid.

[ set_X @ 04.03.2005. 19:32 ] @

Hvala radi, a kako da refreshujem bazu?

[ set_X @ 04.03.2005. 21:34 ] @

Citat:

set_X: kako da refreshujem bazu?

I nisam dobio bitan odgovor, kako da dobijenu vrednost iz baze (preko SELECT), a vrednost je npr. Naslov ubacim u text1.text?

Hvala Unapred!

[ set_X @ 05.03.2005. 09:03 ] @

Uspeo sam da refresujem bazu, neka mi neko odgovori na pitanje iz prethodnog posta:

Citat:

I nisam dobio bitan odgovor, kako da dobijenu vrednost iz baze (preko SELECT), a vrednost je npr. Naslov ubacim u text1.text?

[ Marko_L @ 05.03.2005. 15:55 ] @

Code:
Text1.Text = rs.Fields(n).Value

gde je n redni broj polja koje hoćeš da ispišeš u textbox-u.Ako sam dobro razumeo šta ti treba.

[ vujkev @ 05.03.2005. 16:27 ] @

Samo kao dodatak na predhodni post od Marko_L-a

Nemoj da koristis redni broj polja jer kasnije moze da ti pravi
problem ako odlu=C4=8Di=C5=A1 da dodas ili obrises neko polje. Bolje resenj=
e je
da koristis naziv polja sa

Code:
Text1.Text =3D rs.Fields("NekoPolje1").Value

[ vujkev @ 05.03.2005. 16:27 ] @

Code:
Text1.Text =3D rs.Fields("NekoPolje1").Value

[ set_X @ 05.03.2005. 19:20 ] @

Hvala mnogo, uspeo sam, a kako da proverim da li je u text1.text unesen broj ili text (slova) ?

Hvala Unapred.

[ vujkev @ 05.03.2005. 20:07 ] @

Koristi funkciju IsNumeric

Code:

  If IsNumeric(Text1.Text) = true then
    ' upisan broj
  else
    ' nije broj
  end if

[ set_X @ 05.03.2005. 21:19 ] @

Hvala ti mnogo, pokusacu kasnije, sad sam u Linux ;)

[ set_X @ 13.03.2005. 07:09 ] @

Molim da mi neko ispravi gresku u sledecem kodu:

Code:

    upit = "INSERT INTO korisnici (Ime, Telefon, Adresa, Licna Karta) VALUES ('" _
    & Text1.Text & "',Text5.Text, '" & Text2.Text & "', '" & Text4.Text & "') " 'SQL upit
    rs.Open upit, dcn, adOpenStatic, adLockOptimistic 'Pokrecemo SQL upit

Hvala unapred.

[ vujkev @ 13.03.2005. 12:11 ] @

UVEK napisi koju gresu javlja

Code:

upit = "INSERT INTO korisnici (Ime, Telefon, Adresa, Licna Karta) VALUES ('" _
& Text1.Text & "',[b]'" & [/b]Text5.Text [b] & "'[/b], '" & Text2.Text & "', '" & Text4.Text & "') " 'SQL upit
rs.Open upit, dcn, adOpenStatic, adLockOptimistic 'Pokrecemo SQL upit

bas cudno ne radi [ b ] u okviru CODE taga

. Nije toliko ni bitno pogledaj gde sam stabio [ b ] i [ /b ] i samo ih skini. U principu text5 nije lepo napisan

[ set_X @ 13.03.2005. 15:34 ] @

Ponovo mi pokacuje gresku...

Syntax error in INSERT INTO statement

Sta li sad ne valjda?

Zna li neko?

Hvala unapred.

[ Marko_L @ 13.03.2005. 16:28 ] @

Code:
upit = "INSERT INTO korisnici (Ime, Telefon, Adresa, [Licna Karta]) VALUES ('" _
& Text1.Text & "', '" & Text5.Text & "', '" & Text2.Text & "', '" & Text4.Text & "')"

[ set_X @ 13.03.2005. 17:46 ] @

Hvala, radi!

[ set_X @ 20.03.2005. 20:52 ] @

Popravite ovaj kod:

Code:

upit2 = "SELECT ID, Naslov, Velicina, Tip, Status FROM lista WHERE ID LIKE " & Text1.Text & ""

Problem je kod LIKE delu, pa molim za pomoc...

[ Marko_L @ 20.03.2005. 21:17 ] @

Code:
upit2 = "SELECT ID, Naslov, Velicina, Tip, Status FROM lista WHERE ID LIKE '" & Text1.Text & "*'"

[ SAFF @ 27.01.2007. 20:36 ] @

Da nebih otvarao novu temu interesuje me kako na napravim upit (u asp) vezan za opciju true i false!
Pa da pojasnim stvari: imam bazu korisnik u kojoj se nalaze odredjeni entiteti od kojih je jedan Administrator i ima vrednost Yes/No odnosno true i false,
a potreban mi je upit koji bi napunio sesiju admin u zavisnosti od vrednosti korisnika!
pr.

Code:

<%session("id_korisnika")=pronadjiID()%>

<%
Function pronadjiId()
set    RezSet = Server.CreateObject("ADODB.RecordSet")
    upitId = "Select * from korisnik where Username='"&Username&"' and Password='"&Password&"'"
    RezSet.Open upitId, DB
    RezSet.MoveFirst
    idd = RezSet.Fields("id")
    RezSet.Close
    DB.Close
    pronadjiId = idd
End Function
%>