cnstr = "Provider=SQLOLEDB.1;Password=exam;Persist Security Info=True;User ID=sa;Initial Catalog=tdb;Data Source=172.16.42.31"
conn.ConnectionString = cnstr
conn.Open cnstr
rs1.CursorLocation = adUseClientWith conn
sqltxt = "delete from whhxtb"
.Execute (sqltxt)
sqltxt = "insert into whhxtb select * from tdb_out..whhxtb" '就是执行到这句不行啦!
.Execute (sqltxt)
End With这句insert into就是把tdb_out中的whhxtb表数据插入到tdb中的whhxtb中,但总是执行不了,会是什么原因呢?要实现这个功能,还能怎么写呢?
conn.ConnectionString = cnstr
conn.Open cnstr
rs1.CursorLocation = adUseClientWith conn
sqltxt = "delete from whhxtb"
.Execute (sqltxt)
sqltxt = "insert into whhxtb select * from tdb_out..whhxtb" '就是执行到这句不行啦!
.Execute (sqltxt)
End With这句insert into就是把tdb_out中的whhxtb表数据插入到tdb中的whhxtb中,但总是执行不了,会是什么原因呢?要实现这个功能,还能怎么写呢?
解决方案 »
- 怎样在Listview控件的属性框中添加“列首”
- 建立矩阵以及显示出矩阵,且矩阵每个单元可以象命令按钮操作!
- Textbox绑定字段后,用代码更改其Text后Update,数据库内容未改变,何解?
- 实时错误 '-2147217833..String data,right truncation..怎么解决?
- 紧急求救!!!
- ms agent 求救???
- 怎样将A表三个子段的内容放到B表的一个子段中,各位有没有好的算法
- 控件覆盖的问题:怎样实现webbrowser等的全屏显示?----给高手的问题。
- 谁可以给我一个简单的treeview
- 高手指教 如何改变日期控件DTPicker 背景颜色!
- 如何在VB 程序中执行SQL SERVER的数据库安装过程,66K大的脚本?
- Win Xp 扫雷游戏存在Bug!
cnstr = "Provider=SQLOLEDB.1;Password=exam;Persist Security Info=True;User ID=sa;Initial Catalog=master;Data Source=172.16.42.216"
conn.ConnectionString = cnstr
conn.Open cnstr
rs1.CursorLocation = adUseClient
sqlm = "select spid from sysprocesses where dbid=db_id('tdb_out')"
rs1.Open sqlm, conn
Do While Not rs1.EOF
conn.Execute "kill " & rs1("spid")
rs1.MoveNext
Loop
sqltxt = "restore database tdb_out from disk='" & inputfile & "' with replace"
conn.Execute (sqltxt)
rs1.Close
conn.Close我就是不知道是否因为上述哪些原因导致insert into...这句连接不了
有高手吗?说说吧!
是不是关键键不能重复的原因?
sql="insert into B select * from A where 主鍵 not in(select 主鍵 from B)"你這樣試試看?