Re: run time error 430 in VB

Article View: be.comp.programming

Article #4860

Back to be.comp.programming Previous Next

#4860

From: MdV
Date: Thu, 03 Jul 2003 18:22

52 lines
2320 bytes

Als ik een EXE file ervan maak en op een andere PC laat draaien werkt het
prima... raar h� !



"MdV" <Marc.Devlieger@pandora.be> schreef in bericht
news:JKZMa.1722$Ad.260858998@hestia.telenet-ops.be...
> Hoi, ik heb hier een foutmelding run time error 430 in VB.
>
>
>
> Dim CnnAdo1 As New ADODB.Connection
> Dim CmdAdo1 As New ADODB.Command
> Dim RsAdo1 As New ADODB.Recordset
>
>
> Function Dataverbinding()
>
>     On Error GoTo Foutmelding:
>
>     CnnAdo1.Provider = "Microsoft.jet.oledb.4.0"
>     CnnAdo1.ConnectionString = DATADIR & "\BOOK" & Format(Now, "yyyy") &
> ".MDB"
>     CnnAdo1.Open
>
> End Function
>
>
> Function Openen_Stockbeheer()
>
>     CmdAdo1.ActiveConnection = CnnAdo1
>
>     CmdAdo1.CommandText = "SELECT Barcode from STOCKBEHEER"
>
>     RsAdo1.CursorLocation = adUseClient
>     RsAdo1.CursorType = adOpenDynamic
>     RsAdo1.LockType = adLockPessimistic
>     RsAdo1.Open CmdAdo1
>
> End Function
>
>
>
> Wat is er hier fout ? Bij  RsAdo1.CursorLocation = adUseClient stopt het
> programma en krijg het volgende te zien
> <object variable or with block variable not set>
>
>
>
>
>
>

Technical Details

Message-ID: <fv_Ma.4806$7h.8586@afrodite.telenet-ops.be>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-06!sn-xit-09!supernews.com!diablo.theplanet.net!mephistopheles.news.clara.net!news.clara.net!ecngs!feeder.ecngs.de!193.190.198.58.MISMATCH!aotearoa.belnet.be!news.belnet.be!ossa.telenet-ops.be!afrodite.telenet-ops.be.POSTED!not-for-mail

References: <JKZMa.1722$Ad.260858998@hestia.telenet-ops.be>

Show Full Headers

Complete Article Headers

X-Google-Language: DUTCH,ASCII
X-Google-Thread: fcea4,84367d4da66cec03
X-Google-Attributes: gidfcea4,public
X-Google-ArrivalTime: 2003-07-03 11:24:00 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-06!sn-xit-09!supernews.com!diablo.theplanet.net!mephistopheles.news.clara.net!news.clara.net!ecngs!feeder.ecngs.de!193.190.198.58.MISMATCH!aotearoa.belnet.be!news.belnet.be!ossa.telenet-ops.be!afrodite.telenet-ops.be.POSTED!not-for-mail
From: "MdV" <Marc.Devlieger@pandora.be>
Newsgroups: be.comp.programming
References: <JKZMa.1722$Ad.260858998@hestia.telenet-ops.be>
Subject: Re: run time error 430 in VB
Lines: 54
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1106
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1106
Message-ID: <fv_Ma.4806$7h.8586@afrodite.telenet-ops.be>
Date: Thu, 03 Jul 2003 18:22:03 GMT
NNTP-Posting-Host: 213.118.199.230
X-Complaints-To: abuse@telenet.be
X-Trace: afrodite.telenet-ops.be 1057256523 213.118.199.230 (Thu, 03 Jul 2003 20:22:03 MET DST)
NNTP-Posting-Date: Thu, 03 Jul 2003 20:22:03 MET DST
Organization: Telenet Internet

Reply to Parent Message