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