返回列表 上一主題 發帖

怎麼讀取recordset的各欄位的值

woteil

帖子
4 
主題
2 
精華
0 
積分
57 
點名
0  
作業系統
winxp 
軟體版本
sp3 
閱讀權限
20 
性別
男 
來自
tainan 
註冊時間
2012-8-1 
最後登錄
2021-12-18 

2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-6-17 12:21 | 顯示全部帖子

怎麼讀取recordset的各欄位的值

Dim cn
        DbName="DB.accdb"
    sql_command="select  *  from baseinfo"
    Set cn = CreateObject("adodb.connection")
    cn.Open "Driver={Microsoft Access Driver (*.mdb, *.accdb)};Dbq=" & ThisWorkbook.Path & "\" & DbName
    Set rs = cn.Execute(sql_command)
    sheets"(sheet1").cells(1,1)=rs.fields(0).vale
    cn.Close



  sheets"(sheet1").cells(1,1)=rs.fields(0).vale <----------這裡有問題
在VBA裡要怎麼表示呢???
收藏 分享
woteil

woteil

帖子
4 
主題
2 
精華
0 
積分
57 
點名
0  
作業系統
winxp 
軟體版本
sp3 
閱讀權限
20 
性別
男 
來自
tainan 
註冊時間
2012-8-1 
最後登錄
2021-12-18 

2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章
2#
發表於 2014-6-17 12:53 | 顯示全部帖子
回復 2# owen06


    不好意思..是打錯..但確實有問題
2013蛇年全勤獎章

[對woteil使用狗仔卡]
       
1# 跳轉到 » 倒序看帖
打印
字體大小: tT
發表於 半小時前 | 只看該作者
怎麼讀取recordset的各欄位的值
Dim cn
        DbName="DB.accdb"
    sql_command="select  *  from baseinfo"
    Set cn = CreateObject("adodb.connection")
    cn.Open "Driver={Microsoft Access Driver (*.mdb, *.accdb)};Dbq=" & ThisWorkbook.Path & "\" & DbName
    Set rs = cn.Execute(sql_command)
    sheets"(sheet1").cells(1,1)=rs.fields(0).value
    cn.Close



  sheets"(sheet1").cells(1,1)=rs.fields(0).value <----------這裡有問題
在VBA裡要怎麼表示呢???
woteil

TOP

woteil

帖子
4 
主題
2 
精華
0 
積分
57 
點名
0  
作業系統
winxp 
軟體版本
sp3 
閱讀權限
20 
性別
男 
來自
tainan 
註冊時間
2012-8-1 
最後登錄
2021-12-18 

2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章
3#
發表於 2014-6-17 13:50 | 顯示全部帖子
回復 1# woteil


    Dim cn
        DbName="DB.accdb"
    sql_command="select  *  from baseinfo"
    Set cn = CreateObject("adodb.connection")
    cn.Open "Driver={Microsoft Access Driver (*.mdb, *.accdb)};Dbq=" & ThisWorkbook.Path & "\" & DbName
    Set rs = cn.Execute(sql_command)
    'sheets"(sheet1").cells(1,1)=rs.fields(0).value
    sheets"(sheet1").cells(1,1).CopyFromRecordset (rs)
    cn.Close

找到一個方法..可以這麼做
sheets"(sheet1").cells(1,1).CopyFromRecordset (rs)

但還是無法只取某個欄的值
woteil

TOP

        靜思自在 : 有時當思無時苦，好天要積雨來糧。
返回列表 上一主題