• Sábado 13 de Julio de 2024, 02:24

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 - Jose Arriagada

Páginas: [1] 2 3
1
Visual Basic 6.0 e inferiores / Mostrar Todas Las Tablas Access .mdb
« en: Jueves 24 de Mayo de 2007, 17:22 »
Estimados,

Alguien me puede dar una idea de como mostrar todas las tablas que se encuentran en una base de datos ACCESS usando ADO.


En el siguiente codigo, abro la base de datos y despues leo una tabla definida.

    Set cnn = New ADODB.Connection
    Set rst = New ADODB.Recordset
    With cnn
        .ConnectionString = _
            "Provider=Microsoft.Jet.OLEDB.3.51;" & _
            "Data Source=C:\BASEDATOS.MDB;"
        .Open
    End With    
    ' Indicarle de que tabla vamos a leer los datos
    rst.Open "SELECT * FROM empresa", cnn, adOpenDynamic, adLockOptimistic


La idea, es poder colocar en un combobox, todas las tablas que estan contenidas en la base de datos, y despues en el combobox, al hacer click, se visualizaran todos los campos y datos de la tabla seleccionada.


Gracias

2
Visual Basic 6.0 e inferiores / Problemas De Envio Datos Con Winsock
« en: Jueves 2 de Noviembre de 2006, 21:43 »
Estimados,

Tengo la siguiente situacion:

- Realice dos aplicaciones (cliente y servidor) usando winsock.
- El cliente envia un dato, y el servidor lo recibe, aplica una funcion, y envia la respuesta.
- Ambas aplicaciones funcionan 100% en sobre un mismo equipo y sobre equipos distintos.

Pero si llevo la aplicación Servidora a otro PC, realiza la operacion sobre el dato recibido (que es enviado por el cliente), pero al cliente le envia el dato truncado.

Si hago un debug sobre la aplicacion servidora, las variables con sus valores estan OK, el mensaje que se arma antes de ser enviado al cliente esta OK. Pero no le llega al cliente en forma completa.

Alguien tiene idea a que se puede deber?

Las aplicaciones las realice sobre VB 6.0 con SP5 y SO Windows 2000 Profesional SP4.

3
Visual Basic 6.0 e inferiores / Problemas Con Winsock
« en: Martes 8 de Noviembre de 2005, 16:56 »
Tengo un cliente y un servidor, que se comunican con winsock.

El servidor funciona de maravilla. Responde a todo y controla toda. Cero problema.

El tema que me complica es lo siguiente:
El cliente, tiene 3 (tres) botones
- cmdConect
- cmdSend
- cmdClose

Si se presionan en forma consecutiva, y en la secuencia anteriormente descrita, todo funciona bien. Se comunica sin problemas con el servidor, y obtengo respuesta.

Pero, si en un solo boton, activo el evento click de cada uno de estos 3 (tres) botones, NO logro la comunicacion con el servidor.

Adjunto el codigo del cliente, para que lo prueben...

Option Explicit

Public Sub cmdClose_Click()
cmdConnect.Enabled = True
cmdSend.Enabled = False
cmdClose.Enabled = False
End Sub

Public Sub cmdConnect_Click()
Winsock1.RemoteHost = "10.0.3.150"
Winsock1.RemotePort = 1007
Winsock1.Connect
txtRespuesta.Text = ""
cmdConnect.Enabled = False
cmdSend.Enabled = True
cmdClose.Enabled = True
txtMensajeEnviar.SetFocus
End Sub

Public Sub cmdSend_Click()
If Winsock1.State = sckConnected Then
    Winsock1.SendData txtMensajeEnviar.Text
    Label3.Caption = "Sending Data"
Else
    Label3.Caption = "No se puede conectar a host"
End If
End Sub

Private Sub cmdStatus_Click()
Label3.Caption = "Estado:" & Winsock1.State
End Sub

Private Sub cmdTodosJuntos_Click()
Call cmdConnect_Click
Call cmdSend_Click
Call cmdClose_Click
End Sub

Private Sub Form_Load()
txtMensajeEnviar.Text = "asdfasdfasdf"
txtRespuesta.Text = ""
Label3.Caption = ""
txtIP.Text = Winsock1.LocalIP
End Sub


Private Sub Winsock1_Connect()
Select Case Winsock1.State
    Case 0: Label3.Caption = "Cerrada"
    Case 1: Label3.Caption = "Abierta"
    Case 2: Label3.Caption = "Escuchando"
    Case 3: Label3.Caption = "Solicitud pendiente"
    Case 4: Label3.Caption = "Resolviendo Conexion"
    Case 5: Label3.Caption = "Resuelta Conexion"
    Case 5: Label3.Caption = "Resuelta Conexion"
    Case 6: Label3.Caption = "Conectandose"
    Case 7: Label3.Caption = "Conectado"
    Case 8: Label3.Caption = "Cerrando"
    Case 9: Label3.Caption = "Error"
End Select
Label3.Caption = Winsock1.State & ":" & Label3.Caption
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim sData As String
Winsock1.GetData sData, vbString
txtRespuesta.Text = sData
Label3.Caption = "Received Data"
End Sub

Private Sub Winsock1_SendComplete()
Label3.Caption = "Completed Data Transmission"
End Sub


Si se dan cuenta, al presionar el boton cmdTodosJuntos, NO se activa el evento CONNECT del winsock.


Alguien sabe como resolver este tema?

4
ASP / Se Detiene Servicio Iis
« en: Lunes 3 de Octubre de 2005, 17:57 »
Estimados,

Genera una libreria DLL desde Visual Basic 6.0

En mi servidor ASP, se registro la libreria sin problemas.
Se realizo una prueba de comunicacion, y la libreria logro responder sin problemas, pero cada vez que llamo a la libreria se detiene el servicio IIS.

La libreria lo que hace es simplemente es tomar dos valores, y devolver las cuatro operaciones (suma, resta, multiplica, divide).

Alguien me puede dar luz, referente del porque se esta deteniendo el servicio IIS?

5
Visual Basic 6.0 e inferiores / Inhabilitar Nodo Treeview
« en: Viernes 19 de Agosto de 2005, 18:08 »
Hola estimados,

Mi consulta concreta:

Tengo un arbol (treeview) con "x" nodos con la propiedad checkbox en TRUE.

Existe alguna funcion, propiedad, tips o lo que sea, que me permita dejar ENABLED=FALSE un nodo en particular?

Cualquier ayuda es bienvenida.

Gracias por su futura colaboracion

6
Visual Basic 6.0 e inferiores / Modificar Informacion De Archivo Mp3
« en: Lunes 21 de Febrero de 2005, 20:27 »
Hola amigos;

Cuando uno escucha musica Mp3, todos los decodificadores te permiten visualizar la informacion interna del archivo, como por ejemplo, titulo, autor, año, y otras.

Mi idea es poder obtener esta informacion, poder modificarla y volverla a archivo mp3, sin necesidad de abrir un lector de archivos mp3.

Alguien sabe donde encuentro informacion relacionada?

Gracias

7
Visual Basic 6.0 e inferiores / Procesos Paralelos
« en: Miércoles 5 de Enero de 2005, 14:05 »
Amigos:

Tengo el siguiente problema:

En un command1, tengo instrucciones que realizan algunos procesos sobre tablas y calculos varios.
Esto se demora su tiempo.

Para aprovechar esto, quiere tener la posibilidad de poder presionar otro command2 que realice otro tipo de acciones.

Es posible?

Ya que al presionar el command1, no puedo hacer nada hasta que el proceso termine.

Existe alguna forma?

Podrian decirme como, o indicarme donde encontrar algun codigo de ejemplo.

Gracias

8
Visual Basic 6.0 e inferiores / Fastlynx 3.3
« en: Viernes 31 de Diciembre de 2004, 14:49 »
Hola amigos

Planteo la siguiente consulta, a pesar que no tiene que ver con VB, pero como se que son muchos al igual que yo, que no solamente estamos trabajando con VB, si no que en mas de alguna oportunidad nos hemos encontrado con otros problemas por resolver, les planteo la siguiente:

Me consegui el software Fastlynx 3.3 trial, que solo transfiere 10 archivos o 10 MB entre PC's.

Alguno de ustedes tiene el serial (o donde conseguirlo)

Gracias

9
Visual Basic 6.0 e inferiores / Problemas De Asignacion Datos A Variables
« en: Jueves 18 de Noviembre de 2004, 15:41 »
Estimados colegas:

Tengo el siguiente problema:

Dim xValor as double

xValor=0


Si le hago un debug a esto, veo que xValor=0,000000033456

Si reasigno xValor=3, veo que xValor=3,0000085735

Esto ocurre siempre

Pero si lo pruebo en otro PC, la cosa funciona super bien, es decir, a xValor=0 le asigna efectivamente xValor=0,000000000000

De pronto se me ocurrio, hacer lo siguiente

xValor=0
xValor=xValor

y SORPRESA, ahora si xValor es igual a cero

Alguien sabe a que se debe?

10
Visual Basic 6.0 e inferiores / Uso De Variable Byte
« en: Lunes 6 de Septiembre de 2004, 19:06 »
Necesito si alguien tiene codigo referente al uso de la variable BYTE.

Como se declara, y como se usa.

Gracias

11
Visual Basic 6.0 e inferiores / Agregar O Eliminar Filas/columnas En Excel
« en: Jueves 8 de Julio de 2004, 00:43 »
Hola amigos:

Alguno de ustedes, tiene un segmento de codigo que permita eliminar o agregar filas o columnas a una planilla excel.

Gracias

12
Visual Basic 6.0 e inferiores / Re: Treeview Con Nodos Padres Check
« en: Martes 6 de Julio de 2004, 23:54 »
Hola amigos:

Requiero presentar al usuario lo siguiente:
Nodos padres con la opcion checkbox presente, y dentro de cada nodo padre, van nodos hijos, pero estos no deben llevar la opcion checkbox presente.
Existe algun control que permita esta dualidad de opciones dependiendo del nivel del nodo, o, existe algun truco que permita simular el efecto deseado.

Gracias por la ayuda

13
Visual Basic 6.0 e inferiores / Cambiar Backcolor Control Sstab
« en: Lunes 21 de Junio de 2004, 23:35 »
Hola amigos, alguno de ustedes sabe como cambiar el color de fondo del control ssTab.
La idea es que se cambie el cuerpo completo, no los espacios entre las pestañas, ni cargar una imagen en la pestaña.


Gracias

14
Visual Basic 6.0 e inferiores / Presentación De Barra De Botones
« en: Viernes 18 de Junio de 2004, 23:05 »
Hola amigos, haber si me podeis ayudar.

Tengo una aplicacion en la cual, en tiempo de diseño confecciono la barra de botones, agregando los botones, los iconos, los caption y tooltiptext.
La cosa funciona bien, pero se hace dificil de administrar a medida que voy creando nuevo botones.

La cosa es que implemente la creacion de la barra de botones en tiempo de ejecucion, cosa que lo hace bien.

El problema esta en que, al presionar un boton, se me abre la ventana que deseo, pero el boton se mantiene con el efecto de presionado.
Cuando saldo de la ventana, en la cual estoy trabajado, y nuevamente presiono el mismo boton, ahora el boton sube, y la ventana se abre sin problemas.

Es decir, el boton se hunde y se levanta alternadamente. La aplicacion no tiene ningun problema. Solo es un efecto visual de los botones.

Alguien sabe a que se debe y como se soluciona.

Gracias.

15
Visual Basic 6.0 e inferiores / Vbskinner 1.3
« en: Viernes 11 de Junio de 2004, 18:13 »
Hola amigos, he incursionado en el uso del control vbskinner.
Me gusto mucho la idea de este control
Asi es que busque y baje el control con sus ejemplos. Espectacular.
El problema, es que requiere licencia. UNA LATA.
No existe el crack para el vbskinner pro 2.0, pero averiguando si existen los cracks para la version 1.3

Sera posible que alguno de ustedes tenga el control. No necesito enlaces a vbskinner 1.3, por que todos apuntan a los mismos sitios, que al final siempre es la version 2.0

Gracias

16
Visual Basic 6.0 e inferiores / Sentencia Reemplace Al If
« en: Viernes 28 de Mayo de 2004, 18:45 »
Estimados,

La situacion es la siguiente:

Muchas veces se desea saber si una variable es alguna de las muchas opciones a comparar, por ejemplo:

IF xVAR=1 or xVAR=3 or xVAR=7 or xVAR=0 then
   <sentencias>
ENDIF

o en su defecto, podria ser
SELECT CASE xVAR
  CASE 1,3,7,0:
         <sentencias>
END SELECT

Pero, igualmente es mucho codigo, para una sentencia tan simple.

Mi pregunta es: ¿EXISTE ALGUNA FUNCION QUE PERMITA SABER SI LA VARIABLE PERTENECE A ALGUNA DE ESTAS OPCIONES?, como por ejemplo

IF COMPARA(xVAR,1,3,7,0)=TRUE THEN
 <sentencias>
ENDIF

Si no, voy a terner que hacer esta funcion.
La lata, es colocar una cantidad n de variables de paso.

17
Visual Basic 6.0 e inferiores / Ayuda Sobre Combobox En Spread 2.5
« en: Martes 25 de Mayo de 2004, 00:23 »
Hola estimados:

Alguno de ustedes utiliza spread 2.5 o superior?
Si es asi, la siguiente funcion hace que una celda determinada contenga un combobox con algunos datos.

Como obtengo el indice del item seleccionado?
Que evento o propiedad me da el indice del item seleccionado?

Gracias por vuestra ayuda.


Aqui va el codigo:

sString="Lun" & chr(9) & "Mar" & chr(9) & "Mie" & chr(9) & "Jue" & chr(9) & "Jue"
'Me ubico en la columna 5
spread.Col = 5
'Le indico a la planilla que la celda sera del tipo combobox
spread.CellType = 8
'Le adiciono los items al combobox
spread.TypeComboBoxList = sString

18
Visual Basic 6.0 e inferiores / Para Michael: Vb60 Y Sql 7.0
« en: Lunes 3 de Mayo de 2004, 17:55 »
Hola michael:

Lei tu pregunta, y la respuesta.
Sera posible, que me envies la conecion a SQL, ya que actualmente utilizao RDO, y lo encuentro facil, pero me gustaria potenciar mis aplicaciones aun mas, usando ADO.

De antemano, muchisimas gracias.

Mi correo es josearriagada@123mail.cl

19
Visual Basic 6.0 e inferiores / Conectar Access 2000 Con Contraseña
« en: Lunes 19 de Abril de 2004, 21:30 »
Hola estimados:

Debo almacenar datos para que sean visibles pero no modificables.
He hecho unas tablas en access 2000, y las acceso y visualizo sin problemas, usando string de conexion.
Pero si a la base de datos, se agrego la seguridad de una contraseña, mi programa se conecta, pero me solicita la contraseña.
Si no la coloco, se para el programa,
Si la ingreso, el programa continua como si nada.

Mi problema, es que la aplicación la debo instalar en varios equipos, y la idea es que el programa se conecte a la base de datos, a pesar de tener la contraseña, ya que el programa le pasa el string de conección pero no lo considera.

Les envio la base de datos, y el programa pa' que me indiquen donde esta el problema

GRACIAS,

20
Visual Basic 6.0 e inferiores / Para Miguelp Sobre Vsflexgrid
« en: Miércoles 14 de Abril de 2004, 17:22 »
Miguel

En un mensaje anterior, enviaste un codigo serial para el vsflexgrid pro 8.0, y lo baje desde donde lo indicabas (componenone).

Al momento de instalar, ingreso tu numero de serie, y me marca error.

Igualmente señalaste que podrias enviar control y que pesaba alrededor de 5 mb creo.

Sera posible que me lo envies a contacto@eynconsultores.cl

Muchas gracias de antemano por tu colaboracion.

21
Visual Basic 6.0 e inferiores / Usar Trigger Para Actualizar Otra Tabla
« en: Viernes 2 de Abril de 2004, 19:08 »
Tengo las siguientes tabla

Guias_Despacho
Numero_GD     Numeric
Codigo_Cliente Numeric
Fecha_GD      Datetime

Detalle_Guias_Despacho
Numero_GD             Numeric
Numero_OT             Numeric
Codigo_Articulo       Numeric
Unidades_Despachadas  Numeric
Kilos_Despachados     Numeric

Detalle_OT
Numero_OT            Numeric
Codigo_Articulo      Numeric
Unidades_Recibidas   Numeric
Kilos_Recibidos      Numeric
Unidades_Despachadas Numeric
Kilos_Despachados    Numeric

Y la situacion es la siguiente:

Una orden de trabajo (OT) tiene registrada los articulos, cantidades y kilos recibidos.
Cuando se hace un despacho, en la tabla Detalle_Guias_Despacho, registro el articulo, los kilos y unidades a despachar.
En ese momento, existe un trigger asociado a la Detalle_Guias_Despacho que actualiza los campos Unidades_Despachas y Kilos_Despachados.
Hasta aqui todo funciona bien. Sin problemas.

La cosa se complica cuando, deseo eliminar una Guia de despacho.
El trigger, inicialmente lo asocie a la tabla Detalle_Guias_Despacho, suponiendo que, al eliminar un registro de esta tabla, se actualizara la tabla Detalle_OT, pero lo que hace el trigger, es solo actualizar el ultimo registro eliminado.
Elimine el trigger, y lo instale a la tabla Guias_Despacho, pero tengo el siguiente problema.

NO SE COMO RECORRER TODOS LOS REGISTROS DE LA TABLA Detalle_Guias_Despacho PARA ACTUALIZAR LA TABLA Detalle_OT

Alguien sabe como realizar actualizaciones desde un trigger a otra tabla.

Muchas gracias por la atencion, y posible ayuda.

22
Visual Basic 6.0 e inferiores / Actualizar Tablas En Sql
« en: Martes 16 de Marzo de 2004, 21:59 »
:: VB 6.0 y SQL 7.0 ::

En mi casa tengo una replica de la base de datos de la oficina.
Los fines de semana, hago modificaciones tanto del sistema como de las tablas.
El dia lunes, al llegar  a la oficina, actualizo el sistema, pero las tablas, las tengo que:
- O actualizar una a una, si son pocas.
- Hacer un scripts de TODA la base de datos de la casa, y exportar los datos a una planilla EXCEL.
   Al llegar a la oficina, hechar a correr el scripts, que OBVIAMENTE BORRA TODAS LAS TABLAS, pero las crea con la estructura nueva, y posteriormente poblar las tablas, importando los datos.

Claramente, la tarea es tediosa, si pensamos que esto ocurre los viernes, donde me llevo las cosas para la casa, y los lunes cuando vuelvo al trabajo

Existe alguna forma, que mi sistema, lea el script nuevo, y actualice SOLO las tablas que han sufrido alguna variacion?

23
Otras Bases de Datos / Modificar Tablas Usando Sentencias Sql
« en: Martes 16 de Marzo de 2004, 21:48 »
La sentencia para insertar un campo en una tabla SQL es:

ALTER TABLE tabla ADD campo tipo

El problema, es que la insercion del campo, se hace como ultimo campo de la tabla.

Como le indico que el campo tiene que ir entre el campo1 y el campo2, o cuando sera ahora el primer campo de la tabla?

Gracias

24
Visual Basic 6.0 e inferiores / Como Linkear El Archivo De Ayuda
« en: Martes 16 de Marzo de 2004, 16:21 »
Hola amigos:

Tengo una aplicacion que esta operando ok.
He diseñado el archivo de ayuda con el HCW.EXE  que trae VB.

Ahora la pregunta del millon.

En mi aplicacion, existe un menu Ayuda, que se supone debiera llamar al archivo de ayuda que he diseñado, como lo linkeo?

Igualmente deseo que desde cualquier parte del programa, al presionar F1, aparezca mi ayuda.

Gracias por la colaboracion

25
Dudas informáticas / Software Monitoreo Accesos Internet
« en: Martes 16 de Marzo de 2004, 14:43 »
Hola amigos:

Tengo la siguiente situacion.

Un pc servidor con acceso a internet que es compartido por otros equipos conectados en red.

El instalar internet era necesario por asuntos laborales, pero, lamentablemente, ha sido para distraccion y acceso a sitios porno, con sus consabidos problemas de virus y porquerias.

Claro, que los pichines, despues de navegar, limpian los cookies, el historial y los archivos temporales, y por tanto no se quien ha navegado en tal o cual sitio prohibido.

Me gustaria saber, su existe algun software para monitorear los sitios visitados, y que no se puedan borrar, ojala con contraseña para administrar mejor.

Cualquier ayuda sera agradecida.

Esperando una respuesta que me ayude, gracias por el tiempo en leer este drama.

Páginas: [1] 2 3