课件：dbs.pptVIP

THANK YOU SUCCESS * * 可编辑 * * * * * * 2、VB访问SQL Server 2005 SQL Server Net SQL Server Net VB应用程序 1）启动服务 2）建立ODBC数据源 VB访问SQL Server 2005的主要方法 ①数据访问对象/Jet ②为ODBC API编程 ③使用SQL Server的Visual Basic库(VBSQL)为DB库的API编程 ④RDO 远程数据对象(RemoteData Objects) ⑤ADO 数据对象(Active Data Objects) 用VB访问SQL Server数据库技术详解 ADO Data Contonl控件(最简单的方式) 1）启动SQL Server 2005的所有服务 控制面板/管理工具 2）建立ODBC数据源 控制面板/管理工具 3）添加ADO Data控件 ADO Data Contonl控件 链接属性和记录源 数据绑定控件：Data Grid控件 显示ADO Data控件所连接的数据 属性 Datasource ADO Data控件 Datagrid 控件 datasource 3）添加ADO Data控件 Step1：添加2个部件 Step2：画新控件，并将Data Grid控件和ADO Data Contonl控件绑定 Step3：设置ADO Data Conton控件的链接属性和记录源 Step4：运行 可以快速建立数据库应用程序 适合于数据查询与显示 但有许多缺陷，比如不能调用存储过程 4）利用ADO对象 ADO通过对象和集合来实现数据库操作 要实现的功能 统计学生的数目 在学生表中增加一条新录 在学生表中删除一条新录 在学生表中修改一条新录 查询学生表的信息 如何实现？ 画界面 利用Connection对象创建到数据源的连接 利用Command对象执行某个存储过程或SQL语句 利用RecordSet对象控制记录的增、删、改、查 4.1）画界面 4.2）Connection对象 Connection 对象代表了打开的、与数据源的连接。 定义 Dim cnn as New ADODB.Connection 属性 ConnectString CursorLocation 方法 Open，Close Execute BeginTrans，CommitTrans，RollbackTrans 窗体运行时初始化过程 Private Sub Form_Load() 定义ConnStr为连接字符串 Dim ConnStr As String Command1.Caption = 统计学生数 Command2.Caption = 在学生表中增加一条新录 Label1.Caption = 学号： Label2.Caption = 姓名： Label3.Caption = 性别： Label9.Caption = 状态： Text1.Text = Text2.Text = Text3.Text = Text9.Text = Command3.Caption = 在学生表中删除一条新录 Label4.Caption = 学号： Text4.Text = Command4.Caption = 在学生表中修改一条新录 Label5.Caption = 学号： Label6.Caption = 姓名： Label7.Caption = 性别： Label8.Caption = 状态： Text5.Text = Text6.Text = Text7.Text = Text8.Text = Command5.Caption = 查询学生表的信息 Set conn = New ADODB.Connection ConnStr = Provider=MSDASQL.1;Persist Security Info=False;User ID=fleaven;Data Source=MySQLSEVER conn.Connection