討論區快速選單
知識庫快速選單
軟體開發過程中有哪些資安漏洞? 傑米的攝影旅遊筆記
[ 回上頁 ] [ 討論區發言規則 ]
各位大大幫手~
更改我的閱讀文章字型大小
作者 : hkpoman(hkpoman)
[ 貼文 1 | 人氣 1786 | 評價 0 | 評價/貼文 0 | 送出評價 1 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/3/24 上午 01:00:05
Private Sub Form_Load()
Dim conn As ADOCE.Connection
Dim rs As ADOCE.Recordset
Dim i As Integer

Set conn = CreateObject("ADOCE.Connection.3.0")
Set rs = CreateObject("ADOCE.Recordset.3.0")
conn.Open = "data source=\bus.cdb"
rs.Open "select *from firstbus", conn, adOpenKeyset, adLockPessimistic
For i = 0 To rs.RecordCount - 1

     ListViewCtrl1.ListItems.Add (rs.Fields("no"))
     rs.MoveNext
 Next
rs.Close
conn.Close
End Sub

Private Sub Form_OKClick()
    App.End
End Sub


我試極都唔得~可以話比我聽有咩錯呢
作者 : linwangco(linkouchu)
[ 貼文 7 | 人氣 111 | 評價 30 | 評價/貼文 4.29 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人hkpoman註記此篇回應為最佳解答 2005/4/11 下午 01:02:01
Private Sub Form_Load()
Dim conn As ADOCE.Connection
Dim rs As ADOCE.Recordset
Dim i As Integer

Dim lst As ListItem

Set conn = CreateObject("ADOCE.Connection.3.0")
Set rs = CreateObject("ADOCE.Recordset.3.0")
conn.Open = "data source=\bus.cdb"
rs.Open "select *from firstbus", conn, adOpenKeyset, adLockPessimistic
For i = 0 To rs.RecordCount - 1
     Set lst = ListViewCtrl1.ListItems.Add(, , rs.Fields("no"))
     'ListViewCtrl1.ListItems.Add (rs.Fields("no"))
     rs.MoveNext
 Next
rs.Close
conn.Close
End Sub

Private Sub Form_OKClick()
    App.End
End Sub

改成這樣應該就可以使用了!
試試看吧!
 板主 : 徵求中
 > WinCE/eVB - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - WinCE/eVB - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
WinCE/eVB
1 Jones 300 
2 Minro.X 170 
3 小安東尼 80 
4 buier 70 
5 ivan 40 
6 阿山哥 40 
7 alvin 40 
8 網路棋兵 40 
9 小聖 40 
10 sayha 40 
WinCE/eVB
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2019 程式設計俱樂部 http://www.programmer-club.com.tw/
0.046875