SoloCodigo

hola a todos, alguien pudiera orientarme para saber como puedo hacer que mi aplicación realice dos o mas procesos al mismo tiempo, por ejemplo, realizar una consulta a un servidor y mientras esto sucede, copiar archivos de un directorio a otro, de antemano muchisimas gracias, salu2

hola a todos, necesito hacer un tipo de lista en la cual pueda poner en cada linea un cuadro y poder asignarle diferente coor, asi como lo usa visual basic en la lista donde muestra las propiedades de los controles, para asignar el backcolor, espero haberme explicado.....gracias y salu2

hola, necesito saber como puedo declarar x numero de variables, tomando en cuenta que x puede valer desde 1 hasta x numero de variables, pues no siempre voy a declarar la misma cantidad de variables....gracias

bien, el ejemplo es lo siguiente:

tengo una tabla en donde tengo un campo que se llama Dato1 es un campo string, en el primer registro tengo dentro de ese campo el valor "FechaAD" (las comillas solo las pongo para indicar que es texto, estas logicamente no forman parte del valor del campo), bueno lo que yo hacía en Clipper era lo siguiente:

store spac(20) to var   'aqui declaro una variable string
var = tabla.dato1 'aqui asigno el valor del campo a la variable
store 0 to &var1  'esto me generaba una variable de nombre FechaAD y era numerica


espero haberme explicado bien, y muchas gracias de antemano por su ayuda....

Alfredo

hola, alguien me puede ayudar???, necesito saber como puedo hacer para que mi aplicación revise si existe una conexion odbc en el datasource de windows 2000?????....de antemano muchisimas gracias....salu2

hola, me gustaría si alguien puede ayudarme, que me dijeran como puedo cancelar una consulta que hago con ADO, mi código es el siguiente:

Set conImportCtas = New ADODB.Connection
conImportCtas.ConnectionString = "DSN=ZKSYS01;SYSTEM=SYSKPZ;CMT=0;DBQ=GFACZZY;NAM=0;DFT=5;DSP=1;TFT=0;TSP=0;DEC=0;XDYNAMIC=1;RECBLOCK=2;BLOCKSIZE=256;SCROLLABLE=0;TRANSLATE=1;LAZYCLOSE=1;LIBVIEW=0;REMARKS=0;CONNTYPE=2;SORTTYPE=0;LANGUAGEID=ENU;SORTWEIGHT=0;PREFETCH=0;DFTPKGLIB=QGPL;MGDSN=0;"
conImportCtas.Open
 
Dim rstImportCtas As ADODB.Recordset
Dim strImportCtas As String
   
Set rstImportCtas = New ADODB.Recordset
rstImportCtas.ActiveConnection = conImportCtas
rstImportCtas.CursorType = adOpenStatic
rstImportCtas.LockType = adLockReadOnly
rstImportCtas.CursorLocation = adUseClient
     
Dim strCadena As String
strCadena = txtCadena.Text
rstImportCtas.Open strCadena, conImportCtas, adOpenDynamic, adLockOptimistic
rstImportCtas.MoveFirst
List1.Clear
Do While rstImportCtas.EOF = False
     List1.AddItem rstImportCtas.Fields("sect").Value & " " & rstImportCtas.Fields("manza").Value & " " & rstImportCtas.Fields("lote").Value & " " & rstImportCtas.Fields("toma").Value & " " & rstImportCtas.Fields("digi").Value & " " & rstImportCtas.Fields("nombre").Value
     rstImportCtas.MoveNext
Loop
List1.Visible = True
rstImportCtas.Close
conImportCtas.Close

lo que quiero hacer es poner un commandbutton para poder cancelar la consulta, creo que con el DoEvent, pero no sé como utilizarlo, si alguien me puede enviar un ejemplo, de antemano les agradezco....saludos...

estoy haciendo una aplicación pequeña y estoy utilizando una resolución de 1280 x 1024, como le hago para que cuando cambie yo la resolución o que la aplicación sea instalada en otra computadora, que la aplicación se ajuste automaticamente y las pantallas no queden ni mas grandes ni mas chicas?????

quiero preguntar lo siguiente, en la conexión que hago con ADO al sistema de AS400, quiero hacer un query, tengo lo siguiente:

rstImportCtas.Open "Select Format(SECT,'00') + Format(manza,'000') + Format(lote,'00') + Format(toma,'00') + Format(digi,'0') as cuenta From UsuarLrt Where cuenta = '0200110005'", conImportCtas, adOpenDynamic, adLockOptimistic

resulta que en la aplicación el usuario final va a utilizar números de cuenta por ejemplo el 0200110005, bueno, en la tabla de AS400 los campos están divididos y el ejemplo quedaría así 2 1 10 0 5, entonces, utilizo el FORMAT para poder comparar el valor del TextBox con los campos de la tabla, pero me dá como resultado el siguiente error:

Run-time error '-2147217865 (80040e37)
{IBM]{Controlador ODBC de Client Access (32 bits)][DB2/400 SQL] SQL0204 - FORMAT en *LIBL de tipo *N no encontrado

espero, que pudieran sugerirme que hacer o la forma en que puedo hacer el query, de antemano muchas gracias.....

hola, tengo un problema cuando corro mi aplicacion, resulta que tengo una forma y en ella tengo una serie de etiquetas, tengo tambien un boton de comando con el cual al presionarlo me conecto a un sistema AS400, mi problema es que al presionar el boton, las etiquetas deben cambiar y despues de esto, mostrarme un mensaje, pero al presionar el boton y realizar la conexion, la aplicaion como que se queda trabada (bueno, solo en cuanto a la imagen, pues el trabajo sigue su curso) e inmediatamente que termina se muestra el mensaje, lo que quiero decir es que nunca puedo ver el cambio en las etiquetas, alguien puede ayudarme con eso?????....de antemano muchas gracias.....

hola, estoy conectandome a un sistema AS400 por medio de una red de windows 2000, y estoy generando un RecordSet con información del AS400, quisiera utilizar un progressbar par mostrar el avance tanto de la conexion, como de la extraccion de informacion, solo que no se como calcular el max del progressbar ni como darle el valor  a value, pues ya puse el progressbar pero cuando corro el proceso, el programa como que hace una pausa mientras se conecta y realiza el recordset, incluso las etiquetas que he puesto no se ven sino hasta que termina la conexion y generacion del RecordSet, enseguida pongo parte del codigo que estoy usando...

Private Sub imporAS400()
   pbrImport.Value = (pbrImport.Value + 20)
   Dim conImportCtas As ADODB.Connection
   Dim rstImportCtas As ADODB.Recordset
   Dim strImportCtas As String
   
   Set conImportCtas = New ADODB.Connection
   conImportCtas.ConnectionString = "DSN=CENTRO;SYSTEM=CENTRAL;CMT=0;DBQ=FACTULIB;NAM=0;DFT=5;DSP=1;TFT=0;TSP=0;DEC=0;XDYNAMIC=1;RECBLOCK=2;BLOCKSIZE=256;SCROLLABLE=0;TRANSLATE=1;LAZYCLOSE=1;LIBVIEW=0;REMARKS=0;CONNTYPE=2;SORTTYPE=0;LANGUAGEID=ENU;SORTWEIGHT=0;PREFETCH=0;DFTPKGLIB=QGPL;MGDSN=0;"
   conImportCtas.Open
   Set rstImportCtas = New ADODB.Recordset
   rstImportCtas.ActiveConnection = conImportCtas
   rstImportCtas.CursorType = adOpenStatic
   rstImportCtas.LockType = adLockReadOnly
   rstImportCtas.CursorLocation = adUseClient
   rstImportCtas.Open "Select * From UsuarLrt Where SECT = 22 AND NOMBRE Like 'RAMIREZ%'", conImportCtas, adOpenDynamic, adLockOptimistic
   rstImportCtas.MoveFirst
   MsgBox rstImportCtas.Fields("NOMBRE").Value
   rstImportCtas.Close
   conImportCtas.Close
End Sub

de antemano muchisimas gracias por la ayuda....