VB数据库编程实用源码VIP专享VIP免费

使用ADO 编程模型需添加ADO 对象类库的“引用”----“Microsoft ActiveX Data Objects 2.x Library” ADO 之VB 数据库操作主要包括读、写、修改及删除等操作，不论是进行什么数据库操作都必须首先连接到数据库。 一、连接到数据库 1、 连接到 SQL 数据库： 通过 ADO 的Connection 对象可实现 VB 与 SQL 数据库的连接。一般方法如下： Dim cnn As New ADODB.Connection „创建 Connection 对象cnn，关键字 new 用于创建新对象 cnn.ConnectionString = "Provider=SQLOLEDB.1;Passw ord=密码;User ID=用户名;Initial Catalog=SQL 数据库文件;Data Source= localhost;" '指定提供者，设置数据源 cnn.Open „打开到数据库的连接 … … .. cnn.Close „关闭到数据库的连接 或者： Dim cnn As New ADODB.Connection „创建 Connection 对象cnn，关键字 new 用于创建新对象 cnn.Open "Provider=SQLOLEDB.1;Passw ord=密码;User ID=用户名;Initial Catalog=SQL 数据库文件;Data Source= localhost;" „打开到数据库的连接 … … .. cnn.Close „关闭到数据库的连接 2、 连接到 ACCESS 数据库： 通过 ADO 的Connection 对象可实现 VB 与 ACCESS 数据库的连接。一般方法如下： Dim cnn As New ADODB.Connection „创建 Connection 对象cnn，关键字 new 用于创建新对象 cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ACCESS 数据库文件.MDB" '指定提供者，设置数据源 cnn.Open „打开到数据库的连接 … … .. cnn.Close „关闭到数据库的连接 或者： Dim cnn As New ADODB.Connection „创建 Connection 对象cnn，关键字 new 用于创建新对象 cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ACCESS 数据库文件.MDB" „打开到数据库的连接 …….. cnn.Close „关闭到数据库的连接 二、读数据库操作 读数据库操作一般可通过 recordset 对象实现。方法如下— 以 ACCESS 数据库为例： Dim cnn As New ADODB.Connection „创建 Connection 对象 cnn，关键字 new 用于创建新对象 cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ACCESS 数据库文件.MDB" „打开到数据库的连接 Dim rs As New Recordset '声明一个记录集对象 rs.Open [记录源, cnn, ...