返回列表 上一主題 發帖

怎麼讀取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

owen06
　暱稱: 阿軒

中學生Rank: 2

帖子
396 
主題
12 
精華
0 
積分
425 
點名
1  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2013-7-2 
最後登錄
2024-8-23 

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
2#
發表於 2014-6-17 12:50 | 只看該作者
回復 1# woteil


    sheets"(sheet1").cells(1,1)=rs.fields(0).vale <----------這裡有問題

   是因為打錯字的關係嗎？value？

TOP

woteil

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

2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章
3#
發表於 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蛇年全勤獎章
4#
發表於 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

joey0415
　暱稱: joey0415

中學生Rank: 2

帖子
361 
主題
57 
精華
0 
積分
426 
點名
0  
作業系統
win7 
軟體版本
2003,2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-13 
最後登錄
2022-12-8 
5#
發表於 2016-2-29 10:02 | 只看該作者
我自己以前這樣寫，你參考看看
  1.         sub ex
  2.                
  3.                         Set cnn = CreateObject("adodb.connection")
  4.                         cnn.Open ("Driver={SQLite3 ODBC Driver};database=" & ThisWorkbook.Path & "\CB.sqlite")'自行修改drive
  5.                         Set rss = cnn.Execute("select * from XXX")
  6.                                 For i = 0 To rss.Fields.Count - 1 '取標題，如果不要可省略
  7.                                         Cells(1, i + 1) = rss.Fields(i).Name
  8.                                 Next
  9.                         Worksheets("X").Cells(2, 1).CopyFromRecordset (rss) 'cells(2,1)第一行有標題
  10.                         cnn.Close

  12.                         Set cnn = Nothing
  13.                         Set rss = Nothing
  14.                
  15.                 end sub
複製代碼
回復 4# woteil

TOP

        靜思自在 : 【時日莫空過】一個人在世間做了多少事，就等於壽命有多長。因此必須與時間競爭，切莫使時日空過。
返回列表 上一主題