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

连接数据库(一)

实例说明

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

图59-1 运行结果

技术要点

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

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内部，包括像表、关系、限制、视图等等跟一个数据库一样。