สอบถามปัญหาคำสั่ง เกี่ยวกับการเชื่อต่อฐาน MS SQL 2008 มันติดตรงนี้อะครับ da.Fill(ds, "MemberType")

Option Explicit On
Option Strict On
Imports System.Data
Imports System.Data.SqlClient
Imports System.Globalization
Imports System.Drawing.Printing



Public Class frmMember
    Inherits System.Windows.Forms.Form
    Dim Conn As SqlConnection = New SqlConnection
    Dim da As SqlDataAdapter 
    Dim ds As DataSet = New DataSet
    Dim dt As DataTable

    Dim Tody As Date

    Dim CurrentRecord As Integer = 0
    Dim Recordcount As Integer = 0


    Dim UseFont As New Font("MS Sans Serif", 10)

    Dim prDoc As PrintDocument = New PrintDocument
    Private prDlg As PrintDialog = New PrintDialog


    Dim ActionFlag As String = ""
    Dim LastRevenueID As String = ""
    Dim Dtflnfo As DateTimeFormatInfo

    Dim IsFind As Boolean = False


    Private Sub frmMember_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.WindowState = FormWindowState.Maximized

        Cursor.Current = Cursors.WaitCursor

        Dim strConn As String 
        strConn = "Data Source=.\SQLEXPRESS;Initial Catalog=Business Rule;Integrated Security=True"
        'strConn = "Data Source=.\PARKCG;Initial Catalog=Business Rule;Integrated Security=True"
        'strConn = "Data Source=.\SQLEXPRESS;AttachDbFilename='C:\Program Files\" & _
        '"Microsoft SQL Server\MSSQL10.SQL SERVER\MSSQL\DATA\Business Rule.mdf';" & _
        '"Integrated Security=True;Connect Timeout=30;User Instance=True"



      With Conn

            If .State = ConnectionState.Open Then .Close()
            .ConnectionString = strConn
            .Open()
        End With


        Dim sqlMemberType As String = " "
        sqlMemberType = "SELECT MemberTypeID,MemberTypeName"


        sqlMemberType &= "FROM MemberType"


        sqlMemberType &= "ORDER BY MemberTypeID"


        da = New SqlDataAdapter(sqlMemberType, Conn)

        da.Fill(ds, "MemberType")

        If ds.Tables("MemberType").Rows.Count <> 0 Then
            With cboMemberType
                .DataSource = ds.Tables("MemberType")
                .DisplayMember = "MemberTypeName"
                .ValueMember = "MemberTypeID"

            End With



            'ShowMemberDetail()
            'FormatDataGridWithData()

        End If

        Dim sqlBranch As String = ""


        sqlBranch = "SELECT*FROM Branch ORDER BY BranchID"

        da.SelectCommand.CommandText = sqlBranch
        da.Fill(ds, "Branch")


        If ds.Tables("Branch").Rows.Count <> 0 Then
            With cboSearchBranch
                .DataSource = ds.Tables("Branch")
                .DisplayMember = "BranchName"
                .ValueMember = "BranchID"
            End With
        End If

        With cboSearch
            .Items.Add("รหัสสมาชิก")
            .Items.Add("=ชื่อ-สกุล")
            .SelectedIndex = 0
        End With
        'LockAllCtrl()

        Today = Date.Now
        'dtpAdmitDate.Value = Today
        '
        'Dtflnfo =DateTime format Info.Invaris








    End Sub
End Class

Dim sqlMemberType As String = " "
sqlMemberType = "SELECT MemberTypeID,MemberTypeName "
sqlMemberType &= "FROM MemberType "
sqlMemberType &= "ORDER BY MemberTypeID "

Dim bin As New BindingSource(ds, "land")

txtLANDID.DataBindings.Add("Text", bin, "LANDID")

    Dim Conn As SqlConnection 'ยังไม่ต้อง New
    Dim da As SqlDataAdapter

    Dim product As OleDb.OleDbCommand 'บรรทัดนี้ไว้ทำอะไร ใช้ da พอแล้วมั้ง
    Dim add_state As Boolean = False
    Dim ds As DataSet = New DataSet 'ไม่ต้องใช้ DataSet ใช้ Datatable ไปเลย
    Dim dt As DataTable
    Private bin As New BindingSource 'ย้ายมาจากข้างล่าง
    Dim Tody As Date 'Today หรือเปล่า

    Dim CurrentRecord As Integer = 0
    Dim Recordcount As Integer = 0


    Dim UseFont As New Font("MS Sans Serif", 10)

    Private WithEvents prDoc As New Printing.PrintDocument 'ต้องมี WithEvents ด้วย แล้วใช้คำสั่ง Graphics เป็นหรือยัง
    Private prDlg As PrintDialog = New PrintDialog 'ไม่ต้องรีบประกาศ จะใช้ค่อนประกาศ
    Dim strConnString, strSQL As String 'strConnString ใช้ครั้งเดียว ประกาศใน Sub
    Dim objCmd As New SqlCommand 'ยังไม่ต้อง New
    Dim objConn As New SqlConnection 'มีทำไมหลายอัน
    Dim dspro As New DataSet 'อันนี้ก็ด้วย

    'ชุดนี้ไว้ทำอะไร ซ้ำทั้งนั้น
    Dim dtSet As DataSet = New DataSet 'ประกาศตัวแปรแทนออบเจ็คหรือ Instance จากคลาส DataSet 
    Dim dtTable As DataTable 'ประกาศตัวแปรแทนออบเจ็คหรือ Instance จากคลาส DataTable
    Dim objCurrencyMgr As CurrencyManager 'ประกาศตัวแปรแทนออบเจ็คหรือ Instance จากคลาส CurrencyManager
    Dim currRecPos As Integer 'ประกาศตัวแปรเก็บตำแหน่งเรคอร์ดปัจจุบัน


    'ประกาศตัวแปรแสดงโหมดการทำงาน ถ้าอยู่ในโหมดเพิ่มเรคอร์ดจะมีค่าเป็น True ถ้าอยู่ในโหมดแก้ไขจะมีค่าเป็น False
    Dim addNewMode As Boolean
    Dim fdName As String 'ประกาศตัวแปรเก็บชื่อฟีลด์ในเทเบิล Contacts
    Dim sHelpFile As String


    Dim ActionFlag As String = ""
    Dim LastRevenueID As String = ""
    Dim Dtflnfo As DateTimeFormatInfo

    Dim IsFind As Boolean = False

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

        Dim strConn As String = "Data Source=.\SQLEXPRESS;Initial Catalog=SSPEGIS;Integrated Security=True"
        Conn = New SqlConnection(strConn)
        'DataAdapter ไม่ต้อง Open Conn
        Dim sqlland As String
        sqlland = "SELECT * FROM land ORDER BY LANDID"
        da = New SqlDataAdapter(sqlland, Conn)
        da.Fill(dt)
        'ไม่ต้องเช็คหรอก ไม่มีอะไรเลยก็ Bind ได้ If ds.Tables("land").Rows.Count <> 0 Then

        'เอาไปไว้ข้างนอก Dim bin As New BindingSource(ds, "land")
        'ตรงนี้สร้าง Updateข้อมูล มีข้อแม้ว่า ตาราง land ต้องมี คีย์ฟิลล์
        Dim cmb As SqlCommandBuilder
        cmb = New SqlCommandBuilder(da)

     'เพิ่มเติมบรรทัดนี้
        bin.Datasource = dt

        'นำคอนโทรลเท็กซ์บ็อกซ์บนฟอร์มมาผูกกับข้อมูลในแต่ละฟีลด์ของ datatable
        txtLANDID.DataBindings.Add("Text", bin, "LANDID")
        txtPARCEL_CODE.DataBindings.Add("Text", bin, "PARCEL_CODE")
        txtTAMBON_TH.DataBindings.Add("Text", bin, "TAMBON_TH")
        txtDISTRICT_TH.DataBindings.Add("Text", bin, "DISTRICT_TH")
        txtPROVINCE_TH.DataBindings.Add("Text", bin, "PROVINCE_TH")
        txtUTM_CODE.DataBindings.Add("Text", bin, "UTM_CODE")
        txtUTM_NO.DataBindings.Add("Text", bin, "UTM_NO")
        txtUTM_PAGE.DataBindings.Add("Text", bin, "UTM_PAGE")
        'txtUSED_DESC.DataBindings.Add("Text", bin, "USED_DESC")
        'txtLDOC_TYPE.DataBindings.Add("Text", bin, "LDOC_TYPE")
        'txtL_UTILIZATION.DataBindings.Add("Text", bine, "L_UTILIZATION")
        txtSURVEY_NO.DataBindings.Add("Text", bin, "SURVEY_NO")
        'txtLDOC_NO.DataBindings.Add("Text", bin, "USED_DESC")
        txtLAND_NO.DataBindings.Add("Text", bin, "LDOC_NO")
        txtDOL_RAI.DataBindings.Add("Text", bin, "DOL_RAI")
        txtDOL_NGAN.DataBindings.Add("Text", bin, "DOL_NGAN")
        txtDOL_WA.DataBindings.Add("Text", bin, "DOL_WA")
        txtTAXED_RAI.DataBindings.Add("Text", bin, "TAXED_RAI")
        txtTAXED_NGAN.DataBindings.Add("Text", bin, "TAXED_NGAN")
        txtTAXED_WA.DataBindings.Add("Text", bin, "TAXED_WA")
    End Sub


    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        'เอาออกไป
        'Dim strConn As String
        'Dim sqlupdate As String
        'Dim sqladd As String
        'sqlupdate = "update land "
        'sqlupdate &= " set PARCEL_CODE = '" & txtPARCEL_CODE.Text & "',"
        'sqlupdate &= " TAMBON_TH= '" & txtTAMBON_TH.Text & "',"
        'sqlupdate &= " DISTRICT_TH= " & Val(txtDISTRICT_TH.Text) & ","
        'sqlupdate &= " PROVINCE_TH= " & Val(txtPROVINCE_TH.Text) & ""
        'sqlupdate &= " UTM_CODE = '" & txtUTM_CODE.Text & "'"
        'sqlupdate &= " where LANDID = '" & txtLANDID.Text & "'"
        'sqladd = "insert into land(LANDID,PARCEL_CODE, TAMBON_TH , DISTRICT_TH,PROVINCE_TH)"
        'sqladd &= " values ('" & txtLANDID.Text & "',"
        'sqladd &= " '" & txtPARCEL_CODE.Text & "',"
        'sqladd &= "'" & txtTAMBON_TH.Text & "',"
        'sqladd &= "" & Val(txtDISTRICT_TH.Text) & ","
        'sqladd &= "" & Val(txtPROVINCE_TH.Text) & ")"
        'With Conn
        'If .State = ConnectionState.Open Then .Close()
        '.ConnectionString = strConn
        '.Open()
        'End With

        Dim dtChange As DataTable = dt.GetChanges
        'ถ้าจะตรวจสอบข้อมูล ให้เอาตารางนี้ไปตรวจ
        Try
            bin.EndEdit()
            da.Update(dtChange)
            dt.AcceptChanges()
        Catch ex As SqlException
            MessageBox.Show(ex.Message)
        Finally
            Conn.Close()
        End Try

        'เอาออกไป
        'product = New OleDb.OleDbCommand
        'With product
        '.CommandType = CommandType.Text
        ' If add_state = True Then
        '.CommandText = sqladd
        ' Else
        '.CommandText = sqlupdate
        'End If
        ' .Connection = Conn
        ' .ExecuteNonQuery()
        ' End With
        '  Catch ErrorToEdit As Exception
        'MessageBox.Show(ErrorToEdit.Message & sqladd, "ข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Error)
        ' Exit Sub
        ' End Try


        add_state = False
        MessageBox.Show("บันทึกข้อมูลเสร็จแล้ว ", "แจ้งให้ทราบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Call lock_object()
        Call Show()
    End Sub


    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        addNewMode = True 'แสดงโหมดการทำงานแบบเพิ่มเรคอร์ดใหม่ 
        currRecPos = bin.Position 'เก็บตำแหน่งเรคอร์ดปัจจุบันใน datatable ไว้ที่ currRecPos 
        bin.AddNew() 'เพิ่มเรคอร์ดใหม่ว่างๆ 1 เรคอร์ดใน datatable 

        EnabledReadWrite() 'ให้เท็กซ์บ็อกซ์ทั้งหมดแสดงข้อมูลแบบอ่านเขียนได้ 

        txtLANDID.Focus()
    End Sub

    Private Sub btnFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFirst.Click
        bin.Position = 1
    End Sub

    Private Sub btnPrevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrevious.Click
        'เช็คตำแหน่งด้วย เพราะถ้าเลย มันจะ Error
        bin.Position -= 1
    End Sub

    Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click
        'เช็คตำแหน่งด้วย เพราะถ้าเลย มันจะ Error
        bin.Position += 1
    End Sub

    Private Sub btnLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLast.Click
        bin.Position = objCurrencyMgr.Count - 1
    End Sub

    Private Sub btndelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndelete.Click
        If dtTable.Rows.Count <= 0 Then
            Exit Sub 'ถ้าเป็น datatable ว่าง ให้ออกจาก Procedure นี้ 
            'ถ้าไม่ใช่ datatable ว่าง และผู้ใช้ยืนยันการลบ 
        ElseIf MessageBox.Show("ต้องการลบเรคอร์ดนี้ใช่หรือไม่?", "ยืนยันการลบ", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = vbYes Then
            bin.RemoveCurrent() 'ให้ลบเรคอร์ดปัจจุบันออกจาก datatable 
            'ลบออกจากฐานข้อมูลตอนบันทึกก็ได้ dtAdapter.Update(dtTable) 'และลบเรคอร์ดนี้ออกจากฐานข้อมูลด้วย 
            'เวลา Update มีแก้ไขหรือลบไปกี่เรคคอร์ด มันจะจัดการให้หมด
            currRecPos = bin.Position 'เก็บเรคอร์ดปัจจุบันบนฟอร์มไว้ที่ currRecPos 
        End If
        If dtTable.Rows.Count = 0 Then 'ถ้าลบเรคอร์ดใน datatable จนหมด 

            DisabledReadWrite() 'ให้เท็กซ์บ็อกซ์ทั้งหมดแสดงข้อมูลแบบอ่านได้อย่างเดียว 
        End If
    End Sub

    Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click
        If dtTable.Rows.Count <= 0 Then
            Exit Sub 'ถ้าเป็น datatable ว่าง ให้ออกจาก Procedure นี้ 
        Else 'ถ้าไม่ใช่ datatable ว่าง 
            addNewMode = False 'แสดงโหมดการทำงานแบบแก้ไขเรคอร์ด 
            EnabledReadWrite() 'ให้เท็กซ์บ็อกซ์ทั้งหมดแสดงข้อมูลแบบอ่านเขียนได้ 
            currRecPos = bin.Position 'เก็บเรคอร์ดปัจจุบันบนฟอร์มไว้ที่ currRecPos 

            txtLANDID.Focus() 'เลื่อนเคอร์เซอร์รับข้อมูลบนจอภาพไปที่ช่องชื่อ 
        End If
    End Sub