For Questions and Assistance please use the proper Category.. please..
HomeCalendarFAQSearchMemberlistUsergroupsRegisterLog in
Welcome guys!!.. In order for you guys to post your Questions and assistance requests,, please REGISTER first.. Only members can post.. If you have requests then feel free to email ADMIN neuron or SPAMMER onatzky.. thanks!

Display results as :
Rechercher Advanced Search
Donation box
Latest topics
» Convert signed ZD to PD
Thu Sep 01, 2016 7:57 pm by neuron

» Abia State Polytechnic Admission form for 2013/2014 out!
Tue Oct 08, 2013 9:30 am by stevejoo

» Convert ZD to SIGNED PD
Sun Sep 08, 2013 9:22 pm by neuron

» How to Speed Up My PC
Tue Feb 26, 2013 9:15 am by alphysudaria143

» Hi I'm alphysudaria143
Sun Feb 17, 2013 12:25 am by alphysudaria143

» How to Copy all the Generations of a GDG
Thu Oct 11, 2012 8:30 am by neuron

» Remove Duplicates in a dataset though Sort
Thu Oct 11, 2012 8:23 am by neuron

» how to insert data into your access database
Tue Aug 14, 2012 9:56 am by neuron

» how to populate combobox in during form load
Tue Aug 14, 2012 9:53 am by neuron

Please support me my registering to NEOBUX
free forum

Share | 

 how to insert data into your access database

Go down 

Posts : 38
Join date : 2009-08-06

PostSubject: how to insert data into your access database   Tue Aug 14, 2012 9:56 am

here is a sample code:


Private Sub historyupdate()

        Dim con As New OleDb.OleDbConnection
        Dim ds As New DataSet
        Dim da As OleDb.OleDbDataAdapter
        Dim sql As String
        Dim appath As String

        Dim dsNewRow As DataRow

        appath = Application.StartupPath()

        con.ConnectionString = "PROVIDER=Microsoft.jet.oledb.4.0;data Source = " & appath & "\SISdatabase.mdb"
        sql = "SELECT * FROM History_log"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "SISdatabase")

        Dim cb As New OleDb.OleDbCommandBuilder(da)
        dsNewRow = ds.Tables("SISdatabase").NewRow()

        dsNewRow.Item("xUsername") = UsernameTextBox.Text
        dsNewRow.Item("xHistory_type") = "A"
        dsNewRow.Item("xDescription") = "Logged in to the BCSIS"
        dsNewRow.Item("xDate") = Format(Now, "MM-dd-yyyy")
        dsNewRow.Item("xTime") = Format(Now, "hh:mm")
        da.Update(ds, "SISdatabase")

        User = UsernameTextBox.Text

    End Sub

credit goes to the original uploader of the codes..

In this forum we will share the knowledge we have to every single individual who shows respect and interest.. If you stay.. you learn.. if not.. then please go.........

--it's me Admin"D"
Back to top Go down
View user profile
how to insert data into your access database
Back to top 
Page 1 of 1
 Similar topics
» Can anyone access bid documents?
» PNOC-EC to access P2-B credit line
» Electramate 2000 12 kW
» Hunt for Trojan planets in the Kepler data
» ETD - Exoplanet Transit Database & TRESCA Database

Permissions in this forum:You cannot reply to topics in this forum
OnlineKnowledgeRepository :: All About PC :: Programming :: VB.NET-
Jump to: