SoloCodigo

hola, necesito aprender a usar las api de windows, alguna sugerencia???...gracias....

hola, como puedo hacerle para borrar una tabla de excel, con código de Visual basic (especificamente utilizando ADO)????, muchisimas gracias....salu2

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...

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

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....

necesito saber si puedo proteger mi proyecto de visual basic y como?????, me super urge.....ustedes saben, derechos de autor, que no????....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...

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.......

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????

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....