1樓：招卓逸
在系統中建立ado公共查詢模組
public function executesql(byval sql _
as string, msgstring as string) _
as adodb.recordset '執行sql語句並返回recordset物件
dim cnn as adodb.connection
dim rst as adodb.recordset
dim stokens() as string
on error goto executesql_error
stokens = split(sql)
set cnn = new adodb.connection
cnn.open conn
'開啟連線
if instr("insert,delete,update", _
ucase$(stokens(0))) then
cnn.execute sql
msgstring = stokens(0) & _
" 查詢成功"
else
set rst = new adodb.recordset
rst.open trim$(sql), cnn, _
adopenkeyset, _
adlockoptimistic
set executesql = rst
msgstring = "查詢到" & rst.recordcount & _
" 條記錄 "
'獲取記錄的條數
end if
executesql_exit:
set rst = nothing
set cnn = nothing
exit function
executesql_error:
msgstring = "查詢錯誤: " & _
err.description
resume executesql_exit
end function
然後再應用模組中就可以使用
dim txtsql as string
dim mrc as adodb.recordset
dim msgtext as string
txtsql = "select * from ... "
set mrc = executesql(txtsql, msgtext)查詢了
2樓：匿名使用者
1.如果你說的是adodc,那只能在乙個窗體裡面用.
adodc 的連線可以不用打**,右鍵點ado控制項,再點屬性,就可以設定連線屬性
2.如果你說的是ms activex data objects 2.6 那麼這個可以在模組裡宣告乙個通用的connection,在其他窗體呼叫.
呼叫的時候sql語句在recordset屬性裡.
如: public a as new adodb.connection
public a_rec as new adodb.recordset
3樓：匿名使用者
dim conn as new adodb.connectionset conn = new adodb.connection'再定義乙個記錄集，用於放你的那個select的dim rs as new adodb.
recordset'設定conn的連線字串，就是你的那個
conn.connectionstring = "driver=;server=4acdf6b497724df;uid=lv;pwd=woaini;database=mingcheng"
'然後conn.open '開啟這個連線 設定記錄集查詢語句dim strsql as string
strsql="select * from data "
rs.open strsql,conn
'這樣就可以從記錄集rs中取資料了，
txt.text=rs.field("某欄位名").value
vb怎麼連線sqlserver資料庫
電子科技魚 回答一 配置odbc資料來源1 在控制面板中，雙擊管理工具，然後開啟odbc資料來源管理器。2 在 系統dsn 選項卡中，單擊 新增 按鈕，開啟 建立新資料來源 對話方塊，在 名稱 列表框中選擇 sqlserver 選好單擊完成3 在開啟 建立新的資料來源到sqlserver 對話方塊，...
jsp連線sqlserver2019資料庫出現這樣的情況
你這個應該是載入驅動的時候出錯了，連結資料庫的時候沒有合適的jdbc，我曾經也謝過類似的 發一份給你看看吧！public string transch string str catch exception e string user transch request.getparameter user...
怎麼連線sqlserver資料庫
sql server2012如何開啟資料庫的遠端連線 怎麼連線sqlserver資料庫 怎麼連線sqlserver資料庫 1 用sql語句 select count from master.dbo.sysprocesses 或者 sp who 2 用管理介面 sql2000 進入企業管理器，管理 當...