Question

在vb中怎么把access 数据库中的数据全部显示出来

比如我的数据库为 学号 姓名 成绩 籍贯
11 倒萨 69 山东
12 发生 98 上海
我想原样显示在vb中，应添加什么控件，还有怎么写源代码。请高手指点！！！

Answer 1

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Stu.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from tb_stu "
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1

end Sub

'Stu.mdb 是数据库，tb_stu是数据库表名
'添加datagrid 、Adodc1 控件

Answer 2

db.ConnectionString = "DRIVER=Microsoft Access Driver (*.mdb);dbQ=" & App.Path & "\数据库.mdb"
db.Open
strSQL = "select * from 数据表"
RS.Open strSQL, db, 3, 3
Do While Not RS.EOF
SST = RS.RecordCount
MSFlexGrid1.Visible = True
With MSFlexGrid1
If Not RS.EOF Then
MSFlexGrid1.Cols = 4
MSFlexGrid1.Rows = SST + 1
MSFlexGrid1.TextMatrix(0, 0) = "学号"
.TextMatrix(0, 1) = "成绩姓名"
.TextMatrix(0, 2) = ""
.TextMatrix(0, 3) = "年龄"
.ColWidth(0) = 600
.ColWidth(1) = 2600
.ColWidth(2) = 900
.ColWidth(3) = 600
For I = 1 To SST
.TextMatrix(I, 0) = RS("学号")
.TextMatrix(I, 1) = RS("姓名")
.TextMatrix(I, 2) = RS("成绩")
.TextMatrix(I, 3) = RS("籍贯")
RS.MoveNext
Next
Else
.Clear
End If
End With
RS.Close
Set RS = Nothing
db.Close
Set db = Nothing

Answer 3

晕哦，只能显示数据表的数据，数据库中有很多表的哦，建议楼主多看看
链接数据库，SQL语句，ADO，DAO，以及VB控件的应用方面的书籍。