如何执行SQL语句：

Question

如何在VB代码中执行TRUNCATE table、delete等SQL语句？

Answer 1

connectiong.excute or command

Answer 2

dim conn as new adodb.connection
dim strsql as string
'建立连接
...
'建立sql语句
strsql = "delete..."
'执行
conn.execute(strsql)

Answer 3

Option Explicit
Dim com As Command
Dim cn As Connection
Set com = New Command
Set cn = New Connection
cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=LiubingTest;Data Source=server"
cn.Open
com.CommandType = adCmdStoredProc
com.CommandText = "AddStudent"
red.Open
End Sub