vb向access写入新表的问题
用select语句筛选数据库中表1的数据后,想将其写入数据库中表2,并在退出时清空,恢复表2空的状态,请问该怎样写代码呢? insert into 表2 (id,stu_name,stu_phone) select id,stu_name,stu_phone from 表1 where id < 30 delete from 表2 select * from Table1 --选取适当列into Table2
where Table1.col=XX --选择条件 insert into 表2 select * from 表1
delete * from 表2
同意此方法 建议:
使用时直接生成表2
select * into 表2 from 表1 where ...
退出时直接删除表2
DROP TABLE 表2
先建临时表(字段)
insert into tb select * from tb1 where ....
delete from tb........ select * from 表1 where 条件
do while not rs.eof
开始显示在表格上
insert into 表 (字段1,字段2) value('" & rs.fields("字段1") &"' ,'" & rs.fields("字段2") &"' )
conn.Execute SqlStr '这个一定要加 不然不执行
rs.movenext
loop
你肯定是在窗口退出时 清空 表2
那就用
delete * from 表2 不是将表1的数据复制到表2中,是将筛选后的数据填入表2,
Adodc1.RecordSource = "select * from 涂装计划 where 计划生产时间 between #" & DTPicker1.Value & "# and #" & DTPicker2.Value & "#"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
是这样实现的,这样写也可以吗?
strsql="intsert into table2 select * from 涂装计划 where 计划生产时间 between #" & DTPicker1.Value & "# and #" & DTPicker2.Value & "#"
建议用adodb来做 adodb
参考
vb怎么和access连接 其实我是想将筛选后的数据存在表2中,然后通过text控件的datasource和datafield属性跟ado或者data连接起来,然后实现能逐一查询数据的功能,用sql的话,不行吧。
建个临时表,可以实现的 我完全糊涂中,大师们,教我吧,非常感谢,分分送上
补充:VB , 数据库(包含打印,安装,报表)