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

.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/wzhxxt@126/blog/static/418935632013214370722/

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

 

Imports System.Data.Sql
Imports System.Data.SqlClient


Public Class Form1



    'DataReader
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim myconnect As New SqlClient.SqlConnection
        Dim mycommand As New SqlClient.SqlCommand
        Dim myread As SqlClient.SqlDataReader = Nothing
        Dim mytable As New DataTable()
        Dim mystr(3) As String

        '连接属性
        myconnect.ConnectionString = "server=192.168.0.100;database=temp;integrated security=true;uid=sa;pwd=   "
        myconnect.Open()        '打开数据库

        '设置命令属性
        mycommand.Connection = myconnect
        mycommand.CommandType = CommandType.Text
        mycommand.CommandText = "select * from stu"

        '添加列
        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.DataMember = "mytable"
        DataGridView1.DataSource = mytable

        myread.Close()      '关闭读
        myconnect.Close()   '关闭连接

    End Sub



    'DataSet
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Dim myconnect As New SqlClient.SqlConnection
        Dim mycommand As New SqlClient.SqlCommand
        Dim myadp As New SqlClient.SqlDataAdapter
        Dim mydataset As New DataSet

        myconnect.ConnectionString = "server=192.168.0.100;database=temp;integrated security=true;uid=sa;pwd=   "
        myconnect.Open()

        mycommand.Connection = myconnect
        mycommand.CommandType = CommandType.Text
        mycommand.CommandText = "select * from stu"

        myadp.SelectCommand = mycommand
        myadp.Fill(mydataset)

        DataGridView1.DataSource = mydataset.Tables(0)

        myconnect.Close()

    End Sub
End Class