Error al insertar datos VB

Lo que pasa e es que tengo las siguientes funciones, pero al tratar de insertar los datos me aparece el error que relsalto en negro y no se como corregirlo, ya he mirado las tablas SQL todo y no veo por ningún lado el error... Mil gracias...
Function Crearguia(ByVal NumeroGuia As Integer, ByVal CodigoDest As Integer, ByVal cantidad As Integer, ByVal CodigoProd As Integer, ByVal estado As String, ByVal codigoMens As Integer) As Boolean
Dim Conmydata As SqlConnection 'para conectar con la base datos'
Dim cmdselect As SqlCommand 'sqlcommand sirve para ejecutar una instruccion de sql'
Dim strsql As String ' strsql variable donde se almacena la intruccion a ejecutar'
strsql = "insert into Guia values ('" & NumeroGuia & "','" & CodigoDest & "','" & cantidad & "','" & CodigoProd & "','" & estado & "','" & codigoMens & "')"
Conmydata = New SqlConnection(System.Configuration.ConfigurationManager.ConnectionStrings("StrCon").ConnectionString)
cmdselect = New SqlCommand(strsql, Conmydata)
cmdselect.CommandType = CommandType.Text
Try
Conmydata. Open() 'intenta ejecutar la instrucción, si no puede arroja la excepción o el error'
cmdselect.ExecuteNonQuery()
Conmydata.Close()
Return True
Catch ex As Exception
Return False
End Try
End Function
y esta es el metodo:
Protected Sub btnRealizarCarga_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnRealizarCarga.Click
Try
Dim datos As New datos
Dim NumeroGuia As Integer
Dim CodigoDest As Integer
Dim cantidad As Integer
Dim CodigoProd As Integer
Dim estado As String
Dim codigoMens As Integer
Dim MiConexion As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Mauro\Desktop\Pruebilla.xlsx;Extended Properties='Excel 12.0 Xml;HDR=YES;IMEX=1'")
Dim MiAdaptador As New OleDbDataAdapter("SELECT * FROM [Hoja1$]", MiConexion)
Dim dt As New DataTable
Dim commandbuilder As New OleDb.OleDbCommandBuilder(MiAdaptador)
MiConexion.Open()
MiAdaptador.Fill(dt)
MiConexion.Close()
If ValidarXls(dt) = True Then
'Rows = Fila
'Item = Columna
Dim i As Integer
For i = 0 To dt.Rows.Count - 1
NumeroGuia = dt.Rows(i).Item(0)
CodigoDest = dt.Rows(i).Item(1)
cantidad = dt.Rows(i).Item(2)
CodigoProd = dt.Rows(i).Item(3)
estado = dt.Rows(i).Item(4)
codigoMens = dt.Rows(i).Item(5)
If datos.Crearguia(NumeroGuia, CodigoDest, cantidad, CodigoProd, estado, codigoMens) = False Then
lblMensaje.Text = "Ha ocurrido un error al momento de guardar los registros"
Exit Sub
End If
Next
lblMensaje.Text = "Carga masiva de Usuarios realizada con Exito!!!!!"
Else
lblMensaje.Text = "ha ocurrido un error al momento de validar el Excel"
End If
Catch ex As Exception
lblMensaje.Text = ex.ToString
End Try
End Sub

2 Respuestas

Respuesta
1
Tienes que colocar en el método Crearguia en el catch un mensaje para saber cual es el error que tienes en la sentencia sql de insert que estas utilizando
Respuesta
1
No veo el resaltado en negro.
Hola que pena contigo.. Ahí esta resaltado.
Function Crearguia(ByVal NumeroGuia As Integer, ByVal CodigoDest As Integer, ByVal cantidad As Integer, ByVal CodigoProd As Integer, ByVal estado As String, ByVal codigoMens As Integer) As Boolean
Dim Conmydata As SqlConnection 'para conectar con la base datos'
Dim cmdselect As SqlCommand 'sqlcommand sirve para ejecutar una instruccion de sql'
Dim strsql As String ' strsql variable donde se almacena la intruccion a ejecutar'
strsql = "insert into Guia values ('" & NumeroGuia & "','" & CodigoDest & "','" & cantidad & "','" & CodigoProd & "','" & estado & "','" & codigoMens & "')"
Conmydata = New SqlConnection(System.Configuration.ConfigurationManager.ConnectionStrings("StrCon").ConnectionString)
cmdselect = New SqlCommand(strsql, Conmydata)
cmdselect.CommandType = CommandType.Text
Try
Conmydata.Open() 'intenta ejecutar la instrucción, si no puede arroja la excepción o el error'
cmdselect.ExecuteNonQuery()
Conmydata.Close()
Return True
Catch ex As Exception
Return False
End Try
End Function
y esta es el metodo:
Protected Sub btnRealizarCarga_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnRealizarCarga.Click
Try
Dim datos As New datos
Dim NumeroGuia As Integer
Dim CodigoDest As Integer
Dim cantidad As Integer
Dim CodigoProd As Integer
Dim estado As String
Dim codigoMens As Integer
Dim MiConexion As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Mauro\Desktop\Pruebilla.xlsx;Extended Properties='Excel 12.0 Xml;HDR=YES;IMEX=1'")
Dim MiAdaptador As New OleDbDataAdapter("SELECT * FROM [Hoja1$]", MiConexion)
Dim dt As New DataTable
Dim commandbuilder As New OleDb.OleDbCommandBuilder(MiAdaptador)
MiConexion.Open()
MiAdaptador.Fill(dt)
MiConexion.Close()
If ValidarXls(dt) = True Then
'Rows = Fila
'Item = Columna
Dim i As Integer
For i = 0 To dt.Rows.Count - 1
NumeroGuia = dt.Rows(i).Item(0)
CodigoDest = dt.Rows(i).Item(1)
cantidad = dt.Rows(i).Item(2)
CodigoProd = dt.Rows(i).Item(3)
estado = dt.Rows(i).Item(4)
codigoMens = dt.Rows(i).Item(5)
If datos.Crearguia(NumeroGuia, CodigoDest, cantidad, CodigoProd, estado, codigoMens) = False Then
lblMensaje.Text = "Ha ocurrido un error al momento de guardar los registros"
Exit Sub
End If
Next
lblMensaje.Text = "Carga masiva de Usuarios realizada con Exito!!!!!"
Else
lblMensaje.Text = "ha ocurrido un error al momento de validar el Excel"
End If
Catch ex As Exception
lblMensaje.Text = ex.ToString
End Try
End Sub
Tu me quieres enloquecer.
Debes mostrarme en que linea se genera el error, por que eso es una asignación a un Label en su propiedad Text.
Muéstrame el código de Crearguia
jajajajajja!..
Me parecido gracioso el comentario jaja.. mira este es el código, saludos:
Function Crearguia(ByVal NumeroGuia As Integer, ByVal CodigoDest As Integer, ByVal cantidad As Integer, ByVal CodigoProd As Integer, ByVal estado As String) As Boolean
Dim Conmydata As SqlConnection 'para conectar con la base datos'
Dim cmdselect As SqlCommand 'sqlcommand sirve para ejecutar una instruccion de sql'
Dim strsql As String ' strsql variable donde se almacena la intruccion a ejecutar'
strsql = "insert into Guia values ('" & NumeroGuia & "','" & CodigoDest & "','" & cantidad & "','" & CodigoProd & "','" & estado & "')"
Conmydata = New SqlConnection(System.Configuration.ConfigurationManager.ConnectionStrings("StrCon").ConnectionString)
cmdselect = New SqlCommand(strsql, Conmydata)
cmdselect.CommandType = CommandType.Text
Try
Conmydata.Open() 'intenta ejecutar la instrucción, si no puede arroja la excepción o el error'
cmdselect.ExecuteNonQuery()
Conmydata.Close()
Return True
Catch ex As Exception
Return False
End Try
End Function
Despues de Catch ex As Exception agrega esta linea:
Throw New Exception(ex.Message)
Hazlo correr y dime que te dice.
Hola..
Continua apareciendo exactamente lo mismo que te muestro arriba.
Gracias.
Si lo hiciste bien como te dije, no debería, pero cambia esto:
If datos.Crearguia(NumeroGuia, CodigoDest, cantidad, CodigoProd, estado, codigoMens) = False Then
lblMensaje.Text = "Ha ocurrido un error al momento de guardar los registros"
Exit Sub
End If
Por esto
Datos. Crearguia(NumeroGuia, CodigoDest, cantidad, CodigoProd, estado, codigoMens)
Te debe dar un error.
Hola Edwardo, te iba a preguntar algo sobre este tema pero fíjate que me puse a toriar esto y al final no se que fue lo que enmendó el error y ya pude insertar los datos. Aun así mil gracias por tu paciencia. Creo que es tu virtud. No tan negativa como la mía.. je je.. Ypor ahí te estoy molestando otra vez. Mil gracias.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Error de formato tablas en visual basic

Tengo el siguiente error y no se como corregirlo. Ya he mirado las declaraciones, las tablas y mucho más pero no lo encuentro.. Mil garcías. System. Data. OleDb. OleDbException: La tabla externa no tiene el formato esperado. En System. Data. OleDb....
2 respuestas

Campos Null en visual basic

Resulta que en mi desarrollo web necesito subir un archivo en excel con 8 campos pero el ultimo campo debo hacerlo vacío para poder tomar la fecha del servidor cuando haga una gestión. En este momento lo hago pero si le pongo una fecha cualquiera a...
1 respuesta

Error visual basic

Cuando intento eliminar algún dato de la tabla me sale este error: Error de servidor en la aplicación '/'. No se puede convertir un objeto de tipo 'System. String' al tipo 'System. Data. DataSet'. Descripción: Excepción no controlada al ejecutar la...
2 respuestas

Consulta inner join VB

Me disculpas si te hago muchas preguntas pero deseo aprender y antes de hacerlas quemo un poco de neuraneas, a veces con resultado y a veces no. Quiero hacer una consulta inner join a un trio de tablas. La idea es que cuando ingrese cualquier un...
4 respuestas

Como cargo un reporte en ASP.NET

NET, no se si este es tu fuerte pero si me puedes ayudar te lo agradeceré, resulta que estoy iniciando con ASP.NET, ya tengo mi pequeña página y ahora en esa página quiero cargar un reporte que hice en crystall, el problema esta en que cuando llamo...
1 respuesta

Seleccionar item de un combo y rellenar un textbox

Estoy iniciando con esto de VB. Net... Tengo una base de datos que migre desde access... Descargue Sql Server Express 2008 y Visual Studio 2008 para crear la interfaz... Ya estoy dando mis primeros pasos creando la conexión a la base que tengo en Sql...
1 respuesta

Guardar datos de un gridview en tabla sql server

De nuevo experto logre agregar los registros al gridview utilice el código siguiente Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If Not Page.IsPostBack Then table = New System.Data.DataTable()...
1 respuesta

Pasar datos de un gridview a un listbox

Tengo 3 listbox que los lleno un datasource, estos listbox están enlazados es decir dependiendo del país, el otro se llena con los estados dependiendo de que estado se llena con municipios correspondiente... Y tengo un gridview el cual también lleno...
1 respuesta

Como convertir una celda de un datagridview en un combobox

Net es una aplicación winform, Yo cargo los datos de en mi datagridview mediante una consulta, Y hay una columna ("locales") que no se carga nada, al hacer una consulta, Pero en el caso de que el usuario quiera editar esa columna, o mejor dicho esa...
1 respuesta

¿Como poner un mensaje cuando la fue conexión exitosa o no exitosa en un sistema?

Quiero saber si me pueden ayudar con la siguiente duda, bueno estoy trabajando un sistema con vb.net 2010 y sql server 2008, yo establezco la conexión en un modulo de la siguiente manera. Imports System Imports System. Data. SqlClient Module...
1 respuesta