RunTime error 91 - nerazumem problem

[ X-Cite @ 12.05.2005. 16:03 ] @

Napravio sam jedan soft, koji je ustvari dovoljno jednostavan a i veoma koristan.

Object variable or With block variable not set (Error 91) - TO JE GREŠKA

Radi se o programu koji se koristi u servisu za bazu mobilnih aparata koji su kupljeni... i status dali su prodani i pošto...

znači Main form, frmNakup i frmProdaja.

radim sa ADODC kontrolom!

na mom računaru sve radi odlično i kako treba.

Kad sam program stavio na drugi comp (samo sam preneo exe fajl i potrebne ocx fajlove), otvorim... baza mi se ne učitava u datagrid kontrolu... (dali je to zato, što na tom računaru nema Accessa instaliranog... a Accessova se baza koristi za tu aplikaciju? - PITANJE 1)

kada pokrenem form frmProdaja on mi izbaci taj error ili kada želim da napravim novi unos preko cmdAdd na frmProdaja... pojavi se ista greška

ovo je kod koji sam napisao:

Code:

Private Sub cmdAdd_Click()

    With frmMain.Adodc1.Recordset
        .AddNew
            .Fields("Prevzel") = Combo1.Text
            .Fields("ImeStranke") = Text2.Text
            .Fields("Naslov") = Text3.Text
            .Fields("StDokumenta") = Text4.Text
            .Fields("KontaktnaSt") = Text5.Text
            .Fields("Znamka") = Text6.Text
            .Fields("Model") = Text7.Text
            .Fields("IMEIvAPARATU") = Text8.Text
            .Fields("IMEInaOHISJU") = Text9.Text
            .Fields("Barva") = Text10.Text
            .Fields("Datum") = Text11.Text
            .Fields("Cena") = Text12.Text
            .Fields("Komentar") = Text13.Text
            .Fields("Status") = "Na zalogi"
        .Update
    End With

    Me.Hide
    Unload Me

End Sub

kada pokrenem frmProdaja javlja mi istu grešku a pokrećem ga sa sledećim kodom...
koji odma prikaže izabrani aparat... da se proda pravi aparat...

Code:

        Load frmProdaja
        frmProdaja.Show

        frmProdaja.Adodc1.Recordset.Filter = "ID = " & Val(txtID)

našao sam šta znači kod... ali ne razumijem šta mu trebam uraditi da bi proradilo...

PITANJE 2 - valjda treba dodati reference... ako sam dobro pročitao... koji reference treba dodati?

Hvala na pomoći...

[ vujkev @ 12.05.2005. 16:44 ] @

Problem jeste to što na tom računaru nemas Access. Ako možeš instaliraj Access, a ako ne onda samo instaliraj najnoviji JET. Naćićeš ga sigurno na net-u

P.S. Reference su već dodao problem je što na računaru nemaš komponente na koje te reference ukazuju

[ X-Cite @ 12.05.2005. 21:57 ] @

znači sigurno je problem samo access i njegova instalacija... ebemu misa... nemam licence za office za radnju... a za pocetak mi nije ni financijski pogodno...

mozes li mi nesto vise objasniti o JET-u?

to je neki engine? čemu služi.. itd... moram malo proguuglati

[ Shadowed @ 12.05.2005. 22:12 ] @

http://www.microsoft.com/downl...85d0506396c&DisplayLang=en

[ vujkev @ 12.05.2005. 22:32 ] @

To ne�e da radi

Citat:

This release does not include Microsoft Jet, the Microsoft Jet OLE
DB Provider or ODBC driver, the Desktop Database ODBC Drivers, or the Visual
FoxPro ODBC Driver

Mislim da ima da se nadje JET posebno, mada mo�da �e ti trebati i ovo

[ X-Cite @ 13.05.2005. 09:43 ] @

gdje naći JET? isto na microsoftovoj stranici?

[ X-Cite @ 13.05.2005. 13:09 ] @

Instaliro sam onaj MDAC ali ništa ne pomaže i stalo mi je prije završetka... s nekim errorom... izgled da to nije to što je trebalo.

pretražio sam malo po support.windows.com sa ključnom JET

sve što sam našao se nalazi ovdje

http://support.microsoft.com/default.aspx?scid=kb;en-us;829558

a nigdje nemogu da nađem gdje downlodati JET... samo zadnji service pack 8 ima za download...

i kada pokrenem service pack... napiše mi da imam noviji ?

ništa mi nije jasno

[ vujkev @ 13.05.2005. 14:15 ] @

Ovde, ako je verovati ovoj stranici imaš da skines Jet sa već implementiranim SP8

[ X-Cite @ 13.05.2005. 16:01 ] @

na prvom linku sam bio danas ali nisam našao ništa za download... možda neki direktan link?

MDAC version 2.6 and later DO NOT contain Jet or Desktop ODBC drivers

danas sam pokušao taj soft pokrenuti na win98 i napiše error umjesto 91... napiše runtime error 48

valjda fali neka dll...

[ Marko_L @ 13.05.2005. 16:14 ] @

Čekaj, zašto bi od negde skidao te fajlove kad ih već imaš na tvom kompu, s obzirom da si na njemu i radio aplikaciju.Jednostavno odredi dependncy-je za tvoj projekat i napravi instalaciju u koju ćeš uvrstiti sve potrebne fajlove.Imaš dosta gotovih rešenja za određivanje dependency-ja i pravljenja instalacije.Pisano je već o tome na forumu, pa iskoristi pretragu.

[ X-Cite @ 13.05.2005. 16:43 ] @

instalirao sam i mdac 2.0 i opet ništa... još uvijek javlja taj error

Runtime error '91'

Object variable or With block variable not set...

kako podesiti i srediti ove variable... a da još uvijek koristim ADODC?

sada sam instalirao i access na ovaj comp... opet ništa... znači ova stvar uopšte nije do JET enginea pomojem...

Marko_L

Na mom compu aplikacija radi savršeno... na drugom mi neradi, gdje nemam visual basica instaliranoga...

Još uvijek stoji pitanje kako riješiti ovaj error?

Hvala

[ mladenovicz @ 13.05.2005. 16:46 ] @

Object variable or With block variable not set... ne bi trebalo da ima veze sa referencama i dependencies. Izgleda da ti je recordset objekat Nothing. Ako imas u kodu On Error Resume Next izbaci, pa ces videti da li dolazi do neke greske zbog koje je recordset objekat Nothing. Obavezno proveri da li ti je connection string ispravan

[ X-Cite @ 13.05.2005. 17:05 ] @

pokušao sam... izvadio sam on error resume next... imao sam ga samo kod moveprevious i movenext.

znači ostaje još connection string... ne znam ni šta da gledam... kao što sam par puta naveo... koristim adodc kontrolu...

[ X-Cite @ 13.05.2005. 17:15 ] @

Ovo mi je u connection string prozorčiću...

Code:

Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="DBQ=D:\Cricek\Software\Komisijska\komisijska_baza.mdb;DefaultDir=D:\Cricek\Software\Komisijska;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;FILEDSN=C:\Program Files\Common Files\ODBC\Data Sources\komisijska_main.dsn;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"

[ vujkev @ 13.05.2005. 17:24 ] @

Promeni sve to u

Code:
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dbtemp.mdb;Persist Security Info=False

Samo zameni putanju do baze

[ X-Cite @ 13.05.2005. 22:49 ] @

@vujkev... ovo mi radi isto kao ono prije... ali mi ne popravlja problema za With block variable

izgleda da ću ja morati da se hvatim tutoriala i da uradim program nanovo.. ustvari da naučim raditi manualno sa bazama... druge mi nema... a tako sam zavolio ovu adodc kontrolu

[ X-Cite @ 19.05.2005. 08:48 ] @

Jeli moguće, da mi ovaj error javlja zato, što mu je connection string losh... i što ustvari nema konekcije sa bazom dobre...?

Ni u Datagrid kontrolu mi ne učitava podataka...

Nebi da odustajem od problema... pošto nemam kad učiti sve nanovo

[ mladenovicz @ 19.05.2005. 09:15 ] @

vujkev ti je dao kod za relativnu putanju do baze i to mora da resi problem. Pre nego sto otvoris konekciju ka bazi, ispisi connection string i pogledaj da li je putanja do baze dobra.

[ X-Cite @ 19.05.2005. 10:53 ] @

ako ovo

Code:
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\komisijska_baza.mdb;Persist Security Info=False

postavim u ConnectionString prozorcic ovdje

napiše mi error:

Code:
Format of the initialization string does not conform to the OLE DB specification

dok ConnectionString koji mi sam napravi taj wizzard

Code:
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Cricek\Software\Komisijska\komisijska_baza.mdb;Persist Security Info=False

na mom kompjuteru radi, a na drugima mi neradi... iako sam postavio isto na disk D fajlove D:\Cricek\Software\Komisijska\komisijska_baza.mdb

ConnectionString mi je msgbox ispisao

[ mladenovicz @ 19.05.2005. 11:12 ] @

relativni path ne mozes da setujes u property windowu, vec iz koda

Code:

ADODC1.ConnectionString = blahblahblah

Onda neces morati da pravis folder strukturu D:\Cricek\Software\Komisijska\komisijska_baza.mdb na svakoj masini gde hoces da ti radi aplikacija (sta ako nema D drive?)

[ X-Cite @ 19.05.2005. 11:30 ] @

Tako sam uradio i ranije... u Form_Load()

Code:
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & App.Path & "\komisijska_baza.mdb;Persist Security Info=False"

ali nisam time ništa uradio...

treba li dodati još nešto?

Dali bi bilo bolje, da prikačim projekat ovdje?

[ mladenovicz @ 19.05.2005. 11:52 ] @

Ako isti taj connection string koristis svuda gde treba onda bi to trebalo biti to.
Ako ne moze drugacije, onda uploaduj projekat pa da vidimo sta se desava ;)

[ X-Cite @ 19.05.2005. 16:44 ] @

Evo ovako... ja ću postaviti čitav projekat ovdje... pa za početak ako ti nije teško pogledaj, dali tebi na tvom računaru, na kojem imaš instaliran VB, radi ovo... ako neradi pokušaj napraviti ako imaš disk D i te foldere pa da vidimo dali bar tako radi.

Ako uspiješ izgurati da mi ovo radi... svaka čast... ja sam se već namučio ko lud... ali opet moje se znanje VB-a nemože porediti s tvojim

Hvala unapred...

[ vujkev @ 19.05.2005. 16:58 ] @

Zameni postojeci Command1_Click sa ovim

Code:

Private Sub Command1_Click()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & App.Path & _
"\komisijska_baza.mdb;Persist Security Info=False"
Adodc1.RecordSource = "Stranka"
Adodc1.Refresh
End Sub

Usput obriši ConnectionString i Recordsource property's ADODC kontrole u DesigTime-u

_{[Ovu poruku je menjao mladenovicz dana 19.05.2005. u 18:06 GMT+1]}

[ mladenovicz @ 19.05.2005. 17:04 ] @

Ne radim sa ADODC kontrolom, ali evo na brzinu:
1. svakoj ADODC kontroli promeni record source (Command Type = adCmdUnknown) i postavi Connection string na prazan string. Ovo sve u design timeu
2. u form load dodaj ovako nesto (frmMain)

Code:

    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & App.Path & _
    "\komisijska_baza.mdb;Persist Security Info=False"
    Adodc1.CommandType = adCmdText
    Adodc1.RecordSource = "SELECT * FROM Stranka"
    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1.Recordset
    DataGrid1.Refresh

Meni je ovo proradilo, pa probaj

EDIT: i vujkev je dosao do istog zakljucka

P.S. Onoliko On Error Resume Next-ova moze samo probleme da ti donese. Moj ti je savet da to izbacis.

[ X-Cite @ 19.05.2005. 19:39 ] @

Hvala Željko, a i tebi Darko... to je to na neki način

On error resume next su svi u commentu... iza ' tako da nema problema

Mislim, da nisam više nijedan ostavijo u radnom postupku

Ovaj mi kod/code od Željke radi odlično...

ali sad imam problem, da mi ne učitava u textboxeve podatke...

na mom compu zlatnom naravno sve radi super... ali kad prebacim na drugi comp... ne učitava mi...

Znači učitati mi treba to, što je na datagrid1 trenutno izabrano...

može li se to riješiti na jednostavan način?

ja sam to isto imao preko adodc1 connection-a...

povezivalo mi automatski...

[ X-Cite @ 23.05.2005. 20:23 ] @

I ovaj sam problem donekle rješio pomoću ADO_stepBYstep tutoriala...

Code:
Text1.Text = IIf(IsNull(Adodc1.Recordset.Fields("Prevzel")), "", Adodc1.Recordset.Fields("Prevzel"))

Hvala svima na pomoći... imam još jedno pitanje ali to ću u novu temu