|
|
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
« 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.
AddHandler browser.DocumentCompleted, AddressOf pageLoaded
browser.Navigate("Web Address")
Y esto es lo que hay en lo que maneja el evento.
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
« 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
« en: Lunes 4 de Abril de 2011, 20:11 »
Dim resp As Boolean resp = comprobarCampos() If resp = True Then REM meto consulta numalum Dim oDataadapter As New SqlDataAdapter ' Dim oComando As New SqlCommand(sSQL, CONN) Dim iResultado As Integer Dim oComando As New SqlCommand("INSERT INTO Frutas (idCursoFruta,idAlumnoFruta,fecha,nFrutas) VALUES(@idCursoFruta,@idAlumnoFruta,@fecha,@nFrutas)", CONN) oDataadapter.InsertCommand = oComando oDataadapter.InsertCommand.Parameters.Add(New SqlParameter("@idCursoFruta", SqlDbType.Int)) oDataadapter.InsertCommand.Parameters.Add(New SqlParameter("@idAlumnoFruta", SqlDbType.Int)) oDataadapter.InsertCommand.Parameters.Add(New SqlParameter("@fecha", SqlDbType.DateTime)) oDataadapter.InsertCommand.Parameters.Add(New SqlParameter("@nFrutas", SqlDbType.Bit)) oDataadapter.InsertCommand.Parameters("@idCursoFruta").Value = LTrim(RTrim(Val(Microsoft.VisualBasic.Left(cbbCurso.Text, 2)))) oDataadapter.InsertCommand.Parameters("@idAlumnoFruta").Value = LTrim(RTrim(Val(Microsoft.VisualBasic.Left(cbbNumAlum.Text, 2)))) Esta es la linea------->oDataadapter.InsertCommand.Parameters("@fecha").Value = CDate(Format$(dtpFecha.Value.Date, "yyyy-MM-dd")) oDataadapter.InsertCommand.Parameters("@nFrutas").Value = chkFruta.CheckState CONN.Open() ' ejecutar comando de inserción del adaptador iResultado = oDataadapter.InsertCommand.ExecuteNonQuery() ' cerrar conexión CONN.Close() MsgBox("Se añadio el registro con exito", MsgBoxStyle.OkOnly) botones(2) carganumAlum() Else MsgBox("Algun dato introducido es incorrecto", MsgBoxStyle.OkOnly) End If
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. 
4
« 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
« 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
« 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
« 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
« 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
« 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
« 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
« 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
« 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
« 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. Dim criterio As String Dim v, x As Integer If Not registrohispacientes.EOF Then v = Val(txtcodpaciente.Text) If txtcodpaciente.Text <> "" And v >= 1 And v <= 99999 Then criterio = "codpHIS = " & Val(txtcodpaciente.Text) & "AND codhHIS = " & Val(cbbnumcorre.Text) registrohispacientes.FindFirst criterio If registrohispacientes.NoMatch Then txtcodpaciente.Text = registrohispacientes.Fields("codpHIS") 'txtnumcorre.Text = registrohispacientes.Fields("cohHIS") cbbenfermedades.Text = registrohispacientes.Fields("codeHIS") cbbmedicos.Text = registrohispacientes.Fields("codmHIS") cbbtratamientos.Text = registrohispacientes.Fields("codtHIS") txtfechahistorial.Text = registrohispacientes.Fields("fechaHIS") txtnotashistorial.Text = registrohispacientes.Fields("notaHIS") tbarhispacientes.Buttons(1).Enabled = False tbarhispacientes.Buttons(2).Enabled = True tbarhispacientes.Buttons(3).Enabled = True Else tbarhispacientes.Buttons(1).Enabled = True tbarhispacientes.Buttons(2).Enabled = False tbarhispacientes.Buttons(3).Enabled = False End If End If Else x = MsgBox("No existe ningun registro", vbOKOnly, "Clinica") tbarhispacientes.Buttons(1).Enabled = True tbarhispacientes.Buttons(2).Enabled = False tbarhispacientes.Buttons(3).Enabled = False End If
Gracias
14
« 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 Dim tablahispacientes As TableDef Dim registrohispacientes As Recordset Dim tablaenfermedades As TableDef Dim registroenfermedades As Recordset Dim tablatratamientos As TableDef Dim registrotratamientos As Recordset Dim tablamedicos As TableDef Dim registromedicos As Recordset Private Sub Form_Load() Rem cargo los valores de la tabla hispacientes Set tablahispacientes = dbclinica.TableDefs("Hispacientes") Set registrohispacientes = tablahispacientes.OpenRecordset(dbOpenDynaset) Rem cargo pacientes tbarhispacientes.Buttons(1).Enabled = False tbarhispacientes.Buttons(2).Enabled = False tbarhispacientes.Buttons(3).Enabled = False Rem cargo combo enfermedades Dim slinea As String Set tablaenfermedades = dbclinica.TableDefs("Enfermedades") Set registroenfermedades = tablaenfermedades.OpenRecordset(dbOpenDynaset) registroenfermedades.Sort = "[codeENF] Asc" If Not registroenfermedades.EOF Then cbbenfermedades.Clear While Not registroenfermedades.EOF slinea = Format(registroenfermedades.Fields("codeENF")) & Space(1) & Left$(registroenfermedades.Fields("nomENF"), 50) cbbenfermedades.AddItem slinea registroenfermedades.MoveNext Wend End If cbbenfermedades.Text = cbbenfermedades.List(0) registroenfermedades.Close Rem cargo combo tratamientos [b]Este es el unico que carga de todos[/b] Set tablatratamientos = dbclinica.TableDefs("Tratamientos") Set registrotratamientos = tablatratamientos.OpenRecordset(dbOpenDynaset) registrotratamientos.Sort = "[codtTRAT] Asc" If Not registrotratamientos.EOF Then cbbenfermedades.Clear While Not registrotratamientos.EOF slinea = Format(registrotratamientos.Fields("codtTRAT")) & Space(1) & Left$(registrotratamientos.Fields("nomTRAT"), 50) cbbtratamientos.AddItem slinea registrotratamientos.MoveNext Wend End If cbbtratamientos.Text = cbbtratamientos.List(0) registrotratamientos.Close Rem cargo el combo box de medicos Set tablamedicos = dbclinica.TableDefs("Medicos") Set registromedicos = tablamedicos.OpenRecordset(dbOpenDynaset) registromedicos.Sort = "[codmMED] Asc" If Not registromedicos.EOF Then cbbmedicos.Clear While registromedicos.EOF slinea = Format(registromedicos.Fields("codmMED")) & Space(1) & Left$(registromedicos.Fields("nomMED"), 50) & Space(1) & Left(registromedicos.Fields("apelMED"), 50) cbbmedicos.AddItem slinea registromedicos.MoveNext Wend End If cbbmedicos.Text = cbbenfermedades.List(0) registromedicos.Close End Sub
Gracias y perdonad de nuevo.
15
« 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
« 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]
|
|
|
Mostrar Mensajes
