[SOLUCIONADO] Hacer un insert con vb.net

[maialenlopez]

Hola;

Necesito ayuda. Quiero hacer un insert desde mi aplicación web a una base de datos. La conexión a la base de datos esta echa pero no se como hacer el insert. He encontrado algo y e ido poniéndolo en mi código pero no se si estará bien. Escribo la función y me comentáis. Es la primera vez que hago un insert y por mucho que mire en Internet no me aclaro mucho.

Código vb.net:

Protected Sub introducirDatos(ByVal idempleado As Integer)
        Dim existeEmpleado As Integer
 
        Dim conn As New SqlConnection(WebConfigurationManager.ConnectionStrings("conexion").ConnectionString)
        Dim comm2 As SqlCommand = New SqlCommand("SELECT COUNT(*) " & _
                                                    "FROM dbo.temp_datosGuardados " & _
                                                    "WHERE id_empleado = @idempleado", conn)
        Dim reader2 As SqlDataReader
 
        Dim comm3 As SqlCommand = New SqlCommand("INSERT INTO dbo.temp_datosGuardados(id_hoja,id_empleado,fecha,clienteProveedor, " & _
                                                 "destino,descriptKm,cantidadKm,importeKm,descriptAp,importeAp,descriptParking,importeParking, " & _
                                                 "descriptAlojamiento,importeAlojamiento,descriptBiTrans,importeBiTrans,descriptAlVehi, " & _
                                                 "importeAlVehi,descriptCombustible,importeCombustible,descriptManu,importeManu,totalGastosViaje, " & _
                                                 "descriptRelaPublic,importeRelaPublic,totalRelaPublic,decriptFeriExpo,importeFeriExpo,descriptRegalObs, " & _
                                                 "importeRegalObs,descriptCataFolletos,importeCataFolletos,descriptInternet,importeInternet, " & _
                                                 "descriptGastosExcep,importeGastosExcep,totalOtros,GastosTotales) " & _
                                                 "VALUES(@idhoja,@idempleado,@fecha,@clienteProveedor,@destino,@descriptKm,@cantidadKm,@importeKm,@descriptAp, " & _
                                                 "@importeAp,@descriptParking,@importeParking,@descriptAlojamiento,@importeAlojamiento,@descriptBiTrans " & _
                                                 "@importeBiTrans,@descriptAlVehi,@importeAlVehi,@descriptCombustible,@importeCombustible,@descriptManu " & _
                                                 "@importeManu,@totalGastosViaje,@descriptRelaPublic,@importeRelaPublic,@totalRelaPublic,@decriptFeriExpo " & _
                                                 "@importeFeriExpo,@descriptRegalObs,@importeRegalObs,@descriptCataFolletos,@importeCataFolletos,@descriptInternet " & _
                                                 "@importeInternet,@descriptGastosExcep,@importeGastosExcep,@totalOtros,@GastosTotales)", conn)
 
        Try
            With comm2
                .CommandType = CommandType.Text
                .Parameters.AddWithValue("idempleado", idempleado)
            End With
 
            With comm3
                .CommandType = CommandType.Text
                .Parameters.AddWithValue("idhoja", 1)
                .Parameters.AddWithValue("idempleado", idempleado)
                .Parameters.AddWithValue("fecha", TxtFechaLG.Text.Trim())
                .Parameters.AddWithValue("clienteProveedor", TxtClienProvLG.Text.Trim())
                .Parameters.AddWithValue("destino", TxtDestinoLG.Text.Trim())
                .Parameters.AddWithValue("descriptKm", TextDescripkmLG.Text.Trim())
                .Parameters.AddWithValue("cantidadKm", CDec(TextCantidadKmLG.Text.Trim()))
                .Parameters.AddWithValue("importeKm", CDec(TextImporteKmLG.Text.Trim()))
                .Parameters.AddWithValue("descriptAp", TextDescripApLG.Text.Trim())
                .Parameters.AddWithValue("importeAp", CDec(TextImporteApLG.Text.Trim()))
                .Parameters.AddWithValue("descriptParking", TextDescripParkLG.Text.Trim())
                .Parameters.AddWithValue("importeParking", CDec(TextImporteParkLG.Text.Trim()))
                .Parameters.AddWithValue("descriptAlojamiento", TextDescripAlojLG.Text.Trim())
                .Parameters.AddWithValue("importeAlojamiento", CDec(TextImporteAlojLG.Text.Trim()))
                .Parameters.AddWithValue("descriptBiTrans", TextDescripBiTransLG.Text.Trim())
                .Parameters.AddWithValue("importeBiTrans", CDec(TextImporteBiTransLG.Text.Trim()))
                .Parameters.AddWithValue("descriptAlVehi", TextDescripAlVehiLG.Text.Trim())
                .Parameters.AddWithValue("importeAlVehi", CDec(TextImporteAlVehiLG.Text.Trim()))
                .Parameters.AddWithValue("descriptCombustible", TextDescripComVehiLG.Text.Trim())
                .Parameters.AddWithValue("importeCombustible", CDec(TextImporteComVehiLG.Text.Trim()))
                .Parameters.AddWithValue("descriptManu", TextDescripManuLG.Text.Trim())
                .Parameters.AddWithValue("importeManu", CDec(TextImporteManuLG.Text.Trim()))
                .Parameters.AddWithValue("totalGastosViaje", CDec(TextImporteTotGastosLG.Text.Trim()))
                .Parameters.AddWithValue("descriptRelaPublic", TextDescripRelaPubliLG.Text.Trim())
                .Parameters.AddWithValue("importeRelaPublic", CDec(TextImporteRelaPubliLG.Text.Trim()))
                .Parameters.AddWithValue("totalRelaPublic", CDec(TextImporteTotalRePuLG.Text.Trim()))
                .Parameters.AddWithValue("decriptFeriExpo", TextDescripFeriExpoLG.Text.Trim())
                .Parameters.AddWithValue("importeFeriExpo", CDec(TextImporteFeriExpoLG.Text.Trim()))
                .Parameters.AddWithValue("descriptRegalObs", TextDescripRegalObsLG.Text.Trim())
                .Parameters.AddWithValue("importeRegalObs", CDec(TextImporteRegObsLG.Text.Trim()))
                .Parameters.AddWithValue("descriptCataFolletos", TextDescripCatFoLG.Text.Trim())
                .Parameters.AddWithValue("importeCataFolletos", CDec(TextImporteCatFoLG.Text.Trim()))
                .Parameters.AddWithValue("descriptInternet", TextDescripInternetLG.Text.Trim())
                .Parameters.AddWithValue("importeInternet", CDec(TextImporteInternetLG.Text.Trim()))
                .Parameters.AddWithValue("descriptGastosExcep", TextDescripGastosExcepLG.Text.Trim())
                .Parameters.AddWithValue("importeGastosExcep", CDec(TextImporteGastosExcepLG.Text.Trim()))
                .Parameters.AddWithValue("totalOtros", CDec(TextImporteTotalOtrosLG.Text.Trim()))
                .Parameters.AddWithValue("GastosTotales", CDec(TextTotGastosCantiLG.Text.Trim()))
            End With
 
            Using conn
 
                conn.Open()
                With comm2
                    reader2 = .ExecuteReader()
                    While reader2.Read()
                        existeEmpleado = reader2.GetValue(0)
                    End While
                    .Dispose()
                End With
 
                If conn.State = ConnectionState.Open Then
 
                    conn.Close()
                End If
 
                If existeEmpleado = 0 Then
                    conn.Open()
                    With comm2
                        .ExecuteNonQuery()
                        .Dispose()
                    End With
                Else
                    ValidacionAsterisco2.Text = "*"
                    Validacion3.Text = ("Datos del usuario guardados anteriormente")
                End If
            End Using
        Catch ex As Exception
 
            MsgBox("Error en BD" & Chr(13) & Chr(13) & ex.Message)
            'mensaje("Error en BD" & Chr(13) & Chr(13) & ex.Message)
        Finally
            conn.Close()
            conn.Dispose()
        End Try
        BtnImprimirLG.Visible = True
    End Sub
 

[Aquaventus]

Hola maialenlopez, está bien, pero aqui el detalle es que ocupas demasiado con la query del SQL, lo recomandable sería que tengas eso en una procedure, y a este procedure pasarle lo parametros nada mas. de manera que es más óptimo para tu aplicación. Saludos!.

[maialenlopez]

Ok, Entonces haré un procedure tal y como me has comentado para que sea mas visible y mas optimo.
Lo que pasa es que ejecuto y luego compruebo si se ha introducido algo en la base de datos y no tengo nada en ella.

No se xq?

[Aquaventus]

En los parametros que les pasas van con los "@" :

Código vb:

.Parameters.AddWithValue("@idhoja", 1)
.Parameters.AddWithValue("@idempleado", idempleado)
.Parameters.AddWithValue("@fecha", TxtFechaLG.Text.Trim())
'...
 

Y asi para cada uno. Saludos!.

[maialenlopez]

E intentado poniendo la @ delante pero no me función hace todo bien, no da ningún error según voy depurando pero una vez que termino de depurar compruebo en la base de datos y no hay nada introducido.

[Aquaventus]

un errorcito tienes dentro de tu condicion le pasas el comm2 cuando deberia ser el comm3 :

Código vb:

If existeEmpleado = 0 Then
                    conn.Open()
                    With comm3
                        .ExecuteNonQuery()
                        .Dispose()
                    End With
                Else
                    ValidacionAsterisco2.Text = "*"
                    Validacion3.Text = ("Datos del usuario guardados anteriormente")
                End If
 

Saludos!.

[maialenlopez]

Muchisimas gracias, me va perfecto.

tenia ya la cabeza..... y no veía ese error.

Gracias