TA貢獻(xiàn)1864條經(jīng)驗(yàn) 獲得超2個(gè)贊
這是一個(gè)SQL語句，里面可以填寫很多中，增刪查改都可以，如：strsql="select * from 表 where 列名=‘“& 查找的相對(duì)應(yīng)的列的條件 &”’" 如：strsql="delete from 表名 where 列名=‘“& 滿足刪除的條件 &”’" 等
TA貢獻(xiàn)1862條經(jīng)驗(yàn) 獲得超6個(gè)贊
Private Sub CommandButton1_Click()Dim DBConnDim connStr'建立數(shù)據(jù)庫連接對(duì)象Set DBConn = CreateObject("ADODB.Connection")'設(shè)定連接用信息(driver dsn uid pwd dbalias都要替換成正確的)connStr = "DRIVER ={XXXX};DSN = XXXX;UID=XXXX;PWD=XXXX;DBALIAS=XXXXX;"'使用客戶端游標(biāo)DBConn.cursorlocation = 3'連接DBDBConn.Open connStr '建立結(jié)果集對(duì)象Dim rslt'建立SQL語句Dim strSql As StringconnStr = "Select count(*) from TestTable;" '這個(gè)是演示用的 具體使用要替換成具體語句'通過數(shù)據(jù)庫連接對(duì)象執(zhí)行sql并返回結(jié)果集Set rslt = DBConn.Execute(sql) End Sub |
以上就是一個(gè)最基礎(chǔ)的且不帶封裝和報(bào)錯(cuò)的DB連接+執(zhí)行sql的應(yīng)用
舉報(bào)