資料庫連結 Connection的寫法

db connection

hahahacja 2009-03-19 15:50:39 ‧ 13312 瀏覽

分享至

想知道Connection的寫法
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open Application("conn")
sql ="select A from B"
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.Open sql, conn , 1,1,1
do while not rs1.EOF

***問題 : 迴圈裡面要再SELECT , 我這conn2放這對嗎?
Set conn2 = Server.CreateObject("ADODB.Connection")
conn2.Open Application("conn")

sql ="select C from D"
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.Open sql, conn2 , 1,1,1
.....
rs2.close
set rs2=nothing
conn2.close
set conn2=nothing

rs1.MoveNext
loop
rs1.close
set rs1=nothing
conn.close
set conn=nothing

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

3 個回答

魯大

iT邦高手 1 級 ‧ 2009-03-19 17:18:55

最佳解答

依照你的意思，以下是我的寫法，提供給你做參考

&lt;pre class="c" name="code">Set DBS = Server.CreateObject("ADODB.Connection")
DBS.Open "dsn=資料庫01名稱;uid=帳號;pwd=密碼"
sql="select A from B"
Set rs = DBS.Execute(sql)
rs.movefirst
while Not rs.EOF
Set DBS01 = Server.CreateObject("ADODB.Connection")
DBS01.Open "dsn=資料庫02名稱;uid=帳號;pwd=密碼"
sql01="select C from D"
Set rs01 = DBS01.Execute(sql01)
....
DBS01.close
set rs01=nothing
rs.movenext
wend

回應 1
分享
檢舉

魯大 iT邦高手 1 級 ‧ 2009-03-19 19:19:59 檢舉

看到scottchen大的說法
想到的另一寫法，如下：

Set DBS = Server.CreateObject("ADODB.Connection")
DBS.Open "dsn=資料庫01名稱;uid=帳號;pwd=密碼"
Set DBS01 = Server.CreateObject("ADODB.Connection")
DBS01.Open "dsn=資料庫02名稱;uid=帳號;pwd=密碼"
sql="select A from B"
Set rs = DBS.Execute(sql)
rs.movefirst
while Not rs.EOF
sql01="select C from D"
Set rs01 = DBS01.Execute(sql01)
....
set rs01=nothing
rs.movenext
wend
DBS01.close
DBS.close