网上看到一个代码,看用不用得上:
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
我没有理解你的意思!
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代码,你是这个意思吗?