|
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.
Mensajes - arjmasar
Páginas: [1]
1
« en: Martes 18 de Febrero de 2003, 18:48 »
hola, necesito aprender a usar las api de windows, alguna sugerencia???...gracias....
2
« en: Viernes 14 de Febrero de 2003, 22:49 »
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
3
« en: Jueves 23 de Enero de 2003, 20:51 »
hola, como puedo hacerle para borrar una tabla de excel, con código de Visual basic (especificamente utilizando ADO)????, muchisimas gracias....salu2
4
« en: Miércoles 22 de Enero de 2003, 19:05 »
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
5
« en: Viernes 6 de Diciembre de 2002, 21:11 »
hola a todos, me gustaría saber como puedo hacer para utilizar un listview como el que utiliza autocad 14, en donde en las columnas le puede asignar una imagen, he visto el listview de visual pero solo he logrado ponerle imagen a la primer columna, existe alguna forma de hacer esto o en su defecto algun ocx????, tambien me gustaria saber como puedo hacer para usar un progressbar como el de windows en donde me muestra el porcentaje en numeros (ejempo: 10%)...de antemano muchas gracias...
6
« en: Martes 3 de Diciembre de 2002, 21:48 »
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
7
« en: Martes 3 de Diciembre de 2002, 17:16 »
hola, tengo entendido que de alguna manera el sistema operativo me puede dar nombres únicos para asignar a archivos, nombres que nunca van a repetirse....como lo puedo hacer......muchas gracias....salu2
8
« en: Viernes 29 de Noviembre de 2002, 20:27 »
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
9
« en: Viernes 29 de Noviembre de 2002, 18:09 »
hola a todos, cuando programaba en Clipper utilizaba lo siguiente:
store spac(10) to miVar miVar = "Campo1" store 0 to &miVar
**** esto me generaba una variable llamada Campo1
esto lo utilizaba para generar variables con nombres que no eran constantes, en visual basic quiero hacer lo mismo, alguien pudiera decirme como?????, de antemano muchisimas gracias....
10
« en: Jueves 28 de Noviembre de 2002, 20:25 »
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
11
« en: Martes 19 de Noviembre de 2002, 23:13 »
necesito saber si puedo proteger mi proyecto de visual basic y como?????, me super urge.....ustedes saben, derechos de autor, que no????....salu2
12
« en: Jueves 17 de Octubre de 2002, 17:09 »
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...
13
« en: Jueves 17 de Octubre de 2002, 16:06 »
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...
14
« en: Lunes 23 de Septiembre de 2002, 19:43 »
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?????
15
« en: Miércoles 18 de Septiembre de 2002, 22:14 »
hola a todos, observen este código...
Set conImportCtas = New ADODB.Connection conImportCtas.ConnectionString = "DSN=JMAS;SYSTEM=JMAS;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 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 rstImportCtas.Open "Select * From UsuarLrt Where SECT = 2", conImportCtas, adOpenDynamic, adLockOptimistic
con este código el problema que tengo es que en la parte enseguida de open ("Select * From UsuarLrt Where SECT = 2") donde SECT = 2, este valor quiero que sea el usuario final quien le asigne el valor, pero no se como quedaria la expresión, no se si deba hacer alguna cadena, pero como la asigno????
de antemano muchas gracias.......
16
« en: Viernes 23 de Agosto de 2002, 18:00 »
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.....
17
« en: Martes 20 de Agosto de 2002, 20:35 »
como puedo saber la forma en que windows avisa cuando una accion ha terminado, por ejemplo, si con mi aplicacion quiero conectarme a un servidor de AS400, como puedo saber cuando la accion de conexion a terminado????
18
« en: Lunes 19 de Agosto de 2002, 23:36 »
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.....
19
« en: Miércoles 14 de Agosto de 2002, 19:01 »
pues aqui te envio algo que estoy usando, aunque soy principiante, pues he logrado conectarme..
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
20
« en: Miércoles 14 de Agosto de 2002, 18:46 »
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....
Páginas: [1]
|
|
|