|
|
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.
Temas - Sagutxo
26
« en: Viernes 22 de Septiembre de 2006, 21:40 »
Salu2. ¿Es posible subir un archivo con otro nombre al servidor o renombrarlo una vez arriba? Utilizo Persits.Upload.1. Para subir el archivo no tengo ningun problema. Si pueden ayudarme. Muchas gracias.  
27
« en: Jueves 14 de Septiembre de 2006, 12:12 »
Salu2. Alguno puede decirme como mandar emilios automáticos con ASP. he mirado una infinidad de ejemplos en la red, pero no me ha funcionado ninguno.  . Ya no se que mas probar salvo hacerlos manuales que no sería bueno. Así que si pueden ayudarme se lo agradeceria mucho. Los 2 ejemplos mas fiables que he encontrado son estos: 1.- <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>Documento sin título</title> </head> <body> <% set mail=server.CreateObject("CDONTS.NewMail") mail.From= Request("sender") ' like john.doe@comsoltech.com mail.Subject = Request("subject") mail.Body = Request("body") mail.BodyFormat = 0 ' 0 = HTML, 1 = Plain mail.MailFormat = 1 ' 0 = MIME, 1 = Text mail.Importance = 1 ' 0 =High, 1 = Medium, 2 = Low mail.Send set mail=nothing %> <p> <b>Se ha enviado el mensaje:</b><br> De: <%= Request("sender") %><br> A: <%= Request("receiver") %><br> Con el asunto: <%= Request("subject") %> </p> </body> </html>
2.- <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>Documento sin título</title> </head> <body> <% Set mail = Server.CreateObject("JMail.Message") mail.From = Request("sender") mail.Subject = Request("subject") mail.Body = Request("body") mail.AddRecipient Request("receiver") mail.Priority = 3 ' =3 Normal mail.Send "smtp.MiDominio.com" Set mail=Nothing %> <p> <b>Se ha enviado el mensaje:</b><br> De: <%= Request("sender") %><br> A: <%= Request("receiver") %><br> Con el asunto: <%= Request("subject") %> </p> </body> </html>
Muchas gracias.
28
« en: Miércoles 9 de Agosto de 2006, 16:54 »
Salu2, a ver si se explicarme: Tengo 2 ListaMenu, provincias y poblaciones Necesito que el ListaMenu de poblaciones se cargue siempre que la provincia sea modificada por el usario. Tanto poblaciones como provincias estan en tablas de access. Estoy desesperado, cuaquier ayuda será de agradecer. Muchas gracias.
29
« en: Jueves 27 de Julio de 2006, 15:37 »
Salu2, Ya se lo que voy a pedir no está bien pero no se me ocurre que mas hacer. Tengo la DB en un FTP, imaginemos ftp.ya.com en el path raizLa DB se llama Clientes y es un MDB de Access 97. ¿Qué tendría que hacer para leer el Campo Nombre de una Tabla llamada ejemplo sita en la DB Clientes? Con que me muestre el campo en medio del internet explorer me vale. Por favor, hacerme esta cosita estoy verdaderamente perdido
30
« en: Lunes 5 de Junio de 2006, 22:15 »
Salu2. Pos eso, queria saber si es posible que al desinstalar un programa con el automático que crea el InnoSetup pase por alto el archivo que desee sin preguntarlo. Si es posible, ¿qué hay que poner en flags?. Gracias.
31
« en: Viernes 3 de Marzo de 2006, 22:17 »
Salu2. Me gustaria poder utilizar un control DirectSS desde un modulo .bas, ¿existe alguna manera de hacerlo?, osea que no figure en ningun formulario en concreto. Por ejemplo el control del Crystal Report se puede poner el en Formulario MDI, pero el DirectSS parece que no . Muchas gracias.
32
« en: Lunes 27 de Febrero de 2006, 15:04 »
Salu2. No sabría ni por donde empezar, así que cualquier datillo se agradecerá mucho. Las imagenes están grabadas en un DB de Access97, obviamente Objeto Ole. El campo fue grabado en la DB de esta manera: AbreDb.Fields("Imagen").AppendChunk StrImagen El valor de StrImagen lo he sacado de la lectura de un .bmp de está manera: Open .FileName For Binary Access Read As #1 StrImagen = Space$(LOF(1)) Get #1, , StrImagen Close #1
Quiero pasar el campo Imagen de la DB a un informe generado en Crystal Report 8.1. ¿es esto posible?. Si conocen otra forma de impresión dándole la longitud que yo desee estaré ecantado de ponerla en práctica. Muchas gracias.
33
« en: Jueves 23 de Febrero de 2006, 19:12 »
SAlu2. Pos eso es lo que quiero, supongamos que hago un combo para una búsqueda concreta de un registro del MsFlexGrid. Pregunta: Si estoy en el reg 1, muestra 30 y quiero ver el 140, ¿existe alguna forma de decirle que el primer registro a mostrar ha de ser el 140? Gracias.
34
« en: Viernes 17 de Febrero de 2006, 12:35 »
SAlu2. He creado una tabla desde VB6 para Access97, .mdb. Curiosamente si la creo de esta manera, al guardar un registro perfecto, vamos que no da error, pero al recuperarlo me da imagen no válida. Creado el campo de la imagen de la tabla de esta forma, solo pongo la declaraciones de variables y el campo que falla en concreto Dim NuevaTabla As TableDef Dim Fld As Field Set Fld = NuevaTabla.CreateField("PD", CLng(dbLongBinary)) Fld.DefaultValue = 0 'Fld.AllowZeroLength = True NuevaTabla.Fields.Append Fld Set Fld = Nothing
Bueno pues al recuperar la imagen de esta manera, osea como lo hago siempre Dim LngPicLen As Long LngPicLen = AbreTabla.Fields("PD").FieldSize ' ' If there's data in the picture field, ' save it to temp file and load it. If LngPicLen > 0 Then ' ' Extract from database StrFotoData = AbreTabla.Fields("PD").GetChunk(0, LngPicLen) ' ' Save to temp file TempFile = PathABase & "\tmp.bmp" Open TempFile For Binary As #1 Put #1, , StrFotoData Close #1 ' ' AQUI DA EL ERROR, "La imagen no es válida" Picture1.Picture = LoadPicture(TempFile)
Si borro el campo PD, objeto ole, grabo la tabla, y lo creo desde Access de nuevo funciona, pero no puedo hacerle eso a un usuario . Aparentemente las 2 tablas, la manual y la creada desde VB6, son iguales y despues de mirarlo muchisimas veces, creerme, no aprecio ninguna diferencia. Si alguno tiene idea de que puede estar pasando le agradeceria su ayuda. Gracias. y espero haberme explicado sin llegar a ser pesado jejeje. 
35
« en: Miércoles 8 de Febrero de 2006, 12:38 »
Salu2 DB en access 97 Tengo este código: Set NuevaTabla = AbreBase.CreateTableDef("Musica") 'IdAnulado Set Fld = NuevaTabla.CreateField("IdAnulado", CLng(dbLong)) Fld.Attributes = Fld.Attributes Or dbAutoIncrField NuevaTabla.Fields.Append Fld Set Fld = Nothing 'IdCD Set Fld = NuevaTabla.CreateField("IdCD", CLng(dbLong)) Fld.DefaultValue = 0 'Fld.AllowZeroLength = True NuevaTabla.Fields.Append Fld Set Fld = Nothing
¿ Cómo puedo hacer para que el campo IDCD sea index pero NO autonumérico?. ¿y que el campo IdAnulado aparezca como Primary Key? Muchas gracias.
36
« en: Lunes 31 de Octubre de 2005, 22:23 »
Salu2. Existe algún comando en VB6 con el que te devuelva el tamaño de un archivo en concreto. Gracias
37
« en: Domingo 23 de Octubre de 2005, 13:19 »
Salu2. Alguien puede ayudarme. necesito saber como se compacta una DB de access 97 que tiene pasword. ¿Es esto posible? Gracias.
38
« en: Sábado 1 de Octubre de 2005, 21:37 »
es la primera vez que utilizo esto, es la versión 5.1.5 Me gustaria que me orientarias como hacer en inno setup estas mismas ejecuciones que se crean en el prog de VB File92=@crpe32.dll,$(WinSysPath),,$(Shared),3/31/02 11:18:32 PM,5337088,8.0.0.371 File93=@Crystl32.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),3/31/02 11:18:36 PM,853468,8.0.0.4 Source: "C:\Instalar\InnoInstala\crpe32.dll"; DestDir: "{sys}"; Flags: confirmoverwrite ......... Lo que hay detras de Flags no se si esta bien, alguien puede continuarme esta linea. Source: "C:\Instalar\InnoInstala\Crystl32.OCX"; DestDir: "{sys}"; Flags: confirmoverwrite ......... Lo que hay detras de Flags no se si esta bien, alguien puede continuarme esta linea. Esto que que es? File6=@STDOLE2.TLB,$(WinSysPathSysFile),$(TLBRegister),,6/3/99 12:00:00 AM,17920,2.40.4275.1 Muchas gracias.
39
« en: Martes 27 de Septiembre de 2005, 11:05 »
Salu2. Es posible que un prog de VB al minimizarlo no se quede en la barra de estado sino al lado del reloj del pc?. Y que al pincharlo se restaure claro  . Gracias por su atención.
40
« en: Sábado 24 de Septiembre de 2005, 12:44 »
Salu2. Aquí va otra duda. Tengo hecho un porg cliente y un servidor, de mensaje instantaneo, mi problema es que no admite mas de una conexion por el mismo puerto, y eso me complica mucho la vida. ¿Hay alguna forma de simular un estilo FTP, muchas personas acceden a un mismo sitio, con un solo Puerto abierto? El formulario tiene un control Time y un control Winsock como era de esperar campo de testo donde se envia el mensage y ventana de texto donde se reciben los datos y el mensage. Se que me he esplicado mal, pero no sabria hacerlo mejor. Muchas gracias.
41
« en: Martes 13 de Septiembre de 2005, 13:39 »
Salu2. Hasta ahora verificaba la existencia de un fichero con el comando Getattr(Direccion del fichero), si me devolvia el valor 32, el fichero existe. Si el fichero existe le voy agregando un numero al nombre hasta que no exista, para poder crearlo. Pues bien, en 2 de mis discos duros la copia es perfecta, pero tengo uno en el que el formateo es de sectores de 4k en lugar de 512bytes y el valor devuelto pasa a ser 8224¿Alguien sabe por que ocurre esto? Es cierto que podría usar ese valor, 8224, para verificar la existencia, pero sabiendo por que ocurre podría preveer el Formateo en sectores de 1k y 2k. Muchas gracias. P.D. Lo uso para las copias de las DB poniendoles la fecha seguido del nombre, y comprimidas en .zip. Ejem. base.mdb==> Base_050913.zip, si este fichero existe pasa a ser Base_050913_1.zip y así hasta que el fichero no exista. Dim AttrDev% AttrDev = GetAttr(ValDir) If AttrDev <> 32 Then no existe
42
« en: Lunes 12 de Septiembre de 2005, 18:18 »
Vereis intento aprender el uso de ODBC, y mi problema es el siguiente: Así me funciona: El formulario tiene 1 Data y unos campos TextBox con la opción DataSource enfocada al Data. El código: Private Sub Form_Load() DtaData.Connect = "ODBC;DSN=MS Access 97 Database" DtaData.RecordSource = "SELECT * FROM Personal" TxtName.DataField = "Contact" TxtCompany.DataField = "Company"
End Sub Esto funciona perfectamente. --------------------------------------- ¿Cómo debo hacer para leer de la tabla Personal sin utilizar un Data? P.D. No se ni la forma de declarar las variables para ello. ni si es posible hacerse.  Gracias por su atencion.
43
« en: Martes 9 de Agosto de 2005, 14:38 »
Salu2. ahí va otra pregunta, espero saber explicarme. necesito acceder a los datos de una db a traves de un ftp. ¿Es eso posible? si lo es me podrías explicar como o un sitio donde encontrar documentación sobre el tema?. El tema real es acceder a un precio que esta en una empresa en otra city pasando un código de barras. Explicación corta, quiero leer el campo Precio de la tabla Artículos de la DB Base.mdb, sita en ftp://user:pass@IP:Port/Espero haberme hecho entender, muchas gracias.
44
« en: Lunes 1 de Agosto de 2005, 12:20 »
Salu2. Como se guarda un objeto ole, en este caso un jpg en un DB de access directamente. Tengo el objeto Ole en el formulario, Se llama PDvd. tengo la db de access97 abierta El campo de la db que use se llama Protada y el tipo de campo tambien es objeto Ole. osea: AbreTabla!Portada= ¿Aquí que se pone?. Agradecería mucho su ayuda ya que estoy totalmente perdido en el tema. Muchas Gracias.
45
« en: Sábado 30 de Julio de 2005, 11:15 »
Salu2. Imaginemos un formulario normal, al que le pones un Label. ¿Hay alguna forma de hacer que cuando el cursor del raton esté encima ponga el cursor de ratón que yo quiera?... He probado a usar la propiedad MousePointer del label, valor: 99 - Custom, añadiendole un .cur en la propiedad MouseIcon, pero esto no parece funcionar. Uso VB6 Muchas gracias. Agur.
46
« en: Lunes 25 de Julio de 2005, 22:30 »
Salu2. La verdad es que tengo un día escandalosamente preguntón , Cuando se crea el instal es posible hacerlo de forma que sirva para todos los systemas, win2000, winXP y win2003, o en su defecto, es posible crear con XP de forma que funcione en el win2003 o win2000. Muchas gracias.
47
« en: Lunes 25 de Julio de 2005, 19:43 »
Salu2. Otra pregunta tonta, existe en VB algun comando que sirva para copiar un archivo de un path a otro, -SIN ABRIRLO-, osea como el comando copy del dos. Muchas gracias.
48
« en: Lunes 25 de Julio de 2005, 18:20 »
Salu2. Mi problema es el siguiente: Al leer de un fichero de texto si la linea tiene una coma ' ,', finaliza ahí en vez de continuar hasta el salto e página. ejem. Variable esta declarado como string Open PathGeneral & "mitotal.tot" For Input As #1 input #1 , Variable supongamos que la linea que hay en el fichero es : "# This module provides very basic seen commands via msg, on channel or via dcc."bueno pos el valor de Variable es "# This module provides very basic seen commands via msg y este trozo me sale en la segunda lectura on channel or via dcc." como podreis comprobar la ' ,' ha desaparecido has agradecería me ayudarais a que lo haga en 1 sola lectura, o simplemente saber porque sucede, Muchas gracias.
49
« en: Sábado 9 de Julio de 2005, 11:26 »
Salu2, Es posible cambiar el nº de lineas que se visualizan en un ' combobox'. Si es así agradecería que me ayudaran a hacerlo, gracias. Sagutxo.
50
« en: Martes 1 de Marzo de 2005, 22:25 »
Salu2. ¿Hay alguna forma de meter un recordsource de un DATA cuando la DB tiene pasword? Anteriormente sin pas lo hacía así: En el load del form ponía esto Data1.DatabaseName = PathDeBase Data1.RecordSource = "SELECT * FROM Clientes ORDER BY IdCliente"
No se si es posible meterle la pass a la base para que no casque. Gracias, agur.
|
|
|
Mostrar Mensajes
