vb.net访问sql server数据库（SqlDataReader和DataSet两种方式）

Posted 2020-06-13

.net访问数据库的三个基本步骤：

　　一.连接数据库：

　　　　要使用sqlclient命名空间中的sqlconnection类；

　　　　定义一个sqlconnection对象： Dim sqlCon As New SqlConnection   

　　　　要进行的设置有:

　　　　1.sqlCon .ConnectionString="server=服务器ip;database=数据库名称;integrated security=ture/false(是否有登录账号密码);uid=用户名

　　　　(默认:sa);pwd:登录密码"　　　　　　‘设置连接属性

　　　　2.sqlCon .open　　　　　　　 ‘打开数据库

 

　　二.编辑操作命令：

　　　　要使用sqlclient命名空间中的sqlcommand类；

　　　　定义一个sqlcommand对象： Dim sqlCM As New SqlCommand

　　　　要进行的设置有:

　　　　1.sqlCM .CommandType = CommandType.Text 　　　　  ‘指明字符串命令属于什么类型（存储过程名、表明、sql语句）

　　　　2.sqlCM .CommandText = "select * from table‘" 　　　　 ‘查询语句

 

　　三.读取数据（数据读取有两种操作方式：DataSet和DataReader）

　　　　方法一.DataSet（把数据读出，缓存在内存的表中，可以用dataset填充一张datatable，再将表与datagridview绑定，即可方便观察数据，要与SqlDataAdapter

　　　　　　　 对象合作）

　　　　　　　步骤：

　　　　　　　   Dim MyDataSet As New DataSet 　　　　　　‘定义一个dataset对象

　　　　　　　　Dim sqlAd As New SqlDataAdapter 　　　　　‘定义一个sqldataadapter对象

　　　　　　　　设置sqldataadapter属性：

　　　　　　　　sqlAd.SelectCommand = sqlCM　　　　　　　　 ‘适配器命令属性配置

　　　　　　　　sqlAd.SelectCommand.Connection = sqlCnn 　　‘适配器连接属性配置

　　　　　　　　sqlAd.Fill(MyDataSet, "stu") 　　　　　　　　　　 ‘按照表stu的格式将数据填充到MyDataSet中

　　　　　　　　至此，数据库中返回的数据已经在表MyDataSet中了，为了方便观察，添加一个DataGridView空间，并与表MyDataSet绑定，用来显示数据，

　　　　　　　　步骤如下：　　　　　

　　　　　　　　　　DataGridView1.DataMember = "table1"　　　　               　　‘控件名

　　　　　　　　　　DataGridView1.DataSource = MyDataSet.Table(0)　　　　　　‘数据源绑定

　　　　　　　　现在，空间DataGridView1上已经将数据库查询结果(表格)显示出来了。

　　　　　　　　注：　　　关于SqlDataAdapter和DataSet 的关系，新手（本人）可能有点蒙，提供几个参考：　　　

　　　　　　　　　　　　　http://zhidao.baidu.com/question/165308688.html

　　　　　　　　　　　　　http://www.cnblogs.com/caijun520/archive/2013/06/02/3114425.html

　　　　　　　　　　　　　http://www.cnblogs.com/eagle1986/archive/2010/01/24/1655327.html

 

　　　　方法二.sqlDataReader（每次读取一行结果，并且读取时连接不能断开，速度快，适用于只读不操作）

　　　　　　    先说下思路：由于sqlDataReader对象每次只能读一行数据，我们要显示所有数据，可以先将每行数据逐次添加到一张表中(通过一个元素个数与表

　　　　　　　　　　　　　 的列数相同的数组)，再将该表与DataGridView 控件绑定即可。

 　　　　　　　步骤：　　

　　　　　　　　　　Dim myread As SqlClient.SqlDataReader = Nothing　　‘定义一个SqlDataReader 对象并赋初值Nothing(否则会警告)

　　　　　　　　　　Dim mytable As New DataTable()　　　　　　　　　　　 ’定义一张表，用来存查询到的结果

　　　　　　　　　　Dim mystr(3) As String　　　　　　　　　　　　　　　 　‘定义中间数组，我这里表格为4列　　　　　　

　　　　　　　　　　‘添加列
　　　　　　　　　　Dim sno As DataColumn = New DataColumn("sno")
　　　　　　　　　　Dim sname As DataColumn = New DataColumn("sname")
　　　　　　　　　　Dim ssex As DataColumn = New DataColumn("ssex")
　　　　　　　　　　Dim sphone As DataColumn = New DataColumn("sphone")
　　　　　　　　　　‘将列添加到表格中
　　　　　　　　　　mytable.Columns.Add(sno)
　　　　　　　　　　mytable.Columns.Add(sname)
　　　　　　　　　　mytable.Columns.Add(ssex)
　　　　　　　　　　mytable.Columns.Add(sphone)　　　　　　　　　　

　　　　　　　　　　myread = mycommand.ExecuteReader　　　　　　‘执行读取动作　

　　　　　　　　  　While (myread.Read) 　　　　　　　　　　　　　　‘不为空则一直读

　　　　　　　　　　　　myread.GetValues(mystr)　　　　　　　     　‘执行读取动作,将一行数据存入mystr数组中
　　　　　　　　　　　　mytable.Rows.Add(mystr)　　　　　　　　　　‘将数组数据作为一行添加到表中
　　　　　　　　　　End While

 

　　　　　　　　　　‘将表格与现实控件绑定
　　　　　　　　　　DataGridView1.DataSource = mytable

　　　　　　　　　　现在，控件DataGridView1上已经将数据库查询结果(表格)显示出来了。

　　　　　　　　　　注：SqlDataReader参考：

　　　　　　　　　　　　　　　　http://www.cnblogs.com/caijun520/archive/2013/06/02/3114422.html

　　　　　　　　　　　　　　　　http://blog.163.com/[email protected]/blog/static/418935632013214370722/

　　　　　　　　　　下面分别贴出两种方式的完整代码（你得先拥有两个按钮和一个DataGridView控件）：

 

 1 Imports System.Data.Sql
 2 Imports System.Data.SqlClient
 3 
 4 
 5 Public Class Form1
 6 
 7 
 8 
 9     ‘DataReader
10     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
11 
12         Dim myconnect As New SqlClient.SqlConnection
13         Dim mycommand As New SqlClient.SqlCommand
14         Dim myread As SqlClient.SqlDataReader = Nothing
15         Dim mytable As New DataTable()
16         Dim mystr(3) As String
17 
18         ‘连接属性
19         myconnect.ConnectionString = "server=192.168.0.100;database=temp;integrated security=true;uid=sa;pwd=   "
20         myconnect.Open()        ‘打开数据库
21 
22         ‘设置命令属性
23         mycommand.Connection = myconnect
24         mycommand.CommandType = CommandType.Text
25         mycommand.CommandText = "select * from stu"
26 
27         ‘添加列
28         Dim sno As DataColumn = New DataColumn("sno")
29         Dim sname As DataColumn = New DataColumn("sname")
30         Dim ssex As DataColumn = New DataColumn("ssex")
31         Dim sphone As DataColumn = New DataColumn("sphone")
32         ‘将列添加到表格中
33         mytable.Columns.Add(sno)
34         mytable.Columns.Add(sname)
35         mytable.Columns.Add(ssex)
36         mytable.Columns.Add(sphone)
37 
38         myread = mycommand.ExecuteReader    ‘执行读取动作
39 
40         While (myread.Read)                 ‘不为空则一直读
41 
42             myread.GetValues(mystr)         ‘执行读取动作,将一行数据存入mystr数组中
43             mytable.Rows.Add(mystr)         ‘将数组数据作为一行添加到表中
44         End While
45 
46         ‘将表格与现实控件绑定
47         DataGridView1.DataMember = "mytable"
48         DataGridView1.DataSource = mytable
49 
50         myread.Close()      ‘关闭读
51         myconnect.Close()   ‘关闭连接
52 
53     End Sub
54 
55 
56 
57     ‘DataSet
58     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
59 
60         Dim myconnect As New SqlClient.SqlConnection
61         Dim mycommand As New SqlClient.SqlCommand
62         Dim myadp As New SqlClient.SqlDataAdapter
63         Dim mydataset As New DataSet
64 
65         myconnect.ConnectionString = "server=192.168.0.100;database=temp;integrated security=true;uid=sa;pwd=   "
66         myconnect.Open()
67 
68         mycommand.Connection = myconnect
69         mycommand.CommandType = CommandType.Text
70         mycommand.CommandText = "select * from stu"
71 
72         myadp.SelectCommand = mycommand
73         myadp.Fill(mydataset)
74 
75         DataGridView1.DataSource = mydataset.Tables(0)
76 
77         myconnect.Close()
78 
79     End Sub
80 End Class