vba语言删除sql server表数据

你可以使用以下的 VBA 代码来删除 SQL Server 表中的数据：

Sub DeleteDataFromSQLServerTable()
    Dim conn As ADODB.Connection
    Dim cmd As ADODB.Command
    
    Set conn = New ADODB.Connection
    conn.ConnectionString = "Provider=SQLOLEDB;Data Source=SERVER_NAME;Initial Catalog=DATABASE_NAME;User ID=USERNAME;Password=PASSWORD;"
    conn.Open
    
    Set cmd = New ADODB.Command
    cmd.ActiveConnection = conn
    cmd.CommandText = "DELETE FROM TABLE_NAME"
    cmd.Execute
    
    conn.Close
    Set conn = Nothing
    Set cmd = Nothing
End Sub

请将 `SERVER_NAME`，`DATABASE_NAME`，`USERNAME` 和 `PASSWORD` 替换为你的 SQL Server 服务器名称、数据库名称、用户名和密码，将 `TABLE_NAME` 替换为你要删除数据的表名。