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:
Ver original
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) 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 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 'mensaje("Error en BD" & Chr(13) & Chr(13) & ex.Message) Finally conn.Dispose() End Try BtnImprimirLG.Visible = True End Sub