run time error 430 in VB

Article View: be.comp.programming

Article #4859

Back to be.comp.programming Previous Next

#4859

From: MdV
Date: Thu, 03 Jul 2003 17:30

39 lines
1917 bytes

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: <JKZMa.1722$Ad.260858998@hestia.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!transit.news.xs4all.nl!newsfeed.wxs.nl!aotearoa.belnet.be!news.belnet.be!ossa.telenet-ops.be!hestia.telenet-ops.be.POSTED!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: fcea4,84367d4da66cec03,start
X-Google-Attributes: gidfcea4,public
X-Google-ArrivalTime: 2003-07-03 10:38:51 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!transit.news.xs4all.nl!newsfeed.wxs.nl!aotearoa.belnet.be!news.belnet.be!ossa.telenet-ops.be!hestia.telenet-ops.be.POSTED!not-for-mail
From: "MdV" <Marc.Devlieger@pandora.be>
Newsgroups: be.comp.programming
Subject: run time error 430 in VB
Lines: 45
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: <JKZMa.1722$Ad.260858998@hestia.telenet-ops.be>
Date: Thu, 03 Jul 2003 17:30:17 GMT
NNTP-Posting-Host: 213.118.199.230
X-Complaints-To: abuse@telenet.be
X-Trace: hestia.telenet-ops.be 1057253417 213.118.199.230 (Thu, 03 Jul 2003 19:30:17 CEST)
NNTP-Posting-Date: Thu, 03 Jul 2003 19:30:17 CEST
Organization: Telenet Internet