SQL Server 2000 数据库应用教程 (12).pptVIP

12.3.2 Recordset对象 运行时，从文本框输入用户名和密码之后，单击“确定”按钮实现连接数据库，并将学生基本信息表的数据显示在DataGrid控件上。“确定”按钮Command1的Click事件过程如下： Private Sub Command1_Click() Dim Mycon As New ADODB.Connection Dim Myrs As New ADODB.Recordset Mycon.ConnectionString = _ Driver={SQL Server}; Server=ky;UID= _ Trim(Text1.Text) ;pwd= _ Trim(Text2.Text) ;Database=学生管理 * 12.3.2 Recordset对象 Mycon.Open Myrs.Open 学生基本信息, Mycon, _ adOpenStatic, adLockOptimistic, _ adCmdTableDirect Set DataGrid1.DataSource = Myrs End Sub * 12.3.2 Recordset对象 运行时输入用户名和密码之后，单击“确定”按钮，显示内容如图: * 12.3.3 Command对象 Command对象用于定义对数据源执行的命令。可以使用Command对象查询数据库并返回Recordset对象。 (1) ActiveConnection属性 指示Command对象当前所属的Connection对象。例： Dim Mycon As New ADODB.Connection Dim Mycom As New ADODB.Command …… 在这里建立Mycon连接并打开该连接 Set Mycom.ActiveConnection = Mycon * 12.3.3 Command对象 (2) CommandText属性 包含要发送给提供者的命令文本。如SQL语句、表名称或存储过程调用。 例： strSQL = select * from 学生基本信息 Set Mycom.ActiveConnection = Mycon Mycom.CommandText = strSQL * 12.3.3 Command对象 (3) CommandType属性 指示CommandText的类型。 如: adCmdText、adCmdTable、adCmdTableDirect、adCmdStoredProc、adCmdUnknown、adExecuteNoRecords等。 * 12.3.1 Connection对象 如果使用Windows集成安全设置，则实现连接的代码如下： Dim Mycon As New ADODB.Connection Mycon.ConnectionString = Driver={SQL Server};Server=ky;integrated_security=SSPI ; Database=学生管理 Mycon.Open * 12.3.1 Connection对象 【例12-4】使用Connection对象的动态属性实现与数据库的连接。用下图的界面指定所要连接的SQL Server服务器名称、数据库名称、连接所需的用户名和密码，单击“连接”按钮实现与指定的SQL Server数据库的连接。 Text1 Text2 Text3 Text4 Command1 * 12.3.1 Connection对象 Private Sub Command1_Click() Dim Mycon As New ADODB.Connection Dim ServerName As String Dim DatabaseName As String Dim UserName As String Dim Password As String 取出界面信息,存到相应的变量中 ServerName = Trim(Text1.Text) DatabaseName = Trim(Text2.Text) UserName = Trim(Text3.Text) Password = Trim(Text4.Text) * 12.3.1