我的程式中需要将第一个DATAGRiD查询所得的数据加入到第二个DATAGRiD中,我该如何书写程式代码?
解决方案 »
- 请教个网页上传图片的问题
- 接收几个数据后出现“溢出”错误?
- 连接无法用于执行此操作,在此上下文中它可能已被关闭或效
- 多文档设计
- 问一个弱智问题,不要笑偶! -_-|||
- 编程中如何获取注册表的当前大小以及注册表的最大值?
- 我问一下,VB中有没有事件调动事件的情况
- 怎样用一个SQL语句来同时操作SQL Server中两个数据库的表
- 急!急!急!为何ActiveReports预览中好好的,打印出来字体都散开了???每个汉字的间距都扩大了?为什么呢多谢了!
- 如何控制两个以上光驱
- 关于mshflexgrid的滚动条的问题?
- 送分的问题!vb6.0在指定路径下生成一个目录后,在这个目录中自动生成一个文本文件!急盼解决.
set datagrid2.datasouce=datagrid1.datasource
不知你是不是这个意思
要是要储存,可以把DATAGRID1的结果添加到2的数据表里
列不相同就用别的表来存,或者加列
记得要引用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