form1.vb

在本实例中

            myrow.Delete()
            mytable.AcceptChanges()
            ADOcmd.Update(ds, "employees")
        Else

            Exit Sub
        End If

    End Sub

    Private Sub BtEdit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtEdit.Click


        Dim strUpdt As String
        Dim mycmd As OleDb.OleDbCommand
        Dim mycon As OleDb.OleDbConnection
        mycon = New OleDb.OleDbConnection("Provider=SQLOLEDB;Data Source=qianzh;" & _
                                                               "Integrated Security=SSPI;Initial Catalog=employ")
        Dim ed As Exception
        Try
            '以下编辑myrow中的内容
            If eid = TxtemployeeID.Text Then
                mycon.Open()
                strUpdt = "UPDATE employees SET employeeid='" & _
                        TxtemployeeID.Text & "', eName='" & _
                        TxteName.Text & "', title='" & Txttitle.Text & _
                        "',deptno='" & Txtdeptno.Text & _
                        "'where employeeid='" & TxtemployeeID.Text & "'"
                mycmd = New OleDb.OleDbCommand(strUpdt, mycon)
                mycmd.ExecuteNonQuery()
                mycon.Close()
            ElseIf Not eid = TxtemployeeID.Text Then
                MessageBox.Show("不可以编辑编号，你可以选择增加", "信息框", _
           MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

            End If
            '以下编辑myrow中的内容
            myrow.Item(0) = TxtemployeeID.Text
            myrow.Item(1) = TxteName.Text
            myrow.Item(2) = Txttitle.Text
            myrow.Item(8) = Txtdeptno.Text
        Catch ed

            MessageBox.Show("编辑出错误" & ed.ToString(), "错误")
        End Try
        MessageBox.Show("你对" & TxtemployeeID.Text & "编辑成功！", "信息框", _
           MessageBoxButtons.OK, MessageBoxIcon.Exclamation)


    End Sub

    Private Sub BtSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtSave.Click
        '定义文件名
        Dim filename As String
        '将文件保存到指定路径和名称
        Dim myStream As Stream
        Dim saveFileDialog1 As New SaveFileDialog()

        saveFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        saveFileDialog1.FilterIndex = 2
        saveFileDialog1.RestoreDirectory = True

        If saveFileDialog1.ShowDialog() = DialogResult.OK Then
            myStream = saveFileDialog1.OpenFile()
            If Not (myStream Is Nothing) Then
                '得到文件名称和路径
                filename = saveFileDialog1.FileName
                myStream.Close()
            End If
        End If

        If Not filename Is Nothing Then
            RichTextBox1.SaveFile(filename, RichTextBoxStreamType.TextTextOleObjs)
        End If
        'Try
        '    ADOcmd.Update(ds, "employees")
        '    '保存操作
        'Catch
        '    MessageBox.Show(Err.Description, "保存失败", MessageBoxButtons.OK, MessageBoxIcon.Error)
        '    '显示异常信息
        'End Try

    End Sub

    Private Sub BtSearch1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtSearch1.Click

        '建立新的数据库连接
        Dim SearchSQLStr As String
        '定义查询字符串
        Dim result As OleDb.OleDbDataAdapter
        '定义查询用ADODataSetCommand对象
        Dim dsresult As DataSet = New DataSet()
        '定义查询DataSet对象
        Dim Searchtable As DataTable
        '定义查询DataTable对象
        Dim searchrow As DataRow
        '定义查询DataRow对象        
        Select Case Cmbtype.SelectedIndex
            Case -1
                MessageBox.Show("请先选择查询类型。", "查询操作失败", MessageBoxButtons.OK, MessageBoxIcon.Information)
                '显示查询操作失败的原因
                Exit Sub
                '退出子程序
            Case 0
                '建立按雇员编号查询SQL语句
                If Len(txtSearch.Text) = 0 Then
                    MessageBox.Show("请在文本框中输入查询需要的条件", "操作失败", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    '显示操作失败原因
                    Exit Sub
                    '退出子程序
                End If
                SearchSQLStr = "SELECT *" & _
                                 "FROM employees " & _
                                 "WHERE (employeeid = '" & txtSearch.Text & "')"
            Case 1
                '建立按雇员名称查询SQL语句
                If Len(txtSearch.Text) = 0 Then
                    MessageBox.Show("请在文本框中输入查询需要的条件", "操作失败", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    '显示操作失败原因
                    Exit Sub
                    '退出子程序
                End If
                SearchSQLStr = "SELECT * " & _
                                "FROM employees " & _
                                "WHERE (eName = '" & txtSearch.Text & "')"
            Case 2
                '建立按雇员名称查询SQL语句
                If Len(txtSearch.Text) = 0 Then
                    MessageBox.Show("请在文本框中输入查询需要的条件", "操作失败", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    '显示操作失败原因
                    Exit Sub
                    '退出子程序
                End If
                SearchSQLStr = "SELECT *" & _
                                "FROM employees " & _
                                "WHERE (homephone = '" & txtSearch.Text & "')"
        End Select

        result = New OleDbDataAdapter(SearchSQLStr, "Provider=SQLOLEDB;Data Source=qianzh;" & _
                                                               "Integrated Security=SSPI;Initial Catalog=employ")
        '执行查询
        result.Fill(dsresult, "employees")
        Searchtable = dsresult.Tables.Item(0)
        Try
            searchrow = Searchtable.Rows.Item(0)
        Catch

            '如果没有查找到
            MessageBox.Show("没有查找到该雇员的信息。", "查询结果", MessageBoxButtons.OK, MessageBoxIcon.Error)
            '显示没有查找到信息
            Exit Sub
        End Try

        '显示雇员信息
        TxtemployeeID.Text = searchrow.Item(0).ToString
        TxteName.Text = searchrow.Item(1).ToString
        Txttitle.Text = searchrow.Item(2).ToString
        Txtdeptno.Text = searchrow.Item(10).ToString

        '在richtextbox中显示
        Dim info As String
        info = "电话：" & searchrow.Item(7).ToString & Chr(10) & "地址：" & searchrow.Item(6).ToString & Chr(10) & "个人描述：" & searchrow.Item(8).ToString
        RichTextBox1.Text = info
        eid = TxtemployeeID.Text

        '显示图片
        PiBox.Image.Dispose()
        PiBox.Image = Nothing

        Dim mstream As ADODB.Stream
        mstream = New ADODB.Stream()
        mstream.Type = ADODB.StreamTypeEnum.adTypeBinary
        mstream.Open()
        '读取图片,并再当前目录存为一个临时文件temp.gif
        mstream.Write(searchrow.Item(9))
        mstream.SaveToFile("temp.gif", ADODB.SaveOptionsEnum.adSaveCreateOverWrite)
        mstream.Close()
        Dim path As String = "temp.gif"
        PiBox.SizeMode = PictureBoxSizeMode.StretchImage
        PiBox.Image = Image.FromFile(path)


    End Sub

    Private Sub BtSearch2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtSearch2.Click

        '定义新的数据库连接
        Dim SearchSQLStr As String
        Dim odaresult As OleDbDataAdapter
        Dim dsresult As DataSet = New DataSet()
        '判断是否选则  
        If Cmbdno.Text = "" Then
            MessageBox.Show("请选择查询条件", "操作失败", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End If
        '得到新的数据
        SearchSQLStr = " SELECT  * FROM   Employees INNER Join dep ON  Employees.deptno = dep.deptno  WHERE (dep.dname = '" & Cmbdno.Text & "')"


        odaresult = New OleDbDataAdapter(SearchSQLStr, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=employ.mdb")

        odaresult.Fill(dsresult)
        '在datagrid中填充数据
        Gdresult.DataSource = dsresult.Tables.Item(0).DefaultView

    End Sub

    Private Sub Cmbdno_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmbdno.Click

        '定义新的数据库连接
        Dim SearchSQLStr As String
        Dim odaresult As OleDbDataAdapter
        Dim dsresult As DataSet = New DataSet()
        Dim Searchtable As DataTable
        Dim searchrow As DataRow
        Dim snrow As Integer
        Dim additem As String
        '得到数据集
        SearchSQLStr = "SELECT deptno,dname from dep"

        odaresult = New OleDbDataAdapter(SearchSQLStr, "Provider=SQLOLEDB;Data Source=qianzh;" & _
                                                               "Integrated Security=SSPI;Initial Catalog=employ")
        odaresult.Fill(dsresult, "dep")
        Searchtable = dsresult.Tables.Item(0)

        snrow = 0
        Dim count As Integer
        count = Searchtable.Rows.Count() - 1
        searchrow = Searchtable.Rows.Item(snrow)
        For snrow = 0 To count
            searchrow = Searchtable.Rows.Item(snrow)
            additem = searchrow.Item(1).ToString()
            Cmbdno.Items.Add(additem)
        Next snrow


    End Sub

    Private Sub Cmbdno_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmbdno.SelectedIndexChanged

    End Sub

    Private Sub cmbtitle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmbtitle.Click
        '定义新的数据库连接
        Dim SearchSQLStr As String
        Dim odaresult As OleDbDataAdapter
        Dim dsresult As DataSet = New DataSet()
        Dim Searchtable As DataTable
        Dim searchrow As DataRow
        Dim snrow As Integer
        Dim additem As String
        '得到数据集
        SearchSQLStr = "SELECT distinct title from employees"

        odaresult = New OleDbDataAdapter(SearchSQLStr, "Provider=SQLOLEDB;Data Source=qianzh;" & _
                                                               "Integrated Security=SSPI;Initial Catalog=employ")
        odaresult.Fill(dsresult)
        Searchtable = dsresult.Tables.Item(0)

        '添加 到 cmsal的items中
        snrow = 0
        Dim count As Integer
        count = Searchtable.Rows.Count() - 1
        searchrow = Searchtable.Rows.Item(snrow)
        For snrow = 0 To count
            searchrow = Searchtable.Rows.Item(snrow)
            additem = searchrow.Item(0).ToString()
            Cmbtitle.Items.Add(additem)
        Next snrow

    End Sub

    Private Sub Btsearch3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btsearch3.Click

        '定义新的数据库连接
        Dim SearchSQLStr As String
        Dim odaresult As OleDbDataAdapter
        Dim dsresult As DataSet = New DataSet()
        '判断是否选则  
        If Cmbtitle.Text = "" Then
            MessageBox.Show("请选择查询条件", "操作失败", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End If
        '得到新的数据
        SearchSQLStr = " SELECT  *  from employees where title = '" & Cmbtitle.Text & "'"

        odaresult = New OleDbDataAdapter(SearchSQLStr, "Provider=SQLOLEDB;Data Source=qianzh;" & _
                                                               "Integrated Security=SSPI;Initial Catalog=employ")

        odaresult.Fill(dsresult)
        '在datagrid中填充数据
        Gdresult.DataSource = dsresult.Tables.Item(0).DefaultView

    End Sub

    Private Sub Gdresult_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Gdresult.CurrentCellChanged

        '在textbox中显示
        TxtemployeeID.Text = Gdresult.Item(Gdresult.CurrentCell.RowNumber, 0)
        TxteName.Text = Gdresult.Item(Gdresult.CurrentCell.RowNumber, 1)
        Txttitle.Text = Gdresult.Item(Gdresult.CurrentCell.RowNumber, 2)
        Txtdeptno.Text = Gdresult.Item(Gdresult.CurrentCell.RowNumber, 10)

        '在richtextbox中显示
        Dim info1 As String
        info1 = "电话：" & Gdresult.Item(Gdresult.CurrentCell.RowNumber, 7) & Chr(10) & "地址：" & Gdresult.Item(Gdresult.CurrentCell.RowNumber, 6) & Chr(10) & "个人描述：" & Gdresult.Item(Gdresult.CurrentCell.RowNumber, 8)
        RichTextBox1.Text = info1
        eid = TxtemployeeID.Text

        '显示图片
        PiBox.Image.Dispose()
        Dim mstream1 As ADODB.Stream
        mstream1 = New ADODB.Stream()
        mstream1.Type = ADODB.StreamTypeEnum.adTypeBinary
        mstream1.Open()

        '读取图片,并再当前目录存为一个临时文件temp.gif
        mstream1.Write(Gdresult.Item(Gdresult.CurrentCell.RowNumber, 9))
        mstream1.SaveToFile("temp.gif", ADODB.SaveOptionsEnum.adSaveCreateOverWrite)
        mstream1.Close()
        Dim path As String = "temp.gif"
        PiBox.SizeMode = PictureBoxSizeMode.StretchImage
        PiBox.Image = Image.FromFile(path)

    End Sub



End Class