Dim str1 As String = "Insert Into 資料表1(日期,時段,花費項目,費用)Values ('" & TextBox1.Text & "','" & ComboBox1.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"
                Dim adp1 As OleDbDataAdapter = New OleDbDataAdapter(str1, conn)
                '將查詢結果放到記憶體set1上的"1a "表格內
                Dim set1 As DataSet = New DataSet
                adp1.Fill(set1, "1a")
                '  將記憶體的資料集合存放到視窗畫面上的DataGrid上
                DataGridView1.DataSource = set1.Tables("1a")
                '關閉資料庫的連結
                conn.Close()
  

阿倫 發表在 痞客邦 PIXNET 留言(0) 人氣()