form1.vb

SQL Server 业已成为最为流行的几大数据库之一

Public Class Form1
    Dim oleDbConnection1 As New OleDb.OleDbConnection
    Dim olecmd As New OleDb.OleDbCommand
    Dim oleReader As OleDb.OleDbDataReader
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        '       Dim oleDbConnection1 As New OleDb.OleDbConnection
        Dim strConnect As String = "Provider=SQLOLEDB.1;Data Source=huanleji-yqt4x9;Initial Catalog=testdb;User ID=sa;Password=tuohzzhout"
        oleDbConnection1.ConnectionString = strConnect
        oleDbConnection1.Open()

        'Dim cmdShowAll As New OleDb.OleDbCommand
        ' Dim oleReader As OleDb.OleDbDataReader
        
        RefreshTable()

        
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim insertStr = "insert into testtable values('" & Trim(TextBox2.Text) & "','" & Trim(TextBox1.Text) & "')"
        olecmd.CommandText = insertStr
        olecmd.ExecuteNonQuery()
        RefreshTable()
    End Sub
    Private Sub RefreshTable()

        ListBox1.Items.Clear()
        olecmd.Connection = oleDbConnection1
        olecmd.CommandText = "Select * from testtable"
        Dim olerow As New Object
        oleReader = olecmd.ExecuteReader()
        Dim RecordContent As String
        While oleReader.Read
            RecordContent = "项目名称:" & Trim(oleReader(0).ToString) & "      项目编号:" & Trim(oleReader(1).ToString)
            'Debug.Print(oleReader(1).ToString)
            Debug.Print(RecordContent)
            ListBox1.Items.Add(RecordContent)
        End While
        oleReader.Close()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim delStr = "delete from testtable where itemid ='" & Trim(TextBox1.Text) & "'"
        olecmd.CommandText = delStr
        olecmd.ExecuteNonQuery()
        RefreshTable()
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        Dim recordStr() As String
        recordStr = Trim(ListBox1.SelectedItem.ToString).Split(" ")
        TextBox1.Text = Trim(recordStr(0).Remove(0, 5))
        TextBox2.Text = Trim(recordStr(6)).Remove(0, 5)
    End Sub
End Class