|
请教兰色幻想老师和各位老师:
在学习\VBA80集第71集:数据库的基本操作时,运行程序,Excel数据库并未添加记录。这是为什么?
谢谢!
'1 使用.Execute 执行 Insert 语句
Sub 添加1()
Dim conn As New Connection
Dim sql As String
Dim data As New 数据库
conn.Open data.Excel数据库
sql = "Insert into [Sheet1$] (姓名, 年龄, 性别) VALUES('张雨生', 35, '男')"
conn.Execute sql
conn.Close
Set conn = Nothing
End Sub
|
|