vb.net 我需要能够将文本框中的值插入到访问数据库中，但截至目前它不起作用
声明：本页面是StackOverFlow热门问题的中英对照翻译，遵循CC BY-SA 4.0协议，如果您需要使用它，必须同样遵循CC BY-SA许可，注明原文地址和作者信息，同时你必须将它归于原作者（不是我）：StackOverFlow
原文地址: http://stackoverflow.com/questions/20813781/
Warning: these are provided under cc-by-sa 4.0 license. You are free to use/share it, But you must attribute it to the original authors (not me):
StackOverFlow
I need to be able to insert values from textboxes into an access database ,but as of now its not working
提问by Kiran Gopalakrishnan
I am not being able to insert values from textboxes into the access database, Here's the code ,It shows the error "no value given for required parameters"
我无法将文本框中的值插入到访问数据库中，这是代码，它显示错误“没有为所需参数提供值”
firstname = fname.Text
middlename = mname.Text
lastname = lname.Text
address = addr.Text
accountplan = accplan.SelectedItem
accounttype = acctype.SelectedItem
accountname = firstname + " " + middlename + " " + lastname
Dim accessconn As New _
System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & "avalanche.mdb")
Dim com As System.Data.OleDb.OleDbCommand
Try
accessconn.Open()
MsgBox("Access succesfully connected")
com = New System.Data.OleDb.OleDbCommand("INSERT INTO account(firstname,middlename,lastname) VALUES(firstname,middlename,lastname)", accessconn)
com.ExecuteReader(CommandBehavior.CloseConnection)
accessconn.Close()
Return
Catch ex As Exception
accessconn.Close()
MsgBox(ex.ToString)
Return
End Try
回答by Al-3sli
you need to set values :
您需要设置值：
firstname = fname.Text
middlename = mname.Text
lastname = lname.Text
address = addr.Text
accountplan = accplan.SelectedItem
accounttype = acctype.SelectedItem
accountname = firstname + " " + middlename + " " + lastname
Dim accessconn As New _
System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & "avalanche.mdb")
Dim com As System.Data.OleDb.OleDbCommand
Try
accessconn.Open()
MsgBox("Access succesfully connected")
com = New System.Data.OleDb.OleDbCommand("INSERT INTO account(firstname,middlename,lastname) VALUES('"& firstname &"','"& middlename &"','"& lastname &"')", accessconn)
com.ExecuteReader(CommandBehavior.CloseConnection)
accessconn.Close()
Return
Catch ex As Exception
accessconn.Close()
MsgBox(ex.ToString)
Return
End Try
回答by SMHasnain
Hi adding Record to access table is simple just go like that
嗨，将记录添加到访问表很简单，就像那样
firstname = fname.Text
middlename = mname.Text
lastname = lname.Text
address = addr.Text
accountplan = accplan.SelectedItem
accounttype = acctype.SelectedItem
accountname = firstname + " " + middlename + " " + lastname
dim conString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & "avalanche.mdb"
dim con as new oledbConnection
con.connectionstring = conString
con.open()
cmd.connection = con
cmd.commandtext = "INSERT INTO account(firstname,middlename,lastname) VALUES('"& firstname & "','" & middlename & "','" & lastname & "')"
cmd.executeNonQuery
msgbox "Record Saved"
con.close()
Do post back if you are getting any error I will be glad to Help.
如果您遇到任何错误，请回帖，我很乐意为您提供帮助。
Regards.
问候。
