[4x4pirate]

HELP!!

Need some advice because I have been working at this database for hours and I cannot seem to get it to work.

I have attached my entire code in a Zip file (see attached)

Quick synapsis..

Upon entering the program, you can go to File, Form Customer Entry..
enter a customer and save and create Reservation..

All this does is move the text over to the new form.. nothing big.. You could easily just select Reservations from the main screen and type it all in manually..

I have bound all the required information to the appropriate table columns. Now I just want to be able to save the information to the tables in the database.

I really didn't want to use the binding navigator, but I cant get it to work as it is.. everything remains grayed out..

I have been racking my brains on this for the last few days.. any advice would be GREATLY appreciated.

Once I can figure out how to get the Reservations portion to update, I can figure out the rest.. I just can't seem to get it to work..

Attached File(s)

•  DELANEY_INN.zip (1.22MB)
  Number of downloads: 66

[4x4pirate]

im trying stuff like the Northwinds example located here:

http://msdn.microsof...034(VS.80).aspx

 Dim newCustomersRow As NorthwindDataSet.CustomersRow
newCustomersRow = NorthwindDataSet1.Customers.NewCustomersRow()

newCustomersRow.CustomerID = "ALFKI"
newCustomersRow.CompanyName = "Alfreds Futterkiste"

NorthwindDataSet1.Customers.Rows.Add(newCustomersRow)

But the example has to be wrong..

I try:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

		Dim newCustomersRow As CustomersDatabaseDataSet.CustomerTBLRow.NewCustomersRow()
		newCustomersRow = CustomersDatabaseDataSet1.CustomersTBLRow.NewCustomersRow()

		newCustomersRow.CustomerFName = (Me.txtFName.Text)
		newCustomersRow.CustomerLName = (Me.txtLName.Text)
		newCustomersRow.CustomerAddress1 = (Me.txtAddress1.Text)
		newCustomersRow.CustomerAddress1 = (Me.txtAddress1.Text)
		newCustomersRow.CustomerCity = (Me.txtCity.Text)
		newCustomersRow.CustomerState = (Me.txtSelectState.Text)
		newCustomersRow.CustomerZipCode = (Me.txtZip.Text)
		newCustomersRow.CustomerState = (Me.txtSelectState.Text)
		newCustomersRow.CustomerPhone = (Me.txtPhone.Text)
		newCustomersRow.CustomerEmail = (Me.txtEmail.Text)
		CustomersDatabaseDataSet1.CustomerTBL.Rows.Add(newCustomersRow)

I get CustomersDatabaseDataSet1 is not declared

HELP!!!!

[4x4pirate]

am I supposed to be doing this?

CustomerTBLTableAdapter.Insert(Me.txtFName.Text, Me.txtLName.Text, Me.txtAddress1.Text, txtAddress2.Text, txtCity.Text, txtSelectState.Text, txtPhone.Text, txtEmail.Text, txtZip.Text)

[4x4pirate]

Sweet.. I love it when I solve my own problems.. WOOT

For anyone that is interested, my solution was

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
		Try
			Me.CustomerTBLTableAdapter.Insert(Me.txtFName.Text, Me.txtLName.Text, Me.txtAddress1.Text, txtAddress2.Text, txtCity.Text, txtSelectState.Text, txtPhone.Text, txtEmail.Text, txtZip.Text)
			Me.CustomerTBLTableAdapter.Fill(CustomersDatabaseDataSet.CustomerTBL)
		Catch ex As Exception
			MessageBox.Show(ex.Message, "Data input error")
		End Try