请问在vb中如何才能实现显示出数据表里的所有内容
解决方案 »
- 如果用VB获取对话框的内容,,,求救~~!!!
- 菜鸟问题:如何让excel自动另存文件
- 请教各位大虾,关于计算器的代码!!
- 关于的数组的程序在运行的过程中,总是出错,给出的提示为:<subscript out of range>,这可能是什么原因呢,在线等,谢谢!!
- 请教一个JOIN语法的问题
- vb 连接usb口pos58打印机 怎么开钱箱
- 请教这段代码ELSE后面应该是什么
- 有什么方法让combobox控件里的文本不可编辑?
- 如何让mshflexgrid显示的数据只有两位小数?
- 急:关于打印工作牌的问题?
- 如何使datagrid 控件显示command 对象的execute?
- 关于OpenDatabase的问题
最简单的就是用一个ado控件各一个datagrid控件.
至于用法, 你看一下,msdn就可以了, 有例子的,.
“工程”-->“引用”-->“Microsoft AxtiveX Data Objects 2.X Library”
注:2.X为版本号,如果你机子上有高版本的就用高版本的,如:2.5或2.6的。Private Sub cmddisp_click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cnstr As String
cnstr = connectstring = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & App.Path & "\data\yourdb.mdb;" _
& "Persist Security Info=False"
cn.Open cnstr
rs.CursorLocation = adUseClient
rs.Open "select * from XXX", cn, adOpenKeyset, adLockBatchOptimistic
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub将XXX表中的记录显示在datagrid控件中。