Microsoft KB Archive/281755

= How To Connect to FileMaker Pro from Visual Basic with ODBC =

Article ID: 281755

Article Last Modified on 6/29/2004

-

APPLIES TO


 * Microsoft Visual Basic 6.0 Professional Edition
 * Microsoft Visual Basic 6.0 Enterprise Edition

-



This article was previously published under Q281755



SUMMARY
FileMaker Pro version 5.0 now supports Open Database Connectivity (ODBC). This article describes one method that you can use to connect to a FileMaker Pro 5.0 database from Visual Basic with ODBC.



MORE INFORMATION
An ODBC driver shipped with FileMaker Pro beginning with version 5.0. In prior versions, it was necessary to use drivers from third-party resources to have ODBC connectivity to this data source.

Unlike most other ODBC data sources, in order to use ODBC to connect to FileMaker Pro, you must have the FileMaker Pro software installed on your computer. It is also necessary to leave the FileMaker Pro software running with the database open while you try to connect.

Steps to Connect
 Open FileMaker Pro version 5.0. Open the Sample02.FP5 sample database. If you use the trial version of FileMaker Pro, this file is located in C:\Program Files\FileMaker\FileMaker Pro 5 Trial\Tutorial\Sample Files\Sample02.fp5. On the File menu, select Sharing from FileMaker Pro, and then check Local Data Access Companion in the dialog box that appears. Close this dialog box, but do not close FileMaker Pro or the database. Create a Data Source Name (DSN) called FMTest with the FileMaker Pro ODBC Driver. Open a new Standard EXE project in Visual Basic.  Set the following references in the Project References dialog box: <pre class="fixed_text">Microsoft Active X Data Objects 2.X                   </li>  Copy the following code into the Form1 code window: Private Sub Form_Load

Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim counter As Integer Set cn = New ADODB.Connection Set rs = New ADODB.Recordset

cn.Open &quot;Provider=MSDASQL.1;Data Source=FMTest;database=Sample02.fp5&quot; cn.CursorLocation = adUseClient rs.Open &quot;Select * from Sample02.fp5&quot;, cn   For counter = 0 To rs.Fields.Count - 1 Debug.Print rs.Fields(counter).Name Next counter

Do While Not rs.EOF Debug.Print rs.Fields(0).Value rs.MoveNext Loop End Sub </li> Press the F5 key to run the code.</li> Check the Immediate window to confirm that the field names and the value of the first field are returned.</li></ol>

Keywords: kbhowto kbdatabase KB281755

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© Microsoft Corporation. All rights reserved.