Question

vb msflexgrid显示access内容

我想做一个管理系统，需要把access里面的表内容输出到vb中可见
听说是用msflexgrid控件，可是我不知道怎么用。
输出完之后，我在vb中msflexgrid里面做的修改，要怎么保存到access里面去？
简单给个例子，最好有中文注释
请各位高手帮忙啊！！！
比如说我现在有个叫aa.mdb的数据库文件
里面有3行3列`分别是张三李四王五的信息
有姓名,年龄,工资三个资料
要输出到msflexgrid里面显示
该怎么显示?
具体写写

Answer 1

改用datagrid显示数据,显示数据用set datagrid1.datasource = adodc1绑定数据源
绑定数据源后，直接在datagrid1里修改添加删除ACCESS中的数据均无需再编程处理。
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\aa.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from itb1"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1

End Sub

Answer 2

ODB.Connection
Dim rs As New ADODB.Recordset

Public Function ADODBJet(Optional DBfile As String, _
Optional pwd As String) As ADODB.Connection
On Error Resume Next
Dim defDB As String '数据库文件请自行设置
defDB = App.Path & "\Bond.mdb"
If DBfile = "" Then DBfile = defDB
Set ADODBJet = New ADODB.Connection
ADODBJet.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Persist Security Info=False;User ID=Admin; " & _
"Jet OLEDB:Database Password=" & pwd & "; Data Source=" & DBfile
If ADODBJet.State <> 1 Then Set ADODBJet = Nothing
End Function

Private Sub Form_Load()
Set cn = ADODBJet
If cn.State = 1 Then
rs.Open "Select * From Member2", cn, 1, 2
Set VG1.DataSource = rs
End If
With VG1
.Editable = flexEDKbdMouse '可用键盘和鼠标编辑
.AllowUserResizing = flexResizeBothUniform '可用鼠标调整单元大小, 如果值为“flexResizeBoth”则单独调整行高或列宽
.ScrollTrack = True '行随滚动条翻滚
.WordWrap = True '单元中的文本过长换行显示
.AddItem "" '添加一行为了新增内容
End With
End Sub