insert into table2 select from table1 where f1='xx' and f2='yy' ......and id not in (select id from table2)
解决方案 »
- 能写一个使屏幕灰屏,然后冻住屏幕,在屏幕上选取一个区域,进行恢复正常状态的屏幕.
- datagrid绑定记录,更改的问题。
- vb6,可以用什么方法实现:"弹出窗"式的登录界面的自动登录?
- 软件开发项目,从立项、定义、需求分析、概要设计、详细设计、编码实现、测试等,大家认为各开发阶段应该优先选用哪些配套的易用、优秀的开发工具。并且通过对优秀的开发工具的合理评价和交流,方便我们广大开发者。
- 请教
- 怎么才知道打印出来的字符串的长度
- 高分求EXE文件嵌入本人写的文件中,并在内部调用的方法
- ▲很简单的API应用▲请大家帮着看看错在哪了。在线等待,高分相送。
- 如何得到被点击文件的地址??????急
- 急需找VB人员共同协作一个项目
- 请问如何对exe文件打包才能保证程序在没有任何一台电脑上(没有装vb)正常运行。
- 关于用代码实现停掉sqlserver的服务和然后开始sqlserver的服务的问题,实现给分
如果表结构不同,那么就要编一个小程序实现了
你说这种SQL语句好项写不出来吧
...
cn.open connectionstring
sqlstring1="select * from tabel1"
rs1.open sqlstring1,cn,1,1
do while not rs1.eof
sqlstring2="insert into tabel2(col1,col2,col3,col4...) values('" & rs1.fields("col1") & "','" & rs1.fields("col2") & "'...)"
rs2.open sqlstring2,cn,1,1
'cn.execute sqlstring2
rs1.movenext
loop
表结构相同,且两个表均用控件ADODC, 将ADODC1 的记录追加到ADODC2中,
ADODC1 的记录已是取表中符合条件的范围。
dim str as string
str = "select * from tab1 where trim(str(pdate)) = '" & DTPicker1.Value & "' and team = '" & Combo2.Text & "'"
Adodc1.RecordSource = str
Adodc1.refresh
Adodc2.RecordSource = "select * from tab2"
Adodc2.refresh
如何用语句实现?
cn.execute "insert into tab2 select * from tab1 where trim(str(pdate)) = '" & DTPicker1.Value & "' and team = '" & Combo2.Text & "'"
注意:如果有自动增量字段,必须先加上set identity_insert tab2 off
如果不存在禁止重复记录问题的话,就照cacoda.
不会用connection没关系。
Adodc1.RecordSource = "insert into tab2 select * from tab1 where trim(str(pdate)) = '" & DTPicker1.Value & "' and team = '" & Combo2.Text & "'"
Adodc1.Refresh
同样有效。