DB驱动程序连接示例
以下示例演示了如何使用ADO连接到Access数据库。
创建Connection对象：
Dim conn As New ADODB.Connection
conn.ConnectionString = “Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:myFoldermyAccessFile.accdb;” & _
"Persist Security Info=False;"conn.Open
请注意，连接字符串的Provider参数设置为Microsoft.ACE.OLEDB.12.0，这是访问控制引擎（ACE）提供程序版本的命名空间。
打开Connection：
conn.Open
关闭Connection：
conn.Close
查询数据：
Dim rs As New ADODB.Recordset
rs.Open “SELECT * FROM myTable”, conn
Do While Not rs.EOF
Debug.Print rs.Fields("myFieldName")
rs.MoveNextLoop
rs.Close
在这个例子中，使用Recordset对象来执行查询并遍历结果集。
插入数据：
conn.Execute “INSERT INTO myTable (myFieldName1, myFieldName2) VALUES (‘MyValue1’, ‘MyValue2’)”
在这个例子中，使用Execute方法向Access表中插入新数据。
更新数据：
conn.Execute “UPDATE myTable SET myFieldName=’MyNewValue’ WHERE ID=1”
在这个例子中，使用Execute方法来更新Access表中的数据。
删除数据：
conn.Execute “DELETE FROM myTable WHERE ID=1”
在这个例子中，使用Execute方法来从Access表中删除数据。
连接字符串示例：
Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:myFoldermyAccessFile.accdb;
Persist Security Info=False;
其中：
- “Microsoft.ACE.OLEDB.12.0″是Access数据库驱动程序的名称。
- “C:myFoldermyAccessFile.accdb”是包含Access数据库文件的完整路径和文件名。
- “Persist Security Info=False”指示驱动程序不保存连接字符串中的密码。如果要保存密码，将此属性设置为True。
发布者：luotuoemo，转转请注明出处：https://www.jintuiyun.com/157704.html
