|
|
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 - mau
26
« en: Miércoles 14 de Abril de 2004, 01:15 »
No es aconsejable guardar archivos de tal tamaño en las bases de datos, se recomienda crear un campo con la ruta del archivo y que el programa use la ruta para encontrar el mismo
saludos
27
« en: Miércoles 14 de Abril de 2004, 01:11 »
' Abrimos la coneccion con la base de datos
Cnt.Open "File Name=" + App.Path + "\Rp3Prueba.udl"
Cmd.ActiveConnection = Cnt
Cmd.CommandType = adCmdStoredProc
Cmd.CommandTimeout = 1000
'Nombre de StoreProcedure
Cmd.CommandText = "BuscarItemSkuCorto"
'Paràmetro de entrada
Cmd.Parameters.Append Cmd.CreateParameter("xx", adVarChar, adParamInput, 20, Sku)
'Ejecutar el Procedimiento
Set Rst = Cmd.Execute
saludos
28
« en: Miércoles 14 de Abril de 2004, 01:05 »
En sql esto te fincionarà
declare @textbuscar smalldatetime
set @textbuscar = '03/11/03'
SELECT * FROM T_INCIDENCIAS
WHERE datediff(day, Fecha, @textbuscar)<=0 AND datediff(day, Fecha, @textbuscar)>=0
saludos
29
« en: Miércoles 14 de Abril de 2004, 00:41 »
El error no deberìa estar en LIKE
sino en el comodìn
SQL = %
ACCES = *
Saludos
30
« en: Miércoles 14 de Abril de 2004, 00:07 »
Yo tengo una aplicaciòn que toma datos de dos archivos de texto:
Direcciones.txt
Donde estan escritas las direcciones a las que quiero enviar el correo y
Archivo.txt : donde esta el nombre del archivo que quiero adjuntar.
Luego la parte de còdigo que escribe el correo electrònico es esta.
Creo que les servirà para tener una idea de como es que trabaja la cosa
With MAPISession1
.SignOn
End With
For iBack = 1 To i
With MAPIMessages1
.SessionID = MAPISession1.SessionID
.Fetch
.Compose
.RecipAddress = cantDirecc(iBack)
.RecipType = 1 'Dirigido directamente a la direccion especificada
.MsgSubject = "Reporte Generado Para Core: " & Now() 'Tema del Mensaje
.MsgNoteText = "Reporte Generado Para Core: " & Now() 'Texto del mensaje
.AttachmentName = Adjunto 'nombre del archivo adjunto
.AttachmentPathName = App.Path & "\" & Adjunto 'Ruta del Archivo Adjunto
.Send 'Enviar el Mensaje
End With
Next
31
« en: Miércoles 14 de Abril de 2004, 00:01 »
Hola amiga, lamento mirar el mensaje luego de tantos dìas,
El error se corrige muy fàcilmente
Solo tienes que poner las siguientes lineas de còdigo en una sola lìnea.
ANTES ***********************
Sub DatosPorCliente(ByVal iActiveSheet As Integer, ByVal sNombre As String,
ByVal sZona As String, ByVal sCompania As String, ByVal sProducto As String)
ActiveWorkbook.Sheets.Item(sHomeSheet).Range("A5").Offset(iClienteIndex,
0).Value = sNombre
ActiveWorkbook.Sheets.Item(sHomeSheet).Range("A5").Offset(iClienteIndex,
1).Value = sZona
ActiveWorkbook.Sheets.Item(sHomeSheet).Range("A5").Offset(iClienteIndex,
2).Value = sCompania
ActiveWorkbook.Sheets.Item(sHomeSheet).Range("A5").Offset(iClienteIndex,
3).Value = sProducto
FIN ANTES *********************
CORREGIDO********************
Sub DatosPorCliente(ByVal iActiveSheet As Integer, ByVal sNombre As String,ByVal sZona As String, ByVal sCompania As String, ByVal sProducto As String)
ActiveWorkbook.Sheets.Item(sHomeSheet).Range("A5").Offset(iClienteIndex,0).Value = sNombre
ActiveWorkbook.Sheets.Item(sHomeSheet).Range("A5").Offset(iClienteIndex,1).Value = sZona
ActiveWorkbook.Sheets.Item(sHomeSheet).Range("A5").Offset(iClienteIndex,2).Value = sCompania
ActiveWorkbook.Sheets.Item(sHomeSheet).Range("A5").Offset(iClienteIndex,3).Value = sProducto
FIN CORREGIDO ****************
Si quieres puedes copiar los datos que te escribì entre los bloques CORREGIDO y sobreescribir los de tu libro de excel
Saludos
32
« en: Martes 13 de Abril de 2004, 23:42 »
Hola amigo,
solo se me ocurre que no has ligado correctamente los otros campos del form con al base de datos
asi como lo debiste hacer con el contro de
DATACombo.Datasource = TuACCESS.mdb
Debes hacer con los demàs controles que tenga tu formulario para que estos muestren el contenido del recordset.
Y te comento que es màs sencillo trabajar con ADO y Los procedimientos almacenados en la base de acces.
Si quisieras saber màs estoy a la orden.
Saludos
33
« en: Martes 13 de Abril de 2004, 23:33 »
-Hola amigos Tengo creadas algunas aplicaciones en VB6, en todas uso controles de ListView, lo que quiero es hacer que se pueda editar el texto de estas listas. O si sabeis algùn control similar, que pueda contener celdas y que en ellas pueda editar texto. ? ah, y que no sea excel  Gracias y saludos
34
« en: Martes 13 de Abril de 2004, 23:24 »
Hola amigos,
Les comento que este error se corrige si antes de correr el instalador de su aplicaciòn, instalan en al màquina cliente el DCOM98.
este lo encuentran en la pàguina de descargas de Microsoft.
Saludos
35
« en: Martes 13 de Abril de 2004, 23:21 »
Hola amigo, Te comento que donde yo trabajo usamos la versiòn 7 de crystal reports. La 8 es mucho mejor, porque es màs intuitiva y fàcil de usar, tiene muchos wizards que estan de lujo. Si no me equivoco ya van por la versiòn 9, pero esa no la he visto. De donde bajarla? No es tema para tratar aqui, de hecho solo la mirè una vez, pero claro, eso es 
36
« en: Domingo 10 de Agosto de 2003, 02:29 »
bueno, en sQl es como las escribes,
para vb con sql se hace una función para convertir así:
* = %
? = _
No sé, pero creo que es de lo que hablas!
saludos
37
« en: Sábado 9 de Agosto de 2003, 02:17 »
Hola amigos
-Alguno sabe de donde se puede bajar el compilador PASCAL o alguna versión para windows?
saludos
38
« en: Sábado 9 de Agosto de 2003, 02:03 »
Hola amigo,
Yo no seré un experto, pero creo que te puedo ayudar,
que qiueres exactamente?
saludos
39
« en: Jueves 20 de Febrero de 2003, 00:39 »
Hola, Resulta que tenía un programa que se conectaba a una base de datos de acces, y para llenar los recordsets uso instrucciones de SQL, Al hacer la búsqueda del texto en una tabla de nombres le puse que buscara los elementos "parecidos" de este modo! SELEC * FROM tabla WHERE Nombre LIKE 'str_busqueda*' El asterisco es para que busque los datos que coincidan con los primeros caracteres de la busqueda! Pero no me funciona! ¿como debo escribirlo, donde esta el error? 
40
« en: Jueves 20 de Febrero de 2003, 00:30 »
Pues eso debe ser amigo!
Le pusiste False a la opcion READWRITE!
en español! NO se escriba ni lea!
Tienes que cambiarlo a TRUE!
de seguro es eso
saludos
41
« en: Miércoles 19 de Febrero de 2003, 16:47 »
Hola JC
Pues eso a mi me parece que ha de ser lo del parche,
A mi me daba ese error pero a causa del procesador,
Busca un parche "patch" para tu pascal ,de seguro en google encuentras algo
Saludos
42
« en: Miércoles 19 de Febrero de 2003, 16:37 »
Ya pueden dejar de buscar en sus textos la respuesta para ayudarme!
Ya resolví mi problema,
Cambié el datacontrol simple por un data contro 6.0 con deskjet4
Sin importar la ortografía:D el programa ahora si funciona!
Gracias!
43
« en: Miércoles 19 de Febrero de 2003, 16:27 »
Pues, a mi me parece raro esto de
------------
Set db2 = DBEngine.OpenDatabase(App.Path & "llavesanterior.mdb", , False)
------------
Porqué "False"?
ahí no es que se describen los permisos de la base de datos que abrimos?
, READ, WRITE, UPDATE!!!!!
Por favor, corríjanme!:D
44
« en: Miércoles 19 de Febrero de 2003, 01:06 »
Hola amigos.
REsulta que hice un programita que usa DAO, un data control sencillo y por medio del app.path cargo la base de datos de Acces,
corre a la perfección en mi pc, pero al instalarla en otra compu da el error "Selected collating sequence not suported by the operating system"
A que se debe????????
saludos y gracias de antemano
45
« en: Martes 3 de Septiembre de 2002, 19:18 »
El título del mensaje es un dicho muy popular, que se aplica de maravilla aqui !!:) bueno, de todas maneras. Lo que buscas es un programa de hacker, así que este no es el lugar indicado. Por otro lado, si eres el autor del código fuente, comienza a programar en lenguaje lo que tienes en papel. Si eres el dueño, vale la pena el tiempo ¿no? 
46
« en: Viernes 23 de Agosto de 2002, 02:24 »
Para crear y manejar variables
creo que debes usar javaScript
saludos
47
« en: Viernes 23 de Agosto de 2002, 02:18 »
Hola amiga, Yo creo que lo primero que debes hacer es tragar manuales de HTML y luego busca en las páginas que te ofrecen javascript para tu web. Con imaginación todo es posible. Atte: Mau http://abcdioses.noneto.com
48
« en: Viernes 9 de Agosto de 2002, 23:38 »
HOla amigo, creo que sí tengo una manera más fácil de hacer lo que propones, pero antes te quiero decir que has hecho un buen trabajo porque lo intentaste y cumpliste. Ahora debes de trabajar con la lógica. Supongo que no conoces la instrucción "readkey" , con ella lo que quieres hacer es cosa de juego! TE explico Con "Read" lees una variable ejemplo read(variable) pero con "readkey" lees cualquier cosa del teclado, no es necesario que pongas una variable. Entonces!!! Creas una variable Numero y una variable de caracter (para poder leer cualquier cosa) Var caracter: char numero: integer; Y para comprobar en la ejecución lo haces con una "condición" Ejemplo Begin readkey (caracter); If (caracter >= 0 ) or (caracter <=9) then caracter := numero; else Writeln ('no has digitado un numero'); End. Creo qeu el código ha de estar mál escrito, pues desde hace años no programo nada en pascal, pero de seguro qeu tu estas mas fresquito en esto y sabrás corregir errorres y depurar el codigo. Saludos: atte: Mau http://abcdioses.noneto.com
49
« en: Martes 26 de Febrero de 2002, 00:38 »
Pudieron pasar un millón de cosas!!!!! lamentablemente es muy probable que para poder ayudarte sea necesario que pongas el código fuente del programa en la parte que puede fallar!! ??? !!!!!! 4"#$" @@@@@ &&& ??? no hay palabras!!
50
« en: Viernes 22 de Febrero de 2002, 16:13 »
Gracias Abel Te agradezco mucho la explicación  saludos
|
|
|
Mostrar Mensajes
