Forgot Password ??

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

	Registered : 109,038

HOME > .NET Framework > Forum > สอบถามเรื่องการ binding ข้อมูลของ combobox แล้วไม่ผ่านค่ะ

[.NET] สอบถามเรื่องการ binding ข้อมูลของ combobox แล้วไม่ผ่านค่ะ

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

yadamonjee

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

สืบเนื่องจากกระทู้นี้ค่ะ
https://www.thaicreate.com/dotnet/forum/062600.html

จะทำ combobox ดังภาพนี้ค่ะ

(คณะคือ Dep1 และ สาขาคือ Dep2)

ภาพนี้คือที่combobox แสดงค่ะ
error

หลังจากคราวก่อนก็เว้นว่างการทำโปรเจ็คไปพักนึง
พอมาเริ่มทำไม เลยงงๆกับการbinding ไม่แน่ใจว่าbind ข้อมูลลงcombobox ผิดตรงไหน เพราะมันไม่แสดงเลยค่ะ

อันนี้ในส่วนฟอร์มโหลด
Code (VB.NET)

sb = New StringBuilder()
        sb.Append("SELECT * FROM tbl_preT;")
        sb.Append("SELECT * FROM tbl_preE;")
        sb.Append("SELECT * FROM tbl_type;")
        sb.Append("SELECT * FROM tbl_campus;")
        sb.Append("SELECT * FROM tbl_dep1 ORDER BY dep1Name;")
        sb.Append("SELECT * FROM tbl_dep2 ORDER BY dep2Name;")
 
        Dim sqlIni As String
        sqlIni = sb.ToString()
 
        RemoveHandler cboPreT.SelectedValueChanged, AddressOf cboPreT_SelectedValueChanged
        RemoveHandler cboPreE.SelectedValueChanged, AddressOf cboPreE_SelectedValueChanged
        RemoveHandler cboCampus.SelectedValueChanged, AddressOf cboCampus_SelectedValueChanged
        RemoveHandler cboDep1.SelectedValueChanged, AddressOf cboDep1_SelectedValueChanged
        RemoveHandler cboDep2.SelectedValueChanged, AddressOf cboDep2_SelectedValueChanged
        RemoveHandler cboType.SelectedValueChanged, AddressOf cboType_SelectedValueChanged
 
        com = New SqlCommand()
        With com
            .CommandText = sqlIni
            .CommandType = CommandType.Text
            .Connection = Conn
 
            dr = .ExecuteReader()
            If dr.HasRows Then
 
                dtPreT = New DataTable
                dtPreT.Load(dr)
                With cboPreT
                    .BeginUpdate()
                    .DisplayMember = "preTNameS"
                    .ValueMember = "preTID"
                    .DataSource = dtPreT
                    .EndUpdate()
                End With
 
                dtPreE = New DataTable
                dtPreE.Load(dr)
                With cboPreE
                    .BeginUpdate()
                    .DisplayMember = "preENameS"
                    .ValueMember = "preEID"
                    .DataSource = dtPreE
                    .EndUpdate()
                End With
 
                dtType = New DataTable
                dtType.Load(dr)
                With cboType
                    .BeginUpdate()
                    .DisplayMember = "typeName"
                    .ValueMember = "typeID"
                    .DataSource = dtType
                    .EndUpdate()
                End With
 
                dtCampus = New DataTable
                dtCampus.Load(dr)
                With cboCampus
                    .BeginUpdate()
                    .DisplayMember = "CampusNameS"
                    .ValueMember = "campusID"
                    .DataSource = dtCampus
                    .EndUpdate()
                End With
 
                dtDep1 = New DataTable
                dtDep1.Load(dr)
                With cboDep1
                    .BeginUpdate()
                    .DisplayMember = "dep1Name"
                    .ValueMember = "dep1ID"
                    .DataSource = dtDep1
                    .EndUpdate()
                End With
 
                 
 
                dtDep2 = New DataTable
                dtDep2.Load(dr)
                da = New SqlDataAdapter(sqlIni, Conn)
                da.Fill(ds, "tbl_dep1")
                With cboDep2
                    .BeginUpdate()
                    .DisplayMember = "dep2Name"
                    .ValueMember = "dep2ID"
                    '  .DataSource = dtDep2
                    .DataSource = ds.Tables("tbl_dep1")
                    .EndUpdate()
                End With

ส่วนอันนี้ในส่วนSelectedValueCanged ของcombobox cboDep1 (คณะ)

Private Subh cboDep1_SelectedValueCanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboDep1.SelectedValueChanged
        Dim strConn As String
        strConn = DBConnString.strConn
        Conn = New SqlConnection()
 
        With Conn
            If .State = ConnectionState.Open Then .Close()
            .ConnectionString = strConn
            .Open()
        End With
 
        sb = New StringBuilder()
        sb.Append("SELECT * FROM tbl_dep1;")
        sb.Append("WHERE dep1ID ='" & cboDep2.SelectedValue.ToString & "'")
 
        Dim sqlIni As String
        sqlIni = sb.ToString()
 
        Dim sqlSelect As String = ""
 
        If isFind2 = True Then
            ds.Tables("tbl_dep1").Clear()
        End If
 
        da = New SqlDataAdapter(sqlSelect, Conn)
        da.Fill(ds, "tbl_dep1")
        With cboCampus
            .DataSource = ds.Tables("tbl_dep1")
            .DisplayMember = "dep1Name"
            .ValueMember = "dep1ID"
        End With
        isFind2 = True
        iDep1.SelectedValue = cboDep1.SelectedValue
    End Sub

Tag : .NET, MySQL, Ms SQL Server 2005, VS 2005 (.NET 2.x)

Date : 2011-07-26 10:57:44

By : jernnrej

View : 1629

Reply : 15

No. 1

KaimuK

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

บรรทัดที่ 1 - 10 ผิดครับ

Append เป็นการเอา String มาต่อกัน ดังนั้นจะทำให้ SQL String ผิดแน่ๆ ที่เหลือยังไม่ได้อ่าน

Date : 2011-07-26 11:05:29

By : kaimuk

No. 2

yadamonjee

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

ถ้าเป็นในส่วนฟอร์มโหลด
มันก็ดึงข้อมูลมาได้ปกตินี่ค่ะ

Date : 2011-07-26 11:29:33

By : jernnrej

No. 3

KaimuK

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

sb.Append("SELECT * FROM tbl_dep1;") ให้เปลี่ยนเป็น sb.Append("SELECT * FROM tbl_dep1 ")

(บรรทัดที่ 13 ของ Code ชุด 2)

Date : 2011-07-26 11:51:44

By : kaimuk

No. 4

yadamonjee

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

อันนี้ส่วนฟอร์มโหลดนะคะ
Code (VB.NET)

dtDep2 = New DataTable
                dtDep2.Load(dr)
                da = New SqlDataAdapter(sqlIni, Conn)
                da.Fill(ds, "tbl_dep1")
                With cboDep2
                    .BeginUpdate()
                    .DisplayMember = "dep2Name"
                    .ValueMember = "dep2ID"
                    .DataSource = dtDep2
                    '.DataSource = ds.Tables("tbl_dep1")
                    .EndUpdate()
                End With

มันมีปัญหาตรงที่ว่า .DataSource = dtDep2 ถ้าใช้ตัวนี้ ข้อมูลออกปกติค่ะ
แต่พอbinding แล้วเปลี่ยนมาเป็น .DataSource = ds.Tables("tbl_dep1") ทีนี้ก็เลยไม่แน่ใจในส่วนการ binding ข้อมูลนะคะ ว่าเขียนแบบนี้ถูกรึเปล่า

Date : 2011-07-26 12:08:06

By : jernnrej

No. 5

KaimuK

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

Code ผิดก็แค่ตรงที่ให้แก้แหละครับ SQL ผิด (ความคิดเห็นที่ 3) แต่จริงๆแล้วมันน่าจะ Error ไม่น่าจะผ่านไปเฉยๆ ขอดู Code ทั้งหมดได้ไหมครับ

Date : 2011-07-26 15:19:05

By : kaimuk

No. 6

yadamonjee

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

ลองตามนี้แล้วนะคะ

sb.Append("SELECT * FROM tbl_dep1;") ให้เปลี่ยนเป็น sb.Append("SELECT * FROM tbl_dep1 ")
(บรรทัดที่ 13 ของ Code ชุด 2)

แต่ก็ยังเหมือนเดิมค่ะ

อันนี้
โค้ดทั้งหมดค่ะ

Code (VB.NET)

Option Explicit On
Option Strict On
Imports System.IO
Imports System.Text
Imports System.Data
Imports System.Data.SqlClient
Imports System.Drawing.Drawing2D
Imports System.Drawing.Printing
Public Class frmPeople
    Dim Conn As SqlConnection
    Dim com As SqlCommand
    Dim dr As SqlDataReader
    Dim dtPreT As DataTable
    Dim dtPreE As DataTable
    Dim dtType As DataTable
    Dim dtCampus As DataTable
    Dim dtDep1 As DataTable
    Dim dtDep2 As DataTable
    ' Dim dtPrivilege As DataTable
    Dim dtPeople As DataTable
    Dim bs As BindingSource = New BindingSource()
    Dim tr As SqlTransaction
    Dim sb As StringBuilder
 
    Dim AllPeople As Integer = 0
    Dim TeacherPeople As Integer = 0
    Dim StaffPeople As Integer = 0
    Dim OtherPeople As Integer = 0
 
    Dim ActionFlag As String
    Dim Duration As Integer = 0
    Dim SearchPeople As String = "0"
    Dim SubjectDetail As String = "0"
 
    Dim fs As FileStream
    Dim CurrentImage() As Byte
    Dim peoplePicture As String
    Dim IsPictureChange As Boolean = False
 
    Dim UseFont As New Font("MS Sans Serif", 10)
    ' Dim prDoc As PrintDocument = New PrintDocument
    Dim prDlg As PrintDialog = New PrintDialog
    Dim CustomerTypeName As String
 
    Dim sw As New Stopwatch()
    Dim ProcessTime As Double
    Dim _ToolStripLabel As New ToolStripLabel
 
    Dim iCustomerID As New TextBox
    Dim iFnameT As New TextBox
    Dim iFnameE As New TextBox
    Dim iLnameT As New TextBox
    Dim iLnameE As New TextBox
    Dim iSname As New TextBox
    Dim itel As New TextBox
    Dim imobile As New TextBox
    Dim iposition As New TextBox
    Dim iemailU1 As New TextBox
    Dim iemailU2 As New TextBox
    Dim iemailP1 As New TextBox
    Dim iemailP2 As New TextBox
    Dim itoStudy As New TextBox
    Dim itoWork As New TextBox
    Dim itoPortfolio As New TextBox
    Dim iRemark As New TextBox
    Dim iPreT As New ComboBox
    Dim iPreE As New ComboBox
    Dim iSex As New ComboBox
    Dim iCampus As New ComboBox
    Dim iDep1 As New ComboBox
    Dim iDep2 As New ComboBox
    Dim iType As New ComboBox
    Dim iMale As New RadioButton
    Dim iFemale As New RadioButton
    ' Dim iSearchPeople As Boolean = False
    Dim iSubjectDetail As Boolean = False
    '  Dim iFrmSearchPeople As frmSearchPeople
    Dim iFrmSubjectDetail As frmSubjectDetail
    Dim isFind2 As Boolean = False
    Dim da As SqlDataAdapter
    Dim ds As New DataSet
    Dim dt As New DataTable
 
 
    Public Sub New(ByRef refToolStripLabel As ToolStripLabel)
        InitializeComponent()
        _ToolStripLabel = refToolStripLabel
    End Sub
    Public Sub New(ByRef _SubjectDetail As Boolean, ByRef _Male As RadioButton, ByRef _Female As RadioButton, ByRef _CustomerID As TextBox, ByRef _FnameT As TextBox, ByRef _FnameE As TextBox, ByRef _LnameT As TextBox, ByRef _LnameE As TextBox, ByRef _Sname As TextBox, ByRef _mobile As TextBox, ByRef _tel As TextBox, ByRef _position As TextBox, ByRef _Remark As TextBox, ByRef _toStudy As TextBox, ByRef _toWork As TextBox, ByRef _toPortfolio As TextBox, ByRef _emailP1 As TextBox, ByRef _emailP2 As TextBox, ByRef _emailU1 As TextBox, ByRef _emailU2 As TextBox, ByRef _PreT As ComboBox, ByRef _Type As ComboBox, ByRef _PreE As ComboBox, ByRef _Dep1 As ComboBox, ByRef _Dep2 As ComboBox, ByRef _Dep4 As ComboBox, ByRef _Campus As ComboBox, ByRef value As frmSubjectDetail)
        InitializeComponent()
        iSubjectDetail = _SubjectDetail
        iFrmSubjectDetail = value
        iCustomerID = _CustomerID
        iFnameT = _FnameT
        iFnameE = _FnameE
        iLnameT = _LnameT
        iLnameE = _LnameE
        iSname = _Sname
        imobile = _mobile
        itel = _tel
        iemailU1 = _emailU1
        iemailU2 = _emailU2
        iemailP1 = _emailP1
        iemailP2 = _emailP2
        iPreT = _PreT
        iPreE = _PreE
        iDep1 = _Dep1
        iDep2 = _Dep2
        iType = _Type
        iMale = _Male
        iFemale = _Female
        iposition = _position
        iCampus = _Campus
        iRemark = _Remark
        itoStudy = _toStudy
        itoWork = _toWork
        itoPortfolio = _toPortfolio
    End Sub
    Private Sub txtCustomerID_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtCustomerID.TextChanged
        iCustomerID.Text = lblPeopleID.Text()
    End Sub
    Private Sub cboPreT_SelectedValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboPreT.SelectedValueChanged
 
        iPreT.SelectedValue = cboPreT.SelectedValue
    End Sub
 
    Private Sub cboPreE_SelectedValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboPreE.SelectedValueChanged
        iPreE.SelectedValue = cboPreE.SelectedValue
    End Sub
 
    Private Sub cboDep1_SelectedValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboDep1.SelectedValueChanged
        Dim strConn As String
        strConn = DBConnString.strConn
        Conn = New SqlConnection()
 
        With Conn
            If .State = ConnectionState.Open Then .Close()
            .ConnectionString = strConn
            .Open()
        End With
 
        sb = New StringBuilder()
        sb.Append("SELECT * FROM tbl_dep1")
        sb.Append("WHERE dep1ID ='" & cboDep2.SelectedValue.ToString & "'")
 
        Dim sqlIni As String
        sqlIni = sb.ToString()
 
        Dim sqlSelect As String = ""
 
        If isFind2 = True Then
            ds.Tables("tbl_dep1").Clear()
        End If
 
        da = New SqlDataAdapter(sqlSelect, Conn)
        da.Fill(ds, "tbl_dep1")
        With cboCampus
            .DataSource = ds.Tables("tbl_dep1")
            .DisplayMember = "dep1Name"
            .ValueMember = "dep1ID"
        End With
        isFind2 = True
        iDep1.SelectedValue = cboDep1.SelectedValue
    End Sub
 
    Private Sub cboDep2_SelectedValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboDep2.SelectedValueChanged
        iDep2.SelectedValue = cboDep2.SelectedValue
    End Sub
    Private Sub cboType_SelectedValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        iType.SelectedValue = cboType.SelectedValue
    End Sub
 
    Private Sub txtFnameT_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtFnameT.TextChanged
        iFnameT.Text = txtFnameT.Text
    End Sub
 
    Private Sub txtLnameT_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtLnameT.TextChanged
        iLnameT.Text = txtLnameT.Text
    End Sub
 
    Private Sub txtFnameE_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtFnameE.TextChanged
        iFnameE.Text = txtFnameE.Text
    End Sub
 
    Private Sub txtLnameE_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtLnameE.TextChanged
        iLnameE.Text = txtLnameE.Text
    End Sub
 
    Private Sub txtSname_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSname.TextChanged
        iSname.Text = txtSname.Text
    End Sub
 
    Private Sub txtemailU1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtemailU1.TextChanged
        iemailU1.Text = txtemailU1.Text
    End Sub
 
    Private Sub txtemailU2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtemailU2.TextChanged
        iemailU2.Text = txtemailU2.Text
    End Sub
 
    Private Sub txtemailP1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtemailP1.TextChanged
        iemailP1.Text = txtemailP1.Text
    End Sub
 
    Private Sub txtemailP2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtemailP2.TextChanged
        iemailP2.Text = txtemailP2.Text
    End Sub
 
    Private Sub optMale_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optMale.CheckedChanged
        iMale.Checked = optMale.Checked
    End Sub
 
    Private Sub optFemale_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optFemale.CheckedChanged
        iFemale.Checked = optFemale.Checked
    End Sub
 
    Private Sub frmPeople_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lblPeopleID.BackColor = Color.FromArgb(0, 0, 0, 0)
 
        Dim FD As New FormFader
        FD.FadeIn(Me, 0.25)
 
        sw.Reset()
        sw.Start()
        Dim strConn As String
        strConn = DBConnString.strConn
 
        Conn = New SqlConnection()
        With Conn
            If .State = ConnectionState.Open Then .Close()
            .ConnectionString = strConn
            .Open()
        End With
 
        sb = New StringBuilder()
        sb.Append("SELECT * FROM tbl_preT;")
        sb.Append("SELECT * FROM tbl_preE;")
        sb.Append("SELECT * FROM tbl_type;")
        sb.Append("SELECT * FROM tbl_campus;")
        sb.Append("SELECT * FROM tbl_dep1 ORDER BY dep1Name;")
        sb.Append("SELECT * FROM tbl_dep2 ORDER BY dep2Name;")
 
        Dim sqlIni As String
        sqlIni = sb.ToString()
 
        RemoveHandler cboPreT.SelectedValueChanged, AddressOf cboPreT_SelectedValueChanged
        RemoveHandler cboPreE.SelectedValueChanged, AddressOf cboPreE_SelectedValueChanged
        RemoveHandler cboCampus.SelectedValueChanged, AddressOf cboCampus_SelectedValueChanged
        RemoveHandler cboDep1.SelectedValueChanged, AddressOf cboDep1_SelectedValueChanged
        RemoveHandler cboDep2.SelectedValueChanged, AddressOf cboDep2_SelectedValueChanged
        RemoveHandler cboType.SelectedValueChanged, AddressOf cboType_SelectedValueChanged
 
        com = New SqlCommand()
        With com
            .CommandText = sqlIni
            .CommandType = CommandType.Text
            .Connection = Conn
 
            dr = .ExecuteReader()
            If dr.HasRows Then
 
                dtPreT = New DataTable
                dtPreT.Load(dr)
                With cboPreT
                    .BeginUpdate()
                    .DisplayMember = "preTNameS"
                    .ValueMember = "preTID"
                    .DataSource = dtPreT
                    .EndUpdate()
                End With
 
                dtPreE = New DataTable
                dtPreE.Load(dr)
                With cboPreE
                    .BeginUpdate()
                    .DisplayMember = "preENameS"
                    .ValueMember = "preEID"
                    .DataSource = dtPreE
                    .EndUpdate()
                End With
 
                dtType = New DataTable
                dtType.Load(dr)
                With cboType
                    .BeginUpdate()
                    .DisplayMember = "typeName"
                    .ValueMember = "typeID"
                    .DataSource = dtType
                    .EndUpdate()
                End With
 
                dtCampus = New DataTable
                dtCampus.Load(dr)
                With cboCampus
                    .BeginUpdate()
                    .DisplayMember = "CampusNameS"
                    .ValueMember = "campusID"
                    .DataSource = dtCampus
                    .EndUpdate()
                End With
 
                dtDep1 = New DataTable
                dtDep1.Load(dr)
                With cboDep1
                    .BeginUpdate()
                    .DisplayMember = "dep1Name"
                    .ValueMember = "dep1ID"
                    .DataSource = dtDep1
                    .EndUpdate()
                End With
 
                 
 
                dtDep2 = New DataTable
                dtDep2.Load(dr)
                da = New SqlDataAdapter(sqlIni, Conn)
                da.Fill(ds, "tbl_dep1")
                With cboDep2
                    .BeginUpdate()
                    .DisplayMember = "dep2Name"
                    .ValueMember = "dep2ID"
                    .DataSource = dtDep2
                    '.DataSource = ds.Tables("tbl_dep1")
                    .EndUpdate()
                End With
 
            End If
 
        End With
        dr.Close()
 
        AddHandler cboPreT.SelectedValueChanged, AddressOf cboPreT_SelectedValueChanged
        AddHandler cboPreE.SelectedValueChanged, AddressOf cboPreE_SelectedValueChanged
        AddHandler cboCampus.SelectedValueChanged, AddressOf cboCampus_SelectedValueChanged
        AddHandler cboDep1.SelectedValueChanged, AddressOf cboDep1_SelectedValueChanged
        AddHandler cboDep2.SelectedValueChanged, AddressOf cboDep2_SelectedValueChanged
        AddHandler cboType.SelectedValueChanged, AddressOf cboType_SelectedValueChanged
 
        iPreT.SelectedValue = cboPreT.SelectedValue
        iPreE.SelectedValue = cboPreE.SelectedValue
        iCampus.SelectedValue = cboCampus.SelectedValue
        iDep1.SelectedValue = cboDep1.SelectedValue
        iDep2.SelectedValue = cboDep2.SelectedValue
        iType.SelectedValue = cboType.SelectedValue
 
        With cboSearch
            .Items.Add("รหัสบุคคล")
            .Items.Add("ชื่อบุคคล(ภาษาไทย)")
            .Items.Add("ชื่อบุคคล(ภาษาอังกฤษ)")
            '  .Items.Add("คณะ")
            '  .Items.Add("ภาควิชา")
            .Items.Add("เบอร์โทรศัพท์มือถือ")
            .SelectedIndex = 1
        End With
 
        cboPreT.ContextMenu = New ContextMenu()
        cboPreE.ContextMenu = New ContextMenu()
        cboCampus.ContextMenu = New ContextMenu()
        cboDep1.ContextMenu = New ContextMenu()
        cboDep2.ContextMenu = New ContextMenu()
        cboType.ContextMenu = New ContextMenu()
 
        picPeople.Image = picPeople.ErrorImage
        ' dtpAdmitDate.Value = DateTime.Today()
        ClearCustomer()
 
        tsAdd.Enabled = True
        tsOK.Enabled = False
        '  tsCancel.Enabled = False
 
        sw.Stop()
        ProcessTime = sw.ElapsedMilliseconds / 1000
        _ToolStripLabel.Text = "เวลาที่ใช้ : " & ProcessTime.ToString("0.0000") & "วินาที"
        If (iSubjectDetail = False) Then
            bgwPeople.RunWorkerAsync()
        End If
    End Sub
    Private Sub ClearCustomer()
        lblPeopleID.Text = ""
        txtCustomerID.Text = ""
        txtFnameT.Text = ""
        txtFnameE.Text = ""
        txtLnameT.Text = ""
        txtLnameE.Text = ""
        txtSname.Text = ""
        txtposition.Text = ""
        txttoStudy.Text = ""
        txttoWork.Text = ""
        txttoPortfolio.Text = ""
        optMale.Checked = True
        txttel.Text = ""
        txtRemark.Text = ""
        txtmobile.Text = ""
        txtemailP1.Text = ""
        txtemailP2.Text = ""
        txtemailU1.Text = ""
        txtemailU2.Text = ""
 
        'dtpAdmitDate.Value = DateTime.Today()
        peoplePicture = ""
        picPeople.Image = picPeople.ErrorImage
        CurrentImage = Nothing
    End Sub
 
    Private Sub bgwPeople_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bgwPeople.DoWork
        Dim comCount As SqlCommand
        comCount = New SqlCommand()
        With comCount
            .CommandType = CommandType.Text
            .Connection = Conn
        End With
 
        sb.Remove(0, sb.Length())
        sb.Append("SELECT typeID,COUNT(peopleID) AS NumberPeople")
        sb.Append(" FROM tbl_people")
        sb.Append(" GROUP BY typeID")
        sb.Append(" ORDER BY typeID")
        Dim sqlPeople As String
        sqlPeople = sb.ToString()
 
        AllPeople = 0  'สมาชิกทั้งหมด                         AllCustomer
        TeacherPeople = 0 'อาจารย์                            NormalCustomer 
        StaffPeople = 0 'บุคลากร                               MemberCustomer
        OtherPeople = 0  'บุคคลภายนอก / วิทยากร     VIPCustomer
 
        Dim drCount As SqlDataReader
        With comCount
            .CommandText = sqlPeople
            drCount = .ExecuteReader()
 
            With drCount
                If .HasRows Then
                    Do While .Read()
                        If .GetString(0) = "0000" Then
                            TeacherPeople = .GetInt32(1)
                        End If
                        If .GetString(0) = "0001" Then
                            StaffPeople = .GetInt32(1)
                        End If
                        If .GetString(0) = "0002" Then
                            OtherPeople = .GetInt32(1)
                        End If
                    Loop
                Else
                    AllPeople = 0  'สมาชิกทั้งหมด                         AllCustomer
                    TeacherPeople = 0 'อาจารย์                            NormalCustomer 
                    StaffPeople = 0 'บุคลากร                               MemberCustomer
                    OtherPeople = 0  'บุคคลภายนอก / วิทยากร     VIPCustomer
                End If
            End With
        End With
 
        AllPeople = TeacherPeople + StaffPeople + OtherPeople
        bgwPeople.ReportProgress(100)
        drCount.Close()
    End Sub
    Private Sub bgwPeople_ProgressChanged(ByVal sender As System.Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bgwPeople.ProgressChanged
        tsPgbProcess.Value = e.ProgressPercentage()
    End Sub
    Private Sub bgwPeople_RunWorkerCompleted(ByVal sender As System.Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bgwPeople.RunWorkerCompleted
        If e.Error Is Nothing Then
            tsAllPeople.Text = "บุคคลทั้งหมด : " & AllPeople.ToString("#,##0") & "คน  (คณาจารย์มจธ. : " & TeacherPeople.ToString("#,##0") & ") " & "(บุคลากรภายใน : " & StaffPeople.ToString("#,##0") & ") " & "(บุคคลภายนอก/วิทยากร : " & OtherPeople.ToString("#,##0") & ") "
        Else
            tsAllPeople.Text = "บุคคลทั้งหมด 0 คน(ปกติ : 0 คน) (คณาจารย์มจธ. : 0 คน) (บุคคลภายนอก/วิทยากร : 0 คน)"
        End If
    End Sub
 
 
    Private Sub tsSearch_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tsSearch.KeyDown
        If e.KeyCode = Keys.Enter Then
            If tsSearch.Text.Trim() = "" Then Exit Sub
 
            sw.Reset()
            sw.Start()
            sb.Remove(0, sb.Length())
            sb.Append("SELECT * FROM tbl_people")
 
            Select Case cboSearch.SelectedIndex
                Case 0
                    sb.Append(" WHERE (peopleID=@peopleID)")
                Case 1
                    sb.Append(" WHERE (FnameT LIKE @FnameT)")
                Case 2
                    sb.Append(" WHERE (FnameE LIKE @FnameE)")
                Case 3
                    sb.Append(" WHERE (mobile LIKE @mobile)")
 
            End Select
 
            sb.Append("ORDER BY FnameT")
            Dim sqlSearch As String
            sqlSearch = sb.ToString()
 
            dtPeople = New DataTable()
            With com
                .Parameters.Clear()
                Select Case cboSearch.SelectedIndex
                    Case 0
                        .Parameters.Add("@peopleID", SqlDbType.NVarChar).Value = tsSearch.Text.Trim()
                    Case 1
                        .Parameters.Add("@FnameT", SqlDbType.NVarChar).Value = "%" & tsSearch.Text.Trim() & "%"
                    Case 2
                        .Parameters.Add("@FnameE", SqlDbType.NVarChar).Value = "%" & tsSearch.Text.Trim() & "%"
                    Case 3
                        .Parameters.Add("@mobile", SqlDbType.NVarChar).Value = "%" & tsSearch.Text.Trim() & "%"
 
                End Select
                .CommandText = sqlSearch
                .CommandType = CommandType.Text
                .Connection = Conn
                dr = .ExecuteReader
 
                If dr.HasRows Then
                    ClearBinding()
                    ActionFlag = "EDIT"
 
                    dtPeople.Load(dr)
                    bs.DataSource = dtPeople
                    bn.BindingSource = bs
                    lblPeopleID.DataBindings.Add("Text", bs, "peopleID")
                    txtCustomerID.DataBindings.Add("Text", bs, "peopleID")
 
                    ShowPosition()
                    With cboPreT
                        .DisplayMember = "preTNameS"
                        .ValueMember = "preTID"
                        .DataBindings.Add("SelectedValue", bs, "preTID")
                        .DataSource = dtPreT
                    End With
                    With cboPreE
                        .DisplayMember = "preENameS"
                        .ValueMember = "preEID"
                        .DataBindings.Add("SelectedValue", bs, "preEID")
                        .DataSource = dtPreE
                    End With
                    With cboDep1
                        .DisplayMember = "dep1Name"
                        .ValueMember = "dep1ID"
                        .DataBindings.Add("SelectedValue", bs, "dep1ID")
                        .DataSource = dtDep1
                    End With
                    With cboDep2
                        .DisplayMember = "dep2Name"
                        .ValueMember = "dep2ID"
                        .DataBindings.Add("SelectedValue", bs, "dep2ID")
                        .DataSource = dtDep2
                    End With
                    With cboType
                        .DisplayMember = "typeName"
                        .ValueMember = "typeID"
                        .DataBindings.Add("SelectedValue", bs, "typeID")
                        .DataSource = dtType
                    End With
                    With cboCampus
                        .DisplayMember = "campusNameS"
                        .ValueMember = "campusID"
                        .DataBindings.Add("SelectedValue", bs, "campusID")
                        .DataSource = dtCampus
                    End With
 
                    txtFnameT.DataBindings.Add("Text", bs, "FnameT")
                    txtFnameE.DataBindings.Add("Text", bs, "FnameE")
                    txtLnameT.DataBindings.Add("Text", bs, "LnameT")
                    txtLnameE.DataBindings.Add("Text", bs, "LnameE")
                    txtSname.DataBindings.Add("Text", bs, "Sname")
                    txttel.DataBindings.Add("Text", bs, "tel")
                    txtRemark.DataBindings.Add("Text", bs, "Remark")
                    txtmobile.DataBindings.Add("Text", bs, "mobile")
                    txtemailP1.DataBindings.Add("Text", bs, "emailP1")
                    txtemailP2.DataBindings.Add("Text", bs, "emailP2")
                    txtemailU1.DataBindings.Add("Text", bs, "emailU1")
                    txtemailU2.DataBindings.Add("Text", bs, "emailU2")
                    txtposition.DataBindings.Add("Text", bs, "position")
                    txttoStudy.DataBindings.Add("Text", bs, "toStudy")
                    txttoWork.DataBindings.Add("Text", bs, "toWork")
                    txttoPortfolio.DataBindings.Add("Text", bs, "toPortfolio")
 
                    picPeople.DataBindings.Add("Image", bs, "peoplePicture", True, DataSourceUpdateMode.Never, picPeople.ErrorImage)
 
                    bn.Enabled = True
                    tsAdd.Enabled = True
                    tsOK.Enabled = True
                    'tsCancel.Enabled = True
                Else
                    ClearCustomer()
                    tsAdd.Enabled = True
                    tsOK.Enabled = False
                    ' tsCancel.Enabled = False
 
                    bn.BindingSource = Nothing
                    bn.Enabled = False
                    bnRecord.Text = "0"
                    bnCount.Text = "0"
 
                    MessageBox.Show("เงื่อนไขที่คุณป้อน ไม่มี", "ผลการค้นหา", MessageBoxButtons.OK, MessageBoxIcon.Information)
                    tsSearch.Focus()
                    tsSearch.SelectAll()
                End If
            End With
 
            sw.Stop()
            ProcessTime = sw.ElapsedMilliseconds / 1000
            _ToolStripLabel.Text = "เวลาที่ใช้ : " & ProcessTime.ToString("0.0000") & "วินาที"
 
            dr.Close()
        End If
    End Sub
    Private Sub ClearBinding()
        lblPeopleID.DataBindings.Clear()
        txtCustomerID.DataBindings.Clear()
        cboPreT.DataBindings.Clear()
        cboPreE.DataBindings.Clear()
        txtFnameT.DataBindings.Clear()
        txtFnameE.DataBindings.Clear()
        txtLnameT.DataBindings.Clear()
        txtLnameE.DataBindings.Clear()
        txtSname.DataBindings.Clear()
        cboType.DataBindings.Clear()
        cboCampus.DataBindings.Clear()
        cboDep1.DataBindings.Clear()
        cboDep2.DataBindings.Clear()
        txtposition.DataBindings.Clear()
        txttel.DataBindings.Clear()
        txtmobile.DataBindings.Clear()
        txtRemark.DataBindings.Clear()
        txtemailU1.DataBindings.Clear()
        txtemailU2.DataBindings.Clear()
        txtemailP1.DataBindings.Clear()
        txtemailP2.DataBindings.Clear()
        txttoStudy.DataBindings.Clear()
        txttoWork.DataBindings.Clear()
        txttoPortfolio.DataBindings.Clear()
        picPeople.DataBindings.Clear()
    End Sub
 
    Private Sub bnMoveFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnMoveFirst.Click
        ShowPosition()
    End Sub
 
    Private Sub bnMovePrevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnMovePrevious.Click
        ShowPosition()
    End Sub
 
    Private Sub bnMoveNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnMoveNext.Click
        ShowPosition()
    End Sub
 
    Private Sub bnMoveLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnMoveLast.Click
        ShowPosition()
    End Sub
    Private Sub ShowPosition()
        Dim CurrentRecord As Integer
        If bs.Count > 0 Then
            CurrentRecord = bs.Position + 1
            bnRecord.Text = CStr(CurrentRecord)
            If CStr(dtPeople.Rows(CurrentRecord - 1).Item("Sex")) = "M" Then
                optMale.Checked = True
            ElseIf CStr(dtPeople.Rows(CurrentRecord - 1).Item("Sex")) = "F" Then
                optFemale.Checked = True
            End If
        Else
            CurrentRecord = 0
            bnRecord.Text = "0"
            bnCount.Text = "0"
        End If
    End Sub
 
    Private Sub picPeople_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles picPeople.Click
        With ofDlg
            .Title = "เลือกไฟล์รูปภาพ"
            .Filter = "Bitmap (*.bmp)|*.bmp"
            .FileName = ""
            .Multiselect = False
            .FilterIndex = 0
            If .ShowDialog() = Windows.Forms.DialogResult.OK Then
                peoplePicture = .FileName
                picPeople.Image = Image.FromFile(peoplePicture)
            Else
                peoplePicture = ""
                picPeople.Image = picPeople.ErrorImage
            End If
        End With
    End Sub
 
    Private Sub cmdDeleteImage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDeleteImage.Click
        peoplePicture = ""
        picPeople.Image = picPeople.ErrorImage
    End Sub
 
    Private Sub tsAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsAdd.Click
        ActionFlag = "ADD"
        ClearCustomer()
 
        tsAdd.Enabled = False
        tsOK.Enabled = True
        '  tsCancel.Enabled = True
 
        bn.Enabled = False
        bnRecord.Text = "0"
        bnCount.Text = "0"
        tsSearch.Enabled = False
 
        txtFnameT.Focus()
 
    End Sub
 
    Private Sub tsOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsOK.Click
        If (txtFnameT.Text.Trim() = "") OrElse (txtFnameE.Text.Trim() = "") Then
            MessageBox.Show("กรุณาป้อนข้อมูลให้ครบ", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            txtFnameT.Focus()
            Exit Sub
        End If
        If MessageBox.Show("คุณต้องการบันทึกข้อมูลใหม่ ใช่หรือไม่", "คำยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            sw.Reset()
            sw.Start()
            tr = Conn.BeginTransaction()
 
            If peoplePicture <> "" Then
                fs = New FileStream(peoplePicture, FileMode.Open, FileAccess.Read)
                ReDim CurrentImage(CInt(fs.Length))
                fs.Read(CurrentImage, 0, CInt(fs.Length - 1))
                fs.Close()
            End If
 
            Dim sqlOK As String
            Dim NewID As String
            Dim FirstID As String
            Dim LastID As Long
            Try
                Select Case ActionFlag
                    Case "ADD"
                        sb.Remove(0, sb.Length())
                        sb.Append("SELECT TOP 1 peopleID FROM tbl_people")
                        sb.Append(" WHERE (typeID=@typeID)")
                        sb.Append(" ORDER BY peopleID DESC")
                        sqlOK = sb.ToString()
 
                        With com
                            .Parameters.Clear()
                            .Parameters.Add("@typeID", SqlDbType.NVarChar).Value = cboType.SelectedValue.ToString()
                            .CommandText = sqlOK
                            .Transaction = tr
                            dr = .ExecuteReader()
                            If dr.HasRows Then
                                With dr
                                    .Read()
                                    NewID = .GetString(.GetOrdinal("peopleID"))
                                End With
 
                                FirstID = StringExt.StringFromLeft(NewID, 4)
                                LastID = CLng(StringExt.StringFromRight(NewID, 6))
                                LastID += 1
 
 
                                lblPeopleID.Text = String.Format(FirstID, "0000") & LastID.ToString("000000")
                                txtCustomerID.Text = lblPeopleID.Text
                            Else
                                lblPeopleID.Text = CStr(cboType.SelectedValue) & "003400"
                                txtCustomerID.Text = lblPeopleID.Text
                            End If
                            dr.Close()
                            sb.Remove(0, sb.Length())
                            sb.Append("INSERT INTO tbl_people (peopleID,FnameT,LnameT,preTID,preEID,")
                            sb.Append(" FnameE,LnameE,Sname,Sex,dep1ID,dep2ID,CampusID,tel,position,mobile,Remark,toStudy,toWork,toPortfolio,emailU1,emailU2,emailP1,emailP2,")
 
 
                            If peoplePicture <> "" Then
                                sb.Append("peoplePicture,")
                            End If
                            sb.Append(" typeID)")
 
                            sb.Append(" VALUES (@peopleID,@FnameT,@LnameT,@preTID,@preEID,")
                            sb.Append(" @FnameE,@LnameE,@Sname,@Sex,@dep1ID,@dep2ID,@CampusID,@tel,@position,@mobile,@Remark,@toStudy,@toWork,@toPortfolio,@emailU1,@emailU2,@emailP1,@emailP2,")
 
 
                            If peoplePicture <> "" Then
                                sb.Append(" @peoplePicture,")
                            End If
                            sb.Append(" @typeID)")
 
                            sqlOK = sb.ToString
 
                            .CommandText = sqlOK
                            .Parameters.Clear()
                            .Parameters.Add("@peopleID", SqlDbType.NVarChar).Value = lblPeopleID.Text
                            .Parameters.Add("@preTID", SqlDbType.NVarChar).Value = CStr(cboPreT.SelectedValue)
                            .Parameters.Add("@preEID", SqlDbType.NVarChar).Value = CStr(cboPreE.SelectedValue)
                            .Parameters.Add("@typeID", SqlDbType.NVarChar).Value = CStr(cboType.SelectedValue)
                            .Parameters.Add("@campusID", SqlDbType.NVarChar).Value = CStr(cboCampus.SelectedValue)
                            .Parameters.Add("@dep1ID", SqlDbType.NVarChar).Value = CStr(cboDep1.SelectedValue)
                            .Parameters.Add("@dep2ID", SqlDbType.NVarChar).Value = CStr(cboDep2.SelectedValue)
                            .Parameters.Add("@FnameT", SqlDbType.NVarChar).Value = txtFnameT.Text.Trim()
                            .Parameters.Add("@FnameE", SqlDbType.NVarChar).Value = txtFnameE.Text.Trim()
                            .Parameters.Add("@LnameT", SqlDbType.NVarChar).Value = txtLnameT.Text.Trim()
                            .Parameters.Add("@LnameE", SqlDbType.NVarChar).Value = txtLnameE.Text.Trim()
                            .Parameters.Add("@Sname", SqlDbType.NVarChar).Value = txtSname.Text.Trim()
                            .Parameters.Add("@tel", SqlDbType.NVarChar).Value = txttel.Text.Trim()
                            .Parameters.Add("@Remark", SqlDbType.NVarChar).Value = txtRemark.Text.Trim()
                            .Parameters.Add("@mobile", SqlDbType.NVarChar).Value = txtmobile.Text.Trim()
                            .Parameters.Add("@emailU1", SqlDbType.NVarChar).Value = txtemailU1.Text.Trim()
                            .Parameters.Add("@emailU2", SqlDbType.NVarChar).Value = txtemailU2.Text.Trim()
                            .Parameters.Add("@emailP1", SqlDbType.NVarChar).Value = txtemailP1.Text.Trim()
                            .Parameters.Add("@emailP2", SqlDbType.NVarChar).Value = txtemailP2.Text.Trim()
                            .Parameters.Add("@position", SqlDbType.NVarChar).Value = txtposition.Text.Trim()
                            .Parameters.Add("@toStudy", SqlDbType.NVarChar).Value = txttoStudy.Text.Trim()
                            .Parameters.Add("@toWork", SqlDbType.NVarChar).Value = txttoWork.Text.Trim()
                            .Parameters.Add("@toPortfolio", SqlDbType.NVarChar).Value = txttoPortfolio.Text.Trim()
 
                            If optMale.Checked = True Then
                                .Parameters.Add("@Sex", SqlDbType.NVarChar).Value = "F"
                            Else
                                .Parameters.Add("@Sex", SqlDbType.NVarChar).Value = "M"
                            End If
 
                            If peoplePicture <> "" Then
                                .Parameters.Add("@peoplePicture", SqlDbType.Image).Value = CurrentImage
                            End If
 
                            .ExecuteNonQuery()
                        End With
 
                    Case "EDIT"
                        sb.Remove(0, sb.Length())
 
                        sb.Append("UPDATE tbl_people")
                        sb.Append(" SET preTID=@preTID,")
                        sb.Append(" preEID=@preEID,")
                        sb.Append(" FnameT=@FnameT,")
                        sb.Append(" LnameT=@LnameT,")
                        sb.Append(" FnameE=@FnameE,")
                        sb.Append(" LnameE=@LnameE,")
                        sb.Append(" Sname=@Sname,")
                        sb.Append(" Sex=@Sex,")
                        sb.Append(" typeID=@typeID,")
                        sb.Append(" campusID=@campusID,")
                        sb.Append(" dep1ID=@dep1ID,")
                        sb.Append(" dep2ID=@dep2ID,")
                        sb.Append(" tel=@tel,")
                        sb.Append(" mobile=@mobile,")
                        sb.Append(" emailU1=@emailU1,")
                        sb.Append(" emailU2=@emailU2,")
                        sb.Append(" emailP1=@emailP1,")
                        sb.Append(" emailP2=@emailP2,")
                        sb.Append(" position=@position,")
                        sb.Append(" Remark=@Remark,")
                        sb.Append(" toStudy=@toStudy,")
                        sb.Append(" toWork=@toWork,")
                        sb.Append(" toPortfolio=@toPortfolio")
                        sb.Append(" WHERE (peopleID=@peopleID)")
                        'Dim sqlOK As String
                        sqlOK = sb.ToString
 
                        With com
                            .CommandText = sqlOK
                            .Transaction = tr
                            .Parameters.Clear()
                            '  .Parameters.Add("@peopleID", SqlDbType.NVarChar).Value = lblPeopleID.Text
                            .Parameters.Add("@preTID", SqlDbType.NVarChar).Value = CStr(cboPreT.SelectedValue)
                            .Parameters.Add("@preEID", SqlDbType.NVarChar).Value = CStr(cboPreE.SelectedValue)
                            .Parameters.Add("@typeID", SqlDbType.NVarChar).Value = CStr(cboType.SelectedValue)
                            .Parameters.Add("@dep1ID", SqlDbType.NVarChar).Value = CStr(cboDep1.SelectedValue)
                            .Parameters.Add("@dep2ID", SqlDbType.NVarChar).Value = CStr(cboDep2.SelectedValue)
                            .Parameters.Add("@campusID", SqlDbType.NVarChar).Value = CStr(cboCampus.SelectedValue)
                            .Parameters.Add("@FnameT", SqlDbType.NVarChar).Value = txtFnameT.Text.Trim()
                            .Parameters.Add("@FnameE", SqlDbType.NVarChar).Value = txtFnameE.Text.Trim()
                            .Parameters.Add("@LnameT", SqlDbType.NVarChar).Value = txtLnameT.Text.Trim()
                            .Parameters.Add("@LnameE", SqlDbType.NVarChar).Value = txtLnameE.Text.Trim()
                            .Parameters.Add("@Sname", SqlDbType.NVarChar).Value = txtSname.Text.Trim()
                            .Parameters.Add("@tel", SqlDbType.NVarChar).Value = txttel.Text.Trim()
                            .Parameters.Add("@Remark", SqlDbType.NVarChar).Value = txtRemark.Text.Trim()
                            .Parameters.Add("@mobile", SqlDbType.NVarChar).Value = txtmobile.Text.Trim()
                            .Parameters.Add("@emailU1", SqlDbType.NVarChar).Value = txtemailU1.Text.Trim()
                            .Parameters.Add("@emailU2", SqlDbType.NVarChar).Value = txtemailU2.Text.Trim()
                            .Parameters.Add("@emailP1", SqlDbType.NVarChar).Value = txtemailP1.Text.Trim()
                            .Parameters.Add("@emailP2", SqlDbType.NVarChar).Value = txtemailP2.Text.Trim()
                            .Parameters.Add("@position", SqlDbType.NVarChar).Value = txtposition.Text.Trim()
                            .Parameters.Add("@toStudy", SqlDbType.NVarChar).Value = txttoStudy.Text.Trim()
                            .Parameters.Add("@toWork", SqlDbType.NVarChar).Value = txttoWork.Text.Trim()
                            .Parameters.Add("@toPortfolio", SqlDbType.NVarChar).Value = txttoPortfolio.Text.Trim()
 
                            If optMale.Checked = True Then
                                .Parameters.Add("@Sex", SqlDbType.NVarChar).Value = "F"
                            Else
                                .Parameters.Add("@Sex", SqlDbType.NVarChar).Value = "M"
                            End If
 
                            If (IsPictureChange = True) AndAlso (peoplePicture <> "") Then
                                .Parameters.Add("@peoplePicture", SqlDbType.Image).Value = CurrentImage
                            End If
                            .Parameters.Add("@peopleID", SqlDbType.NVarChar).Value = lblPeopleID.Text
                            .ExecuteNonQuery()
                        End With
 
                End Select
 
                tr.Commit()
                sw.Stop()
                ProcessTime = sw.ElapsedMilliseconds / 1000
                _ToolStripLabel.Text = "เวลาที่ใช้ : " & ProcessTime.ToString("0.0000") & " วินาที"
 
                MessageBox.Show("บันทึกข้อมูลสมาชิกใหม่ เรียบร้อยแล้ว", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
 
                If (iSubjectDetail = False) Then
                    ClearCustomer()
                End If
                If (iSubjectDetail = True) Then
                    Me.Close()
                End If
 
                bn.BindingSource = Nothing
                bnRecord.Text = "0"
                bnCount.Text = "0"
 
                tsAdd.Enabled = True
                tsOK.Enabled = False
                '   tsCancel.Enabled = False
                bn.Enabled = True
 
                tsSearch.Focus()
                tsSearch.SelectAll()
 
                If (iSubjectDetail = False) Then
                    bgwPeople.RunWorkerAsync()
                End If
            Catch ex As Exception
                tr.Rollback()
                MessageBox.Show("เกิดข้อผิดพลาด เนื่องจาก " & ex.Message, "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            End Try
            tsSearch.Enabled = True
        End If
    End Sub
 
    Private Sub tsCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        tsAdd.Enabled = True
        If ActionFlag = "ADD" Then
            tsOK.Enabled = False
            '  tsCancel.Enabled = False
        Else
            tsOK.Enabled = True
            '  tsCancel.Enabled = True
        End If
        bn.Enabled = False
        tsOK.Enabled = False
        ' tsCancel.Enabled = False
 
        ClearCustomer()
        If (iSubjectDetail = True) Then
            Me.Close()
        End If
        tsSearch.Enabled = True
        tsSearch.Focus()
        tsSearch.SelectAll()
    End Sub
    Private Sub cboPreT_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles cboPreT.KeyPress
        e.Handled = True
    End Sub
    Private Sub cboPreE_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles cboPreE.KeyPress
        e.Handled = True
    End Sub
    Private Sub cboType_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles cboType.KeyPress
        e.Handled = True
    End Sub
    Private Sub cboDep1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles cboDep1.KeyPress
        e.Handled = True
    End Sub
    Private Sub cboDep2_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles cboDep2.KeyPress
        e.Handled = True
    End Sub
    Private Sub frmPeople_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
        If Conn IsNot Nothing Then
            Conn.Close()
        End If
    End Sub
 
    Private Sub tsEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If (txtFnameT.Text.Trim() = "") OrElse (txtFnameE.Text.Trim() = "") Then
            MessageBox.Show("กรุณาป้อนข้อมูลให้ครบ", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            txtFnameT.Focus()
            Exit Sub
        End If
 
        If MessageBox.Show("คุณต้องการแก้ไขข้อมูลลูกค้า ใช่หรือไม่?", "คำยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            sw.Reset()
            sw.Start()
            tr = Conn.BeginTransaction()
 
            Try
                If (IsPictureChange = True) AndAlso (peoplePicture <> "") Then
                    fs = New FileStream(peoplePicture, FileMode.Open, FileAccess.Read)
                    ReDim CurrentImage(CInt(fs.Length))
                    fs.Read(CurrentImage, 0, CInt(fs.Length - 1))
                    fs.Close()
                Else
                    CurrentImage = New Byte() {}
                End If
 
                sb.Remove(0, sb.Length())
 
                sb.Append("UPDATE tbl_people")
                sb.Append(" SET preTID=@preTID,")
                sb.Append(" preEID=@preEID,")
                sb.Append(" FnameT=@FnameT,")
                sb.Append(" LnameT=@LnameT,")
                sb.Append(" FnameE=@FnameE,")
                sb.Append(" LnameE=@LnameE,")
                sb.Append(" Sname=@Sname,")
                sb.Append(" Sex=@Sex,")
                sb.Append(" typeID=@typeID,")
                sb.Append(" campusID=@campusID,")
                sb.Append(" dep1ID=@dep1ID,")
                sb.Append(" dep2ID=@dep2ID,")
                sb.Append(" tel=@tel,")
                sb.Append(" mobile=@mobile,")
                sb.Append(" emailU1=@emailU1,")
                sb.Append(" emailU2=@emailU2,")
                sb.Append(" emailP1=@emailP1,")
                sb.Append(" emailP2=@emailP2")
                sb.Append(" position=@position,")
                sb.Append(" Remark=@Remark,")
                sb.Append(" toStudy=@toStudy,")
                sb.Append(" toWork=@toWork,")
                sb.Append(" toPortfolio=@toPortfolio,")
                sb.Append(" WHERE (peopleID=@peopleID)")
                Dim sqlOK As String
                sqlOK = sb.ToString
 
                With com
                    .CommandText = sqlOK
                    .Transaction = tr
                    .Parameters.Clear()
                    .Parameters.Add("@peopleID", SqlDbType.NVarChar).Value = lblPeopleID.Text
                    .Parameters.Add("@preTID", SqlDbType.NVarChar).Value = CStr(cboPreT.SelectedValue)
                    .Parameters.Add("@preEID", SqlDbType.NVarChar).Value = CStr(cboPreE.SelectedValue)
                    .Parameters.Add("@typeID", SqlDbType.NVarChar).Value = CStr(cboType.SelectedValue)
                    .Parameters.Add("@dep1ID", SqlDbType.NVarChar).Value = CStr(cboDep1.SelectedValue)
                    .Parameters.Add("@dep2ID", SqlDbType.NVarChar).Value = CStr(cboDep2.SelectedValue)
                    .Parameters.Add("@campusID", SqlDbType.NVarChar).Value = CStr(cboCampus.SelectedValue)
                    .Parameters.Add("@FnameT", SqlDbType.NVarChar).Value = txtFnameT.Text.Trim()
                    .Parameters.Add("@FnameE", SqlDbType.NVarChar).Value = txtFnameE.Text.Trim()
                    .Parameters.Add("@LnameT", SqlDbType.NVarChar).Value = txtLnameT.Text.Trim()
                    .Parameters.Add("@LnameE", SqlDbType.NVarChar).Value = txtLnameE.Text.Trim()
                    .Parameters.Add("@Sname", SqlDbType.NVarChar).Value = txtSname.Text.Trim()
                    .Parameters.Add("@tel", SqlDbType.NVarChar).Value = txttel.Text.Trim()
                    .Parameters.Add("@Remark", SqlDbType.NVarChar).Value = txtRemark.Text.Trim()
                    .Parameters.Add("@mobile", SqlDbType.NVarChar).Value = txtmobile.Text.Trim()
                    .Parameters.Add("@emailU1", SqlDbType.NVarChar).Value = txtemailU1.Text.Trim()
                    .Parameters.Add("@emailU2", SqlDbType.NVarChar).Value = txtemailU2.Text.Trim()
                    .Parameters.Add("@emailP1", SqlDbType.NVarChar).Value = txtemailP1.Text.Trim()
                    .Parameters.Add("@emailP2", SqlDbType.NVarChar).Value = txtemailP2.Text.Trim()
                    .Parameters.Add("@position", SqlDbType.NVarChar).Value = txtposition.Text.Trim()
                    .Parameters.Add("@toStudy", SqlDbType.NVarChar).Value = txttoStudy.Text.Trim()
                    .Parameters.Add("@toWork", SqlDbType.NVarChar).Value = txttoWork.Text.Trim()
                    .Parameters.Add("@toPortfolio", SqlDbType.NVarChar).Value = txttoPortfolio.Text.Trim()
 
                    If optMale.Checked = True Then
                        .Parameters.Add("@Sex", SqlDbType.NVarChar).Value = "F"
                    Else
                        .Parameters.Add("@Sex", SqlDbType.NVarChar).Value = "M"
                    End If
 
                    If (IsPictureChange = True) AndAlso (peoplePicture <> "") Then
                        .Parameters.Add("@peoplePicture", SqlDbType.Image).Value = CurrentImage
                    Else
                        .Parameters.Add("@peoplePicture", SqlDbType.Image).Value = CurrentImage
                    End If
                    .ExecuteNonQuery()
                End With
                tr.Commit()
 
                sw.Stop()
                ProcessTime = sw.ElapsedMilliseconds / 1000
                _ToolStripLabel.Text = "เวลาที่ใช้ : " & ProcessTime.ToString("0.0000") & " วินาที"
                MessageBox.Show("แก้ไขข้อมูลบุคคล เรียบร้อยแล้ว", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
 
                '  tsEdit.Enabled = False
                '  tsCancel.Enabled = False
                bn.Enabled = True
                IsPictureChange = False
                tsSearch.Focus()
                tsSearch.SelectAll()
            Catch ex As Exception
                tr.Rollback()
                MessageBox.Show("เกิดข้อผิดพลาด เนื่องจาก" & ex.Message, "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            End Try
        End If
    End Sub
 
    Private Sub cboCampus_SelectedValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboCampus.SelectedValueChanged
        iCampus.SelectedValue = cboCampus.SelectedValue
    End Sub
 
    Private Sub txtposition_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtposition.TextChanged
        iposition.Text = txtposition.Text()
    End Sub
 
    Private Sub txtRemark_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtRemark.TextChanged
        iRemark.Text = txtRemark.Text()
    End Sub
 
    Private Sub txttoStudy_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txttoStudy.TextChanged
        itoStudy.Text = txttoStudy.Text()
    End Sub
 
    Private Sub txttoWork_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txttoWork.TextChanged
        itoWork.Text = txttoWork.Text()
    End Sub
 
    Private Sub txttoPortfolio_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txttoPortfolio.TextChanged
        itoPortfolio.Text = txttoPortfolio.Text()
    End Sub
End Class

ประวัติการแก้ไข
2011-07-26 15:44:17

Date : 2011-07-26 15:43:07

By : jernnrej

No. 7

yadamonjee

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

แหะๆ ยาวไปหน่อย (มากกกกกกกกก)

Date : 2011-07-26 15:44:56

By : jernnrej

No. 8

KaimuK

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

ผมดูก็ไม่น่ามีอะไรผิดนะครับ น่าจะมีแค่ตรงนี้

Code (VB.NET)

1.sb.Append("SELECT * FROM tbl_dep1")

2.sb.Append("WHERE dep1ID ='" & cboDep2.SelectedValue.ToString & "'")

สังเกตุบรรทัดแรกนะครับให้เรา เว้นวรรคด้วยครับ หลังเลขหนึ่งน่ะครับ

ไม่งั้น SQL String ที่ออกมามันจะเป็น

SELECT * FROM tbl_dep1WHERE dep1ID ='" & cboDep2.SelectedValue.ToString & "'

ซึ่งควรจะเป็น

SELECT * FROM tbl_dep1 WHERE dep1ID ='" & cboDep2.SelectedValue.ToString & "'

(วรรคหน้า Where)

Date : 2011-07-26 17:01:12

By : kaimuk

No. 9

yadamonjee

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

ว้าว จริงๆด้วยค่ะ เพิ่งเข้าใจแจ่มแจ้งว่าทำไมต้องวรรคหน้า where

คราวนี้ในcombobox 2 ดึงข้อมูลสาขาวิชามาทั้งหมดเลยค่ะ
มันไม่ได้เลือกมาเฉพาะที่ combobox คณะแสดงอยู่
พอลองเลือกครั้งที่ 2 ก็เกิดerror อันนี้ขึ้นมาค่ะ

errorCombobox

Date : 2011-07-26 17:29:33

By : jernnrej

No. 10

KaimuK

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

ดูเหมือนจะเป็นบรรทัดนี้นะครับ

da = New SqlDataAdapter(sqlSelect, Conn)

เพราะ SQLSelect ไม่ได้มีการแทนค่าอะไรลงไปเลย

Date : 2011-07-27 08:44:11

By : kaimuk

No. 11

yadamonjee

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

จริงๆด้วยละคะ อ้างผิดตัว
และก็เพิ่งมาสังเกตเห็น ไม่แน่ใจว่าผูกข้อมูลผิดตัวรึเปล่า
ก่อนหน้านี้ผูกกับ cboDep2 (สาขาวิชา) แต่โค้ดนี้เปลี่ยนเป็นผูกกับ cboDep1 (คณะ)
แบบโค้ดนี้ถูกมั้ยค่ะ

Code (VB.NET)

dtDep1 = New DataTable
                dtDep1.Load(dr)
                da = New SqlDataAdapter(sqlIni, Conn)
                da.Fill(ds, "tbl_dep1")
                With cboDep1
                    .BeginUpdate()
                    .DisplayMember = "dep1Name"
                    .ValueMember = "dep1ID"
                    .DataSource = dtDep1
                    .EndUpdate()
                End With
 
                 
 
                dtDep2 = New DataTable
                dtDep2.Load(dr)
                With cboDep2
                    .BeginUpdate()
                    .DisplayMember = "dep2Name"
                    .ValueMember = "dep2ID"
                    .DataSource = dtDep2
                    '.DataSource = ds.Tables("tbl_dep1")
                    .EndUpdate()
                End With

แต่กลายเป็นว่าเกิดerror แบบภาพนี้ค่ะ

และก็อยากถามอีกนิดดดดดนึงค่ะ
ตอนที่ระบุDataSource นี้ เราต้องระบุแบบนี้ .DataSource = dtDep2 หรือแบบนี้ค่ะ .DataSource = ds.Tables("tbl_dep1")

ขอบคุณนะคะที่ช่วยชี้แนะมาโดยตลอดเลย

ประวัติการแก้ไข
2011-07-27 17:24:28

Date : 2011-07-27 17:20:03

By : jernnrej

No. 12

yadamonjee

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

ขออภัย เมื่อตะกี้ภาพไม่ขึ้นค่ะ

Date : 2011-07-27 17:25:42

By : jernnrej

No. 13

TC Admin

โพสกระทู้ ( 74,059 )
บทความ ( 838 )

มันบอกว่าใช้ DataReader ซ้ำครับ ให้ .Close() ตัวแรกก่อนครับ

Date : 2011-07-27 21:38:24

By : webmaster

No. 14

Guest

มันต้อง .close ตัวไหนค่ะ dr.close(); ใช่มั้ยค่ะ
แต่สงสัยว่าต้องใส่ตรงไหนค่ะ

เพราะว่าท้ายการโหลดก็ใส่ dr.close();รวมทุกตัว แต่ไม่รู้ว่าต้องใส่แยกทีละตัวรึเปล่าค่ะ

Date : 2011-07-29 10:44:48

By : jernnrej

No. 15

yadamonjee

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

ตอบความคิดเห็นที่ : 13 เขียนโดย : webmaster เมื่อวันที่ 2011-07-27 21:38:24

รายละเอียดของการตอบ ::

มันฟ้องที่ da.fill นี่ค่ะ แต่ทำไมถึงบอกให้ิปิดdatareader ละคะ
da เป็น dataadapter ไม่ใช่เหรอค่ะ

Date : 2011-08-25 15:32:09

By : jernnrej

ค้นหาข้อมูล

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

Re : สอบถามเรื่องการ binding ข้อมูลของ combobox แล้วไม่ผ่านค่ะ

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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

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

Registered : 109,038

document.write("<font color=996600>[.NET]</font>"); [.NET] สอบถามเรื่องการ binding ข้อมูลของ combobox แล้วไม่ผ่านค่ะ

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

No. 14

No. 15

ค้นหาข้อมูล

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

Notice

[.NET] สอบถามเรื่องการ binding ข้อมูลของ combobox แล้วไม่ผ่านค่ะ