|
|
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 - cpmario
Páginas: 1 ... 14 15 [16] 17 18 ... 26
376
« en: Viernes 20 de Enero de 2006, 17:31 »
377
« en: Jueves 19 de Enero de 2006, 16:34 »
Debiera aparecer con el SP6, que es lo que yo tengo. Ignoro cual pueda ser el problema. Te adjunto 2 pequeños proyectos de una base de datos DAO, el único cambio que tienen es la referencia para Access 97="Microsoft DAO 3.51 Library", y para Access 2000= "Microsoft DAO 3.6 Library", además la propiedad Connect del control Data en Access 97= "Access" y en para Access 2000= "Access 2000;" 
378
« en: Jueves 19 de Enero de 2006, 00:21 »
Si los datos en Excell y Access son del mismo tipo, nombre, tamaño etc, te sugiero que trates con un simple Copiar y Pegar. Es posible traspasar datos de una aplicación a otra a través del portapapeles.
379
« en: Jueves 19 de Enero de 2006, 00:05 »
En el menú 'Proyecto' busca 'Referencias' y selecciona "Microsoft DAO 3.6 Object Library" En la propiedad 'Connect' del control Data selecciona "Access 2000;"
380
« en: Martes 17 de Enero de 2006, 19:20 »
Las últimas actualizaciones de VB6 te permiten trabajar DAO con Acesss 2000 sin problema, excepto por el campo de contador automático. Personalmente manejo DAO Access 97 y 2000, los cambios de código entre una y otra versión son mínimos.
381
« en: Lunes 16 de Enero de 2006, 23:05 »
Aún uso el DAO y me sirve bien. Se puede usar con Control Data o con código para manipular los datos, o una combinación de ambos.
382
« en: Martes 10 de Enero de 2006, 20:52 »
Solo se requiere de una suma +1 Toma la fecha en una variable Date y le sumas 1 Por ejemplo: Dim dtTemp As Date dtTemp = "28/02/2006" dtTemp = dtTemp +1
384
« en: Miércoles 4 de Enero de 2006, 18:24 »
Usa la Instrucción AppActivate, revisa la ayuda de VB6 Por ejemplo: AppActivate "Documento - WordPad", False
386
« en: Sábado 24 de Diciembre de 2005, 18:17 »
Que esta navidad la pasen muy bien con su familia. Y que el próximo año aprendamos más con ayuda de este excelente foro ¡SoloCódigo! 
387
« en: Martes 20 de Diciembre de 2005, 14:39 »
El formato antiguo viene desde el Win 3.1 y los archivos tienen extensión HLP. Los nuevos formatos de ayuda tienen extensión CHM el cual guarda la información en HTML.
388
« en: Miércoles 14 de Diciembre de 2005, 18:21 »
Como te decia, no hay expresiones regulares. Tienes que irlas inventando conforme a los datos que deseas obtener. Existen buenos sitios de VB para consultar, pero tal vez ninguno sea precisamente de lo que deseas. En este foro hay muchas discusiones de la manera de obtener solo texto en mayúsculas, o solo números, etc. http://www.elguille.info/vb/default.aspxTambién puedes hacer búsquedas en Google, por ejemplo busca "tutorial vb" (sin las comillas).
389
« en: Martes 13 de Diciembre de 2005, 22:50 »
Trata esto: En un módulo coloca Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpszOp As String, ByVal lpszFile As String, ByVal lpszParams As String, ByVal LpszDir As String, ByVal FsShowCmd As Long) As Long Declare Function GetDesktopWindow& Lib "user32" ()
En un evento click de un botón lo siguiente r = ShellExecute(GetDesktopWindow, "open", gstrAppPath & "test.swf", "", "C:\", vbMaximizedFocus)
Espero te sirva..
390
« en: Sábado 10 de Diciembre de 2005, 00:19 »
No existe una expresión regular para manejar cadenas de texto. Debes de elaborar un código para cada uno de los tipos de salida que tengas. Para lo que mencionas puedes usar este: Private Sub Command1_Click() Dim intX As Integer Dim strSalida As String strSalida = "MODEL:Nokia" intX = InStr(1, strSalida, ":") Text1.Text = Right$(strSalida, Len(strSalida) - intX) End Sub
Como puedes ver, necesitas un cuadro de texto llamado Text1 y un botón Command1
391
« en: Lunes 5 de Diciembre de 2005, 22:22 »
Pdf.ocx no es un control estándar de VB. Debes de revisar la documentación que trae este control. A menos que alguien del foro tenga este control, te podrá ayudar. 
392
« en: Lunes 5 de Diciembre de 2005, 22:15 »
ADO y DAO son distintas referencias. Para DAO de Access 97 necesitas la siguiente referencia: Microsoft DAO 3.51 Objet Library No uso ADO para manejar Access 97
393
« en: Lunes 5 de Diciembre de 2005, 22:07 »
No coinciden los tipos (Error 13)
y cuando depuro me marca esta linea de codigo
Set b = a.OpenRecordset("tabla_tecnicos") Por otra parte verifica que tipo de variable es 'b' debe ser Recorset, o algo parecido. No colocas el resto del código.
394
« en: Lunes 5 de Diciembre de 2005, 22:03 »
Si el problema puede ser el contador entonces trata con esta rutina: Private Sub FixIDCounter() Dim dbConsulta As Database Dim lngIDPacID As Long Dim strMainIDQry As String Dim rsID As Recordset On Error GoTo ErrorFixIDCounter Set dbConsulta = DBEngine.OpenDatabase(gstrDBFilenameHist, False, False, ";Pwd=" & gstrPG) strMainIDQry = "SELECT * FROM Identificacion" Set rsID = dbConsulta.OpenRecordset(strMainIDQry, dbOpenDynaset) rsID.MoveLast lngIDPacID = rsID("IDPac") rsID.Close strMainIDQry = "ALTER TABLE Identificacion ALTER COLUMN IDPac COUNTER (" & lngIDPacID + 1 & ",1)" dbConsulta.Execute strMainIDQry, dbFailOnError Exit Sub ErrorFixIDCounter: gstrMsg = "Existe error al reparar el contador automático de la base de datos." MsgBox gstrMsg, vbInformation, gstrAppTitle Exit Sub End Sub
Esta rutina repara el contador, cambia las variables para que se ajusten a tu programa. Está diseñada para una base de datos con contraseña, retira la contraseña si tú no la usas. Espero te sirva..
396
« en: Viernes 2 de Diciembre de 2005, 21:20 »
Yo tuve problemas con un campo de indice auto numérico, que ya no quiso avanzar el índice, pero fue con DAO, cuando pasé la base de datos de Office 97 (Access Jet 3.5) a Office 2000 (Access Jet 3.6) Si este puede ser tu problema, busca en Microsoft o Google lo referente al artículo con el siguiente número: Q202117 --------------------------------------------- 
397
« en: Martes 29 de Noviembre de 2005, 06:24 »
398
« en: Martes 29 de Noviembre de 2005, 06:04 »
Te elaboré un pequeño proyecto que muestra como funciona. Te lo adjunto en un zip. Solo haz un clic en el botón salir. --------------------------------------------------
399
« en: Martes 29 de Noviembre de 2005, 01:27 »
Siento informarte que las funciones que señalas no te van a servir para lo que deseas. Ya que GetSetting, SaveSetting, DeleteSetting, GetAllSettings guardan o obtienen información en una sección especial del registro, según el nombre que le des a la aplicación que usas. En el sitio de El Guille encontrarás un ejemplo que te servirá. http://www.elguille.info/vb/utilidades/Exe...tVersionRun.htm----------------------------------------------------------------------
400
« en: Martes 29 de Noviembre de 2005, 00:56 »
En este foro no encontrarás la respuesta... Es solo para preguntas de relacionadas con Visual Basic 
Páginas: 1 ... 14 15 [16] 17 18 ... 26
|
|
|
Mostrar Mensajes
