您的位置：程序门 -> vb -> 数据库（包含打印，安装，报表)

用vb的data控件显示access数据库（通讯录)

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

用vb的data控件显示access数据库（通讯录)[已结贴,结贴人:programfanny]

发表于：2007-02-02 18:57:03 楼主

用vb的data控件显示access数据库（通讯录)，程序如下：

public myrecordset as recordset

'mainform.frm:
'-----------------------
private sub form_load（)
set myrecordset = dbdataenvironment.recordsets.item（1)
end sub

private sub mnbrow_click（)
browdialog.show 1
end sub

private sub mnexit_click（)
end
end sub

'-----------------------------------
'datadialog.frm
'----------------------------------
private sub form_activate（)
mainform.myrecordset.open ' <---------
mainform.myrecordset.movefirst
end sub

private sub okbutton_click（)
unload me
end sub

问题：加上箭头所指的一句显示出错，
不加这句显示数据库末打开不可操作。
哪能儿错啊？怎么改啊？教教我吧。

发表于：2007-02-03 12:41:011楼得分:5

请将数据库路径及名称改为你自己的数据库据库路径及名称。窗体上添加几个与通讯录字段数相同的textbox，将各textbox的属性页的属性datasource设置data1，各textbox的属性页的属性datafield设为通讯录各字段名。将sql语句的表名改为你的数据表名。代码如下：

option explicit
dim sql as string
dim a1 as string

private sub form_load（)
a1 = inputbox（ "请输入号码! ", "查找 ")
sql = "select * from ”
data1.databasename = "d:\program files\microsoft visual studio\vb98\通讯录.mdb "
data1.recordsource = sql
end sub

发表于：2007-02-05 14:49:202楼得分:5

首先建议用datagrid 显示数据，
data控件不支持office2000的。用ado
给你个例子
你试试吧，好用的
记得要引用ado
你只需要在工程/引用 miscrosoft activex data objects 2.x library 就可以了
dim db as connection
dim withevents adoprimaryrs as recordset '数据库连接对象
private sub command1_click（)

strsql= "select 字段 from 表 where 你的条件 "
set db = new connection
db.cursorlocation = aduseclient
'下面的连接数据字符串你要修改一下
db.open "provider=microsoft.jet.oledb.4.0;data source= " & app.path & "\计划管理系统.mdb;persist security info=false "
set adoprimaryrs = new recordset
adoprimaryrs.open strsql, db, adopenstatic, adlockoptimistic
set datagrid1.datasource = adoprimaryrs
end sub

其他资讯