ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] dataset.tables(0).rows(n)¥i¥H§R°£¡A¦ýµLªk¦^¦s¸ê®Æ®w¡A­n¦p¦ó¸Ñ¨M?

[µo°Ý] dataset.tables(0).rows(n)¥i¥H§R°£¡A¦ýµLªk¦^¦s¸ê®Æ®w¡A­n¦p¦ó¸Ñ¨M?

´N¬Odataset.tables(0).rows(n)¥i¥H·s¼W©M§ó§ï¡A¤]¥i¦^¦s¸ê®Æ®w¡A¦ý´Ndataset.tables(0).rows(n)ªº§R°£¡A¥i¥H§R°£¦ýµLªk¦^¦s¸ê®Æ®w¡A¦Ó¥B¤]¨S¦³¿ù»~°T®§ªº²£¥Í¡A¤£ª¾¹D¬O¿ù¦b­þ¸Ì¡A§Úı±oµ{¦¡¦n¹³³£¨S¦³¼g¿ù¡A«o¤£¥i¦^¦s

µ{¦¡¦p¤UÀ°§Ú¬Ý¤@¤U­þ¸Ì¦³¿ù¡A«ç¼Ë¤~¥i¥H§âdatasetªº§R°£¦^¦s¨ì¸ê®Æ®w¡C

³o¤@­Ó°Æµ{¦¡¬Odataset.tables(0).rows(n)ªº§R°£
Sub bb()
        Dim datast1 As New DataSet
        datast1 = getdatas()

        Dim a As DataRow
        Dim n As Integer = 0
        For Each a In datast1.Tables(0).Rows
            If a("«~¸¹") = TextBox1.Text Then
                datast1.Tables(0).Rows(n).Delete()
                datast1.Tables(0).Rows.Remove(a)
                Exit Sub
            End If
            n = n + 1
        Next

        Label2.Text = "¤w§R°£¤F"
    End Sub

³o¤@­Ó¬O¬ÛÃöªº°Æµ{¦¡
Function getdatas() As DataSet
        If Session("datast") Is Nothing Then
            loaddata()
                     
        End If
        getdatas = Session("datast")
    End Function


³o¤@­Ó¬O¬ÛÃöªº°Æµ{¦¡
Function loaddata()
        Dim dat As New DataSet
        Dim dataadp As SqlDataAdapter
        Dim sql1 As String
        
        sql1 = "select * from ®w¦s¸ê®Æªí1"
      
        dataadp = connsql(sql1)  '³o¸Ì¤£¼g¨ç¼Æ¡Aª½±µ¼g¦bloaddata¸Ì¤]¥i¥H
        dataadp.Fill(dat)    '³o¸Ìªºdataset¤£¯à¼g¸ê®Æªíªº¦WºÙ
        Label1.Text = "¿|»æ¸ê®Æ®w®w¦s¸ê®Æªí"
        Session("datast") = dat

    End Function


³o¤@­Ó¬O¬ÛÃöªº°Æµ{¦¡
Function connsql(ByVal str1 As String) As SqlDataAdapter
        Dim conn As New SqlConnection
        conn.ConnectionString = "server=.\SQLExpress;Integrated Security=SSPI;AttachDbFilename=|DataDirectory|\ASPNETDB.MDF;User Instance=True"
        conn.Open()
        
        Dim dataadp As SqlDataAdapter
         
        dataadp = New SqlDataAdapter(str1, conn)
      
        connsql = dataadp
        
    End Function



  ¤U­±ªº°Æµ{¦¡¬O¦^¦s¸ê®Æ®wªºµ{¦¡
Sub ee()
        Dim datast1 As New System.Data.DataSet()
        datast1 = getdatas()
        
        Dim dataadp1 As System.Data.SqlClient.SqlDataAdapter
        
        Dim sql1 As String
        sql1 = "select * from ®w¦s¸ê®Æªí1"
        dataadp1 = connsql(sql1)
        
        Dim datacmd1 As New Data.SqlClient.SqlCommandBuilder(dataadp1)
        dataadp1.Update(datast1) ' ¥u¯à¦bdataset¤¤§R°£°O¿ý¡AµLªk¦^¦s¨ì¸ê®Æ®w
        
        Label1.Text = "¤w¦^¦s¨ì¸ê®Æ®w¥h¤F"
        
    End Sub

        ÀR«ä¦Û¦b : «Î¼e¤£¦p¤ß¼e¡C
ªð¦^¦Cªí ¤W¤@¥DÃD