VB ADO 连接数据库

最新推荐文章于 2021-01-19 03:52:30 发布

原创最新推荐文章于 2021-01-19 03:52:30 发布 · 3.2k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#vb #database #sqlserver #数据库 #security #sql server

VB 专栏收录该内容

4 篇文章

订阅专栏

本文详细介绍了如何使用Microsoft ActiveX Data Objects (ADO) 进行数据库连接，并提供了针对Access、SQL Server及Oracle数据库的具体连接字符串示例。同时，文中还展示了如何通过VBA创建连接对象与结果集对象来执行SQL命令。

'工程->引用->Microsoft ActiveX Data Objects 2.X Library

Access数据库连接字符串
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=*.mdb;Persist Security Info=False"
有密码的
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=*.mdb;Persist Security Info=False;Jet OLEDB:Database Password=pwd"
注:Data Source=Access数据库所在路径
SqlServer
"driver={SQL Server}; server=SERVERNAME; pwd=PASSWORD;uid=USER;database=DATABASE"
注:server=数据库服务器路径,database=数据库名
ORACLE
"Provider=OraOLEDB.Oracle;Password=Password;User ID=User;Data Source=SourceName"
注:Data Source=本地Oracle Net服务名

'新建一个连接对象
Dim con as new ADODB.Connection
'打开连接
con.Open "连接字符串"
执行无需要返回的SQL命令
con.Execute "SQL语句"

'新建结果集对象
Dim rs as new ADODB.RecordSet
'通过某连接执行SQL语句并把结果集存入rs
rs.Open "SQL语句",con
'可以取得当前记录的某字段值
rs.Fields("字段名")
'可以移动结果集游标去指向某条记录.
rs.MoveXXX