vb.net向数据库ACCESS2015添加数据
我要疯了,网上都这么写的,为什么我复制下来,文本框改成我的就不行了,请帮忙看看,数据库ACCESS2015,软件VB.NET2015,已连接,可以查询,可以更新,就是没法...
我要疯了,网上都这么写的, 为什么我复制下来,文本框改成我的就不行了,请帮忙看看,数据库ACCESS2015,软件VB.NET2015,已连接,可以查询,可以更新,就是没法添加,添加语句如下:
Dim conn As New OleDbConnection
Dim cmd As New OleDbCommand
Dim ap As New OleDbDataAdapter
Dim mytable As New DataSet
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\ACCESS\管理系统数据库.accdb"
conn.Open()
Dim str As String = "insert into [情况表](单号,时间,人员,联系电话) values ('" + Trim(TextBox1.Text) + "','" + Trim(TextBox2.Text) + "','" + Trim(TextBox3.Text) + "','" + Trim(TextBox4.Text) + "')"
cmd = New OleDbCommand(str, conn)
Try
cmd.ExecuteNonQuery()
MessageBox.Show("修改成功!")
conn.Close()
Catch ex As Exception
MessageBox.Show("修改失败!")
conn.Close()
End Try
我已经试过很多添加语句了,比如cmd.CommandText = str cmd.Connection = conn InsertCommand等语句了,
我试过去掉中括号[],或者将+号变成&,试过就添加一个格子的内容,反正不报错,就是显示 修改失败 展开
Dim conn As New OleDbConnection
Dim cmd As New OleDbCommand
Dim ap As New OleDbDataAdapter
Dim mytable As New DataSet
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\ACCESS\管理系统数据库.accdb"
conn.Open()
Dim str As String = "insert into [情况表](单号,时间,人员,联系电话) values ('" + Trim(TextBox1.Text) + "','" + Trim(TextBox2.Text) + "','" + Trim(TextBox3.Text) + "','" + Trim(TextBox4.Text) + "')"
cmd = New OleDbCommand(str, conn)
Try
cmd.ExecuteNonQuery()
MessageBox.Show("修改成功!")
conn.Close()
Catch ex As Exception
MessageBox.Show("修改失败!")
conn.Close()
End Try
我已经试过很多添加语句了,比如cmd.CommandText = str cmd.Connection = conn InsertCommand等语句了,
我试过去掉中括号[],或者将+号变成&,试过就添加一个格子的内容,反正不报错,就是显示 修改失败 展开
2个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询