how to insert values in access database in vb.net

I am making database project in vb. net. I have one table which has 9 columns. I have used access database as a server side. My problem is that, I can not insert new rows with values in a table. some body please, solve this problem and help me. Thanks.

Hi

If you used access database as a server side than i will give you some code just go for it and solve your issue to insert values in access database in vb.net

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

FirstName = txtFName.Text

LastName = txtLName.Text

Dates = DisplayDate.Text

Time = DisplayTime.Text

User = DisplayUsername.Text

PC = DisplayPCName.Text

Valid = False

If FirstName = Nothing Then

MsgBox("Please enter First Name")

Valid = False

Else

Valid = True

End If

If LastName = Nothing Then

MsgBox("Please enter Last Name")

Valid = False

Else

Valid = True

End If

If Valid = True Then

Dim Cmd As OleDbCommand

Dim SQL As String

Dim objCmd As New OleDbCommand

Dim Con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\SignIn.mdb")

SQL = "INSERT INTO UserInfo (*) VALUES ('" & FirstName & "', '" & LastName & "', '" & Dates & "', '" & Time & "', '" & User & "', '" & PC & "')"

Cmd = New OleDbCommand(SQL, Con)

Con.Open()

objCmd = New OleDbCommand(SQL, Con)

objCmd.ExecuteNonQuery()

Con.Close()

End If

End Sub

2 Replies

Know the answer? Post it — somebody with the same question will find it here.

Crish16y ago
Hi

If you used access database as a server side than i will give you some code just go for it and solve your issue to insert values in access database in vb.net

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    FirstName = txtFName.Text

   LastName = txtLName.Text

    Dates = DisplayDate.Text

    Time = DisplayTime.Text
    User = DisplayUsername.Text
    PC = DisplayPCName.Text

    Valid = False
    If FirstName = Nothing Then

    MsgBox("Please enter First Name")

    Valid = False

    Else

    Valid = True
    End If
    If LastName = Nothing Then
    MsgBox("Please enter Last Name")
    Valid = False
    Else
    Valid = True
    End If
    If Valid = True Then
    Dim Cmd As OleDbCommand
    Dim SQL As String
    Dim objCmd As New OleDbCommand

    Dim Con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\SignIn.mdb")

    SQL = "INSERT INTO UserInfo (*) VALUES ('" & FirstName & "', '" & LastName & "', '" & Dates & "', '" & Time & "', '" & User & "', '" & PC & "')"

    Cmd = New OleDbCommand(SQL, Con)

    Con.Open()
    objCmd = New OleDbCommand(SQL, Con)

    objCmd.ExecuteNonQuery()

    Con.Close()

    End If

   End Sub
Gomathi Palaniswamy16y ago
Hi friend,

In this i have attached project for insert a value in access database.refer if