TEXT To lcConnString NOSHOW TEXTMERGE PRETEXT 15 "driver=Advantage StreamlineSQL ODBC; DataDirectory=C:\cdbk90\amline\AdsBob\JM; SERVER=NotTheServer;Compression=; DefaultType=Advantage; Rows=False; Language=ANSI; AdvantageLocking=ON; Locking=Record; MemoBlockSize=64; MaxTableCloseCache=5; ServerTypes=6; TrimTrailingSpaces=False" ENDTEXT CREATE CONNECTION NORTHWINDCONNECTION CONNSTRING &lcConnStringThis code give me a error ( Command contains unrecognized phrase/keyword (Error 36) )
TEXT To lcConnString NOSHOW TEXTMERGE PRETEXT 15 "driver=Advantage StreamlineSQL ODBC; DataDirectory=C:\cdbk90\amline\AdsBob\JM; SERVER=NotTheServer;Compression=; DefaultType=Advantage; Rows=False; Language=ANSI; Locking=Record; MemoBlockSize=64; MaxTableCloseCache=5; ServerTypes=6; TrimTrailingSpaces=False" ENDTEXT CREATE CONNECTION NORTHWINDCONNECTION CONNSTRING &lcConnStringThis code do'nt give a error. ( until AdvantageLocking=ON; )
>>strDriver = "Microsoft Visual FoxPro Driver" >> >>strAttributes = "DESCRIPTION=Temp DSN" + CHR(0) >>strAttributes = strAttributes + "DSN=AmlineFreeTables" + CHR(0) >>strAttributes = strAttributes + "SourceType=DBF" + CHR(0) >>strAttributes = strAttributes + "Deleted=Yes" + Chr(0) >>strAttributes = strAttributes + "BackgroundFetch=No" + Chr(0) >>strAttributes = strAttributes + "Collate=Machine" + Chr(0) >>strAttributes = strAttributes + "Exclusive=No" + Chr(0) >>strAttributes = strAttributes + "SourceDB =" + SYS(5) + CURDIR() + CHR(0) >>*strAttributes = strAttributes + "UID=sa" + CHR(0) >>*strAttributes = strAttributes + "PWD=" + CHR(0) >>*'To show dialog, use Form1.Hwnd instead of vbAPINull. >>intRet = SQLConfigDataSource( vbAPINull, ODBC_ADD_DSN, ; >> strDriver, strAttributes) >>>>