Question

您好，我是vb兴趣爱好者请问vb添加text1，text2，text3，text4，text5,内容到access，同时在List1中显示

同时在List1中显示列2:姓名中的所有数据，并且点击List1中的姓名又在text1-5中显示，数据库名：admin 表名：aaa 列1：ID 列2:姓名 列3：电话 列4：地址，将不甚感激！！谢谢（虽然的悬赏太少，却是我的全副身家！）

Answer 1

'窗体设计：
'添加1个"ListView"控件 添加四个列头，分别是【列1：ID 列2:姓名 列3：电话 列4：地址】
'添加5个"text"控件
'-----------------------------------------
'先从数据库调出数据
'---------------------------
Dim ConnectionString As String
Set Conn = CreateObject("ADODB.Connection")
dbs = ”admin.mdb"'=数据库路径=
ConnectionString = "DBQ=" + dbs + ";Driver={Microsoft Access Driver (*.mdb)};pwd="
Conn.Open ConnectionString
''''''''''''''''''''''''''''''''''''''''''''''''''''
SQL = "select * from aaa"’=SQL语句：查询aaa表=
Set rs = Conn.Execute(SQL)
If Not rs.EOF Then'=排错语句，如果"aaa"表没有数据则跳过=
Do While Not rs.EOF‘=显示完所有记录后跳出循环=
Set ItmX = ListView1.ListItems.Add(, "key" & rs("ID"), rs("自动编号"))
ItmX.SubItems(1) = "" & rs("姓名")
ItmX.SubItems(2) = "" & rs("电话")
ItmX.SubItems(3) = "" & rs("地址")
rs.MoveNext
Loop

'----------------------------------
'获取点击"ListView"控件的一行数据
'用SelectedItem获取鼠标点击的行数
'SubItems获取列
'----------------------------------
text1=”aaa“
text2= Main.ListView1.SelectedItem.SubItems(0)
text3= Main.ListView1.SelectedItem.SubItems(1)
text4= Main.ListView1.SelectedItem.SubItems(2)
text5= Main.ListView1.SelectedItem.SubItems(3)

'-------------------------------------
'如果你还需要向数据库添加数据用下面的模块
'-------------------------------------
Dim ConnectionString As String
Set Conn = CreateObject("ADODB.Connection")
dbs = ”admin.mdb“'=数据库路径=
ConnectionString = "DBQ=" + dbs + ";Driver={Microsoft Access Driver (*.mdb)};pwd="
Conn.Open ConnectionString
exec = "insert into aaa(ID,名称,电话,地址)values('" + text1 + "','" + text2 + "','" + text3 + "','" + text4 + "')"
Conn.Execute exec

追问

添加时提示：ODBC Microsoft access 驱动找不到

追答

看清楚提示错误提示，一般会是第二种可能。
1.找不到驱动【没有检测到MS Access驱动程序】
2.找不到文件【[ODBC Microsft Access 驱动程序] 找不到文件 '(未知的)'】

第一种解决方法参照
http://zhidao.baidu.com/question/30240489.html

第二种解决方法
【dbs ="admin.mdb"'=数据库路径=】
第3行代码 用绝对路径 如：【c:\admin.mdb】指定你数据库的位置
【dbs = "c:\admin.mdb"'=数据库路径=】