看板 Visual_Basic 關於我們 聯絡資訊
給你一個範例 Dim cn As New OleDb.OleDbConnection Dim cmd As New OleDb.OleDbCommand Dim dr As OleDb.OleDbDataReader cn.ConnectionString = _ "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\data\123.mdb" cn.Open() cmd.Connection = cn cmd.CommandText = "select * from table1" dr = cmd.ExecuteReader() MsgBox(dr.HasRows) dr.Close() cn.Close() -- ▃▅▇▆▄ ▆▂▃ ` 逝去感如何能留住,半點遺留殊不易,██▅▇▄▃ ▇▃▂" . █████████▃i ▁▄▇ 更多悽悽慘慘的遭遇………██▆▃ █▅▆▃ˍ▄* ▂█▄▇▅▂. 我不知道,王~八~蛋~~! ▂▆███ █▄▃ 。fumizuki。Check。 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 123.194.224.174
sunnycat:所以版大的意思是叫我用手動寫嗎~"~.... 04/23 22:42
fumizuki:你現成的工具不會用嗎@@ vb2005 是可以直接拉到表單上 04/23 22:44
fumizuki:就可以使用了@@ 04/23 22:45
fumizuki:我是連寫法都提供給你參考@@ 04/23 22:45
Marty:F大真是鞠躬盡瘁~~辛苦了~~ 04/23 23:19
sunnycat:我是用2003...再麻煩版大了...謝謝 04/23 23:29