run time error 430 in VB

Thread View: be.comp.programming

3 messages

[T] Back to Threads [V] Tree View [G] Group Articles

3 total messages Started by MdV Thu, 03 Jul 2003 17:30

#4859

Author: 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>

Re: run time error 430 in VB

#4860

Author: 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>
>
>
>
>
>
>

Re: run time error 430 in VB

#4729

Author: 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>
>
>
>
>
>
>
>

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads