Adding Data to Ms Access Database by VB.NET

[chamali]

Hi guys,

I have created database using ms access & i have ceated a form using vb.net.
i want to do this. when i enter the data to the form & after that click Submit button the data must be enter in to the database.
Please tell me how to do that.
If you can tell me the coding.
Thanks a lot

[r035198x]

Hi guys,

I have created database using ms access & i have ceated a form using vb.net.
i want to do this. when i enter the data to the form & after that click Submit button the data must be enter in to the database.
Please tell me how to do that.
If you can tell me the coding.
Thanks a lot

Hi and welcome to TSDN. Hope you'll have a great time here.
I've moved this to the .NET forum for now.

[aliasruel]

Hi,

Here's a sample code for accessing and inserting data into Ms Access.

Dim strPathFileName as string="C:\myAccess.mdb"
Dim strCmdTxt as string=""

Dim CN As New System.Data.OleDb.OleDbConnection
Dim ObjDA As New System.Data.OleDb.OleDbDataAdapter
Dim InsertCmd As New System.Data.OleDb.OleDbCommand
CN.ConnectionString = "Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB:Database L" & _
"ocking Mode=1;Data Source=""" & strPathFileName.Trim & """;Mode=Share Deny None;Jet OLED" & _
"B:Engine Type=5;Provider=""Microsoft.Jet.OLEDB.4.0"";Jet OLEDB:System database=;Je" & _
"t OLEDB:SFP=False;persist security info=False;Extended Properties=;Jet OLEDB:Com" & _
"pact Without Replica Repair=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Cre" & _
"ate System Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;User ID=A" & _
"dmin;Jet OLEDB:Global Bulk Transactions=1"

strCmdTxt = "INSERT INTO EmployeeInformation("
strCmdTxt &= "FirstName,"
strCmdTxt &= "LastName,"
strCmdTxt &= "EmployeeID"
strCmdTxt &= ") VALUES ("
strCmdTxt &= "'" & strFName & "',"
strCmdTxt &= strLName & ","
strCmdTxt &= intEmpID
strCmdTxt &= ")"

InsertCmd.CommandText = strCmdTxt
InsertCmd.Connection = CN
InsertCmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("FirstName", System.Data.OleDb.OleDbType.VarWChar, 30, "FirstName"))
InsertCmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("LastName", System.Data.OleDb.OleDbType.VarWChar, 30, "LastName"))

InsertCmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("EmployeeID", System.Data.OleDb.OleDbType.Integer, 0, "EmployeeID"))
InsertCmd.CommandText = strCmdTxt.Trim
InsertCmd.Connection = CN
ObjDA.SelectCommand = InsertCmd
CN.Open()
'execute insert command
InsertCmd.ExecuteNonQuery()

For your reference. enjoy!

Best regards,
Ruel
================================================== ==

Hi guys,

I have created database using ms access & i have ceated a form using vb.net.
i want to do this. when i enter the data to the form & after that click Submit button the data must be enter in to the database.
Please tell me how to do that.
If you can tell me the coding.
Thanks a lot