VBA Excel中的SQL语句

Dim conn As Object
Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\database.accdb"

Dim rs As Object
Set rs = CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM TableName", conn

Do Until rs.EOF
    ' 处理数据
    rs.MoveNext
Loop

rs.Close
Set rs = Nothing

conn.Close
Set conn = Nothing

Dim conn As Object
Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\database.accdb"

conn.Execute "INSERT INTO TableName (Column1, Column2) VALUES ('Value1', 'Value2')"

conn.Close
Set conn = Nothing

Dim conn As Object
Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\database.accdb"

conn.Execute "UPDATE TableName SET Column1 = 'NewValue' WHERE Condition"

conn.Close
Set conn = Nothing

Dim conn As Object
Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\database.accdb"

conn.Execute "DELETE FROM TableName WHERE Condition"

conn.Close
Set conn = Nothing