UC知道Asp.net(vb)在access数据库中插入数据出错~~
来源：百度知道 编辑：UC知道 时间：2024/05/29 04:15:34
Private Sub click(ByVal sender As Object, _
ByVal e As System.EventArgs)
Dim myConn1 As String = " Provider = Microsoft.Jet.OLEDB.4.0 ;Data Source=" + Server.MapPath("App_Data\db1.mdb")
Dim myConn As OleDbConnection = New OleDbConnection(myConn1)
myConn.Open()
Dim objConnection As OleDbConnection
objConnection = New OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source=" + Server.MapPath("App_Data\db1.mdb"))
objConnection.Open()
Dim objCommand As OleDbCommand
objCommand = New OleDbCommand("INSERT INTO member(Firstname,Surname,E-mail,City,Country,Postcode,Telephone,Username,Password) Values ('" & firstname.Text & "','" & surname.Text & "','" & email.Text & "','" & address.Text & "','" & city.Tex
ByVal e As System.EventArgs)
Dim myConn1 As String = " Provider = Microsoft.Jet.OLEDB.4.0 ;Data Source=" + Server.MapPath("App_Data\db1.mdb")
Dim myConn As OleDbConnection = New OleDbConnection(myConn1)
myConn.Open()
Dim objConnection As OleDbConnection
objConnection = New OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source=" + Server.MapPath("App_Data\db1.mdb"))
objConnection.Open()
Dim objCommand As OleDbCommand
objCommand = New OleDbCommand("INSERT INTO member(Firstname,Surname,E-mail,City,Country,Postcode,Telephone,Username,Password) Values ('" & firstname.Text & "','" & surname.Text & "','" & email.Text & "','" & address.Text & "','" & city.Tex
Dim myConn1 As String = " Provider = Microsoft.Jet.OLEDB.4.0 ;Data Source=" + Server.MapPath("App_Data\db1.mdb")
Dim myConn As OleDbConnection = New OleDbConnection(myConn1)
myConn.Open()
这段没用上，干吗写呀，再说了access数据库都是独占方式打开的，不能打开连续打开两次的吧