《VB426Word试题库工具插件的设计》.doc

VB426Word试题库工具插件的设计 P2.5.2如何在VB中使用ADOBR一旦安装了ADO，在VB的工程-gt;引用对话框中就可以看到象下图所示的东西了：选择 ActiveX Data Objects 1.5 Library (ADODB).在其下的 ADO Recordset 1.5 Library是一个客户端的版本(ADOR),它定义了有聚的数据访问对象。ADOR 对于客户端的数据访问来说是足够的了，因为不需要Connection对象来建立与远程数据源的联系。BR如果想要访问更多的外部数据源，需要安装这些外部数据源自己的OLE DB Provider，就象需要为新的数据库系统安装新的ODBC驱动程序一样。如果该外部数据源没有自己的OLE DB Provider,就得使用OLE DB SDK来自己为这个外部数据源创建一个OLE DB Provider了。BR示例BR下面的示例代码以Northwinds数据库作为远程数据源，然后用ADO来访问它。首先在控制面板中打开“32位数据源”，单击“添加”按钮。在弹出的对话框中选择 Microsoft Access Driver (*.mdb) 作为数据源驱动程序。BR然后按下图所示，在对话框中填写下面的内容BR选择数据库Northwinds所在路径。单击完成，退出ODBC设备管理器。BR启动一个新的VB工程，在窗体的Load事件中输入下面的代码：BRPrivate Sub Form_Load()BRDim cn As ADODB.ConnectionBRSet cn = New ADODB.ConnectionBRSet Connection propertiesBRcn.ConnectionString = DSN=RDC Nwind;UID=;PWD=;BRcn.ConnectionTimeout = 30BRcn.OpenBRIf cn.State = adStateOpen Then _BRMsgBox Connection to NorthWind Successful!BRcn.CloseBREnd SubBR按F5运行程序，看看，一个消息框弹出来告诉连接成功了。请注意，这里我特别注明了是ADODB.Connection,而不是ADOR.Connection，这样做是为了将二者区分开（如果引用了ADODB和ADOR的话，这样做很有必要）。连接字符串看上去同RDO的连接字符串差不多。事实上，二者确实差不多。如果我们要访问一个SQL server数据库，的Connection代码看上去应象下面所示：设置连接属性cn.Provider = MSDASQLcn.ConnectionString = driver={SQL Server}; amp; server=prod1;uid=bg;pwd=;database=maincn.OpenProvider属性指向SQL Server的OLE DB Provider.回到我们的示例程序，让我们创建一个Recordset对象来访问“Orders”表，并从该表的ShipCountry字段中产生头十个不重复的国家名。修改窗体Load事件中的代码，让它看上去象下面这样。BRPrivate Sub Form_Load()BRDim cn As ADODB.ConnectionBRDim rs As ADODB.RecordsetBRDim sSQL As StringBRDim sOut As StringBRDim Count As IntegerBRSet cn = New ADODB.ConnectionBRSet rs = New ADODB.RecordsetBR Set properties of the Connection.BRcn.ConnectionString = DSN=RDC Nwind;UID=;PWD=;BRcn.ConnectionTimeout = 30BRcn.OpenBRIf cn.State = adStateOpen Then _BRMsgBox Connection to NorthWind Successful!BRsSQL = SELECT DISTINCT Orders.ShipCountry FROM OrdersBRSet rs = cn.Execute(sSQL)BREnumerate the recordsetBRsOut = BRFor Count = 1 To 10BRsOut = sOut amp; rs(ShipCountry) amp; vbCrLfBRrs.MoveNextBRNext CountBRMsgBox