Dim cncc As New ADODB.Connection
sql = "select b.* from poorder a inner join poorderentry b on a.finterid=b.finterid where " & tempstr
cncc.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;" _
+ "User ID=sa;password=SA;Initial Catalog=A123456789;Data Source=."
MsgBox 1
rs.Open sql, cncc
MsgBox 2
rs.Close
Set rs = Nothing
rs.Open sql, cncc這句一直報 連接無法用戶執行操作 在此背景關系中它可能已經被關閉
求解決
uj5u.com熱心網友回復：
cncc.open呢？uj5u.com熱心網友回復：
cncc.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;" _+ "User ID=sa;password=SA;Initial Catalog=A123456789;Data Source=."
這個后面加上 cncc.open
記得用完后 cncc.close
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/82840.html
標籤：VB基礎類
下一篇：VB怎么卸載當前皮膚