Hey guys how you doing,
When i try to add a record through my application i get an error message there is no row at position 0
here is the code any help would be appericiated:
Dim con As New OleDb.OleDbConnection
Dim dbprovider As String
Dim dbsource As String
Dim sqlquery As String
dbprovider = " PROVIDER= Microsoft.Ace.OLEDB.12.0;"
dbsource = "Data Source = \\athena\StudentHomes\09000298\Documents\Cg2_Coursework.accdb"
sqlquery = "SELECT* FROM Customer"
con.ConnectionString = dbprovider & dbsource
con.Open()
MsgBox("Database is now open")
Dim da2 As OleDb.OleDbDataAdapter
da2 = New OleDb.OleDbDataAdapter(sqlquery, con)
da2.Fill(ds, "Customer")
With ds.Tables("Customer").Rows.Add("Customer")
txt_Firstname.Text = .Item("Customer_Firstname")
txt_Secondname.Text = .Item("Customer_Secondname")
txt_Country.Text = .Item("Customer_Address1")
txt_Town.Text = .Item("Customer_Address2")
txt_Street.Text = .Item("Customer_Address3")
txt_Postcode.Text = .Item("Customer_Postcode")
txt_Number.Text = .Item("Customer_Contact_Number")
txt_Email.Text = .Item("Customer_Email")
End With
MsgBox("New Record added to the Database")