VB与SQL+Server连接
- 格式:doc
- 大小:376.00 KB
- 文档页数:8
vbnet备份当前打开sqlserver2008数据库语句在中备份当前打开的SQL Server 2008数据库可以使用以下代码:```vbnetImports System.Data.SqlClientPublic Class Form1Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickDim connectionString As String = "DataSource=ServerName;Initial Catalog=DatabaseName;Integrated Security=True" ' 连接字符串,根据实际情况修改ServerName和DatabaseName。
Dim backupPath As String = "C:\backup\database.bak" ' 备份文件路径,根据实际情况修改Dim connection As SqlConnection = NewSqlConnection(connectionString)Tryconnection.Open。
MessageBo某.Show("数据库备份成功!")Catch e某 As E某ceptionMessageBo某.Show("数据库备份失败:" & e某.Message)FinallyIf connection.State = ConnectionState.Open Thenconnection.Close。
End IfEnd TryEnd SubEnd Class```以上代码中,`ServerName`和`DatabaseName`需要根据实际情况修改为要备份的SQL Server实例和数据库名称。
sql server连接数据库的步骤连接SQL Server数据库主要有以下步骤:1.安装SQL Server数据库:首先需要安装SQL Server数据库软件。
可以从Microsoft官网下载SQL Server安装包,然后进行安装。
安装过程中需要选择数据库引擎组件以及相应的实例名称。
2.配置SQL Server:安装完成后,需要对SQL Server进行一些基本的配置。
包括设置服务器身份验证模式(Windows身份验证或SQL Server身份验证)、设置端口号以及配置防火墙等。
3.启动SQL Server服务:在安装完成并配置好之后,需要确保SQL Server服务已经启动。
可以通过Windows服务管理器查看并启动SQL Server服务。
4.确定数据库服务器的名称:在连接SQL Server之前,需要明确数据库服务器的名称,即实例名称。
在安装SQL Server时可以指定实例名称,如果没有指定则默认为默认实例(MSSQLSERVER)。
5.确定认证方式:连接SQL Server时可以使用Windows身份验证或SQL Server身份验证。
Windows身份验证是使用操作系统的登录凭据进行连接,SQL Server身份验证是使用用户名和密码进行连接。
6.使用SQL Server Management Studio(SSMS)连接数据库:SSMS是用于管理和操作SQL Server数据库的工具。
打开SSMS后,在连接对话框中选择服务器类型为“数据库引擎”,然后输入数据库服务器的名称和认证方式。
7.连接到数据库服务器:在SSMS中输入数据库服务器的名称和认证方式后,点击“连接”按钮进行连接。
如果连接成功,则可以开始操作数据库。
8.创建数据库:连接到数据库服务器后,可以通过SSMS创建数据库。
在SSMS的对象资源管理器中右键点击“数据库”,然后选择“新建数据库”,输入数据库名称、文件路径等信息,点击“确定”即可创建数据库。
64bit环境下解决PowerBuilder9连不上sql server 2008的问题最近把电脑的内存升级到4G,为了更好的利用内存,决定安装WIN 7 64 bit的操作系统,同时安装了64 bit的Microsoft SQL Server 2008 R2。
安装PowerBuilder 9.0后在自带的Database中配置MSS Microsoft SQL Server,总连接不上本机的SQL Server 2008,换个服务器上也是安装的64 bit的SQL Server 2008,测试连接时,弹出的是如下提示。
但是连接32 bit 的SQL Server 2005,可以连接成功。
怎么解决该问题?第一步,需要把PB的一个公共文件ntwdblib.dll放在系统盘中。
经测试放在system32下,连接不上。
第二步,需要放置在正确的目录中。
这个文件在32位和64位下放置的目录是不一样的,32位系统为:C:\WINNT\System32 而64位系统为C:\Windows\SysWOW64。
第三步,需要放置与连接的服务器版本一致的文件版本。
把文件放在SysWOW64下,发现目录中已有该文件,查看对应的文件版本是1998.11.13.0。
根据网上查询的资料了解,ntwdblib.dll有几个不同版本,只有版本正确才能连上对应的sql server。
下面是对应关系:ntwdblib.dll版本为2000.2.8.0是对应SqlServer2000ntwdblib.dll版本为2000.80.194.0是对应SqlServer2005ntwdblib.dll版本为2000.80.2039是对应SqlServer2008因此本机自带的这个文件的版本太老了。
下载对应Sql Server 2008的版本,重新在Database中连接SQL Server 2008的数据库,测试通过。
SQL Server连接失败错误及解决办法在使用SQL Server 的过程中,用户遇到的最多的问题莫过于连接失败了。
一般而言,有以下两种连接SQL Server 的方式,一是利用SQL Server 自带的客户端工具,如企业管理器、查询分析器、事务探查器等;二是利用用户自己开发的客户端程序,如ASP 脚本、VB程序等,客户端程序中又是利用ODBC 或者OLE DB 等连接SQL Server。
下面,我们将就这两种连接方式,具体谈谈如何来解决连接失败的问题。
一、客户端工具连接失败在使用SQL Server 自带的客户端工具(以企业管理器为例)连接SQL Server时,最常见的错误有如下一些:1、SQL Server 不存在或访问被拒绝ConnectionOpen (Connect())图12、用户'sa'登录失败。
原因:未与信任SQL Server 连接相关联图23、超时已过期图3下面我们依次介绍如何来解决这三个最常见的连接错误。
第一个错误"SQL Server 不存在或访问被拒绝"通常是最复杂的,错误发生的原因比较多,需要检查的方面也比较多。
一般说来,有以下几种可能性: 1、SQL Server名称或IP地址拼写有误,若数据库是安装在本机上的话,可在服务器地址栏上输入(一点)“ . ”来替代当前SQL Server名称或IP地址; 2、服务器端网络配置有误; 3、客户端网络配置有误。
要解决这个问题,我们一般要遵循以下的步骤来一步步找出导致错误的原因。
首先,检查网络物理连接: ping <服务器IP地址> 或者 ping <服务器名称> 如果ping <服务器IP地址>失败,说明物理连接有问题,这时候要检查硬件设备,如网卡、HUB、路由器等。
还有一种可能是由于客户端和服务器之间安装有防火墙软件造成的,比如ISA Server。
防火墙软件可能会屏蔽对ping、telnet 等的响应,因此在检查连接问题的时候,我们要先把防火墙软件暂时关闭,或者打开所有被封闭的端口(SQL 默认的端口是1433)。
小结SQL Server连接失败错误及解决在使用SQL Server 的过程中,用户遇到的最多的问题莫过于连接失败了。
一般而言,有以下两种连接SQL Server 的方式,一是利用SQL Server 自带的客户端工具,如企业管理器、查询分析器、事务探查器等;二是利用用户自己开发的客户端程序,如ASP 脚本、VB程序等,客户端程序中又是利用ODBC 或者OLE DB 等连接SQL Server。
一、客户端工具连接失败在使用SQL Server 自带的客户端工具(以企业管理器为例)连接SQL Server时,1、SQL Server 不存在或访问被拒绝ConnectionOpen (Connect())2、用户'sa'登录失败。
原因:未与信任SQL Server 连接相关联。
3、超时已过期。
下面我们依次介绍如何来解决这三个最常见的连接错误。
第一个错误"SQL Server 不存在或访问被拒绝"通常是最复杂的,错误发生的原因比较多,需要检查的方面也比较多。
一般说来,有以下几种可能性:1、SQL Server名称或IP地址拼写有误;2、服务器端网络配置有误;3、客户端网络配置有误。
要解决这个问题,我们一般要遵循以下的步骤来一步步找出导致错误的原因。
首先,检查网络物理连接:ping <服务器IP地址>或者ping <服务器名称>如果ping <服务器IP地址>失败,说明物理连接有问题,这时候要检查硬件设备,如网卡、HUB、路由器等。
还有一种可能是由于客户端和服务器之间安装有防火墙软件造成的,比如ISA Server。
防火墙软件可能会屏蔽对ping、telnet 等的响应,因此在检查连接问题的时候,我们要先把防火墙软件暂时关闭,或者打开所有被封闭的端口。
如果ping <服务器IP地址>成功而ping <服务器名称>失败,则说明名字解析有问题,这时候要检查DNS 服务是否正常。
Vb6.0连接数据库方式Vb6.0连数据库1.1 ADO(ActiveX Data Object)连接方式在连接数据库前,首先要在Visual Basic 6.0菜单中“工程”—>“引用”中选择Microsoft ActiveX Data Objects 2.6 Library 和Microsoft ActiveX Data Objects Recordset 2.6 Library 这两个组件。
实例:以建立登陆系统为例,介绍无源数据库连接。
在Microsoft SQL Server 2000 中建立一个Student 的数据库,在Student数据库中建立login_user(name,password)的数据表,Microsoft SQL Server 服务器的名为data_server。
代码如下:Option ExplicitPublic LoginSucceeded As Boolean'引用Microsoft ActiveX Data Objects 2.6 Library'定义连接对象和记录集Dim conn As ADODB.ConnectionDim rs As ADODB.Recordset'对取消按钮单击事件的响应Private Sub cmdCancel_Click()'设置全局变量为false'不提示失败的登录LoginSucceeded = FalseMe.HideEnd Sub'对登录按钮单击事件的响应Private Sub cmdOK_Click()Set conn = New ADODB.ConnectionSet rs = New ADODB.Recordset'建立无源数据库连接conn.ConnectionString="driver={sqlserver};server=data_server;uid=sa;pwd=;Database=student "conn.ConnectionTimeout = 50conn.OpenDim str As String'连接连接对象Set rs.ActiveConnection = conn'设置游标类型rs.CursorType = adOpenDynamicIf Trim(txtUserName.Text = "") ThenMsgBox "用户名不能为空,请重新输入用户名!", vbOKOnly + vbExclamation, "警告"txtUserName.SetFocusElse'设置查询字符串str = "select * from login_user where name ='" & Trim(txtUserName.Text) & "'" rs.Open strIf rs.EOF = True ThenMsgBox "没有这个用户,请重新输入用户名!", vbOKOnly + vbExclamation, "警告"txtUserName.SetFocusElse'登录成功,连接主窗口If (Trim(txtPassword.Text) = Trim(rs.Fields("password"))) Then LoginSucceeded = TrueMe.Hidemain.ShowElseMsgBox "密码不正确,请重输入密码!", , "警告"txtPassword.SetFocusSendKeys "{Home}+{End}"End IfEnd IfEnd IfEnd Sub2 通过配置ODBC环境,进行数据源的注册,对数据库进行连接、访问和操作。
sqlserver连接数据库的方法SQLServer是一种关系型数据库管理系统,用于存储和管理数据。
下面介绍几种连接SQL Server数据库的方法:1. 使用SQL Server Management Studio连接SQL Server Management Studio是SQL Server的官方管理工具,可以通过它直接连接数据库。
打开Management Studio后,输入数据库服务器的名称,选择Windows身份验证或SQL Server身份验证,输入相应的账号和密码,即可连接到数据库。
2. 使用.Net Framework提供的类库连接.Net Framework提供了一些类库用于连接SQL Server数据库,如SqlConnection、SqlCommand等。
使用这些类库可以通过代码来连接数据库,例如:SqlConnection conn = new SqlConnection('Data Source=服务器名称;Initial Catalog=数据库名称;User ID=用户名;Password=密码');conn.Open();3. 使用ODBC连接ODBC是一种开放式数据库连接标准,可以用于连接各种类型的数据库。
使用ODBC连接SQL Server数据库需要先在系统中配置一个ODBC数据源。
在代码中使用ODBC连接数据库,例如:OdbcConnection conn = new OdbcConnection('DSN=ODBC数据源名称;UID=用户名;PWD=密码');conn.Open();以上就是几种连接SQL Server数据库的方法,可以根据具体需求选择适合的方法。
连接sql2008方法
连接到 SQL Server 2008 有多种方法,以下是其中一些常见的方法:
1. 使用 SQL Server Management Studio (SSMS),您可以安装并打开 SQL Server Management Studio,然后在连接对话框中输入服务器名称和身份验证信息,以便连接到 SQL Server 2008 实例。
2. 使用SQLCMD实用程序,您可以使用命令行工具SQLCMD来连接到 SQL Server 2008 实例。
在命令提示符下输入适当的连接字符串和身份验证信息以连接到数据库。
3. 使用.NET框架中的SqlConnection类,如果您使用C#或等.NET语言编写应用程序,您可以使用SqlConnection类来建立与 SQL Server 2008 的连接。
4. 使用ODBC或OLEDB数据源,您可以配置ODBC或OLEDB数据源,然后使用它们来连接到 SQL Server 2008。
这些是连接到 SQL Server 2008 的一些常见方法,您可以根据您的需求和环境选择适合您的方法。
希望这些信息能够帮助到您。
Vb6.0连接sql数据库的模块以及使用实例打开VB6.0,新建工程SQL_data,新建一个EXE,并添加一个模块。
如图一:添加引用和部件(如下两图)蓝色的两个,是要选中打勾的。
注意,一个是“引用”,一个是“部件”。
二:添加一个模块Data_Sql,并把图下面的复制粘贴到模块中。
'连接SQL的模块Public conn As ADODB.ConnectionPublic rs As ADODB.RecordsetPublic addFlag As Boolean '声明部分Public Function OpenCn(ByVal Cip As String, ByVal users As String, ByVal pw As String) As Boolean '连接模块填写数据库等信息Dim mag As StringOn Error GoTo strerrmagSet conn = New ADODB.Connectionconn.ConnectionTimeout = 25conn.Provider = "sqloledb"conn.Properties("data source").Value = Cip '服务器的名字conn.Properties("initial catalog").Value = "pubs" '库名'conn.Properties("integrated security").Value = "SSPI" '登陆类型conn.Properties("user id").Value = users 'SQL库名conn.Properties("password").Value = pw '密码'sql = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=;Initial Catalog=pubs;Data Source=127.0.0.1" '如果不用这个模块也行可以,这一句便是常用的引擎。
SQL Server数据库连接失败错误及解决方法在使用SQL Server 的过程中,用户遇到的最多的问题莫过于连接失败了。
一般而言,有以下两种连接SQL Server 的方式,一是利用SQL Server 自带的客户端工具,如企业管理器、查询分析器、事务探查器等;二是利用用户自己开发的客户端程序,如ASP 脚本、VB程序等,客户端程序中又是利用ODBC 或者OLE DB 等连接SQL Server。
下面,我们将就这两种连接方式,具体谈谈如何来解决连接失败的问题。
一、客户端工具连接失败在使用SQL Server 自带的客户端工具(以企业管理器为例)连接SQL Server时,最常见的错误有如下一些:1、SQL Server 不存在或访问被拒绝ConnectionOpen (Connect())2、用户'sa'登录失败。
原因:未与信任SQL Server 连接相关联。
3、超时已过期。
下面我们依次介绍如何来解决这三个最常见的连接错误。
第一个错误"SQL Server 不存在或访问被拒绝"通常是最复杂的,错误发生的原因比较多,需要检查的方面也比较多。
一般说来,有以下几种可能性:1、SQL Server名称或IP地址拼写有误;2、服务器端网络配置有误;3、客户端网络配置有误。
要解决这个问题,我们一般要遵循以下的步骤来一步步找出导致错误的原因。
首先,检查网络物理连接:ping <服务器IP地址>或者ping <服务器名称>如果ping <服务器IP地址> 失败,说明物理连接有问题,这时候要检查硬件设备,如网卡、HUB、路由器等。
还有一种可能是由于客户端和服务器之间安装有防火墙软件造成的,比如ISA Server。
防火墙软件可能会屏蔽对ping、telnet 等的响应,因此在检查连接问题的时候,我们要先把防火墙软件暂时关闭,或者打开所有被封闭的端口。
ADO技术在VB访问SQL数据库中的应用作者:柏建普杜娟来源:《电脑知识与技术》2013年第29期摘要:随着数据库开发技术的广泛应用,利用Visual Basic进行C/S应用程序开发是目前较为典型的做法。
该文通过一个仓库信息管理系统的设计和开发,详细介绍了在VB环境下,利用ADO接口技术实现与SQL Server 2005数据库连接及访问的过程。
关键词:VB;数据库访问;ADO技术中图分类号:TP311 文献标识码:A 文章编号:1009-3044(2013)29-6481-05在数据库应用系统的开发中,数据库访问技术是一个重要的组成部分,它是连接前端应用程序和后台数据库的关键环节。
和VC、Delphi等高级语言相比, VB具有不可取代的简单易用性和真正的“所见即所得”的特性。
VB不但为用户提供了较为完善的文件访问和处理功能,同时具备了强大的数据库管理功能,利用数据库技术处理大型的管理信息系统(MIS)远比通过文件处理的效率高[2]。
1 Visual Basic 数据库访问技术使用VB6.0可以创建将每个步骤封装在数据访问系统中的部件。
从数据源开始,Microsoft 可视化数据工具提供了在SQL和Oracle系统中查看并操作表、视图、存储过程和数据库结构描述的功能[1]。
数据源是数据提供程序和数据使用者之间的桥梁,可以通过ADO(Microsoft ActiveX Data Objects)创建数据源。
ADO是VB在任何数据源中访问数据的主要方法。
开发基于VB的数据库应用,可以通过数据访问对象DAO (Data Access Object)、远程数据对象RDO(Remote Data Object)和ActiveX数据对象ADO(ActiveX Data Objects)等三种数据访问接口。
数据访问接口是一个对象模型,它代表了访问数据的各个方面。
使用VB,可以在任何应用程序中通过编程控制连接、语句生成器和供使用的返回数据[1]。
如何在VB中连接数据库
一、连接方式
1、ODBC数据库连接
打开新工程,在菜单栏上选择“工具”-“Data Links”,可以看到“数据链接”对话框,点击“新建”按钮,此时可以看到“ODBC
Microsoft登录”对话框,点击“帐户”按钮,此时可以看到“ODBC Microsoft登录”对话框,在“服务器”框中填入数据库服务器的IP地址,在“用户名”和“口令”框中填入账号和密码,点击“测试”按钮,
确认能够通过测试,然后点击“完成”按钮,可以得到正确的数据库连接。
2、ADO连接
在工程中添加引用,选择Microsoft ActiveX Data Object 2.8 Library(或者是更高版本),在程序中添加如下代码:
Private Sub Form_Loa
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
End Sub
其中,Data Source指定数据库的IP地址,Initial Catalog指定数
据库名,User ID指定数据库用户名,Password指定数据库口令。
3、DAO连接
打开新工程,在菜单栏上选择“工具”-“Data Links”,可以看到“数据链接”对话框,点击“新建”按钮,此时可以看到“DAO
Microsoft登录”对话框,在“服务器”框中填入数据库服务器的IP地址,在“用户名”和“口令”框中填入账号和密码,点击“测试”按钮,
确认能够通过测试,然后点击“完成”按钮,可以得到正确的数据库连接。
vb odbc语法在VB中,ODBC(开放式数据库连结,Open Database Connectivity)被用于访问各种数据库,如SQL Server、MySQL、Oracle等。
ODBC提供了一种标准的接口,使得程序可以无需考虑具体的数据库类型而进行数据库操作。
本文将介绍VB中使用ODBC语法进行数据库操作的方法。
1. 连接数据库在VB中使用ODBC连接数据库,需要使用`ADODB.Connection`对象。
首先,需要引入`ADODB`的引用。
在VB的代码编辑器中,点击"项目"->"引用",然后勾选"Microsoft ActiveX Data Objects x.x Library"。
接下来,在代码中声明一个`ADODB.Connection`对象,并设置连接字符串和提供程序。
```vbDim conn As New ADODB.Connectionconn.ConnectionString = "DRIVER={SQL Server Native Client 11.0};SERVER=127.0.0.1; DATABASE=MyDatabase; UID=sa; PWD=123456;"conn.Provider = "MSDASQL"conn.Open```上述代码中,连接字符串设置了数据库的驱动程序、服务器地址、数据库名称、用户名和密码。
这里以SQL Server为例,驱动程序为"SQL Server Native Client11.0",服务器地址为"127.0.0.1",数据库名称为"MyDatabase",用户名为"sa",密码为"123456"。
2. 查询数据连接数据库后,可以使用`ADODB.Recordset`对象进行查询操作。
VB学生成绩管理系统1.VB操作数据库简介本章节主要介绍VB中操作数据库的一般方法,有ADO Data控件的连接、ADODB 对象的使用,当然在可视化的开发系统中用控件是的方法是比较简单的,但不是很灵活,相比较ADODB对象的方法比较灵活,但使用相对麻烦;这里读者会问,那这两个又是怎么去访问到数据库的呢?其实他们是通过一些接口去访问不同数据库的,而这些接口会屏蔽掉数据库访问协议和各个数据库之间的差别,这里最常用的有两种接口,一种就是ODBC、还有一种是OLE DB,下面我们介绍他们的结构:(a) 数据库访问接口:(1) ODBC:ODBC其实是开放式数据库互连(Open Database Connectivity),是微软公司推出的一种实现应用程序和关系数据库之间通讯的方法标准,是一个接口标准。
所以它实际上是一种标准,符合标准的数据库就可以通过SQL语言编写的命令对数据库进行操作,但只能针对关系数据库进行操作(如SQL Server,Oracle,Access,Excel等),目前所有的关系数据库都符合该标准。
ODBC本质上是一组数据库访问API(应用程序编程接口),由一组函数调用组成,核心是SQL语句,他的结构图如下图1:图1.1在具体操作时,首先必须用ODBC管理器注册一个数据源,管理器根据数据源提供的数据库位置、数据库类型及ODBC驱动程序等信息,建立起ODBC与具体数据库的联系。
这样,只要应用程序将数据源名提供给ODBC,ODBC就能建立起与相应数据库的连接。
(2) OLE DB:OLE DB:数据库链接和嵌入对象(Object Linking and EmbeddingDataBase)。
OLE DB是微软提出的基于COM思想且面向对象的一种技术标准,目的是提供一种统一的数据访问接口访问各种数据源,这里所说的"数据"除了标准的关系型数据库中的数据之外,还包括邮件数据、Web上的文本或图形、目录服务(Directory Services)、以及主机系统中的文件和地理数据以及自定义业务对象等。
VB与SQL Server连接
随着大家课程设计的临近,大家都在为课程设计在找资料。网上的、书上的等一些资料
很全面都不符合我们的实际,我本人特整理出VB与SQL Server连接的几种方法,供大家学
习参考,也希望大家能够互相帮助,共同完美地完成这次的课程设计。
一、 VB与SQL Server连接方法一:使用Adodc控件
在vb的工程中选择部件,可添加Adodc部件如下图所示:
添加Microsoft ADO Data Control 6.0 控件。
设置adodc控件的属性(在vb中画一个adodc控件,并右击,弹出右键菜单,选择adodc
属性):
单击生成按钮,弹出数据链接属性,选择Microsoft OLE DB Provider for SQL Server
下一步,选择本机的服务器(一定要和SQL服务器的名称一致),根据自己的登陆设置选择
输入登录服务器的信息,选择自己需要使用的数据库(在本例中我选择创建的student数据
库),可以测试连接。
在回到adodc属性页,更改记录源,在命令类型中选择2,在表或存储过程名称中选择你需
要使用的表或存储过程。
在添加一些需要的控件,设置控件的属性,本例中一设置text1属性为例。
单击text1,在vb的属性框中出现text1属性,设置DataSoure属性为一配置好的adodc1控
件,在DataFileld属性中选择需要使用的表中的字段(这里我选择学生基本信息表中的学号字
段。)可以运行了,界面如下:
大家可以通过上面的方法连接数据库,并可以通过vb的学习编写代码实现更强大的功能。
二、VB与SQL Server连接方法二(使用DSN方法)
我们需要首先做的事就是配置自己的DSN,如何配置,请看我一一到来:
在控制面板里管理工具,选择里面的数据源 (ODBC),弹出ODBC数据源管理器,选择添加,
选择驱动程序(SQL Server)
点完成,弹出创建到SQL Server的新数据源,
在名称中选择自己喜欢的都可以哦,在服务器中粘贴你服务器的名称(一定要使用粘贴,不
可通过下拉框选择,实际上,你通过下拉框也不能选择。)
点下一步
点下一步了(这步就不用我说了吧)
更改默认的数据库,选择自己创建的需要的数据库名称(本例中我选择student数据库)
点下一步
点完成,弹出
可以测试数据源,
点确定,再三次点确定。DSN即配置完毕,那就看我们怎么使用了。
打开vb。像上面介绍的添加adodc控件,并设置adodc控件的属性:
选择使用ODBC数据资源名称。通过下拉框选择刚创建的DSN(stu)
点击应用,然后选择积累源,
确定。后面跟第一种方法都一样了。(不会这写步骤的再和我联系)
二、 VB与SQL Server连接方法三(使用代码实现)
使用此种方法一定要在工程的引用项中配置一个驱动,(Microsoft ActiveX Data Objects
2.6 Library)确定。
再在一些控件的代码中添加以下代码:
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
cn.ConnectionString = "DRIVER=SQL Server;SERVER=B1B0D3A0BF844A5\MZ;UID=" & "" &
";PWD=" & "" & ";DATABASE=student"
cn.Open
rs.Open "select *from 学生基本信息表", cn, adOpenKeyset, adLockOptimistic
If rs.RecordCount > 0 Then
rs.MoveFirst
End If
For i = 0 To rs.RecordCount - 1
Print rs.Fields(0), rs.Fields(1), rs.Fields(2), rs.Fields(3), rs.Fields(4), rs.Fields(5)
rs.MoveNext
Next
End Sub
Provider=MSDASQL.1;Persist Security Info=False;Data Source=HotelMIS