January 20, 201114 yr Newbies there seems to be some major bugs in the new 11.x odbc driver that comes with filemaker any suggestions would be appreciated. We are trying to pull data out of filemaker and into sql server via the odbc driver using ssis/dts or linked servers do not work becuase the driver is not returning any metadata (ie column names/types) and any attempt fails becuase both methods need this to map input columns to output columns. So then i tried a solution that should not require meta data.. using vb script (you run the following with the cscript command) this should work on anyones install and pulls data from the sample database and generates a file: but in this case the text/string columns are not coming out.. Again any suggestions would be appreciated Option Explicit Dim objFSO, objOutFile Dim conn Dim intCount, i Set objFSO = CreateObject("Scripting.FileSystemObject") 'create and open text file Set objOutFile = objFSO.CreateTextFile("sampleoutput.txt",TRUE) Dim col1 Set conn = CreateObject("ADODB.Connection") conn.ConnectionTimeout = 45 conn.CommandTimeout = 45 ' conn.ConnectionString = "DSN=sample;UID=admin;PWD=" conn.ConnectionString = "Server=localhost;Database=FMServer_sample;Driver={FileMaker ODBC};UID=admin;PWD=" conn.Open col1 = "" Dim SQLStmtComp Dim rsComp Set SQLStmtComp = CreateObject("ADODB.Command") Set rsComp = CreateObject ("ADODB.Recordset") SQLStmtComp.CommandText = "select * " &_ " from " & chr(34) & "English_Nature" & chr(34) SQLStmtComp.CommandType = 1 Set SQLStmtComp.ActiveConnection = conn SQLStmtComp.CommandTimeout = 45 'Timeout per Command objOutFile.WriteLine "sql = " & SQLStmtComp.CommandText & vbCrLf 'newline 'response.Write "sql = " & SQLStmtComp.CommandText rsComp.Open SQLStmtComp intCount = rsComp.Fields.Count objOutFile.WriteLine "number of cols = " & intCount & vbCrLf 'newline do until rsComp.EOF 'loop to cycle through the table objOutFile.WriteLine "Status = " & rsComp("Status") & vbCrLf objOutFile.WriteLine "Author = " & rsComp("Author") & vbCrLf objOutFile.WriteLine "Desc = " & rsComp("Description") & vbCrLf for i = 0 to intCount-1 'loop to cycle through fields of each table and write to file objOutFile.Write rsComp.fields.item(i) & "," next objOutFile.WriteLine vbCrLf 'newline rsComp.MoveNext Loop conn.close thanks
Create an account or sign in to comment