我没有理解你的意思! Dim cn As New ADODB.Connection Dim cmd As New ADODB.Command cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Mail;Data Source=." Set cmd.ActiveConnection = cn cmd.CommandText = "Use Mail create Table aa(A NVARCHAR(10),B INT,C BIT) Insert into aa values('111',11,1)" cmd.Execute 这是一个创建表并插入数据的VB代码,你是这个意思吗?
网上看到一个代码,看用不用得上: Public Sub ExecuteSQLScriptFile(CN As ADODB.Connection, sqlFile As String) Dim SQL As String SQL = "master.dbo.xp_cmdshell ' wbserver -U admin -P x819hp24 -d wb -i " & sqlFile CN.Execute SQL End Sub
需要注意的是:脚本里面的注释不能用 --content ,要用/*content*/
提醒一下:我的这个是做新建数据库/新建表/插入数据三部分
是不是它们之间有什么冲突我的OSQL语句用法没有错误,因为每1个已经成功了另外我用的是VB6
,是不是每一个表后都要加GO语句
Dim cn As New ADODB.Connection
Dim cmd As New ADODB.Command
cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Mail;Data Source=."
Set cmd.ActiveConnection = cn
cmd.CommandText = "Use Mail create Table aa(A NVARCHAR(10),B INT,C BIT) Insert into aa values('111',11,1)"
cmd.Execute
这是一个创建表并插入数据的VB代码,你是这个意思吗?
Public Sub ExecuteSQLScriptFile(CN As ADODB.Connection, sqlFile As String)
Dim SQL As String
SQL = "master.dbo.xp_cmdshell ' wbserver -U admin -P x819hp24 -d wb -i " & sqlFile
CN.Execute SQL
End Sub