Porque no funciona mi Insert SQL Server
Publicado por Mark (5 intervenciones) el 22/06/2023 21:47:05
tengo un probrema y es que mi insert no funciona y no hace nada los valores no se si estan mal cuando lo hago directamente en SQL si funciona pero en VB.NET nada.
Edit: Me equivoque de codigo
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Public Sub Conexion(ByVal CarpetaOrigen As String, ByVal Unidad As Char, ByVal Nombredeusuario As String, ByVal Contraseña As String)
Conectar.Open()
Dim TR As SqlTransaction = Conectar.BeginTransaction
'Intenta hacer la conexion directa con el modulo de red y inserta como fue el proceso si exitoso o fallidoTry
Map(CarpetaOrigen, Unidad, True, Nombredeusuario, Contraseña)
Comando = New SqlCommand("INSERT INTO [Bitacora] (Fecha, TipoID, EventoID) VALUES (GETDATE(), @TipoID, 100 )", Conectar) With {
.Transaction = TR
}Comando.Parameters.AddWithValue("@TipoID", DR.Item("ID"))
Comando.ExecuteNonQuery()
MsgBox("Aqui en Mapear no esta el error XD")
Catch ex As Exception
Comando = New SqlCommand("INSERT INTO [Bitacora] (Fecha, TipoID, EventoID) VALUES (GETDATE(), @TipoID, -100 )", Conectar) With {
.Transaction = TR
}Comando.Parameters.AddWithValue("@TipoID", TipoID.ToString)
Comando.ExecuteNonQuery()
MsgBox("Aqui en Mapear esta el error :c")
End Try
Conectar.Close()
Edit: Me equivoque de codigo
Valora esta pregunta
0