Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

Probleem ODBC connectie vanuit VBA Excel macro

In de onderstaande broncode krijg ik altijd de volgende foutmelding waardoor ik geen verbinding kan maken met de betreffende ODBC database: Foutmelding '3146' tijdens uitvoering: ODBC--call failed Ik heb een systeem DSN AV aangemaakt die als ODBC driver de Visual Foxpro 6.0/7.0 databasedriver gebruikt. Wie weet wat ik eventueel fout doe of heeft een andere tip om een visual Foxpro tabel vanuit een Excel macro te raadplegen. Dim wrkODBC As Workspace Dim Qdf As QueryDef Dim Rst As Recordset Dim conLus As Connection Dim SourceTable As String Dim SourcePath As String SourceTable = "adm_list.dbf" SourcePath = "c:\program files\accountview60b\sys_vfp\" Set wrkODBC = CreateWorkspace("NieuweODBCWerkruimte", _ "admin", "", dbUseODBC) Set DBS = wrkODBC.OpenDatabase("AV", , _ ReadOnly, "ODBC;DSN=AV;SourceDB=" + SourcePath + SourceTable) MsgBox "Bezig met openen Verbinding..." Set conLus = wrkODBC.OpenConnection("Verbinding", _ dbDriverNoPrompt, , _ "ODBC;DSN=AV;SourceDB=" + SourcePath + SourceTable) Set Qdf = conLus.CreateQueryDef("") With Qdf .Sql = "SELECT * FROM " + SourcePath + SourceTable Set Rst = .OpenRecordset() Rst.MoveFirst End With Qdf.Close wrkODBC.Close MsgBox "test 2 einde macro"

nicwilms