现在我们开始写组件中的方法1、;OpenDB方法OpenDB方法的思路是建立与MS;SQL;SERVER7.0的连接，这可以使用SQLOLEDB;Provider来实现。建立连接后就可以创建一个包含所有CD信息的记录集。根据以上分析我们写出如下代码。Option;ExplicitPrivate;Conn;As;ADODB.ConnectionPrivate;RecordSetCD;As;ADODB.Recordset’打开连接和结果集Private;Sub;OpenDB()Set;Conn;=;New;ADODB.ConnectionSet;RecordSetCD;=;New;ADODB.RecordsetConn.Open;'Provider=SQLOLEDB;DataSource=MUSE;Initial;Catalog=Music;UserId=Wayne;Password=AbCdEfG'RecordSetCD.Open;'SELECT;*;FROM;CD',;ConnEnd;Sub2、;CloseDB方法由于连接数据库是相当昂贵的，所以在不需要使用数据库时，一定要记住关闭Recordset;和Connection对象，CloseDB就是完成这一操作。Private;Sub;CloseDB()’关闭结果集RecordSetCDIf;Not;(RecordSetCD;Is;Nothing);ThenIf;RecordSetCD.State;=;adStateOpen;ThenRecordSetCD.CloseEnd;IfSet;RecordSetCD;=;NothingEnd;If’关闭连接ConnIf;Not;(Conn;Is;Nothing);ThenConn.CloseSet;Conn;=;NothingEnd;IfEnd;Sub
手把手教你使用VB来创建ASP组件(3)
由于我们要操作数据库，要使用到ADO，因此我们要引用Microsoft;Activex;Data;Object;2.5;Library.(如下图)现在我们开始写组件中的方法1、;OpenDB方法OpenDB方法的思路是建立与MS;SQL;SERVER7.0的连接，这可以使用SQLOLEDB;Provider来实现。建立连接后就可以创建一个包含所有CD信息的记录集。根据以上分析我们写出如下代码。Option;ExplicitPrivate;Conn;As;ADODB.ConnectionPrivate;RecordSetCD;As;ADODB.Recordset’打开连接和结果集Private;Sub;OpenDB()Set;Conn;=;New;ADODB.ConnectionSet;RecordSetCD;=;New;ADODB.RecordsetConn.Open;'Provider=SQLOLEDB;DataSource=MUSE;Initial;Catalog=Music;UserId=Wayne;Password=AbCdEfG'RecordSetCD.Open;'SELECT;*;FROM;CD',;ConnEnd;Sub2、;CloseDB方法由于连接数据库是相当昂贵的，所以在不需要使用数据库时，一定要记住关闭Recordset;和Connection对象，CloseDB就是完成这一操作。Private;Sub;CloseDB()’关闭结果集RecordSetCDIf;Not;(RecordSetCD;Is;Nothing);ThenIf;RecordSetCD.State;=;adStateOpen;ThenRecordSetCD.CloseEnd;IfSet;RecordSetCD;=;NothingEnd;If’关闭连接ConnIf;Not;(Conn;Is;Nothing);ThenConn.CloseSet;Conn;=;NothingEnd;IfEnd;Sub
现在我们开始写组件中的方法1、;OpenDB方法OpenDB方法的思路是建立与MS;SQL;SERVER7.0的连接，这可以使用SQLOLEDB;Provider来实现。建立连接后就可以创建一个包含所有CD信息的记录集。根据以上分析我们写出如下代码。Option;ExplicitPrivate;Conn;As;ADODB.ConnectionPrivate;RecordSetCD;As;ADODB.Recordset’打开连接和结果集Private;Sub;OpenDB()Set;Conn;=;New;ADODB.ConnectionSet;RecordSetCD;=;New;ADODB.RecordsetConn.Open;'Provider=SQLOLEDB;DataSource=MUSE;Initial;Catalog=Music;UserId=Wayne;Password=AbCdEfG'RecordSetCD.Open;'SELECT;*;FROM;CD',;ConnEnd;Sub2、;CloseDB方法由于连接数据库是相当昂贵的，所以在不需要使用数据库时，一定要记住关闭Recordset;和Connection对象，CloseDB就是完成这一操作。Private;Sub;CloseDB()’关闭结果集RecordSetCDIf;Not;(RecordSetCD;Is;Nothing);ThenIf;RecordSetCD.State;=;adStateOpen;ThenRecordSetCD.CloseEnd;IfSet;RecordSetCD;=;NothingEnd;If’关闭连接ConnIf;Not;(Conn;Is;Nothing);ThenConn.CloseSet;Conn;=;NothingEnd;IfEnd;Sub
相关文章：
