[VB.NET]连接数据库(一)

前端之家收集整理的这篇文章主要介绍了[VB.NET]连接数据库(一)前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
连接数据库(一)

实例说明

下面,我们将利用VB.NET自行创建一个连接数据库的应用程序,其运行结果如图59-1所示。

图59-1 运行结果

技术要点

l 介绍ADO.NET

l sqlConnection和sqlCommand

实现过程

■ 新建项目

打开Visual Studio .NET7.0,选择"新建项目",在项目类型窗口中,选择"Visual Basic项目",在模板窗口中,选择"ASP.NET Web应用程序",在名称域中输入"adooverview3",然后选择保存路径。单击确认。

添加代码

Imports System

Imports System.Data

Imports System.Data.sqlClient

namespace HowTo.Samples.ADONET

public class adooverview3

public shared sub Main()

Dim myadooverview3 as adooverview3

myadooverview3 = new adooverview3()

myadooverview3.Run()

end sub

public sub Run()

Dim myReader as sqlDataReader

Dim MysqLConnection as sqlConnection

Dim MysqLCommand as sqlCommand

'设置数据库的连接

MysqLConnection = new sqlConnection("server=(local)/NetSDK;uid=QSUser;

pwd=QSPassword;database=northwind")

MysqLCommand = new sqlCommand("select * from customers",MysqLConnection)

try

'输出字段名称

MysqLConnection.Open()

myReader = MysqLCommand.ExecuteReader()

Console.Write("Customer ID ")

Console.WriteLine("Company Name")

'输出纪录

do while (myReader.Read())

Console.Write(myReader("CustomerID").ToString() + " ")

Console.WriteLine(myReader("CompanyName").ToString())

loop

catch e as Exception

Console.WriteLine(e.ToString())

finally

if Not (myReader is Nothing)

myReader.Close()

end if

if (MysqLConnection.State = ConnectionState.Open)

MysqLConnection.Close()

end if

end try

end sub

end class

end namespace

■ 运行程序

打开"开始|程序|Microsoft Visual Studio.NET7.0|Visual Studio.NET Tools|Visual Studio.NET Command Prompt",运行之后输入vbc adooverview3.vb。即可生成可执行文件

小结

ADO.NET是ADO数据控制模型的升级版本,它是为了适应Web不断增长的规模而设计的。ADO.NET仍然使用以前的ADO对象,像Connetion和Command对象,同时还增加了一些新的ADO.NET对象,如DataSet、DataReader和DataAdapter等。

ADO.NET和以前ADO数据结构最大的不同就在于--DataSet对象,他跟以前任何的数据存储都不同。正因为如此,DataSet函数作为一个独立的实体而存在。在DataSet内部,包括像表、关系、限制、视图等等跟一个数据库一样。

猜你在找的VB相关文章