wewastw

 

這作法是用字串連結

Imports System.Data.OleDb

Public Class Form1

    Dim weBindingSource As New BindingSource

載入資料至DATASET 並連接TEXT與GRIDVIEW

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim strConn As String = " Provider = Microsoft.Jet.OLEDB.4.0 ;data source=c:\db2.mdb"

        Dim objconn As New OleDbConnection(strConn)

        'objconn.Open()

        Dim strsql = "select 員工編號,姓名,名 from man"

        Dim objadapter As New OleDbDataAdapter(strsql, objconn)

        Dim objdataset As New DataSet

        objadapter.Fill(objdataset, "man")

        'objconn.Close()

        weBindingSource.DataSource = objdataset.Tables("man")

        objdataset.Tables("man").DefaultView.Sort = "員工編號"

        DataGridView1.DataSource = weBindingSource

        showtext()

    End Sub

往上

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        weBindingSource.MovePrevious()

        showtext()

    End Sub

往下

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        weBindingSource.MoveNext()

        showtext()

    End Sub

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

    End Sub

 

 

    Function showtext() As Integer

        TextBox1.DataBindings.Add("text", weBindingSource, "員工編號")

        TextBox1.DataBindings.Clear()

        TextBox2.DataBindings.Add("text", weBindingSource, "姓名")

        TextBox2.DataBindings.Clear()

        TextBox3.DataBindings.Add("text", weBindingSource, "名")

        TextBox3.DataBindings.Clear()

        Return 0

    End Function

 

End Class

範例檔案WindowsApplication11.rar