vb 怎样将access中一个表里的数据显示在datagrid中
3个回答
展开全部
datagrid需要逐行添加数据
你可以用flexgrid,直接建立数据关联就可以连接ado数据库
你可以用flexgrid,直接建立数据关联就可以连接ado数据库
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
请参照如下代码(这也是之前帮人写的一个例子,你可将你的程序套用):
dim con as new adodb.connection '声明一个数据连接对象变量,用于打开数据库
dim rs as new adodb.recordset '声明一个数据集对象变量,用于打开数据表
private sub form_load() '在窗体加载事件中,设置两个文本框内容为空,打开数据库连接,同时设置游标
con.open "Provider=Microsoft.Jet.OLEDB.4.0;data source=你的数据库文件.mdb;persist security info=false"
con.cursorLocation=aduserclient '这个很重要,不然后面无法将Datagrid控件与数据集动态关联起来
end sub
Private Sub command_Click() '单击查询按钮事件,分成几种情况考虑
if rs.state<>adstateclosed then rs.close
rs.open "select * from 数据表名称 where ",con,1,3
if rs.eof=false and rs.bof=false then
set Datagrid1.datasource=rs
Datagrid1.refresh
else
msgbox "未查询到记录!"
exit sub
end if
end sub
这样就可以将你数据表里的数据显示在Datagrid1控件中,试试吧
dim con as new adodb.connection '声明一个数据连接对象变量,用于打开数据库
dim rs as new adodb.recordset '声明一个数据集对象变量,用于打开数据表
private sub form_load() '在窗体加载事件中,设置两个文本框内容为空,打开数据库连接,同时设置游标
con.open "Provider=Microsoft.Jet.OLEDB.4.0;data source=你的数据库文件.mdb;persist security info=false"
con.cursorLocation=aduserclient '这个很重要,不然后面无法将Datagrid控件与数据集动态关联起来
end sub
Private Sub command_Click() '单击查询按钮事件,分成几种情况考虑
if rs.state<>adstateclosed then rs.close
rs.open "select * from 数据表名称 where ",con,1,3
if rs.eof=false and rs.bof=false then
set Datagrid1.datasource=rs
Datagrid1.refresh
else
msgbox "未查询到记录!"
exit sub
end if
end sub
这样就可以将你数据表里的数据显示在Datagrid1控件中,试试吧
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
QQ:726995292我看看能不能帮你
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询