VB连接数据库方式汇总VIP免费

VB 连接数据库方式汇总 分类： VB 2009-11-06 20:18 ADO（ActiveX Data Object，ActiveX 数据对象）是继DAO、RDO 之后微软新推出的最新的数据库连接技术，这里所示的都是采用 ADO 去连接数据库。常用的数据库有 Access、SQL Server 和 Excel，下面做了连接方式的汇总，给出代码示意。 一、连接Access数据库 1、连接Access 2003 数据库 „连接名为test.mdb的数据库，读取其中的名为myuser的表中的数据，显示在MSHFlexGrid1中。 Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.path & "\test.mdb" rs.Open "myuser", cn, adOpenKeyset, adLockOptimistic Set MSHFlexGrid1.DataSource = rs 2、连接Access 2007 数据库 Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\" & "test.accdb;Persist Security Info=False" rs.Open "select * from myuser", cn, adOpenKeyset, adLockOptimistic Set MSHFlexGrid1.DataSource = rs 3、连接设置了密码的 Acces s 2003 数据库 „连接名为 test.mdb 的数据库，密码为 111，读取其中的名为 myuser 的表中的数据。 Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.path & ” \test.mdb;Jet OLEDB:Database Password=111" rs.Open "myuser", cn, adOpenKeyset, adLockOptimistic Set MSHFlexGrid1.DataSource = rs 二、连接 SQL Serv er 2000 数据库 1、用 ODBC DSN（ODBC 数据源）连接 SQL s erv er 2000 要想使用 ODBC DSN 访问 SQL Server 2000 数据库，就要先对 ODBC 数据源进行配置，步骤如下： à 在 SQL 的企业管理器中建立好名为 test 的数据库，其中有一个叫 myuser 的表 à 控制面板 à 管理工具 à 数据源（ODBC）à 选择“ 用户 DSN” 选项卡 à 点“ 添加” à 选中“ SQL Server” ， 点“确定”à 在“数据源名称”处根据自己的想法随便给目前正在建立的这个 DSN 取个名字，本例取为“TEST”；在“数据源描述”处写上一些提示信息，以便以后方便...