VB 中的 ADO 对象编程. 补充内容. ADO(ActiveX Data Objects) ActiveX 数据对象. 是微软最新的数据访问技术，与 OLE DB 一起工作。 OLE DB 是一个低层的基于 COM 的数据访问接口，它向应用程序提供了一个统一的数据访问方法，用它可以访问各种数据源，包括关系型数据库、电子邮件系统、自定义的商业对象。 其模型如下：. VB 应用程序. ADO. OLE DB. RDBMS. 目录管理. Email. 先在 VB 工程中把 ADO 对象库加载上.
Une image / un lien ci-dessous est fourni (tel quel) pour télécharger la présentation
Politique de téléchargement : le contenu du site vous est fourni TEL QUEL pour votre information et votre usage personnel ; il ne peut être vendu, concédé sous licence ni partagé sur d’autres sites sans l’accord de son auteur.Le contenu vous est fourni TEL QUEL, pour votre information et votre usage personnel uniquement.Téléchargez la présentation en cliquant sur ce lien.Lors du téléchargement, si vous ne parvenez pas à télécharger une présentation, l’éditeur a peut-être supprimé le fichier de son serveur.Pendant le téléchargement, si vous ne parvenez pas à obtenir une présentation, le fichier a peut-être été supprimé par l’éditeur.
Dim cna as new adodb.connection • Dim cnb as new adodb.connection • Private sub command1_click() • Dim cnastring as string • Cnastring=“dsn=sqlpubs;uid=sa;pwd=1234”‘SQL DSN 数据源的连接字符串 • With cna • .connectionstring=cnastring • .connectiontimeout=10 • .open • End with • 或：cna.open “dsn=sqlpubs;uid=sa;pwd=1234” • 或： can.open Cnastring Cna.close ‘关闭连接 End sub
Private sub command2_click() • Dim cnbstring as string • Cnbstring=“dsn=aa;uid=;pwd=”‘Access DSN 数据源的连接字符串 • With cnb • .connectionstring=cnastring • .connectiontimeout=10 • .open • End with • 或：cnb.open“dsn=aa;uid=;pwd=” Cnb.close ‘关闭连接 End sub
使用recordset 的 open方法返回记录集： dim cn as new adodb.connection dim rs as new adodb.recordset Dim cnstring$,strsql$ Cnstring=“driver={SQL Server};server=127.0.0.1;database=student;uid=sa;pwd=” Strsql =“select * from 基本情况 where 班级=”05网一“or 班级=”05网二“” Cn.open cnstring Rs.open strsql,cn,1,1 记录集锁类型 1：只读 3：开放式可以update 记录集类型， 1是键集游标
使用connection 的 execute方法返回记录集： dim cn as new adodb.connection dim rs as new adodb.recordset Dim cnstring$,strsql$ Cnstring=“driver={SQL Server};server=127.0.0.1;database=student;uid=sa;pwd=” Strsql =“select * from 基本情况 where 班级=‘05网一’or 班级=‘05网二’” Cn.open cnstring Set Rs=cn.execute (strsql)
