VB.NET SQL数据库操作

大家好：
    刚开始学VB.NET ,数据库的操作不懂，以下是网上找的一些代码，请大家帮忙看下，谢谢

        Dim str As String = "Data Source=.;Initial Catalog=TESTXN;Persist Security Info=True;User ID=sa;Password=110"
        Dim conn As SqlClient.SqlConnection
        conn = New SqlClient.SqlConnection
        conn.ConnectionString = str
        conn.Open()

        Dim sqlstr = "Select * From X"
        Dim sqlcmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(sqlstr, conn)
        Dim dr As SqlClient.SqlDataReader
        Dim DR1 As SqlClient.SqlCommand = New SqlClient.SqlCommand("update X set B='aaaa'", conn)
        DR1.ExecuteNonQuery()
        DR1.
        dr = sqlcmd.ExecuteReader
        If dr.Read = True Then  '判断一条记录为真

            MessageBox.Show(dr.GetString(1))

        Else
            MessageBox.Show("输入信息有误！", "提示")

        End If
我想知道，1.怎么读到数据库的所以数据，这个代码中只显示数据表中的第一个数据
          2.如何在X表中新增，更新，删除数据
           谢谢大家

--------------------编程问答-------------------- 你试试用数据集,data.dataset,数据适配器 sqlclient.sqldataadapater
以下是一段代码:
Dim sqlstr = "Select * From X"
dim da as new sqlclient.sqldataadapater(sqlstr,conn)
dim ds as new dataset
da.fill (ds,"Table1")

'你在数据操作界面中编辑数据,然后用以下代码更新数据

dim builder as new sqlclient.sqlcommandbuilder(da)
da.update(ds.tables("Table1"))

'用datareader 显示数时,每次只读一行数据,要用循环
while dr.read
msgbox (dr.item(0).tostring)
end while

msdn 上有很多关于ADO.NET的示例,建义多上去看看

--------------------编程问答-------------------- 帮顶一个，本人新手！ --------------------编程问答-------------------- dr.Read 读取一行，记录
再执行一次就又得到一行
循环就能得到所有记录 --------------------编程问答-------------------- --------------------编程问答-------------------- 楼主如果一定要用datareader的方法读取所有记录的话，可以采用
do while dr.read
表达式
loop --------------------编程问答-------------------- 按5楼的方法，之前我弄过，是按5楼的方法才通。 --------------------编程问答-------------------- 看看sqlhelper
Using conn As New SqlConnection("")
        con.Open()
        Dim cmd As SqlCommand = New SqlCommand("select * from 表名 where=条件", con)
        Dim dr As SqlDataReader
        dr = cmd.ExecuteReader
         While (dr.Read())

       End While
       dr.Close()
        con.Close()
End Using --------------------编程问答-------------------- 我这一直在关注这方面的问题，我也是刚学VB.NET --------------------编程问答-------------------- 给你几个我以前学习时看的文章，希望对你有帮助。没找到怎么加附件，晕。 --------------------编程问答--------------------

 Dim Conn As SqlConnection

    Dim sSql As String

   

    Sub job_insert(ByVal sender As Object, ByVal e As EventArgs)

        Dim Comm As SqlCommand

        Dim sSql As String

        

        Dim s_codeyear As String

        Dim s_codeno As Integer

        Dim s_twelvebranches As Integer

        Dim s_ballcolor As Integer

        Dim s_fiveelements As Integer

        Dim s_oddno As String

        Dim s_sumodd As String

    

        s_codeyear = cmb_year.Text

        s_codeno = CInt(cmb_code.Text)

        s_twelvebranches = CInt(cmb_branches.Text)

        s_ballcolor = CInt(cmb_color.Text)

        s_fiveelements = CInt(cmb_five.Text)

        s_oddno = CInt(txt_odd.Text)

        s_sumodd = CInt(txt_sumodd.Text)

        

        Conn = New SqlConnection("server=192.168.11.53;uid=sa;pwd=syerpmanager;database=SixColor")

        sSql = " INSERT INTO SixColor..tblCode(CodeYear,CodeNo,TwelveBranches,BallColor,FiveElements,OddNo,SumOdd) VALUES( " & _

                " '" & s_codeyear & "'," & _

                " '" & s_codeno & "'," & _

                " '" & s_twelvebranches & "'," & _

                " '" & s_ballcolor & "'," & _

                " '" & s_fiveelements & "'," & _

                " '" & s_oddno & "'," & _

                " '" & s_sumodd & "' );"

        

        Comm = New SqlCommand(sSql, Conn)

        Comm.Connection.Open()

        

        Comm.ExecuteNonQuery()

        'Response.Write("<script language='javascript'>location.reload()<" + "/script>")

        Comm.Connection.Close()

        

        Response.Redirect("CodeEdit.aspx")

    End Sub

复制自己的一个文档给你参考

补充：.NET技术 ,  VB.NET