|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
張得子
註冊時間: 2003-04-28 文章: 15
第 1 樓
|
發表於: 星期一 五月 19, 2003 10:07 am 文章主題: 未先設定ODBC,可以直接連接至SQL Server(轉貼) |
|
|
若未先設定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 Site Admin
註冊時間: 2003-01-30 文章: 2157
第 2 樓
|
發表於: 星期二 五月 20, 2003 11:16 pm 文章主題: |
|
|
臨時建立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 _________________ 利用>>搜尋<<的功能會比問的還要快得到答案. |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|