Adding records to MS ACCESS

[Manish Sawjiani]

Hi Experts,
I am just into dot net and i want simple code for adding records into Access
table (97) using oledb. There are no queries in the databases and there is
only one table:
Friends with the following fields: FriendID (AutoNumber) FirstName, LastName
and DateOfBirth

Please I have tried everything. WOULD BE HIGHLY OBLIGED for HELP

Thanks all
Regards
Manish Sawjiani
--
Three Cheers to Technet for the Help!

[Scott M.]

You create a new connection and command and then execute the command:

Public Function InsterRecord() As Integer
Dim conStr as String ="Provider=Microsoft.OLEDB.Jet.4.0;Data
Source=yourLocalDBpath"
Dim sqlStr as String = "SQL INSERT Statement Here"

Dim con As New OLEDB.OLEDBConnection(conStr)
Dim cmd As New OLEDB.OLEDBCommand(sqlStr, con)
Dim retVal as Integer
Try
con.Open()
Catch ex As OLEDB.OLEDBException
retVal =cmd.ExecuteNonQuery
Finally
con.Close()
End Try

Return retVal
End Function

"Manish Sawjiani" <Ma************@discussions.microsoft.com> wrote in
message news:4F**********************************@microsof t.com...

Hi Experts,
I am just into dot net and i want simple code for adding records into
Access
table (97) using oledb. There are no queries in the databases and there is
only one table:
Friends with the following fields: FriendID (AutoNumber) FirstName,
LastName
and DateOfBirth

Please I have tried everything. WOULD BE HIGHLY OBLIGED for HELP

Thanks all
Regards
Manish Sawjiani
--
Three Cheers to Technet for the Help!

[Manish Sawjiani]

Thanks Scott M

This code works - BUT NOTHING Happens in the DB!!! Please Help

Regards

"Scott M." wrote:

You create a new connection and command and then execute the command:

Public Function InsterRecord() As Integer
Dim conStr as String ="Provider=Microsoft.OLEDB.Jet.4.0;Data
Source=yourLocalDBpath"
Dim sqlStr as String = "SQL INSERT Statement Here"

Dim con As New OLEDB.OLEDBConnection(conStr)
Dim cmd As New OLEDB.OLEDBCommand(sqlStr, con)
Dim retVal as Integer
Try
con.Open()
Catch ex As OLEDB.OLEDBException
retVal =cmd.ExecuteNonQuery
Finally
con.Close()
End Try

Return retVal
End Function

"Manish Sawjiani" <Ma************@discussions.microsoft.com> wrote in
message news:4F**********************************@microsof t.com...

Hi Experts,
I am just into dot net and i want simple code for adding records into
Access
table (97) using oledb. There are no queries in the databases and there is
only one table:
Friends with the following fields: FriendID (AutoNumber) FirstName,
LastName
and DateOfBirth

Please I have tried everything. WOULD BE HIGHLY OBLIGED for HELP

Thanks all
Regards
Manish Sawjiani
--
Three Cheers to Technet for the Help!

[Paul Clement]

On Thu, 3 Feb 2005 20:01:02 -0800, Manish Sawjiani <Ma************@discussions.microsoft.com> wrote:

¤ Hi Experts,
¤ I am just into dot net and i want simple code for adding records into Access
¤ table (97) using oledb. There are no queries in the databases and there is
¤ only one table:
¤ Friends with the following fields: FriendID (AutoNumber) FirstName, LastName
¤ and DateOfBirth
¤
¤ Please I have tried everything. WOULD BE HIGHLY OBLIGED for HELP

See if the following helps:

HOW TO: Use Microsoft Visual Basic .NET to Connect to a Microsoft Access Database and to Retrieve
Data
http://support.microsoft.com/default...b;en-us;821765
Paul ~~~ pc******@ameritech.net
Microsoft MVP (Visual Basic)

[Scott M.]

You need to give us what you wrote so we can troubleshoot it.

"Manish Sawjiani" <Ma************@discussions.microsoft.com> wrote in
message news:1D**********************************@microsof t.com...

Thanks Scott M

This code works - BUT NOTHING Happens in the DB!!! Please Help

Regards

"Scott M." wrote:

You create a new connection and command and then execute the command:

Public Function InsterRecord() As Integer
Dim conStr as String ="Provider=Microsoft.OLEDB.Jet.4.0;Data
Source=yourLocalDBpath"
Dim sqlStr as String = "SQL INSERT Statement Here"

Dim con As New OLEDB.OLEDBConnection(conStr)
Dim cmd As New OLEDB.OLEDBCommand(sqlStr, con)
Dim retVal as Integer
Try
con.Open()
Catch ex As OLEDB.OLEDBException
retVal =cmd.ExecuteNonQuery
Finally
con.Close()
End Try

Return retVal
End Function

"Manish Sawjiani" <Ma************@discussions.microsoft.com> wrote in
message news:4F**********************************@microsof t.com...

> Hi Experts,
> I am just into dot net and i want simple code for adding records into
> Access
> table (97) using oledb. There are no queries in the databases and there
> is
> only one table:
> Friends with the following fields: FriendID (AutoNumber) FirstName,
> LastName
> and DateOfBirth
>
> Please I have tried everything. WOULD BE HIGHLY OBLIGED for HELP
>
> Thanks all
> Regards
> Manish Sawjiani
> --
> Three Cheers to Technet for the Help!