update A.D set cols=? where ....
修改表结构也一样 alter table A.D .......
因为表名都一样,就改下库名就好了,不用特意进哪个库的
sPro = "Provider=sqloledb.1integrated security=sspi persist security info=false" sDsn = "initial catalog=数据库名" sSer = "Data Source=计算机名.\WinCC" sCon = sPro + sDsn + sSersSql= "select * from 数据库名"
Set conn = CreateObject("ADODB.Connection") conn.ConnectionString = sCon conn.CursorLocation = 3 conn.Open
Set oRs = CreateObject("ADODB.Recordset") Set oCom = CreateObject("ADODB.Command") oCom.CommandType = 1
Set oCom.ActiveConnection = conn oCom.CommandText = ssql Set oRs = oCom.Execute
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)