Hello all,

Does anyone know how to add the values of a submitted form to a Microsoft Access Database?

Thanks for any help

Ray

hope this helps http://msdn.microsoft.com/library/de...qldatabase.asp

Hi Lofa,

Do you know another place where I can get an example. That one looked a bit complicated. This is what I am understanding. Please let me know if you simplyfy it for me.

thanks,

Ray


Dim myCommand As SqlCommand
Dim insertCmd As String

insertCmd = "insert into Authors values (@FName);"

myCommand = New SqlCommand(insertCmd, myConnection)

myCommand.Parameters.Add(New SqlParameter("@FName", SqlDbType.VarChar, 20))

myCommand.Parameters("@FName").Value = au_fname.Value

Here is how you work with storedProcedure in SQL Server
CREATE PROCEDURE AdminUser_Insert

    @retval int OUTPUT,
     @UserID varchar(50),
        @Password varchar(32),
        @First_Name varchar(32),
        @Last_Name varchar(32)

AS
    INSERT INTO users
    (
    UserID,
    Password,
    First_Name,
    Last_Name
    )
    VALUES
    (
    @UserID,
    @Password,
    @First_Name,
    @Last_Name
    )

    SET @retval = @@IDENTITY
GO

Then in your code do the following:

             Dim loConn as New SqlConnection(ConfigurationSettings.AppSettings("C onnectionString"))
             Dim AccountID As Integer
             Dim cmdInsert as New SQLCommand("AdminUser_Insert", loConn)
             cmdInsert.CommandType = CommandType.StoredProcedure
             cmdInsert.Parameters.Add(New SqlParameter("@retval", SqlDbType.int))
             cmdInsert.Parameters("@retval").Direction = ParameterDirection.Output
             cmdInsert.Parameters.Add(New SqlParameter("@UserID", SqlDbType.varchar, 50, "UserID"))
             cmdInsert.Parameters("@UserID").Value = Request("UserID")
             cmdInsert.Parameters.Add(New SqlParameter("@Password", SqlDbType.varchar, 32, "Password"))
             cmdInsert.Parameters("@Password").Value = Request("Password")
             cmdInsert.Parameters.Add(New SqlParameter("@First_Name", SqlDbType.varchar, 32, "First_Name"))
             cmdInsert.Parameters("@First_Name").Value = Request("FirstName")
             cmdInsert.Parameters.Add(New SqlParameter("@Last_Name", SqlDbType.varchar, 32, "Last_Name"))
             cmdInsert.Parameters("@Last_Name").Value = Request("LastName")
             loConn.Open()
             cmdInsert.ExecuteNonQuery()
             loConn.Close()
             AccountID = cmdInsert.Parameters("@retval").Value

Hi Lofa,

Thank you for your help. I am a bit new to this and appreciate your help. I am using an Access Database. So to make the above code work. Would I change this line:

Dim loConn as New SqlConnection(ConfigurationSettings.AppSettings("C onnectionString"))
to
Dim loConn as New OleDbConnection(ConfigurationSettings.AppSettings( "ConnectionString"))

and:

Dim cmdInsert as New SQLCommand("AdminUser_Insert", loConn)
to
Dim cmdInsert as New OleDbCommand("AdminUser_Insert", loConn)

Is there anything else I need to change for this to work?

thanks,

Ray

Here is a code that I copied from www.asp.net
There is also a good forum
And here is a page about stored procedures in access http://authors.aspalliance.com/hrmal.../20030301.aspx
I'm also a new using this. Most of my codes are done with Dreamweaver. And then used google and asp.net forum and this forum
Sub add_btn_Click(sender As System.Object, e As System.EventArgs)


    Dim intRecordsInserted As Integer


    Dim sText As String


    sText=fname.text


    Dim connstr As String


    connstr = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\inetpub\wwwroot\webform.mdb"


    Dim SQL As String = "INSERT INTO users2 (fname) VALUES ('" & sText & "')"


    Dim Conn As New OleDbConnection(connstr)


    Dim cmd As New OleDbCommand(SQL, Conn)


Try


Conn.Open()


    intRecordsInserted = cmd.ExecuteNonQuery()


    label.Text = intRecordsInserted & " record(s) added successfully."


Catch ex As Exception


    label.text = "An error has occurred: "


    label.text += ex.Message


Finally


    Conn.Close()


End Try


End Sub