Connecting to FM Server Advanced with VBA

[Jim Langley]

I am trying to connect to our Filemaker Advanced Server, (ver. 10) via ODBC and VBA. Let me say that I am not a VBA guru, and have not used it in a while.

I setup the client application, (RSView SE running on Windows XP, SP2) to connect to SQL Server as a test and it worked.

I setup the DataDirect ODBC SequeLinc driver, (ver 5.5) to connect to FileMaker with a DSN and that works. I am able to see the database and update records with a simple SQL Client, so I know that works.

The error I am getting right now appears to be in the connection string.

Here is the connection string I am building. I will keep things simple and not post a bunch of code.

ConnectionString = "Provider=DSNNAME;Initial Catalog=DatabaseName;User ID=USERID;password=PASSWORD"

I then do an ADODB open of the database with something like

cn.Open ConnectionString

The connection fails, and I am not sure how to figure out how it is failing. My first suspision is that my connection string is incorrect? I am not sure of the syntax.

Has anyone connected to Filemaker Server with VB and ADO using a DSN with ODBC?

Yikes! That's a lot of acronyms...

Thanks

Jim!

[Jim Langley]

anyone? anyone?

[Jim Langley]

Ok, here is what i am doing. Maybe you can spot something.

First of all, i setup the connection string.

ConnectionString = "DSN=FMPSERVER;UID=737MEDAL;Password=medal;SDSN=737_test_rig;HST=172.20.240.41;PRT=2399"

Then the code to open the db

Public Function OpenDatabase() As ADODB.Connection

On Error GoTo Err

If Not ConnectionIsOpen() Then

Set cn = New ADODB.Connection

cn.ConnectionTimeout = 5

cn.Open ConnectionString

End If

Set OpenDatabase = cn

Exit Function

Err:

Set cn = Nothing

ThisDisplay.EventLog.ReportEventToLog "DisplayNameHere", "ThisDisplay", "OpenDatabase", Err.Description

Resume Next

End Function

I am still getting the error when I try to open the database. Can you guys see anything in this code that is not right. THis works fine with SQL Server and DSN?

[Wim Decorte]

Hi,

The topic would have gotten more attention in the Windows Automation section I think.

Did you check the help file that comes with DataDirect, I believe there is some info there on connection strings:

C:Program FilesDataDirectslodbc55help