Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '添加按钮
If Button1.Text = "添加" Then
objConn.Open()
Dim data As New OleDbParameter("@data", OleDbType.Date, 10)
Dim thing As New OleDbParameter("@thing", OleDbType.Char, 30)
Dim money As New OleDbParameter("@money", OleDbType.Integer, 10)
Dim record As New OleDbParameter("@record", OleDbType.Char, 30)
Dim strin As String = "Insert into ZChu(日期,项目,金额,备注)" & "values(@data,@thing,@money,@record)"
Dim objCmd As New OleDbCommand(strin, objConn)
data.Value = DateTimePicker1.Text
thing.Value = TextBox2.Text
money.Value = TextBox3.Text
record.Value = TextBox4.Text
objCmd.Parameters.Add(data)
objCmd.Parameters.Add(thing)
objCmd.Parameters.Add(money)
objCmd.Parameters.Add(record)
objCmd.ExecuteNonQuery()
objConn.Close()
Dim strSql = "Select * from ZChu"
objAdap.SelectCommand = New OleDbCommand(strSql, objConn)
'objDSet.Clear()
'objAdap.Fill(objDSet, "ZChu")
MsgBox("添加成功！")
Else
DateTimePicker1.Text = "" '清空文本框
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
Button1.Text = "添加" '改变按钮提示
End If
End Sub
以上代码在输入各项后，不能在DataGridView中即使显示，请问是哪里出错了。。。
你添加到数据库，有没有重新绑定DataGridView，当然不显示了，需要重新select * ...，然后fill到dataset，然后DataGridView重新版定这个dataset
'这里写上你绑定的代码 gridview1.datasouce=objDSet.table("ZChu"))
MsgBox("添加成功！")
也就是从数据库中把数据抓出来赋值给gridview。
把赋值的代码写在你插入数据库之后，也就是你在插入数据库后，向数据库提交了数据。数据库的数据就更新了，然后在从数据库里SELECT出来你想要的数据赋值给gridview.datasouce=datable datatable是你SELECT出来的数据FILL到的一个Table里的。dataset也一样。