Re: run time error 430 in VB

Article View: be.comp.programming

Article #4729

Back to be.comp.programming Previous Next

#4729

From: MdV
Date: Wed, 09 Jul 2003 08:21

51 lines
2198 bytes

probleem opgelost =>>  MDAC.EXE herinstalleren !!

MdV <Marc.Devlieger@pandora.be> schreef in berichtnieuws
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: <cgQOa.15410$r6.1486929065@hebe.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!news.maxwell.syr.edu!newsfeed.vmunix.org!aotearoa.belnet.be!news.belnet.be!ossa.telenet-ops.be!hebe.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: ENGLISH,ASCII-7-bit
X-Google-Thread: fcea4,84367d4da66cec03
X-Google-Attributes: gidfcea4,public
X-Google-ArrivalTime: 2003-07-09 01:40:36 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-06!sn-xit-09!supernews.com!news.maxwell.syr.edu!newsfeed.vmunix.org!aotearoa.belnet.be!news.belnet.be!ossa.telenet-ops.be!hebe.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: 53
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Message-ID: <cgQOa.15410$r6.1486929065@hebe.telenet-ops.be>
Date: Wed, 09 Jul 2003 08:21:28 GMT
NNTP-Posting-Host: 213.118.199.230
X-Complaints-To: abuse@telenet.be
X-Trace: hebe.telenet-ops.be 1057738888 213.118.199.230 (Wed, 09 Jul 2003 10:21:28 CEST)
NNTP-Posting-Date: Wed, 09 Jul 2003 10:21:28 CEST
Organization: Telenet Internet

Reply to Parent Message