• Viernes 8 de Noviembre de 2024, 07:39

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - korsakof

Páginas: [1]
1
VB .NET / Problema Eventos con control Webbrowser
« en: Miércoles 28 de Mayo de 2014, 16:30 »
Hola,

tengo un problemilla con este objeto. Tengo dos funciones una en el load del formulario y otra a la que llama cuando se produce un evento del webbrowser.

Lo que no se es como detectar que la pagina ha sido correctamente cargada(vamos que se ve en el control) y despues de esta asignar unos valores a unos cuadros de texto dentro de la pagina web.

Esto es lo que hay en el load.

Código: [Seleccionar]
AddHandler browser.DocumentCompleted, AddressOf pageLoaded
    browser.Navigate("Web Address")
Y esto es lo que hay en lo que maneja el evento.

Código: [Seleccionar]
  Private Sub pageLoaded(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs) Handles browser.DocumentCompleted
    Dim autoHotkey As New Process()


    browser.Document.GetElementById("j_username").InnerText = "USER"
    browser.Document.GetElementById("j_password").InnerText = "PASS"
    browser.Document.GetElementById("loginbutton").InvokeMember("Click")
    System.Threading.Thread.Sleep(5000)
    MsgBox(My.Application.Info.DirectoryPath & "\aceptarAlerta.exe")
    autoHotkey.StartInfo.FileName = My.Application.Info.DirectoryPath & "\aceptarAlerta.exe"
    autoHotkey.Start()
    autoHotkey.Close()
    autoHotkey.Dispose()


End Sub
Lo estoy desarrollando en visual studio 2010.NET.

Gracias por la ayuda.

2
VB .NET / Captura de entrada de datos
« en: Domingo 16 de Febrero de 2014, 15:27 »
Hola,

Tengo un problema y no se como resolverlo:

La empresa tiene una plataforma en javascript(La plataforma al ser una gran empresa no se puede tocar) donde una parte de esa plataforma, se encarga de abrir incidencias cuando una maquina se les estropea. La incidencia se envia al equipo de mantenimiento, hasta ahi bien.El problema les surge cuando una persona de mantenimiento tiene que estar todo el dia mirando la pantalla para ver si entran incidencias.
Lo que se pretende hacer es enviar un sms al tecnico para que este no tenga que estar mirando la pantalla.
La entrada de datos se hace por medio de teclado y una pistola(lector codigo de barras) que van directamente a la plataforma de la empresa, a la pagina web.
El programa debe capturar esos datos a traves de algun sistema para luego poder usarlos a la hora de enviar el sms al tecnico de mantenimiento.
Habia pensado en un estilo keylogger, lo que pasa es que esto no se si funcionaria a la hora de capturar los datos por entrada de teclado, sin tener el foco del programa ya que este correria en background.

Un Saludo. Muchas Gracias.

3
VB .NET / Problema con Fecha
« en: Lunes 4 de Abril de 2011, 20:11 »
Código: vb.net
  1.     Dim resp As Boolean
  2.  
  3.         resp = comprobarCampos()
  4.         If resp = True Then
  5.  
  6.             REM meto consulta numalum
  7.  
  8.             Dim oDataadapter As New SqlDataAdapter
  9.             '  Dim oComando As New SqlCommand(sSQL, CONN)
  10.             Dim iResultado As Integer
  11.  
  12.             Dim oComando As New SqlCommand("INSERT INTO Frutas (idCursoFruta,idAlumnoFruta,fecha,nFrutas) VALUES(@idCursoFruta,@idAlumnoFruta,@fecha,@nFrutas)", CONN)
  13.             oDataadapter.InsertCommand = oComando
  14.  
  15.             oDataadapter.InsertCommand.Parameters.Add(New SqlParameter("@idCursoFruta", SqlDbType.Int))
  16.             oDataadapter.InsertCommand.Parameters.Add(New SqlParameter("@idAlumnoFruta", SqlDbType.Int))
  17.             oDataadapter.InsertCommand.Parameters.Add(New SqlParameter("@fecha", SqlDbType.DateTime))
  18.             oDataadapter.InsertCommand.Parameters.Add(New SqlParameter("@nFrutas", SqlDbType.Bit))
  19.  
  20.  
  21.             oDataadapter.InsertCommand.Parameters("@idCursoFruta").Value = LTrim(RTrim(Val(Microsoft.VisualBasic.Left(cbbCurso.Text, 2))))
  22.             oDataadapter.InsertCommand.Parameters("@idAlumnoFruta").Value = LTrim(RTrim(Val(Microsoft.VisualBasic.Left(cbbNumAlum.Text, 2))))
  23.  
  24.  
  25.             Esta es la linea------->oDataadapter.InsertCommand.Parameters("@fecha").Value = CDate(Format$(dtpFecha.Value.Date, "yyyy-MM-dd"))
  26.  
  27.  
  28.             oDataadapter.InsertCommand.Parameters("@nFrutas").Value = chkFruta.CheckState
  29.  
  30.             CONN.Open()
  31.             ' ejecutar comando de inserción del adaptador
  32.             iResultado = oDataadapter.InsertCommand.ExecuteNonQuery()
  33.             ' cerrar conexión
  34.             CONN.Close()
  35.  
  36.  
  37.             MsgBox("Se añadio el registro con exito", MsgBoxStyle.OkOnly)
  38.             botones(2)
  39.             carganumAlum()
  40.  
  41.         Else
  42.             MsgBox("Algun dato introducido es incorrecto", MsgBoxStyle.OkOnly)
  43.         End If
  44.  

Tengo un problema al introducir la fecha, ya que no me añade solo la fecha sino tambien la hora. en la base de datos el campo esta declarado como datetime.


Gracias.  :hitcomp:

4
VB .NET / Conectar con SQL Server
« en: Viernes 25 de Marzo de 2011, 10:52 »
Hola,

Estoy creando una pqueña aplicacion para un familiar. Yo previamente use visual basic 6 con access y DAO. Esta vez estoy usando visual studio y sql server(el que viene integrado con visual studio) creo que es el express y llevo varias dias buscando como conectarme a la base de datos.
Tambien las he usado en java.


Gracias por su tiempo.

5
Java / Java y JUnit
« en: Jueves 16 de Diciembre de 2010, 01:17 »
Hola,

Estoy usando Eclipse y JUnit y quiero probar un metodo y un constructor que no devuelven un valor y no se como hacerlo.



Muchas Gracias.

6
Java / Comprobar Valor de Variable en Java
« en: Viernes 19 de Noviembre de 2010, 20:02 »
Hola amigos,

Estoy haciendo un proyecto sencillo en java y me gustaria saber como se pueden conocer el valor de las variables mientras ejecuto el programa. Estoy usando eclipse para programarlo.
En visual mientras lo estas ejecutando puedes saber los valores poniendo puntos de parada y poniendote encima de la variable. como puedo hacer eso en eclipse?



Gracias.

7
VB .NET / 2 Dudillas sencillas Form y Bases de datos ADO.NET
« en: Lunes 26 de Julio de 2010, 17:23 »
Hola forer@s,

Es que tengo un par de dudas que no soy capaz de resolver:

1.- Quiero crear una pantalla de salida que indica si realmente quieres salir(es que la tengo personalizada) me gustaria saber como puedo cerrar cualquier form desde esta ventana ya que quiero que sirva para todos.

2.- Tengo un conjunto de vectores que cotienen datos y me gustaria  crear una base de datos de sql y acceder a ellos. Pero no encontre un manual.Alguien que me lo pueda explicar?
La teoria del modelo relacional y todo eso ya me lo se pero no consigo hacerlo en vb.net.


Gracias y perdonen las molestias.

8
VB .NET / Biblioteca Ipod
« en: Martes 16 de Junio de 2009, 15:28 »
Buenas Tardes,

          Me gustaria leer mi biblioteca del ipod en visual basic y poder reconocerlo.
          Sabeis de alguna dll o algun codigo para hacerlo.

Gracias.

9
VB .NET / OpenfileDialog
« en: Viernes 22 de Mayo de 2009, 17:51 »
Buenas de nuevo. siento robaros vuestro tiempo.
Con el control openfiledialog me gustaria filtrar las carpetas y que este recogiese la ruta pero es que no se usarlo y no lo veo porninguna parte dentro del msdn.


Gracias.

10
VB .NET / Leer Fichero
« en: Viernes 22 de Mayo de 2009, 17:25 »
Hola,

Buenas, necesito un poco de ayudita. En el trabajo me mandaron leer un archivo con extension .bif y cuando lo abro aparece esto.
Necesito leer una de las lineas. Me podrian decir.

Gracias.

DeviceVersionHW=Windows CE 5.2
DeviceSerialNumber=6902357549000050BF3F517301083539
UserPatchDatVersion=102
CompressedPatchVersion=150
MapServerPatchDatVersion=104
DeletedPoiDatVersion=200
ServerLineIndexDatVersion=102
ServerNameIndexDatVersion=102

11
Bases de Datos / Error 3396 No se puede efectuar la operacion en cascada
« en: Sábado 14 de Marzo de 2009, 17:24 »
Hola amig@s:
No encuentro la soludion a este error.

Yo tengo un formulario de pacientes que trabaja con la tabla pacientes.
Tb tengo otro formulario del historial de los pacientes que hace referencia al historial de los pacientes.
y por ultimo otro formulario que maneja las visitas.

Las tablas estan relacionadas entre si en el propio access

Pacientes          Hª de pacientes     Visitas
codpaciente -*->codphistorial------>codpvisitas
                        codcorrehistoria-->codhistori
                                                    fecha de la consulta

*Las relaciones son de 1 a varios.

A la hora de hacer una modificacion en formulario de pacientes me da este error:

Error 3396 No se puede efectuar la operacion en cascada. Puesto que existen registros relacionados en la tabla "visitas",se infringirian las reglas de integridad referencial.


Gracias por su ayuda.

12
Visual Basic para principiantes / Problema con activeskin y vb6
« en: Viernes 13 de Marzo de 2009, 11:39 »
Hola de nuevo
Tengo un problemilla. He combinado vb6 y activeskin y a la hora de cargar un skin me desaparecen todas las label o etiquetas.

Gracias.

13
Bases de Datos / [Solucionado]Problema al cambiar combobox
« en: Sábado 28 de Febrero de 2009, 18:35 »
El problema que tengo es el siguiente:

Yo hago una consulata de access linkeada a vb 6 y cargo los numeros correlativos en el combo box num corre.

Tras cargalo en la propiedad click de cbbnumcorre(o numero de "visitas o enfermedades"), necesito poder cambiarlo. Para que muestre la informacion correcta.

Código: Visual Basic
  1.     Dim criterio As String
  2.     Dim v, x As Integer
  3.    
  4. If Not registrohispacientes.EOF Then
  5.  
  6.     v = Val(txtcodpaciente.Text)
  7.  
  8.     If txtcodpaciente.Text <> "" And v >= 1 And v <= 99999 Then
  9.         criterio = "codpHIS = " & Val(txtcodpaciente.Text) & "AND codhHIS = " & Val(cbbnumcorre.Text)
  10.        
  11.        
  12.         registrohispacientes.FindFirst criterio
  13.        
  14.         If registrohispacientes.NoMatch Then
  15.             txtcodpaciente.Text = registrohispacientes.Fields("codpHIS")
  16.             'txtnumcorre.Text = registrohispacientes.Fields("cohHIS")
  17.             cbbenfermedades.Text = registrohispacientes.Fields("codeHIS")
  18.             cbbmedicos.Text = registrohispacientes.Fields("codmHIS")
  19.             cbbtratamientos.Text = registrohispacientes.Fields("codtHIS")
  20.             txtfechahistorial.Text = registrohispacientes.Fields("fechaHIS")
  21.             txtnotashistorial.Text = registrohispacientes.Fields("notaHIS")
  22.             tbarhispacientes.Buttons(1).Enabled = False
  23.             tbarhispacientes.Buttons(2).Enabled = True
  24.             tbarhispacientes.Buttons(3).Enabled = True
  25.         Else
  26.             tbarhispacientes.Buttons(1).Enabled = True
  27.             tbarhispacientes.Buttons(2).Enabled = False
  28.             tbarhispacientes.Buttons(3).Enabled = False
  29.    
  30.     End If
  31.     End If
  32. Else
  33.     x = MsgBox("No existe ningun registro", vbOKOnly, "Clinica")
  34.             tbarhispacientes.Buttons(1).Enabled = True
  35.             tbarhispacientes.Buttons(2).Enabled = False
  36.             tbarhispacientes.Buttons(3).Enabled = False
  37. End If
  38.  

Gracias

14
Bases de Datos / [SOLUCIONADO]Problema con combobox
« en: Jueves 26 de Febrero de 2009, 19:11 »
Buenas estoy intentando cargar unos combobox, 3 en concreto y lo que me ocurre es que carga uno y el resto no, No se cual es el motivo


Código: Visual Basic
  1. Dim tablahispacientes As TableDef
  2. Dim registrohispacientes As Recordset
  3.  
  4. Dim tablaenfermedades As TableDef
  5. Dim registroenfermedades As Recordset
  6.  
  7. Dim tablatratamientos As TableDef
  8. Dim registrotratamientos As Recordset
  9.  
  10. Dim tablamedicos As TableDef
  11. Dim registromedicos As Recordset
  12.  
  13.  
  14. Private Sub Form_Load()
  15. Rem cargo los valores de la tabla hispacientes
  16.  
  17.  
  18.     Set tablahispacientes = dbclinica.TableDefs("Hispacientes")
  19.     Set registrohispacientes = tablahispacientes.OpenRecordset(dbOpenDynaset)
  20.     Rem cargo pacientes
  21.  
  22.              tbarhispacientes.Buttons(1).Enabled = False
  23.             tbarhispacientes.Buttons(2).Enabled = False
  24.             tbarhispacientes.Buttons(3).Enabled = False
  25.  
  26.  Rem cargo combo enfermedades
  27.     Dim slinea As String
  28.        
  29.     Set tablaenfermedades = dbclinica.TableDefs("Enfermedades")
  30.     Set registroenfermedades = tablaenfermedades.OpenRecordset(dbOpenDynaset)
  31.    
  32.     registroenfermedades.Sort = "[codeENF] Asc"
  33.    
  34.     If Not registroenfermedades.EOF Then
  35.         cbbenfermedades.Clear
  36.    
  37.        
  38.         While Not registroenfermedades.EOF
  39.             slinea = Format(registroenfermedades.Fields("codeENF")) & Space(1) & Left$(registroenfermedades.Fields("nomENF"), 50)
  40.            
  41.             cbbenfermedades.AddItem slinea
  42.            
  43.             registroenfermedades.MoveNext
  44.         Wend
  45.     End If
  46.     cbbenfermedades.Text = cbbenfermedades.List(0)
  47.     registroenfermedades.Close
  48.  
  49. Rem cargo combo tratamientos
  50. [b]Este es el unico que carga de todos[/b]
  51.    
  52.    Set tablatratamientos = dbclinica.TableDefs("Tratamientos")
  53.    Set registrotratamientos = tablatratamientos.OpenRecordset(dbOpenDynaset)
  54.    
  55.    
  56.     registrotratamientos.Sort = "[codtTRAT] Asc"
  57.    
  58.     If Not registrotratamientos.EOF Then
  59.         cbbenfermedades.Clear
  60.    
  61.        
  62.         While Not registrotratamientos.EOF
  63.             slinea = Format(registrotratamientos.Fields("codtTRAT")) & Space(1) & Left$(registrotratamientos.Fields("nomTRAT"), 50)
  64.            
  65.             cbbtratamientos.AddItem slinea
  66.            
  67.             registrotratamientos.MoveNext
  68.         Wend
  69.     End If
  70.     cbbtratamientos.Text = cbbtratamientos.List(0)
  71.     registrotratamientos.Close
  72.    
  73. Rem cargo el combo box de medicos
  74.  
  75.    Set tablamedicos = dbclinica.TableDefs("Medicos")
  76.    Set registromedicos = tablamedicos.OpenRecordset(dbOpenDynaset)
  77.    
  78.    registromedicos.Sort = "[codmMED] Asc"
  79.    
  80.     If Not registromedicos.EOF Then
  81.         cbbmedicos.Clear
  82.        
  83.        While registromedicos.EOF
  84.        
  85.         slinea = Format(registromedicos.Fields("codmMED")) & Space(1) & Left$(registromedicos.Fields("nomMED"), 50) & Space(1) & Left(registromedicos.Fields("apelMED"), 50)
  86.        
  87.         cbbmedicos.AddItem slinea
  88.        
  89.         registromedicos.MoveNext
  90.         Wend
  91.     End If
  92.     cbbmedicos.Text = cbbenfermedades.List(0)
  93.     registromedicos.Close
  94.    
  95.  
  96. End Sub
  97.  


Gracias y perdonad de nuevo.

15
Bases de Datos / [SOLUCIONADO] Error 3021 No Hay Ningun Registro Activo
« en: Miércoles 25 de Febrero de 2009, 20:11 »
Ola buenas, perdonad.
Me aprece un mensaje que no entiendo porque cuando voy a realizar una busqueda de un registro en access.

Lo que aparece es eso: Error 3021 No Hay Ningun Registro Activo

No consigo entender el porque.

Muchas gracias de nuevo.

16
Bases de Datos / Problema con conexion a Base de datos
« en: Sábado 21 de Febrero de 2009, 16:36 »
Hola buenas, soy principiante en esto de vb y bases de datos.

Tengo una base de datos en access 2003. TEngo un problema a la hora de conectar por DAO.


Pongo la linea

Set dbclinica = DBEngine.Workspaces(0).OpenDatabase("C:pruclinica.mdb")

y me da el siguiente error cuando carga el formulario

"No se reconoce el formato de la base de datos"

Cuando lo hago en otro pc si que se puede.

Gracias por vuestro tiempo.

Páginas: [1]