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) 人氣()