Im new to VB.net. Currently im using visual studio 2008 to make a member registration form and i need to save all data into my access database 2007.
CODE
Public Class register
Dim datatb As New DataTable
Dim constr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\KDE.accdb"
Dim sqlstr As String = "SELECT * FROM"
Private Sub register_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim dataadp As New OleDb.OleDbDataAdapter(sqlstr, constr)
dataadp.Fill(datatb)
dataadp.Dispose()
End Sub
Private Sub butsubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butsubmit.Click
Dim newconnection As New OleDb.OleDbConnection(constr)
Dim addstr As String = "INSERT INTO `Member` (`Mem-Surname`, `Mem-Name`, `Mem-Address`, `Mem-Postcode`, `Mem-City`, `Mem-Handphone`, `Mem-Since` `Expired-Date`) VALUES (add1, add2, add3, add4, add5, add6, add7, add8)"
Dim addnewcommand As New OleDb.OleDbCommand
addnewcommand.Connection = newconnection
addnewcommand.CommandText = addstr
addnewcommand.Parameters.AddWithValue("add1", MemSurname.Text)
addnewcommand.Parameters.AddWithValue("add2", MemName.Text)
addnewcommand.Parameters.AddWithValue("add3", MemAddress.Text)
addnewcommand.Parameters.AddWithValue("add4", MemPostcode.Text)
addnewcommand.Parameters.AddWithValue("add5", MemCity.Text)
addnewcommand.Parameters.AddWithValue("add6", MemHandphone.Text)
addnewcommand.Parameters.AddWithValue("add7", MemSince.Text)
addnewcommand.Parameters.AddWithValue("add8", ExpDate.Text)
newconnection.Open()
addnewcommand.ExecuteNonQuery()
newconnection.Close()
MsgBox("Account Created Successful")
modandreg.Show()
Me.Close()
End Sub
End Class
This is how i connect to my database. But After i entered all data and click my submit button, the newconnection.open() show out a error. The system said "The 'Microsoft.ACE.OLEDB.12.0' provider is not registered on the local machine."
How to fix the problem?
(sorry if having any broken english
)
24 Aug, 2008 - 09:04 AM
| 