Add Record

[InBigTrouble]

As my previous Post I am a terrible programmer but giving it my best
shot. I’ve used the following code to bind the data from an access
database to text boxes in Windows Form in VB.Net. Now I want to be
able to add to the records using via text boxes. I thought the best
way would be to have a clear screen button that removes all data then
enter details then have a save button. Is this really my only option.
If so can anyone help me on the coding part?

Private Sub frmmemberdetails_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MyBase.Load
Me.OpenConnection()
Me.BindToTextbox()
End Sub

Public Sub OpenConnection()

Dim strPath As String = "C:\db1.mdb"
Dim strConnectionString As String =
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPath

Dim objOleDbConnection As New
OleDbConnection(strConnectionString)

objOleDbConnection.Open()

Me._AmarsConnection = objOleDbConnection

End Sub

Public Sub BindToTextbox()


Dim strQuery As String = "SELECT * FROM [MemberDetails];"

Dim objOleDbCommand As New OleDbCommand(strQuery,
_AmarsConnection)

Dim objOleDbDataAdapter As New
OleDbDataAdapter(objOleDbCommand)

Dim objDataTable As New DataTable()

Try

objOleDbDataAdapter.Fill(objDataTable)
Me.txtmemberid.DataBindings.Add(New Binding("Text",
objDataTable, "MemberID"))
Me.txtfirstname.DataBindings.Add(New Binding("Text",
objDataTable, "FirstName"))
Me.txtlastname.DataBindings.Add(New Binding("Text",
objDataTable, "LastName"))
Me.txthouseno.DataBindings.Add(New Binding("Text",
objDataTable, "HouseNumber/Name"))
Me.txtstreetname.DataBindings.Add(New Binding("Text",
objDataTable, "StreetName"))
Me.txtarea.DataBindings.Add(New Binding("Text",
objDataTable, "Town"))
'city combobox
Me.txtpostcode.DataBindings.Add(New Binding("Text",
objDataTable, "PostCode"))
Me.txtemail.DataBindings.Add(New Binding("Text",
objDataTable, "MemberE-mail"))
Me.txthomeno.DataBindings.Add(New Binding("Text",
objDataTable, "HomeTel"))
Me.txtmobile.DataBindings.Add(New Binding("Text",
objDataTable, "MobileNumber"))
Me.txtdob.DataBindings.Add(New Binding("Text",
objDataTable, "DateOfBirth"))
Me.txtdatejoined.DataBindings.Add(New Binding("Text",
objDataTable, "DateJoined"))
Me.txtkinname.DataBindings.Add(New Binding("Text",
objDataTable, "NextOfKin-Name"))
Me.txtkinno.DataBindings.Add(New Binding("Text",
objDataTable, "NextOfKin-Tel"))
Catch ex As Exception
Me.ComboBox1.Text = ex.Message.ToString()
Finally
Me.CloseConnection()
End Try

End Sub

Sub CloseConnection()
_AmarsConnection.Close()
End Sub
End Class

 

[Cor]

Hi InBigTrouble,

There are to much absolute strange things in your code.

Have a look at the VB.net resource kit.

A lot samples, walkthrouths etc.

http://msdn.microsoft.com/vbasic/vbrkit/default.aspx

And if you have problems installing it

http://msdn.microsoft.com/vbasic/vbrkit/faq/#installvdir

I hope this helps a little bit?

Cor

 

[james]

Well, here's some terrible code right back at you from a little database
(Access) that I have. This code updates the database from info input into
several textboxes. (never mind if the names etc. don't make sense, it is a
small database for Daylily growers) But, this does show how to update the
database.
james


Private Sub mnuSaveNew_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles mnuSaveNew.Click

'THIS IS THE SAVE Menu Selection for adding new records

Dim myrow As DataRow

myrow = ds.Tables("daylilys").NewRow()

myrow("Name") = txtName.Text

myrow("Hybridizer") = txtHybridizer.Text

myrow("Year") = txtYear.Text

myrow("Ht") = txtHeight.Text

myrow("BlmS") = txtBlmS.Text

myrow("Flr") = txtFlr.Text

myrow("Color") = txtColor.Text

myrow("Folige") = txtFlg.Text

myrow("Ploidy") = txtPldy.Text

myrow("Fra") = txtFra.Text

myrow("Ext") = txtExt.Text

myrow("Noc") = txtNoc.Text

myrow("Form") = txtForm.Text

myrow("Aquired") = txtAquired.Text

myrow("Amt Pd") = txtAmtPd.Text

ds.Tables("daylilys").Rows.Add(myrow)

Try

conn.Open()

da.Update(ds, "daylilys")

conn.Close()

Catch oledbe As OleDbException

MessageBox.Show(oledbe.Message)

End Try

MessageBox.Show("Record Added")




End Sub

As my previous Post I am a terrible programmer but giving it my best
shot. I’ve used the following code to bind the data from an access
database to text boxes in Windows Form in VB.Net. Now I want to be
able to add to the records using via text boxes. I thought the best
way would be to have a clear screen button that removes all data then
enter details then have a save button. Is this really my only option.
If so can anyone help me on the coding part?

Private Sub frmmemberdetails_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MyBase.Load
Me.OpenConnection()
Me.BindToTextbox()
End Sub

Public Sub OpenConnection()

Dim strPath As String = "C:\db1.mdb"
Dim strConnectionString As String =
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPath

Dim objOleDbConnection As New
OleDbConnection(strConnectionString)

objOleDbConnection.Open()

Me._AmarsConnection = objOleDbConnection

End Sub

Public Sub BindToTextbox()


Dim strQuery As String = "SELECT * FROM [MemberDetails];"

Dim objOleDbCommand As New OleDbCommand(strQuery,
_AmarsConnection)

Dim objOleDbDataAdapter As New
OleDbDataAdapter(objOleDbCommand)

Dim objDataTable As New DataTable()

Try

objOleDbDataAdapter.Fill(objDataTable)
Me.txtmemberid.DataBindings.Add(New Binding("Text",
objDataTable, "MemberID"))
Me.txtfirstname.DataBindings.Add(New Binding("Text",
objDataTable, "FirstName"))
Me.txtlastname.DataBindings.Add(New Binding("Text",
objDataTable, "LastName"))
Me.txthouseno.DataBindings.Add(New Binding("Text",
objDataTable, "HouseNumber/Name"))
Me.txtstreetname.DataBindings.Add(New Binding("Text",
objDataTable, "StreetName"))
Me.txtarea.DataBindings.Add(New Binding("Text",
objDataTable, "Town"))
'city combobox
Me.txtpostcode.DataBindings.Add(New Binding("Text",
objDataTable, "PostCode"))
Me.txtemail.DataBindings.Add(New Binding("Text",
objDataTable, "MemberE-mail"))
Me.txthomeno.DataBindings.Add(New Binding("Text",
objDataTable, "HomeTel"))
Me.txtmobile.DataBindings.Add(New Binding("Text",
objDataTable, "MobileNumber"))
Me.txtdob.DataBindings.Add(New Binding("Text",
objDataTable, "DateOfBirth"))
Me.txtdatejoined.DataBindings.Add(New Binding("Text",
objDataTable, "DateJoined"))
Me.txtkinname.DataBindings.Add(New Binding("Text",
objDataTable, "NextOfKin-Name"))
Me.txtkinno.DataBindings.Add(New Binding("Text",
objDataTable, "NextOfKin-Tel"))
Catch ex As Exception
Me.ComboBox1.Text = ex.Message.ToString()
Finally
Me.CloseConnection()
End Try

End Sub

Sub CloseConnection()
_AmarsConnection.Close()
End Sub
End Class



----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet News==----
http://www.newsfeed.com The #1 Newsgroup Service in the World! >100,000 Newsgroups
---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption

=---