SQL語法增新資料的VB程式碼

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()
arrow
arrow
    文章標籤
    SQL增新資料 VB
    全站熱搜

    JL8051 發表在 痞客邦 留言(0) 人氣()