Hello and welcome to our community! Is this your first visit?
Register
Enjoy an ad free experience by logging in. Not a member yet? Register.
Results 1 to 6 of 6

Thread: Doesnt Insert

  1. #1
    New Coder
    Join Date
    Apr 2006
    Posts
    30
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Doesnt Insert

    Insert code
    Code:
    sub btnSave_Click(sender As Object, e As EventArgs)
    
        Dim strAssetType As string = lstAssetType.SelectedIndex
        Dim TrackStatus As string = rbtnAssetType.SelectedIndex
        Dim Quantity As string = txtQuantity.Text
        Dim Name As string = txtName.Text
        Dim Description As string = txtDesc.Text
        Dim Status As string = selectStatus.SelectedIndex
    
    
       If lstAssetType.SelectedIndex  = 0 and rbtnAssetType.SelectedIndex = 0 and txtQuantity.Text = "" _
        and txtName.Text = "" and txtDesc.Text = "" and selectStatus.SelectedIndex = 0 Then
    
        lblMessage.Text = "Please Complete the form."
    
       ElseIF lstAssetType.SelectedIndex  <> "0" and rbtnAssetType.SelectedIndex <> "0" and txtQuantity.Text <> "" _
        and txtName.Text <> "" and txtDesc.Text <> "" and selectStatus.SelectedIndex <> "0" Then
    
        InsertNewItems(strassetType, trackStatus , name ,  description ,status ,quantity)
        lblMessage.Text = "You have submitted your form successfully"
    
    
       End if
    
    End Sub
    
    Sub rbtnAssetType_SelectedIndexChanged(sender As Object, e As EventArgs)
    
    Quantity()
    
    End Sub
    
    Private Sub Quantity()
    
    if rbtnAssetType.SelectedIndex = 2 Then
    Dim tblSerial as new table
    
    tblSerial.Enabled = false
    End if
    
    End Sub
    
    
    
        Function InsertNewItems(ByVal strassetType As String, ByVal trackStatus As String, ByVal name As String, ByVal description As String, ByVal status As String, ByVal quantity As Integer) As Integer
            Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=demo.mdb"
            Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(connectionString)
    
            Dim queryString As String = "INSERT INTO [tblNewItems] ([AssetType], [TrackStatus], [N"& _
                "ame], [Description], [Status], [Quantity]) VALUES (@AssetType, @TrackStatus, @Name, @Description, @Status, @Quantity)"
            Dim dbCommand As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand
            dbCommand.CommandText = queryString
            dbCommand.Connection = dbConnection
            Dim dbParam_strassetType As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
            dbParam_strassetType.ParameterName = "@strassetType"
            dbParam_strassetType.Value = strassetType
            dbParam_strassetType.DbType = System.Data.DbType.[String]
            dbCommand.Parameters.Add(dbParam_strassetType)
            Dim dbParam_trackStatus As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
            dbParam_trackStatus.ParameterName = "@TrackStatus"
            dbParam_trackStatus.Value = trackStatus
            dbParam_trackStatus.DbType = System.Data.DbType.[String]
            dbCommand.Parameters.Add(dbParam_trackStatus)
            Dim dbParam_name As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
            dbParam_name.ParameterName = "@Name"
            dbParam_name.Value = name
            dbParam_name.DbType = System.Data.DbType.[String]
            dbCommand.Parameters.Add(dbParam_name)
            Dim dbParam_description As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
            dbParam_description.ParameterName = "@Description"
            dbParam_description.Value = description
            dbParam_description.DbType = System.Data.DbType.[String]
            dbCommand.Parameters.Add(dbParam_description)
            Dim dbParam_status As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
            dbParam_status.ParameterName = "@Status"
            dbParam_status.Value = status
            dbParam_status.DbType = System.Data.DbType.[String]
            dbCommand.Parameters.Add(dbParam_status)
            Dim dbParam_quantity As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
            dbParam_quantity.ParameterName = "@Quantity"
            dbParam_quantity.Value = quantity
            dbParam_quantity.DbType = System.Data.DbType.Int32
            dbCommand.Parameters.Add(dbParam_quantity)
    
            Dim rowsAffected As Integer = 0
            dbConnection.Open
            Try
                rowsAffected = dbCommand.ExecuteNonQuery
            Finally
                dbConnection.Close
            End Try
    
            Return rowsAffected
        End Function
    Attached is the database
    Attached Files Attached Files

  • #2
    New Coder
    Join Date
    Mar 2006
    Posts
    21
    Thanks
    0
    Thanked 0 Times in 0 Posts
    What error are you getting?

  • #3
    New Coder
    Join Date
    Apr 2006
    Posts
    30
    Thanks
    0
    Thanked 0 Times in 0 Posts
    nothing
    its not inserting to the DB

  • #4
    teh Moderatorinator
    Join Date
    Sep 2004
    Location
    USA
    Posts
    2,472
    Thanks
    4
    Thanked 40 Times in 40 Posts
    Put in the catch statement and print out the message.

  • #5
    New Coder
    Join Date
    Apr 2006
    Posts
    30
    Thanks
    0
    Thanked 0 Times in 0 Posts
    Code:
    Dim rowsAffected As Integer = 0
            dbConnection.Open
            Try
                rowsAffected = dbCommand.ExecuteNonQuery
            Finally
                dbConnection.Close
            End Try
    
            Return rowsAffected
    Nothing appears!

  • #6
    teh Moderatorinator
    Join Date
    Sep 2004
    Location
    USA
    Posts
    2,472
    Thanks
    4
    Thanked 40 Times in 40 Posts
    No,
    Try

    Catch Exception e
    Response.Write(e.Message.ToString())


  •  

    Posting Permissions

    • You may not post new threads
    • You may not post replies
    • You may not post attachments
    • You may not edit your posts
    •