'使用ADODB对象,必须先进行对象模型的引用,步骤如下
'通过菜单[工程] -- [引用],勾选 Microsoft ActiveX Data Object 2.6 Library
'Microsoft ActiveX Data Object 2.7 Library
'Microsoft ActiveX Data Object 2.8 Library
'都可以
完整的代码以及相关注释如下:(代码完全可以复制使用)
需要在窗体上添加一个按钮和一个DataGrid1控件
Option Explicit
Private Sub Command1_Click()
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>基本知识>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
'ADODB对象模型,是VB用来操作数据库的有力工具,其中两个对象最有价值;
'1.ADODB.Connection -- 用来连接数据库文件:
'主要完成对数据库以及数据表的操作;比如:创建数据库,创建、删除、复制数据表等等。
'2.ADODB.Recordset -- 用来返回数据记录集:
'主要完成对记录的操作;比如:返回记录,添加、删除记录等等。使用SQL语句可以实现强大的功能。
'下面简单介绍使用ADODB对象进行数据库操作的步骤
'一,声明并实例化对象
Dim Conn As ADODB.Connection '声明连接数据库对象 -- 用来连接数据库文件,并对数据库以及数据表的操作
Dim Rst As ADODB.Recordset '声明数据记录集对象 -- 用来返回数据记录集,并对记录的操作
Set Conn = New ADODB.Connection '数据库对象的实例化
Set Rst = New ADODB.Recordset '记录集对象的实例化
'二,连接数据库文件
'执行 ADODB.Connection对象的Open方法,完成数据库的连接
Conn.CursorLocation = adUseClient
'注意下面的一些参数,需要根据使用者的特定情况进行修改
'Password=密码 中的“密码”,是登录SQL SERVER 的密码
'User ID=实例名 中的“实例名”,是SQL SERVER 的实例名,一般使用“sa”
'Initial Catalog=数据库名 中的“数据库名”,只你要访问的数据库名
'Data Source=SQL SERVER服务器名 中的“SQL SERVER服务器名”是你要访问使用的安装了SQL SERVER的服务器计算机名
Conn.Open "Provider=SQLOLEDB.1;Password=密码;Persist Security Info=True;User ID=实例名;Initial Catalog=数据库名;Data Source=SQL SERVER服务器名"
'三,返回记录集
'执行 ADODB.Recordset对象的Open方法,获得记录集
'注意,把“数据表名”改为你的实际数据表名称
Rst.Open "Select * From 数据表名", Conn, adOpenKeyset, adLockPessimistic
Set DataGrid1.DataSource = Rst
Set Rst = Nothing '释放记录集对象
Set Conn = Nothing '释放数据库对象
End Sub
追问我需要操作步骤,
本回答被提问者和网友采纳