Question

求大神指点VB代码

如何让list表里面显示数据库access中的数据 实现点击list中的数据显示在text中进行修改
后台代码怎么写（要详细哒）
新人在这里谢过各路大神们么么哒（づ￣3￣）づ╭❤～

Answer 1

用datagrid控件比较好写，后续的操作也比较简单……再说list不支持多列显示吧，

追问

大神，能再说详细么，不懂求解释啊啊啊>﹏<

追答

'把你窗口里面的list 控件 换成datagrid控件
'菜单栏-工程-引用-勾选microsolf activex data objects x.xx library (x.xx为版本号)-确定
'声明窗体变量,也可声明全局变量
dim conn As New ADODB.connection
dim rs As New ADODB.Recordset
dim strsql As String
dim cnstr As String
Private Sub Form_Load()
'窗口打开时，连接数据库
conn.CursorLocation = adUseClient
cnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= db1.mdb;Jet OLEDB:Database Password=" '修改成你的数据为地址/密码
conn.ConnectionString = cnstr
conn.Open cnstr
if rs.state=adstateopen then rs.close'记录集打开时则关闭记录集
strsql ="select * from 表名" '改成数据库中要查询的表名
rs.Open strsql, conn, 3, 3
set DataGrid1.DataSource =rs
'（略）这时适当调整一下datagird控件的列表显示格式,例如某列的宽度，字体 等等，不想显示的列可以将宽度设为0
rs.close
End Sub
‘datagrid的点击事件,假设第一列为 线路 第二列为运行区间 以此类推
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
if rs.eof or rs.bof then exit sub
text1.text=rs(0)'第一列为0
text2.text=rs(1)'这是第二列
'略。。。
End Sub
’这台电脑没有vb不能给你修改，基本上就是这样

Private sub form_unload()'退出时关闭数据库
conn.close
end sub