VB访问SQL Server数据库的方法

《VB访问SQL Server数据库的方法》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VB访问SQLServer2000数据库的方法一、ODBC数据源设置1、ODBC简介ODBCOpenDatabaseConnectivity开放式数据库互连）是Mircosoft公司有关数据库的一个组成部分，它建立了一组规范，并提供了一组对数据库访问的标准APIApplication应用程序编程接口）。这些API利用SQL来完成大部分的任务。ODBC本身提供对SQL语言的支持，用户可以直接将SQL送给ODBC一个基于ODBC的应用程序对数据库操作不依赖于任何DBMS，不直接与DBMS打交道，所有数据库操作由ODBC驱动

2、程序完成。2、ODBC数据源的创建（建立ODBC数据源）前台系统Windows2000professional系统，后台Windows2000Server系统。以Windows2000professional为例：（1）单击“开始”/设置/控制面板/管理工具/数据源ODBC,打开“ODBC数据源管理器”，选择“用户DSNor系统DSN”，单击【添加】按钮，打开“创建用户数据源”对话框，选择“SQLServer”，单击【完成】按钮。（2）打开“创建新的数据源到SQLServer”窗口：1你想用什么名称命名数据源：在名称框

3、中输入xn。2服务器：为网络中数据库服务器（默认是本地服务器Local，可选远程服务器IP）。3登陆ID：xn密码：xn（取决于安装SQL时所指定的密码）。特别注意此处为确保数据库安全起见，数据库管理员可以给用户指定一个用户名及密码。这里为简便起见使用管理员用户名及密码。4更改数据库为：aa（所要使用的数据库）。二、VB访问SQL数据库数据库数据库数据库VB与SQL的连接方式有多种，限与篇幅本文仅介绍以下三种：1.通过VB的数据库管理器（1）启动VB窗口，选择菜单“外接程序（Add-in）/可视化数据管理器(Visua

4、lDataManager)/文件(File)/打开数据库(OpenDatabase)/ODBC”。（2）输入以下信息：DSN：pubs；UID：sa；Password：******；数据库：pubs。单击【确定】按钮，可观察到所连接的pubs数据库中有关的表。发送一条SQL语句，即可验证VB与SQLServer数据库pubs已连通。2．使用ADOData控件访问数据库。这是使用ADO快速创建数据绑定控件和数据提供者之间的连接。其中数据绑定控件可以是任何具有DataSource属性的控件；数据提供者可以是任何符合OLED

5、B规范的数据源。ADOData控件是ActiveX控件，在使用前必须先将其添加到工具箱中。方法是：（1）单击“工程”—“部件”菜单选项，选中“MicrosoftADODataControl6.0（OLEDB）”后，按“确定”，此时ADO数据控件便出现在工具箱中。（2）将ADOData控件添加到窗体上，其默认的名称属性为“Adodc1”。（3）右击ADOData控件，选“ADODC属性”，弹出“属性页”对话框。（4）选中“使用连接字符串”（也可以选择“ODBC数据源名称”），再单击“生成”按钮，弹出“数据链接属性”对话框

6、。（5）选择“提供程序”选项卡，在列表中选择“MicrosoftOLEDBProviderForSQLSERVER”选项，单击“下一步”按钮。（6）指定服务器的名称和登录信息并选择本连接要使用的数据库文件。（7）单击“测试连接”按钮以确定连接是否正常。若得到测试成功的消息，单击“确定”按钮以继续。（8）在“属性页”对话框中选择“记录源”选项卡，在命令类型下拉列表中选择“2-adCmdTable”选项，在表或存储过程名称下拉列表中选择数据表“authors”。（若选择的命令类型为“1-adCmdText”，则可在命令文本

7、框中输入SQL查询语句select*fromauthors），然后单击“确定”按钮。（9）在窗体上再添加一个数据绑定控件DataGridl，设定其DataSource为Adodc1。运行结果：通过上述操作便实现了SQLServer数据库aa中authors表的浏览功能，得到预期的运行结果。远程连接格式：ConnectionString="driver={SQLServer};server=211.85.184.107;uid=sa;pwd=;ConnectionTimeout=0;database=aa"3.VB与SQ

8、LServer连接方法三（使用代码实现）使用此种方法一定要在工程的引用项中配置一个驱动，（MicrosoftActiveXDataObjects2.6Library）确定。再在一些控件的代码中添加以下代码：DimcnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetPrivateSubCo