> 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 &lcConnString > >>
> 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 &lcConnString > >>
>>>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) >>>>>>