SoloCodigo

Lo que quieres es:
- Hacer una aplicacion que "siempre" haga esto de extraer una imagen y colocar en un "campo" del formulario VB?
(que es para ti "campo?)
- Por esta vez extraer la imagen y guardarla para usarla en formularios VB?

Please detalle bien tu requerimiento para poder darte una solucion inmediata y no estar mensajes idas y vueltas sin llegar a darte una respuesta que te sirva.

Tengo una aplicacion que es multiusuaria.

Si tengo un usuario A, que esta actualizando, por ejemplo, los datos de un paciente.

Tengo un usuario B, que esta visualizando ID y NOMBRE de los pacientes.

Como hago para: que cuando el usuario A, presione actualizar datos, el usuario B pueda ver inmediatamente en su pantalla (msflexgrid) el registro actualizado, sin tener que hacer manualmente un refresh, si no que la aplicacion detecte una actualizacion en la tabla de datos del paciente.

Estoy trabajando sobre SQL 7.0 y VB 6.0 y uso conexiones RDO.

Muchas gracias, por vuestra ayuda.

Si lo que vas a consultas siempre es de la forma <nombre><espacio><apellido>, entonces la cosa es facil.
Usa lo siguiente


texto="JOSE PERALES"
nombre=MID(texto,1,instr(" ",texto)-1)
apellido=MID(texto,instr(" ",texto)+1,len(texto)-instr(" ",texto)+1)

sentencia="select * from tabla where "
sentencia=sentencia & "( nombre like '%" & nombre & "%' or "
sentencia=sentencia & "(nombre like '%" & apellido & "%' or "
sentencia=sentencia & "(nombre like '%" & texto & "%'  order by nombre"


Si el texto contiene mas palabras, entonces tienes que crear una rutina que descomponga el texto y vaya concatenando la consulta.

P.D.: Asumo que el ejemplo que das es JOSE PERALES, por que, a menos que tu computador sea SUPERINTELIGENTE habra adivinado de alguna parte el "LUIS"....

A que te refieres precisamente con "ejecutar"?

Sera que deseas, que cuando un usuario presione un icono del listview, se active algun proceso?

Si es asi, entonces, prueba lo siguiente:

Se supone que tenemos un listview1 enlazado a un imagelist1 (con 4 iconos)

Inserta este codigo en tu form:

Private Sub Form_Load()
'Cargo los iconos al listview
'Recuerda que el formato de entrada del icono al listview es: Indice, Clave, Texto, Icono
ListView1.ListItems.Add 1, "Agregar", "Agregar registro", 1
ListView1.ListItems.Add 2, "Editar", "Modificar registro", 2
ListView1.ListItems.Add 3, "Eliminar", "Eliminar registro", 3
ListView1.ListItems.Add 4, "Cancelar", "Cancelar", 4
End Sub

Private Sub ListView1_Click()
'Nos muestra la clave y texto del icono presionado.

msg = ListView1.SelectedItem.Key & vbLf
msg = msg & ListView1.SelectedItem.Text
MsgBox msg
'En esta parte puedes colocar tu codigo que desees:
'Puede ser de la forma:
'select case listview1.selecteditem.key
' case "Agregar":
'                     xcxxxxxxcskdjflsjd sdf
'                     lsdjflskdjfl sjkdflsjdfl sd
'case "Editar":
'                     xcxxxxxxcskdjflsjd sdf
'                     lsdjflskdjfl sjkdflsjdfl sd
'case "Eliminar":
'                     xcxxxxxxcskdjflsjd sdf
'                     lsdjflskdjfl sjkdflsjdfl sd
' case "Cancelar":
'                     xcxxxxxxcskdjflsjd sdf
'                     lsdjflskdjfl sjkdflsjdfl sd
'end select                
End Sub


Espero que sirva

Visita la pagina...

http://www.softcircuits.com/sw_vbsrc.htm

hay muy buenos codigos de ejemplo.

Para no tener que pegar el codigo ...
IF KEYASCII=13 THEN
.....
en todas los TEXT, has lo siguiente:

En la propiedad KEYPRESS del form ponle TRUE. e inserta este codigo:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
    Case vbKeyDown, vbKeyReturn
        KeyCode = 0
        SendKeys "{Tab}" 'Esta funcion mueve el foco al siguiente control cuando se pulsa Return o la Flecha hacia abajo
    Case vbKeyUp
        KeyCode = 0
        SendKeys "+{Tab}" 'Mueve el foco al control anterior al pulsar la tecla fecha arriba
    End Select
End Sub

Pruebalo!!!!

Recuerda que el lector de barras, lo UNICO que hace es reemplazar al teclado.
Por tanto, si tienes conectado un lector de barras (no un CAPTURADOR, ya que la cosa es diferente) y tienes el foco en el text. Si haces pasar el haz de luz sobre el codigo de barras, deberia aparecer en el text.

Claro que el lector tiene que estar configurado para leer los diferentes formatos de codigo de barras. Lo esta?

Por que no pruebas con usar dos procesos que se comuniquen entre si.
El primero es el administrador que dispara el proceso "background".
Asi podras tener los dos operando a la vez

Conoces las maquinas de turing?
Sabes lo que es un automata?

Pues tu problema se resuelve generando un automata primero, y despues programandolo.

Solucion mas que facil.







Por si no sabes lo que es un automata, aqui va una idea:

Estado     Descripcion
0              Inicio
      Si el caracter no es <coma> ni <punto> ni <espacio> entonces, concatenar caracter y pasar a estado 1
      Si no, pasa al estado 2
1                   Si el caracter no es <coma> ni <punto> ni <espacio> entonces, concatenar caracter y pasar a estado 1
      Si no, pasa al estado 2

2                  Palabra=<Concatenacion de caracteres>.
                    Si es fin de linea, pasar a estado 3, si no pasar a estado 0.
3                  Fin del automata.

Dim vector(1 To 6) As Integer
Dim totales(1 To 6) As Integer
vector(1) = 200
vector(2) = 100
vector(3) = 50
vector(4) = 20
vector(5) = 10
vector(6) = 5

totales(1) = 0
totales(2) = 0
totales(3) = 0
totales(4) = 0
totales(5) = 0
totales(6) = 0

monto = <Cifra a desglosar>

For i = 1 To 6
    resto = monto Mod vector(i)
    totales(i) = (monto - resto) / vector(i)
    monto = monto - totales(i) * vector(i)
    Print totales(i), vector(i), "=", totales(i) * vector(i)
Next i

Reviza el codigo fuente del programa VISDATA que trae VISUAL.
Si le haces un seguimiento, podras ver como se hace.

Amigos:

Tengo la estructura de tabla:

Tabla : HParametro
Nombre_______________Tipo
=======================
Parametro_____________Int
Descripcion____________Text(50)
Valor_________________Numeric

Y el siguiente procedimiento almacenado asociado.

/** Este procedimiento hace lo siguiente:
**   Muestra el valor del parametro actualmente
**   Ahora, si el FLAG=1, entonces, primero incrementa el valor
*/
CREATE PROCEDURE Secuencia_Parametro @Parametro int,@Flag int, @Valor numeric OUTPUT
AS
IF @Flag=1
BEGIN
   UPDATE hParametros SET Valor=Valor+1 WHERE Parametro=@Parametro
END
SELECT @Valor=Valor FROM hParametros WHERE Parametro=@Parametro
RETURN @Valor


En el Server Query Analizer, si pongo lo siguiente:

declare @@Salida numeric
exec secuencia_parametro 3,0,@@Salida

Me muestra el siguiente mensaje:
The command(s) completed successfully.

En cambio, se modifico el valor 0 por 1:
declare @@Salida numeric
exec secuencia_parametro 3,1,@@Salida

Me muestra el siguiente mensaje:
(1 row(s) affected)


Lo que esta bien, ya que hace lo que deseo.

Ahora la GRAN PREGUNTA:

Si utilizo la siguiente sentencia en VB:
SentenciaSQL="Select Valor from HParametros Where Parametro=3"
Set Resultado=aConexion.OpenResultSet(Sentenciasql)
If Not Resultado.EOF Then
   Msg="Valor Parametro=" & Resultado!Valor
   Msgbox Msg
Endif

Lo que hace es, recuperar el valor del parametro 3, utilizando directamente una consulta.

NOTA: Utilizo RDO para conectarme, pero para el caso, es indiferente, ya que lo que importa es lo siguiente:

QUE INSTRUCCIONES UTILIZO PARA EJECUTAR EL PROCEDIMIENTO ALMACENADO Y RECUPERAR EL VALOR DE RETORNO?

De antemano, muchisimas gracias.


P.D.: En todo caso, en todos los libros de SQL que he revisado, los ejemplos funcionan al 100% en el Query Analizer, pero no asi al querer usarlos en codigo VB.