wewastw

這是使用字串連接 把資料放去dataadapter

Imports System.Data.OleDb

        Dim connect_string As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" + "..\..\App_Data" + "\db2.mdb"

        Dim connx As New OleDbConnection(connect_string)

        connx.Open()

        Dim cs As String = "select 員工編號,姓名,名 from man"

        Dim dataAdapter As New OleDb.OleDbDataAdapter(cs, connx)

        dataAdapter.Fill(DataSet1, "人員")

        Dim MAN As Integer = DataSet1.Tables("人員").Rows.Count

        TextBox8.Text = MAN.ToString

        DataGridView1.DataSource = DataSet1.Tables("人員")

        connx.Close()

以下則是用字串修改資料庫的功能

 Dim connStr, insertCmd As String

        connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" + "..\..\App_Data" + "\db2.mdb"

        insertCmd = "Insert into man(員工編號,姓名,名,職稱,稱呼)Values('" + TextBox1.Text + "','" + TextBox2.Text + "','" + TextBox3.Text + "','" + TextBox4.Text + "','" + TextBox5.Text + "')"

        Dim conn As OleDbConnection, cmd As OleDbCommand

        conn = New OleDbConnection(connStr)

        Try

            conn.Open()

            cmd = New OleDbCommand(insertCmd, conn)

            cmd.ExecuteNonQuery()

            conn.Close()

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

        DataGridView1.Refresh()