ODBC: de oproep is mislukt

[johan3732]

Ik krijg ineens de volgende melding en kom er niet vanaf;

Release Error: Script #1 (Ascent Capture Database) [3146 Index Table (dbo.DIGIDOS): ODBC: de oproep is mislukt.]

Ik heb de connectie al eens opnieuw aangemaakt, mijn computer herstart, niks schijnt te helpen. Wie weet er raad?


Thnx,

Johan

 

[PCMario]

Ik ben benieuwd of iemand hierop al een antwoord weet,
aangezien ik er nu ook steeds vaker last van krijg.
Toen ik net het script had gemaakt ging alles nog vlekke loos maar later op de dag als ik dat form open in Microsoft Access 2003 des te vaker ik het moet proberen voordat ik er in kom.

code die ik gebruik:

Dim Aantal_1 As Integer
Dim Aantal_2 As Integer

Dim ws As Workspace
Dim db As Database
Dim strConnection As String

Private Sub Form_Close()
ws.Close
End Sub

Sub Form_Load()

Set ws = DBEngine.Workspaces(0)
Let strConnection = "ODBC;DSN=VHE_werknemer_registratie;UID=TEST_reader;PWD=1234"
Set db = ws.OpenDatabase("", False, False, strConnection)
'verbinding is gelegt

Dim rs As Recordset
Aantal_1 = 0
Set rs = db.OpenRecordset("SELECT [Kaart-ID] FROM scanner")
Do While Not rs.EOF
Aantal_1 = Aantal_1 + 1
rs.MoveNext
Loop
'sluit de verbinding weer
rs.Close
Set rs = Nothing

Me.TimerInterval = 3000

End Sub


Sub Form_Timer()

Dim rs2 As Recordset
Aantal_2 = 0
Set rs2 = db.OpenRecordset("SELECT [Kaart-ID] FROM scanner")
Do While Not rs2.EOF
Aantal_2 = Aantal_2 + 1
rs2.MoveNext
Loop

If Aantal_1 = Aantal_2 Then
Else
Aantal_1 = Aantal_2
DoCmd.ShowAllRecords
End If

rs2.Close
Set rs2 = Nothing

End Sub

De gegevens van de database staan op de computer langs mij die bijde op een switch zijn aangesloten.

Microsoft Help: ODBC: de oproep is mislukt. (Fout 3146)
U hebt geprobeerd via een ODBC-verbinding een bewerking uit te voeren op gegevens in een ODBC-gegevensbron. Deze fout kan optreden als de ODBC-gegevensbron zich op een netwerkstation bevindt en er geen verbinding met het netwerk bestaat. Controleer of er een verbinding is met het netwerk en probeer de bewerking opnieuw uit te voeren.

Het lijkt er op dat het toch een netwerk probleem is... Maar hoe kan ik het plossen, zoveel eis ik nu ook niet van het netwerk...