|
|
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
1
« 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
« 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
« 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
« 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
« 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
« 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
« 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
« 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
« 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
« 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
« 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
« 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
« 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
« 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
« 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
« 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
« 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
« 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
« 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
« 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.clMuchas gracias de antemano por tu colaboracion.
21
« 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
« 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
« 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
« 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
« 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.
|
|
|
Mostrar Mensajes
