ADO.NET的使用方法（参考代码）

上一篇 / 下一篇 2006-11-11 18:36:23 / 个人分类：学习

Imports System.Data.SqlClient
Yt.H_I$o9U:w4M0Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

,Y-|Fh(hO0        '使用SqlDataReader方法调用数据SupeSite/X-Space官方站}rL$x(f0mw
        Try
GR#Qc|l!A z0r|0            myConnection.Open()
'@6u{K y,_JP:q|B0            TextBoxNumber.Text = myCommand.ExecuteScalar()

$`8Z|9uD0 'Dim reader As SqlDataReader
y6^2^G/v/v:ky3X0 'reader = selectCommand.ExecuteReader()

@We-WQ;|p0            'While reader.Read()SupeSite/X-Space官方站5P I+G(Uo!s
            '    Dim line As String
            '    line = reader.GetInt32(0).ToStringSupeSite/X-Space官方站7YfW5Z5P ~
            '    line &= ":" & reader.GetString(1)
T$p&}2?|d3I0oP0            '    line &= " " & reader.GetString(2)SupeSite/X-Space官方站TShnm
            '    ListBoxEmployee.Items.Add(line)
!_"M2G6P,ZO?3[0            'End WhileSupeSite/X-Space官方站"x-J)o s+]

*B?M;z;Sdirh0            'reader.Close()
_\?/[,rC%[U0        Catch ex As Exception
6g1~~)\w9v2t8E0        Finally
            myConnection.Close()
"pa"lF8Y9V^$G0        End Try

        '使用非类型化数据集
G Xs4x8L T'?0        '使用SqlDataAdapter方法调用数据
        'myAdapter.Fill(myData)SupeSite/X-Space官方站]8nX]%})k1o
        'For Each row As DataRow In myData.Tables(0).Rows
X$e+A*[3qg0        '    Dim line As String
3kC5b#d EC0        '    line = row(0)
        '    line &= ":" & row(1)SupeSite/X-Space官方站m1behR;F|
        '    line &= " " & row(2)SupeSite/X-Space官方站&y-wCY{`C
        '    ListBoxEmployee.Items.Add(line)
        'NextSupeSite/X-Space官方站i!W4qT$y3e2q

"~p{{0ZU&vc3J#J0        '使用类型化数据集
3xZ3G^j0        typedAdapter.Fill(typedData.Employees)
#PY R.psu.~ B!?7{n0        For Each row As DataSetEmployee.EmployeesRow In typedData.Employees.Rows
g.x5pU4@_:p0            Dim line As String
            line = row.EmployeeID
            line &= ":" & row.FirstName
            line &= " " & row.LastNameSupeSite/X-Space官方站7SzG1a0`/uk
            ListBoxEmployee.Items.Add(line)
pJ*W7a'{R.S6K|E0        Next

k`z yv QGj(i0 End Sub

    Private Sub ListBoxEmployee_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBoxEmployee.SelectedIndexChanged
        '使用非类型化数据集
        'Dim row As DataRow
AO:V1K\WU0        'row = myData.Tables(0).Rows(ListBoxEmployee.SelectedIndex)
8`#lD/Q%X N Y*x0        'TextBoxKey.Text = row(0)
%Vnhi4@O [{5d)YM0        'TextBoxFirst.Text = row(1)
i/CX3X,\R!ZnV7]n za0        'TextBoxLast.Text = row(2)
/|U3`c!g1zc#dJ&L*U0        'TextBoxTitle.Text = row(3)
1zG}]]U0        'TextBoxHire.Text = row(4)

3c:T/F,W rJ:N"o0        '使用类型化数据集
        Dim row As DataSetEmployee.EmployeesRow
1CCl }:U%F+|?'_'u-v0        row = typedData.Employees.Rows(ListBoxEmployee.SelectedIndex)SupeSite/X-Space官方站&`h t}S-O
        TextBoxKey.Text = row.EmployeeID
AJ*L,E!_.z3k0        TextBoxFirst.Text = row.FirstName
bZ3s \V Ij#H"J0        TextBoxLast.Text = row.LastName
G FK`5d.k0        TextBoxTitle.Text = row.Title
,PM:eD-BS,r0        TextBoxHire.Text = row.HireDateSupeSite/X-Space官方站b*Oe0R]Ip
    End Sub

6C2{H)\y.HJ S0    Private Sub ButtonUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonUpdate.Click
3f_cjY0        '使用非类型化数据集
_,I)`,K7W0        'Dim row As DataRow
$@0X2i u/o cltk{0        'row = myData.Tables(0).Rows(ListBoxEmployee.SelectedIndex)
        'row(1) = TextBoxFirst.TextSupeSite/X-Space官方站.c@#e Nr9RXX
        'row(2) = TextBoxLast.TextSupeSite/X-Space官方站1Li#T#_Q$c_
        'row(3) = TextBoxTitle.TextSupeSite/X-Space官方站 c6{b0p{q5x
        'row(4) = TextBoxHire.TextSupeSite/X-Space官方站"v#f(Ce%\6To

'myAdapter.Update(myData)

        '使用类型化数据集
        Dim row As DataSetEmployee.EmployeesRow
        row = typedData.Employees.Rows(ListBoxEmployee.SelectedIndex)
CR%Z-D+x8N0        row.FirstName = TextBoxFirst.Text
7Am1N2b%T0        row.LastName = TextBoxLast.Text
.` W:S7G&HbN0        row.Title = TextBoxTitle.Text
        row.HireDate = TextBoxHire.TextSupeSite/X-Space官方站RlaG u@

gxK cK*L0 typedAdapter.Update(typedData)

SupeSite/X-Space官方站"nUXg @W
End Sub
End Class
C3?SP@&~z0SupeSite/X-Space官方站7c"R*B_6_GN