VFP 愛用者社區

[張得子]

若未先設定ODBC,可以直接連接至SQL Server嗎?
1.建立
FUNCTION CreateODBC
PARAMETER lcODBCName,lcODBCDriver,lcODBCServer,lcODBCDatabase

DECLARE INTEGER SQLConfigDataSource IN odbccp32 INTEGER, INTEGER, STRING, STRING

lnWindowHandle=0
*!* lcODBCDriver='SQL Server' &&DRIVER類型
*!* lcODBCName='test' &&資料源名字
*!* lcODBCServer='test' &&SQL SERVER名字
*!* lcODBCDatabase='test' &&要連接的資料庫名字
lcODBCDesc='Shared Data' &&資料源描述

**先試圖修改已有的ODBC，如果不存在，返回0。
lreturn=SQLConfigDataSource(lnWindowHandle, 2, lcODBCDriver, ;
'DSN=' + lcODBCName + CHR(0) ;
+ 'Description=' + lcODBCDesc + CHR(0) ;
+ 'Server=' + lcODBCServer + CHR(0) ;
+ 'Database=' + lcODBCDatabase + CHR(0))
IF lreturn=0 &&不存在

**添加新的ODBC
lreturn=SQLConfigDataSource(lnWindowHandle, 1, lcODBCDriver, ;
'DSN=' + lcODBCName + CHR(0) ;
+ 'Description=' + lcODBCDesc + CHR(0) ;
+ 'Server=' + lcODBCServer + CHR(0) ;
+ 'Database=' + lcODBCDatabase + CHR(0))
IF lreturn=0 &&失敗
MESSAGEBOX("Creat ODBC DSN Error!!",16,"BUFFER")
ENDIF
ENDIF
CLEAR DLLS
ENDFUNC
2.
SQLSTRINGCONNECT(""Driver={SQL Server};Server=test;Database=test;Uid=sa;Pwd=1234;"")

註：文章出自紅狐程式論壇，作者 Rueyho

[garfield]

臨時建立CONNECT方式
mConnectString = 'DRIVER=SQL Server;SERVER=ntsrv;WSID=NB;DATABASE=shoedata;UID=sa;PWD='
mSqlHead = SQLSTRINGCONNECT( mConnectString )
if msqlhead>0
SQLEXEC( mSqlHead , 'SELECT * FROM authors')
endif