Srodne teme

14.04.2024. Re: Gde je Kejt? (samo pogrešni odgovori)
24.07.2002. VB6.0+ADO+RunTime error '68'
30.08.2002. Unload forme
07.12.2003. Delphi i ADO baze podataka
19.04.2005. Kako da povežem tablice...?
08.12.2005. Dva ili više comp.????????
14.02.2006. JavaScriptom provjeriti učitavanje stranice?
28.02.2006. ADO komponente - Prepoznavanje greski
02.03.2006. Potrebni VB6/VC++ programeri
09.03.2006. Pomoc oko VB6->Access

Navigacija

Brisanje liste

Lista poslednjih: 16, 32, 64, 128 poruka.

Kako u VB6 sa ADO provjeriti da li vec postoji red u tablici sa oređenim stringom u nekom polju ?

[es] :: Visual Basic 6 :: Kako u VB6 sa ADO provjeriti da li vec postoji red u tablici sa oređenim stringom u nekom polju ?

[ Pregleda: 2508 | Odgovora: 16 ] > FB > Twit

Autor

_SASA_

Član broj: 99915
Poruke: 24
*.siemens.at.

Profil

Kako u VB6 sa ADO provjeriti da li vec postoji red u tablici sa oređenim stringom u nekom polju ?

^{07.03.2008. u 14:00 - pre 196 meseci}

Cao,

Ovaj kod koristim da upisem redan u bazu u accessu uz pomoc VB:

Code:

        Dim adoCom As New ADODB.Command
        adoCom.ActiveConnection = Adodc1.ConnectionString

         adoCom.CommandText = "INSERT INTO svi_brojevi(Naziv, Broj, Kartica)" & _
                          "VALUES('" _
                          & naziv & "','" _
                          & broj & "','" _
                          & kartica & _
                          "')"
         adoCom.Execute

i ovo radi,
ali sada bih htio da provjerim da li vec imam taj broj u bazi ako imam da ga onda ne unes, pokusao sam sa:

Code:

    Dim rezultat As ADODB.recordset
    Set rezultat = New ADODB.recordset



             adoCom.CommandText = "INSERT INTO svi_brojevi(Naziv, Broj, Kartica)" & _
                          "VALUES('" _
                          & naziv & "','" _
                          & broj & "','" _
                          & kartica & _
                          "')"
      Set rezultat = adoCom.Execute

    If rezultat.BOF = True Then
       MsgBox "NEMA"
    Else
       MsgBox "IMA"
    End If

ali ne radi...svaki put mi izbavi msgbox sa IMA iako ga uopce nema u tablici

da li mi netko moze pomoci

HVALA...

Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net

+44 Profil

Re: Kako u VB6 sa ADO provjeriti da li vec postoji red u tablici sa oređenim stringom u nekom polju ?

^{07.03.2008. u 14:28 - pre 196 meseci}

pokusaj prvo neki ovakav upit:

Code:

"SELECT COUNT(*) AS exists FROM svi_brojevi WHERE Broj = " & Cstr(broj)

pa onda ako ti je 'exists' > 0 vec imas taj broj a ako je 0 onda ga nemas..

rafforum.rs - Forum Računarskog Fakulteta

Odgovor na temu

_SASA_

Član broj: 99915
Poruke: 24
*.adsl.net.t-com.hr.

Profil

Re: Kako u VB6 sa ADO provjeriti da li vec postoji red u tablici sa oređenim stringom u nekom polju ?

^{08.03.2008. u 09:38 - pre 196 meseci}

Hvala na pomoci ali taj upit uopce ne mogu ni pokrenuti unutar visual basica 6

evo linka sa cijelim projektom http://www.mediafire.com/?xm9ttdgjgcm

pa ako netko moze pogledati bio bih mu zahvalana...

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
77.46.177.*

+41 Profil

Re: Kako u VB6 sa ADO provjeriti da li vec postoji red u tablici sa oređenim stringom u nekom polju ?

^{08.03.2008. u 09:53 - pre 196 meseci}

Zameni onaj tvoj red

Code:

CommandText = "SELECT COUNT(*) AS exists FROM svi_brojevi WHERE svi_brojevi.Broj=""0995499996"""

sa sledecim:

Code:

adoCom.CommandText = "SELECT COUNT(*) AS Postoji FROM svi_brojevi WHERE svi_brojevi.Broj='" & broj & "'"

Bile su dve greske:

1. Alijas ne moze biti exists jer je to rezervisana rec.
2. Nacin na koji navodis tekstualne izraze nije bio dobar, moras koristiti apostrofe.

Dalje, moras ispitati vrednost od "Postoji" a ne BOF i EOF.

Umesto

Code:

If rezultat.BOF = True Then
MsgBox "DDDD"
Else
MsgBox "VVVV"
End If

treba

Code:

If rezultat("Postoji") > 0 Then
MsgBox "Ima"
Else
MsgBox "Nema"
End If

Ajd polako

Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net

+44 Profil

Re: Kako u VB6 sa ADO provjeriti da li vec postoji red u tablici sa oređenim stringom u nekom polju ?

^{08.03.2008. u 11:52 - pre 196 meseci}

Citat:

goranvuc:
1. Alijas ne moze biti exists jer je to rezervisana rec.

heh,u MySQL-u moze :)

rafforum.rs - Forum Računarskog Fakulteta

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
77.46.177.*

+41 Profil

Re: Kako u VB6 sa ADO provjeriti da li vec postoji red u tablici sa oređenim stringom u nekom polju ?

^{08.03.2008. u 12:13 - pre 196 meseci}

Izvinjavam se na nepreciznosti, pa da se ispravim:

1. Alijas ne moze biti exists jer je to rezervisana rec kod MS Access baza podataka koju koristis u tvom primeru. Za druge DBMS nisam proveravao.

Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12851

+4784 Profil

Re: Kako u VB6 sa ADO provjeriti da li vec postoji red u tablici sa oređenim stringom u nekom polju

^{08.03.2008. u 12:38 - pre 196 meseci}

Stavis u [] :)

Nebojsa Milanovic: Što se tiče Trumpa, smatram ga vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu.
Nebojsa Milanovic: Rusija ne laže, ne vodi osvajačke ratove
Nebojsa Milanovic: Trump je svetla tačka u USA blatu.

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
77.46.177.*

+41 Profil

Re: Kako u VB6 sa ADO provjeriti da li vec postoji red u tablici sa oređenim stringom u nekom polju ?

^{08.03.2008. u 12:49 - pre 196 meseci}

Izgleda da se ovde moderatori bas dosadjuju

Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net

+44 Profil

Re: Kako u VB6 sa ADO provjeriti da li vec postoji red u tablici sa oređenim stringom u nekom polju ?

^{08.03.2008. u 12:54 - pre 196 meseci}

izgleda :)

rafforum.rs - Forum Računarskog Fakulteta

Odgovor na temu

_SASA_

Član broj: 99915
Poruke: 24
*.adsl.net.t-com.hr.

Profil

Re: Kako u VB6 sa ADO provjeriti da li vec postoji red u tablici sa oređenim stringom u nekom polju

^{09.03.2008. u 10:34 - pre 196 meseci}

Ok, hvala "goranvuc" proba sam i to radi bez problema..

...postoji jos jedna stvar koju bih htio uciniti ali ne znam kako...

... zelio bih izvuci naziv i broj od svih recorda(0..N) kojima je "Ne_uzmi" polje postavljeno na "No"...

To sam pokusao sa sljedecim kodom, naravno nije mi uspijelo jer inace ne bih pitao:

Code:

Private Sub cmdGenerirajDatoteku_Click()
    Dim mFileSysObj As New FileSystemObject  ' General declaration
    Dim mFile As File                        ' General declaration
    Dim mTxtStream As TextStream             ' General declaration

    Dim broj As String
    Dim naziv As String

    Dim rezultat As ADODB.Recordset
    Set rezultat = New ADODB.Recordset

    Dim adoCom As New ADODB.Command
    adoCom.ActiveConnection = Adodc1.ConnectionString
    'http://msdn2.microsoft.com/en-us/library/ms681504(VS.85).aspx

    CommonDialog1.ShowSave

    ' Create and Get the file
    mFileSysObj.CreateTextFile (CommonDialog1.FileName)
    Set mFile = mFileSysObj.GetFile(CommonDialog1.FileName)


    ' Open a text stream for reading from a file
    Set mTxtStream = mFile.OpenAsTextStream(ForWriting)

    adoCom.CommandText = "SELECT Naziv, Broj AS naziv, broj FROM svi_brojevi WHERE svi_brojevi.Ne_uzmi=No"
    MsgBox adoCom.CommandText

    Set rezultat = adoCom.Execute
    'http://www.freevbcode.com/ShowCode.Asp?ID=3687

    rezultat.MoveFirst
    If rezultat.BOF = True Then
        MsgBox "NA POCETKU SAM"
    Else
        MsgBox "NISAM NA POCETKU"
    End If

    MsgBox rezultat("naziv")
    MsgBox rezultat("broj")
    'rezultat.MovePrevious
    MsgBox rezultat("naziv")
    MsgBox rezultat("broj")

    Exit Sub

    'do until rezultat.MoveNext
    'Loop

    Adodc1.Refresh
End Sub

ja shvacam da ja bas nemam dobro razumjevaje ovoga ADODB.Recordset-a tj., kao se on treba koristiti i sto se moze uciniti sa njim, pa ko znas neki link gdje je to dobro objasnjeno(sa malo naprednijim primjerima) molim te da ga staviš

P.S. stavio sam cijeli projek na http://www.mediafire.com/?uwy1gyxgitp pa ako netko zeli moze baciti pogled...

HVALA svima...

Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net

+44 Profil

Re: Kako u VB6 sa ADO provjeriti da li vec postoji red u tablici sa oređenim stringom u nekom polju ?

^{09.03.2008. u 15:56 - pre 196 meseci}

da prebrojis broj redova koristi COUNT(*) u sql upitu, znaci ovako nesto:

Code:

SELECT Naziv, broj, COUNT(*) AS broj_redova FROM svi_brojevi WHERE svi_brojevi.Ne_uzmi=No

rafforum.rs - Forum Računarskog Fakulteta

Odgovor na temu

_SASA_

Član broj: 99915
Poruke: 24
*.siemens.at.

Profil

Re: Kako u VB6 sa ADO provjeriti da li vec postoji red u tablici sa oređenim stringom u nekom polju

^{10.03.2008. u 08:04 - pre 196 meseci}

Da ovo shvacam...

ali ja zelim dobiti listu(vector- sto vec) naziva i bojeva kojima je Ne_uzmi=No, tako da onda te nazive i borjeve uopisem u datoteku(ovo sam upisom u datoteku znam), ali ne znam kako uzeti sve nazive i brojeve kojima je Ne_uzmi=No

_{[moderator: izbrisan nepotreban citat]}

_{[Ovu poruku je menjao Aleksandar Ružičić dana 11.03.2008. u 21:07 GMT+1]}

Odgovor na temu

_SASA_

Član broj: 99915
Poruke: 24
*.adsl.net.t-com.hr.

Profil

Re: Kako u VB6 sa ADO provjeriti da li vec postoji red u tablici sa oređenim stringom u nekom polju

^{11.03.2008. u 19:25 - pre 196 meseci}

pa nije valjda da nitko nezna... :-(

Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net

+44 Profil

Re: Kako u VB6 sa ADO provjeriti da li vec postoji red u tablici sa oređenim stringom u nekom polju ?

^{11.03.2008. u 20:09 - pre 196 meseci}

Code:
SELECT naziv, broj FROM svi_brojevi WHERE Ne_uzmi = 'No'

rafforum.rs - Forum Računarskog Fakulteta

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
77.46.178.*

+41 Profil

Re: Kako u VB6 sa ADO provjeriti da li vec postoji red u tablici sa oređenim stringom u nekom polju ?

^{11.03.2008. u 20:19 - pre 196 meseci}

Mala ispravka jer je polje "Ne_uzmi" logickog tipa:

Code:

SELECT naziv, broj FROM svi_brojevi WHERE Ne_uzmi = No

ili jos ispravnije

Code:

SELECT naziv, broj FROM svi_brojevi WHERE Ne_uzmi = False

Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net

+44 Profil

Re: Kako u VB6 sa ADO provjeriti da li vec postoji red u tablici sa oređenim stringom u nekom polju ?

^{12.03.2008. u 14:13 - pre 196 meseci}

ja sam mislio da je Enum tipa, ako taj tip i postoji u Access-u...

rafforum.rs - Forum Računarskog Fakulteta

Odgovor na temu

_SASA_

Član broj: 99915
Poruke: 24
*.adsl.net.t-com.hr.

Profil

Re: Kako u VB6 sa ADO provjeriti da li vec postoji red u tablici sa oređenim stringom u nekom polju

^{12.03.2008. u 18:39 - pre 196 meseci}

SELECT naziv, broj FROM svi_brojevi WHERE Ne_uzmi = False

Ovo radi, hvala goranvuc

Odgovor na temu

[es] :: Visual Basic 6 :: Kako u VB6 sa ADO provjeriti da li vec postoji red u tablici sa oređenim stringom u nekom polju ?

[ Pregleda: 2508 | Odgovora: 16 ] > FB > Twit

Srodne teme

03.06.2008. [Excel] problem sa formatiranjem ćelije ( više..
08.11.2006. Select upit - hitno!!!
08.11.2006. problem sa datumom
13.01.2007. Stored Procedura i C#
25.02.2007. kako da radi vb6 na kompu koji nema vb ili ima vb..
28.08.2007. koriscenje dx9vb.dll u vb6?
23.01.2008. Brojenlje zapisa u polju
04.02.2008. [Excel] Kako da da prebrojim podatke iz filtera

Navigacija

Lista poslednjih: 16, 32, 64, 128 poruka.