|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
sthuang66
註冊時間: 2014-04-27 文章: 173
第 1 樓
|
發表於: 星期日 七月 19, 2020 1:13 am 文章主題: 使用SQLSTRINGCONNECT連接MSSQL問題 |
|
|
我又來請教各位高手關於SQLSTRINGCONNECT
我們公司電腦當SQL主機關閉時有備用電腦可繼續連接!我就寫了一個如下程式
LOCAL CONNHST,CONN,CONNCHAIR
**MSSQL 路徑設定
CONN=SQLSTRINGCONNECT("DRIVER=SQL SERVER NATIVE CLIENT 11.0;SERVER=DANNY-PC;DATABASE=BASE;uid=sa;pwd=admin")
**MSSQL HST路徑設定
CONNHST=SQLSTRINGCONNECT("DRIVER=SQL SERVER;SERVER=LAPTOP-CBAKD9D3\SQLEXPRESS;DATABASE=BASE;uid=sa;pwd=admin")
CONNCHAIR=SQLSTRINGCONNECT("DRIVER=SQL SERVER NATIVE CLIENT 11.0;SERVER=CHAIR-PC;DATABASE=BASE;uid=sa;pwd=admin")
DO CASE
CASE CONN>0
SQLEXEC(CONN,"SELECT NO,NAME,APPOINTMENT_DATE FROM DBO.APPOINTMENTYMD","MYCURSOR")
COPY TO T1
CLOSE DATABASES ALL
CASE CONNHST>0
MESSAGEBOX("使用HST SQL!",0+48,"提示資訊")
SQLEXEC(CONNHST,"SELECT NO,NAME,APPOINTMENT_DATE FROM DBO.APPOINTMENTYMD","MYCURSOR")
COPY TO T1
CLOSE DATABASES ALL
CASE CONNCHAIR>0
MESSAGEBOX("使用CHAIR SQL!",0+48,"提示資訊")
SQLEXEC(CONNchair,"SELECT NO,NAME,APPOINTMENT_DATE FROM DBO.APPOINTMENTYMD","MYCURSOR")
COPY TO T1
CLOSE DATABASES ALL
ENDCASE
-------------------------------------------------------------------------------
我的問題是當主機被關閉時!要跳下一個選項時!!都會出兩個連接不上的詢問畫面!必須回應第一個確定!第二個CANCEL才會跳下一個電腦主機!!這是一定會出現預設的!!還是有其他方法不出現我附圖的畫面
謝謝大家的關注 |
|
回頂端 |
|
|
CPS0204
註冊時間: 2014-08-24 文章: 441
第 2 樓
|
發表於: 星期日 七月 19, 2020 7:56 am 文章主題: |
|
|
使用完SQL通道後,記得隨時切斷
程式最尾加上此句
=SQLDISCONNECT(CONN)
=SQLDISCONNECT(CONNHST)
=SQLDISCONNECT(CONNchair) |
|
回頂端 |
|
|
sthuang66
註冊時間: 2014-04-27 文章: 173
第 3 樓
|
發表於: 星期日 七月 19, 2020 3:25 pm 文章主題: |
|
|
謝謝你的提示!!
我後來查spt指令 用SQLSETPROP(0,"DispLogin" ,3) &&&& 設置環境為“從不顯示 ODBC 登錄對話方塊”。就可以了 |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|