Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,038

HOME > .NET Framework > Forum > vb มันขึ้นไม่สามารถลบข้อมูลได้ เนื่องจาก ไม่มีข้อมูลใด ๆ ในฐานข้อมูล ทั้งที่ในฐานข้อมูลมีข้อมูลอยู่ แก้มา 3 วันแล้วไม่ผ่าน ช่วยทีครับ

[.NET] vb มันขึ้นไม่สามารถลบข้อมูลได้ เนื่องจาก ไม่มีข้อมูลใด ๆ ในฐานข้อมูล ทั้งที่ในฐานข้อมูลมีข้อมูลอยู่ แก้มา 3 วันแล้วไม่ผ่าน ช่วยทีครับ

เริ่มหัวข้อใหม่

Sanooker

โพสกระทู้ ( 32 )
บทความ ( 0 )

ภาพที่1

ภาพที่2

ภาพที่3

อันนี้เป็นโค้ที่เขียนในโปรแกรม ตอนนี้มีปัญหากับบรรทัดที่มีโค้ด

Code

If DS.Tables(0).Rows.Count >= 1 Then
           StrMsg = "คุณต้องการลบข้อมูล [ " & DS.Tables(0).Rows(posi)("id_em") & "] นี้หรือไม่"
       Else
           MsgBox("ไม่สามารถลบข้อมูลได้เนื่องจากไม่มีข้อมูลใดๆในฐานข้อมูล")
           Exit Sub
       End If

มันบอกไม่สามารถลบข้อมูลได้เนื่องจากไม่มีข้อมูลใดๆในฐานข้อมูล ทั้งที่มีข้อมูลอยู่ ตามภาพที่ 2 ที่โปรแกรมรัน...และภาพที่3 มีข้อมูลในฐานข้อมูล

ขอความช่วยเหลือหน่อยครับ 3 วันแล้วมันไม่ได้ผลอะไรเลย...

Tag : .NET, Ms Access, VS 2008 (.NET 3.x)

Date : 2012-04-26 15:55:49

By : sanooker_123

View : 1289

Reply : 13

No. 1

Herriken

โพสกระทู้ ( 245 )
บทความ ( 0 )

Dataset DS ตัวนั้นได้มาจากไหน ครับ

Date : 2012-04-26 16:15:21

By : 13crowns

No. 2

Sanooker

โพสกระทู้ ( 32 )
บทความ ( 0 )

ได้มาจาก โมดูลครับโค้ดแบบนี้
Code

Imports System.Data.OleDb
Imports System.Data
Module MdIDB
    Public conn As New OleDbConnection
    Public DA As OleDbDataAdapter
    Public DS As DataSet
    Public Update As DataSet
    Public acscmd As New OleDbCommand
    Public DSUsername As DataSet
    Public DStb_employee As DataSet
    Public DSemplo As DataSet
    Public StrConn As String = "Provider=microsoft.ACE.oledb.12.0; data source= |datadirectory|\data.accdb"
    Public StrSQL As String
    Public LoginSuccess As Boolean
    Public Sub OpenDB(ByVal StrSQL1 As String)
        conn = New OleDbConnection(StrConn)
        DA = New OleDbDataAdapter(StrSQL1, conn)
        DS = New DataSet
        DA.Fill(DS, "usergroup")
        If DS.Tables(0).Rows.Count > 0 Then
            LoginSuccess = True
        Else
            LoginSuccess = False
        End If
    End Sub
    Public Sub OpenDBusergroup(ByVal StrSQL1 As String)
        conn = New OleDbConnection(StrConn)
        DA = New OleDbDataAdapter(StrSQL1, conn)
        DS = New DataSet
        DA.Fill(DS, "usergroup")
        If DS.Tables(0).Rows.Count > 0 Then
            LoginSuccess = True
        Else
            LoginSuccess = False
        End If
    End Sub
    Public Function seekusergroup(ByVal StrSQL12 As String)
        conn = New OleDbConnection(StrConn)
        DA = New OleDbDataAdapter(StrSQL12, conn)
        DS = New DataSet
        DA.Fill(DS, "usergroup")
        If DS.Tables(0).Rows.Count > 0 Then
            Return True
        Else
            Return False
        End If
    End Function
    Public Sub OpenDBtb_status(ByVal StrSQL1 As String)
        conn = New OleDbConnection(StrConn)
        DA = New OleDbDataAdapter(StrSQL1, conn)
        DS = New DataSet
        DA.Fill(DS, "tb_status")
        If DS.Tables(0).Rows.Count > 0 Then
            LoginSuccess = True
        Else
            LoginSuccess = False
        End If
    End Sub
    Public Function seektb_status(ByVal StrSQL12 As String)
        conn = New OleDbConnection(StrConn)
        DA = New OleDbDataAdapter(StrSQL12, conn)
        DS = New DataSet
        DA.Fill(DS, "tb_status")
        If DS.Tables(0).Rows.Count > 0 Then
            Return True
        Else
            Return False
        End If
    End Function
    Public Sub OpenDBtb_department(ByVal StrSQL1 As String)
        conn = New OleDbConnection(StrConn)
        DA = New OleDbDataAdapter(StrSQL1, conn)
        DS = New DataSet
        DA.Fill(DS, "tb_department")
        If DS.Tables(0).Rows.Count > 0 Then
            LoginSuccess = True
        Else
            LoginSuccess = False
        End If
    End Sub
    Public Function seektb_department(ByVal StrSQL12 As String)
        conn = New OleDbConnection(StrConn)
        DA = New OleDbDataAdapter(StrSQL12, conn)
        DS = New DataSet
        DA.Fill(DS, "tb_department")
        If DS.Tables(0).Rows.Count > 0 Then
            Return True
        Else
            Return False
        End If
    End Function
    Public Sub OpenDBtb_employee(ByVal StrSQL1 As String)
        conn = New OleDbConnection(StrConn)
        DA = New OleDbDataAdapter(StrSQL1, conn)
        DS = New DataSet
        DA.Fill(DS, "tb_employee")
        If DS.Tables(0).Rows.Count > 0 Then
            LoginSuccess = True
        Else
            LoginSuccess = False
        End If
    End Sub
    Public Function seektb_employee(ByVal StrSQL12 As String)
        conn = New OleDbConnection(StrConn)
        DA = New OleDbDataAdapter(StrSQL12, conn)
        DS = New DataSet
        DA.Fill(DS, "tb_employee")
        If DS.Tables(0).Rows.Count > 0 Then
            Return True
        Else
            Return False
        End If
    End Function
    Public Sub OpenDBtb_employee1(ByVal StrSQL1 As String)
        conn = New OleDbConnection(StrConn)
        DA = New OleDbDataAdapter(StrSQL1, conn)
        DStb_employee = New DataSet
        DA.Fill(DStb_employee, "tb_employee")
        If DStb_employee.Tables(0).Rows.Count > 0 Then
            LoginSuccess = True
        Else
            LoginSuccess = False
        End If
    End Sub
    Public Function seektb_employee1(ByVal StrSQL12 As String)
        conn = New OleDbConnection(StrConn)
        DA = New OleDbDataAdapter(StrSQL12, conn)
        DStb_employee = New DataSet
        DA.Fill(DStb_employee, "tb_employee")
        If DStb_employee.Tables(0).Rows.Count > 0 Then
            Return True
        Else
            Return False
        End If
    End Function
End Module

Date : 2012-04-26 16:18:25

By : sanooker_123

No. 3

Sanooker

โพสกระทู้ ( 32 )
บทความ ( 0 )

ไม่มีใครตอบเลยอ่ะ T-T

Date : 2012-04-26 17:12:24

By : sanooker_123

No. 4

bell

โพสกระทู้ ( 325 )
บทความ ( 0 )

เราคิดว่ามันมีปัญหามาตั้งแต่ตรง Dataset น่ะค่ะ แต่ไม่รู้ตรงไหน เพราะว่าโค้ดมาไม่หมด แหะๆ ขอโทษนะคะ อยากช่วย แต่หาที่มาไม่เจอเหมือนกัน

Date : 2012-04-26 17:50:30

By : mayapopy

No. 5

Sanooker

โพสกระทู้ ( 32 )
บทความ ( 0 )

นี่คือชุดโค้ดทั้งหมดของโปรแกรมหน้าตัวนี้
Code

Imports System.Data.OleDb
Imports System.Data
Public Class f_employee_2
    Dim posi As Int32 = 0
    Dim Status As String
    Public conn As New OleDbConnection
    Public Sub ShowDataUsergroup()
        tid.Text = DS.Tables("tb_employee").Rows(posi)("id_em")
        tcard.Text = DS.Tables("tb_employee").Rows(posi)("card_em")
        tfront.Text = DS.Tables("tb_employee").Rows(posi)("front_em")
        tfname.Text = DS.Tables("tb_employee").Rows(posi)("fname_em")
        tlname.Text = DS.Tables("tb_employee").Rows(posi)("lname_em")
        tbdate.Text = DS.Tables("tb_employee").Rows(posi)("bdate_em")
        taddress.Text = DS.Tables("tb_employee").Rows(posi)("address_em")
        tprovince.Text = DS.Tables("tb_employee").Rows(posi)("province_em")
        ttel.Text = DS.Tables("tb_employee").Rows(posi)("tel_em")
        tmobile.Text = DS.Tables("tb_employee").Rows(posi)("mobile_em")
        temail.Text = DS.Tables("tb_employee").Rows(posi)("email_em")
        tdepartment.Text = DS.Tables("tb_employee").Rows(posi)("department_em")
        tfunction.Text = DS.Tables("tb_employee").Rows(posi)("function_em")
        tposition.Text = DS.Tables("tb_employee").Rows(posi)("position_em")
 
    End Sub
 
    Public Sub connectData()
        Dim s As String
        If conn.State = ConnectionState.Open Then conn.Close()
        s = StrConn
        conn.ConnectionString = s
        conn.Open()
    End Sub
    Private Sub f_employee(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        If MessageBox.Show("ต้องการจบการทำงานหรือไม่", "ระบบ", MessageBoxButtons.YesNo) = DialogResult.No Then
            ' Cancel the Closing event from closing the form.
            e.Cancel = True
        End If
    End Sub
    Public Function executeReader(ByVal prmsql As String) As OleDbDataReader
        Dim dr As OleDbDataReader
        Dim comm As New OleDbCommand
        connectData()
        With comm
            .CommandType = CommandType.Text
            .CommandText = prmsql
            .Connection = conn
            dr = .ExecuteReader()
            Return dr
        End With
    End Function
    Public Function executesql(ByVal prmsql As String) As Boolean
        connectData()
        Dim addcom As New OleDbCommand
        With addcom
            .CommandType = CommandType.Text
            .CommandText = prmsql
            .Connection = conn
            Try
                .ExecuteNonQuery()
            Catch ex As Exception
                MsgBox(ex.Message, vbOKOnly, "Error During DBCon.Open()")
                executesql = False
                Exit Function
            End Try
        End With
        executesql = True
    End Function
    Private Sub f_employee_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        loademployee()
    End Sub
    Private Sub loademployee()
        Dim tposi As Integer
        Dim pst As Integer
 
        OpenDBtb_department("Select * From tb_department")
        tposi = DS.Tables("tb_department").Rows.Count - 1
        For pst = 0 To tposi
            tdepartment.Items.Add(DS.Tables("tb_department").Rows(pst)("name_department"))
        Next
 
        OpenDBtb_status("Select * From tb_status")
        tposi = DS.Tables("tb_status").Rows.Count - 1
        For pst = 0 To tposi
            tposition.Items.Add(DS.Tables("tb_status").Rows(pst)("status_full"))
        Next
    End Sub
    Private Sub bsearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bsearch.Click
        DS = New DataSet
        StrSQL = "select id_em,card_em,front_em,fname_em,lname_em,bdate_em,address_em,province_em,tel_em,mobile_em,email_em,department_em,function_em,position_em from tb_employee "
        If Rid.Checked = True Then
            StrSQL &= "WHERE id_em = '" & tsearch.Text & "'"
        ElseIf Rcard.Checked = True Then
            StrSQL &= "WHERE card_em = '" & tsearch.Text & "'"
        ElseIf Rname.Checked = True Then
            StrSQL &= "WHERE fname_em = '" & tsearch.Text & "'"
        End If
        'StrSQL &= " WHERE(id_person like '%" & tsearch.Text & "%')"
        StrSQL &= " order by fname_em"
        Try
            With conn
                If .State = ConnectionState.Open Then .Close()
                .ConnectionString = StrConn
                .Open()
            End With
            DA = New OleDb.OleDbDataAdapter(StrSQL, conn)
            DA.Fill(DS, "tb_employee")
            conn.Close()
            If DS.Tables("tb_employee").Rows.Count > 0 Then
                tid.Text = DS.Tables("tb_employee").Rows(posi)("id_em")
                tcard.Text = DS.Tables("tb_employee").Rows(posi)("card_em")
                tfront.Text = DS.Tables("tb_employee").Rows(posi)("front_em")
                tfname.Text = DS.Tables("tb_employee").Rows(posi)("fname_em")
                tlname.Text = DS.Tables("tb_employee").Rows(posi)("lname_em")
                tbdate.Text = DS.Tables("tb_employee").Rows(posi)("bdate_em")
                taddress.Text = DS.Tables("tb_employee").Rows(posi)("address_em")
                tprovince.Text = DS.Tables("tb_employee").Rows(posi)("province_em")
                ttel.Text = DS.Tables("tb_employee").Rows(posi)("tel_em")
                tmobile.Text = DS.Tables("tb_employee").Rows(posi)("mobile_em")
                temail.Text = DS.Tables("tb_employee").Rows(posi)("email_em")
                tdepartment.Text = DS.Tables("tb_employee").Rows(posi)("department_em")
                tfunction.Text = DS.Tables("tb_employee").Rows(posi)("function_em")
                tposition.Text = DS.Tables("tb_employee").Rows(posi)("position_em")
 
                DS.Tables("tb_employee").Rows.Clear()
            Else
                MsgBox("ไม่พบข้อมูลของ :" + tsearch.Text)
            End If
        Catch ex As Exception
        End Try
    End Sub
    Private Sub bexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bexit.Click
        Me.Close()
    End Sub
    Private Sub bcancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bcancel.Click
        tid.Text = ""
        tcard.Text = ""
        tfront.Text = ""
        tfname.Text = ""
        tlname.Text = ""
        tbdate.Text = ""
        taddress.Text = ""
        tprovince.Text = ""
        ttel.Text = ""
        tmobile.Text = ""
        temail.Text = ""
        tdepartment.Text = ""
        tfunction.Text = ""
        tposition.Text = ""
 
    End Sub
    Private Sub bdelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bdelete.Click
        Dim MsgResult As MsgBoxResult
        Dim StrMsg As String
        If DS.Tables(0).Rows.Count >= 1 Then
            StrMsg = "คุณต้องการลบข้อมูล [ " & DS.Tables(0).Rows(posi)("id_em") & " ] นี้หรือไม่"
        Else
            MsgBox("ไม่สามารถลบข้อมูลได้เนื่องจากไม่มีข้อมูลใดๆในฐานข้อมูล")
            Exit Sub
        End If
 
        MsgResult = MsgBox(StrMsg, MsgBoxStyle.YesNoCancel + MsgBoxStyle.Critical, "em System")
        If MsgResult = MsgBoxResult.Yes Then
            If DS.Tables(0).Rows.Count >= 2 Then
                Dim cmb As New OleDb.OleDbCommandBuilder(DA)
                DS.Tables("tb_employee").Rows(posi).Delete()
                DA.Update(DS, "tb_employee")
                MsgBox("ลบข้อมูลเรียบร้อยแล้ว !!!")
                posi = 0
                ShowDataUsergroup()
            ElseIf DS.Tables(0).Rows.Count = 1 Then
                Dim cmb As New OleDb.OleDbCommandBuilder(DA)
                DS.Tables("tb_employee").Rows(posi).Delete()
                DA.Update(DS, "tb_employee")
                MsgBox("ลบข้อมูลเรียบร้อยแล้ว!!!")
            ElseIf DS.Tables(0).Rows.Count <= 0 Then
                MsgBox("ไม่สามารถลบข้อมูลได้เนื่องจากไม่มีข้อมูลใดๆในฐานข้อมูล")
                Exit Sub
            End If
        End If
    End Sub
 
End Class

Date : 2012-04-26 18:08:44

By : sanooker_123

No. 6

Sanooker

โพสกระทู้ ( 32 )
บทความ ( 0 )

แล้วนี้ก็ชุดโค้ดของโมดูลที่ใช้เชื่อต่อกับฐานข้อมูล Access2007
Code

Imports System.Data.OleDb
Imports System.Data
Module MdIDB
    Public conn As New OleDbConnection
    Public DA As OleDbDataAdapter
    Public DS As DataSet
    Public Update As DataSet
    Public acscmd As New OleDbCommand
    Public DSUsername As DataSet
    Public StrConn As String = "Provider=microsoft.ACE.oledb.12.0; data source= |datadirectory|\data.accdb"
    Public StrSQL As String
    Public LoginSuccess As Boolean
    Public Sub OpenDB(ByVal StrSQL1 As String)
        conn = New OleDbConnection(StrConn)
        DA = New OleDbDataAdapter(StrSQL1, conn)
        DS = New DataSet
        DA.Fill(DS, "usergroup")
        If DS.Tables(0).Rows.Count > 0 Then
            LoginSuccess = True
        Else
            LoginSuccess = False
        End If
    End Sub
    Public Sub OpenDBusergroup(ByVal StrSQL1 As String)
        conn = New OleDbConnection(StrConn)
        DA = New OleDbDataAdapter(StrSQL1, conn)
        DS = New DataSet
        DA.Fill(DS, "usergroup")
        If DS.Tables(0).Rows.Count > 0 Then
            LoginSuccess = True
        Else
            LoginSuccess = False
        End If
    End Sub
    Public Function seekusergroup(ByVal StrSQL12 As String)
        conn = New OleDbConnection(StrConn)
        DA = New OleDbDataAdapter(StrSQL12, conn)
        DS = New DataSet
        DA.Fill(DS, "usergroup")
        If DS.Tables(0).Rows.Count > 0 Then
            Return True
        Else
            Return False
        End If
    End Function
    Public Sub OpenDBtb_status(ByVal StrSQL1 As String)
        conn = New OleDbConnection(StrConn)
        DA = New OleDbDataAdapter(StrSQL1, conn)
        DS = New DataSet
        DA.Fill(DS, "tb_status")
        If DS.Tables(0).Rows.Count > 0 Then
            LoginSuccess = True
        Else
            LoginSuccess = False
        End If
    End Sub
    Public Function seektb_status(ByVal StrSQL12 As String)
        conn = New OleDbConnection(StrConn)
        DA = New OleDbDataAdapter(StrSQL12, conn)
        DS = New DataSet
        DA.Fill(DS, "tb_status")
        If DS.Tables(0).Rows.Count > 0 Then
            Return True
        Else
            Return False
        End If
    End Function
    Public Sub OpenDBtb_department(ByVal StrSQL1 As String)
        conn = New OleDbConnection(StrConn)
        DA = New OleDbDataAdapter(StrSQL1, conn)
        DS = New DataSet
        DA.Fill(DS, "tb_department")
        If DS.Tables(0).Rows.Count > 0 Then
            LoginSuccess = True
        Else
            LoginSuccess = False
        End If
    End Sub
    Public Function seektb_department(ByVal StrSQL12 As String)
        conn = New OleDbConnection(StrConn)
        DA = New OleDbDataAdapter(StrSQL12, conn)
        DS = New DataSet
        DA.Fill(DS, "tb_department")
        If DS.Tables(0).Rows.Count > 0 Then
            Return True
        Else
            Return False
        End If
    End Function
    Public Sub OpenDBtb_employee(ByVal StrSQL1 As String)
        conn = New OleDbConnection(StrConn)
        DA = New OleDbDataAdapter(StrSQL1, conn)
        DS = New DataSet
        DA.Fill(DS, "tb_employee")
        If DS.Tables(0).Rows.Count > 0 Then
            LoginSuccess = True
        Else
            LoginSuccess = False
        End If
    End Sub
    Public Function seektb_employee(ByVal StrSQL12 As String)
        conn = New OleDbConnection(StrConn)
        DA = New OleDbDataAdapter(StrSQL12, conn)
        DS = New DataSet
        DA.Fill(DS, "tb_employee")
        If DS.Tables(0).Rows.Count > 0 Then
            Return True
        Else
            Return False
        End If
    End Function
End Module

Date : 2012-04-26 18:09:56

By : sanooker_123

No. 7

Sanooker

โพสกระทู้ ( 32 )
บทความ ( 0 )

นี่ก็คือชุดโค้ดที่เกี่ยวกับการลบแต่นี้เป็นอีกฟอร์มที่ไม่เกิดปัญหา เพราะทุกฟอร์มใช้โค้ดเดียวกันต่างกันที่ตัวแปรของชื่อฐานข้อมูล แล้วก็ปุ่ม กับ TextBox ต่างๆ
Code

Private Sub BDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BDelete.Click
       Dim MsgResult As MsgBoxResult
       Dim StrMsg As String
       If DS.Tables(0).Rows.Count >= 1 Then
           StrMsg = "คุณต้องการลบข้อมูล [ " & DS.Tables(0).Rows(posi)("status_sort") & " ] นี้หรือไม่"
       Else
           MsgBox("ไม่สามารถลบข้อมูลได้ เนื่องจาก ไม่มีข้อมูลใด ๆ ในฐานข้อมูล ")
           Exit Sub
       End If
 
       MsgResult = MsgBox(StrMsg, MsgBoxStyle.YesNoCancel + MsgBoxStyle.Critical, "sru resert System")
       If MsgResult = MsgBoxResult.Yes Then
           If DS.Tables(0).Rows.Count >= 2 Then
               Dim dcmb As New OleDb.OleDbCommandBuilder(DA)
               DS.Tables("tb_status").Rows(posi).Delete()
               DA.Update(DS, "tb_status")
               MsgBox("ลบข้อมูลเรียบร้อยแล้ว !!!")
               posi = 0
               ShowDataUsergroup()
           ElseIf DS.Tables(0).Rows.Count = 1 Then
               Dim d2cmb As New OleDb.OleDbCommandBuilder(DA)
               DS.Tables("tb_status").Rows(posi).Delete()
               DA.Update(DS, "tb_status")
               MsgBox("ลบข้อมูลเรียบร้อยแล้ว !!!")
           ElseIf DS.Tables(0).Rows.Count <= 0 Then
               MsgBox("ไม่สามารถลบข้อมูลได้ เนื่องจาก ไม่มีข้อมูลใด ๆ ในฐานข้อมูล ")
               Exit Sub
           End If
       End If
   End Sub

ประวัติการแก้ไข
2012-04-26 18:14:44

Date : 2012-04-26 18:12:25

By : sanooker_123

No. 8

Sanooker

โพสกระทู้ ( 32 )
บทความ ( 0 )

ไม่มีคนตอบเรยอ่ะ...ช่วยหน่อนครับ ขอความกรุณาจริงๆ

Date : 2012-04-26 21:21:04

By : sanooker_123

No. 9

SeedNew

โพสกระทู้ ( 213 )
บทความ ( 0 )

ลองทีละ step นะ
สร้าง datagrird มาตัวหนึ่งดู แล้วดึงตารางนั้นขึ้นมาดูว่ามันเชื่อมกันได้หรือเปล่า
ถ้าได้ก็น่าจะผ่านนะ

Date : 2012-04-26 23:35:26

By : SeedNew

No. 10

Sanooker

โพสกระทู้ ( 32 )
บทความ ( 0 )

ใช้ ListView แล้วครับ ขึ้นปกติ...บันทึกก็ปกติ แสดงผ่านฟอร์ม ก็ขึ้นปกติ แต่ลบกับแกไขไม่ได้ T-T เครียดจัดเลยตอนนี้...

Date : 2012-04-26 23:51:20

By : sanooker_123

No. 11

bell

โพสกระทู้ ( 325 )
บทความ ( 0 )

ปุ่ม delete มันไปลบข้อมูลในตารางไหนหรอคะ ใช่ tb_employee ไหม?

ถ้าใช่ ลองเอา โค้ด ตรงนี้ออก DS.Tables("tb_employee").Rows.Clear() ในปุ่มค้นหาออกไปก่อน (remark ไว้ก็ได้ค่ะ)

แล้วก็ ตรงปุ่ม delete แก้จาก StrMsg = "คุณต้องการลบข้อมูล [ " & DS.Tables(0).Rows(posi)("id_em") & " ] นี้หรือไม่"

เป็น StrMsg = "คุณต้องการลบข้อมูล [ " & DS.Tables("tb_employee").Rows(posi)("id_em") & " ] นี้หรือไม่"

ดูนะคะ?

ไม่รู้ว่าได้หรือเปล่า แต่ลองทำดูเล่นแล้วมันได้ล่ะ^^

สู้ๆค่า

Date : 2012-04-27 09:14:45

By : mayapopy

No. 12

SeedNew

โพสกระทู้ ( 213 )
บทความ ( 0 )

Code (VB.NET)

ElseIf DS.Tables(0).Rows.Count = 1 Then
           Dim d2cmb As New OleDb.OleDbCommandBuilder(DA)
           DS.Tables("tb_status").Rows(posi).Delete()
           DA.Update(DS, "tb_status")
           MsgBox("ลบข้อมูลเรียบร้อยแล้ว !!!")

ไม่ใจนะ ไม่เคยเขียนแบบนี้ตรงนี้ผิดหรือเปล่า มันหา id ที่จะลบไม่เจอ
ขอดูปุ่มอัพเดทหน่อยดิ

ผมว่ามันน่าจะเขียนประมาณนี้นะ

Code

Delete
FROM tb_employee
WHERE id_em = '" & tid.Text & "'

ประวัติการแก้ไข
2012-04-27 09:35:29
2012-04-27 09:36:38

Date : 2012-04-27 09:17:59

By : SeedNew

No. 13

Sanooker

โพสกระทู้ ( 32 )
บทความ ( 0 )

ขอบคุณทุกคำตอบครับผม...^..^ ตอนนี้ผมทำได้แล้วครับ คือ แก้โค้ดยกแผงเลยครับ เปลี่ยนเป็นอีกแนวนึง

ประวัติการแก้ไข
2012-04-27 13:55:50

Date : 2012-04-27 13:50:48

By : sanooker_123

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : vb มันขึ้นไม่สามารถลบข้อมูลได้ เนื่องจาก ไม่มีข้อมูลใด ๆ ในฐานข้อมูล ทั้งที่ในฐานข้อมูลมีข้อมูลอยู่ แก้มา 3 วันแล้วไม่ผ่าน ช่วยทีครับ

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)

Registered : 109,038

No. 1

No. 2

No. 3

No. 4

No. 5

No. 6

No. 7

No. 8

No. 9

No. 10

No. 11

No. 12

No. 13

ค้นหาข้อมูล

อัพโหลดแทรกรูปภาพ

Notice