|
|
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 - Sagutxo
Páginas: 1 ... 4 5 [6] 7 8 ... 13
126
« 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.  
127
« en: Domingo 26 de Febrero de 2006, 21:53 »
Salu2. Encontré solo esto en la ayuda del vb, espero que te sirva  . 450 Número de argumentos erróneo o asignación de propiedad no válida
128
« en: Domingo 26 de Febrero de 2006, 15:08 »
129
« 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.
130
« en: Jueves 23 de Febrero de 2006, 17:22 »
Salu2, a ver si te sirve esto. Comprueba principio y final para mover registros, es muy sencillo, si no me explico lo suficiente si quieres te mando la aplicación. Private Sub RegIni_Click() 'IR AL PRIMER REGISTRO Data1.Recordset.MoveFirst CambiaBotones False, True If ValSon = 1 Then Hablame.Speak "Primer registro" End If End Sub --------------------------------------------------------- Private Sub RegMas_Click() Data1.Recordset.MoveNext If Data1.Recordset.EOF Then 'SI ESTABA EN EL ÚLTIMO REG Data1.Recordset.MoveLast 'SITUO EN EL ÚLTIMO REG CambiaBotones False, False If ValSon = 1 Then Hablame.Speak "último registro" End If Exit Sub End If CambiaBotones True, True End Sub ------------------------------------------------------------ Private Sub RegMenos_Click() Data1.Recordset.MovePrevious If Data1.Recordset.BOF Then 'SI EStOY EN EL PRIMER REGISTRO Data1.Recordset.MoveFirst 'SITUO EN PRIMER REGISTRO CambiaBotones False, True If ValSon = 1 Then Hablame.Speak "Primer registro" End If Exit Sub End If CambiaBotones True, True End Sub ---------------------------------------------------------------- Private Sub RegFin_Click() Data1.Recordset.MoveLast CambiaBotones False, False If ValSon = 1 Then Hablame.Speak "último registro" End If End Sub
Espero haberme explicado. ------------------------------------------- Respecto a que se te bloquea la aplicación ¿NO tendrás nuevamente puesto el Resume Next?, por da la sensación de que hay un error, y como NO comentas que te de ninguno, pos no se .
131
« en: Miércoles 22 de Febrero de 2006, 18:08 »
132
« en: Miércoles 22 de Febrero de 2006, 12:32 »
SAlu2, ahora me he topado con otro problema: Imaginaros dos pictures: Cargo la primera imagen, perfecto, cargo la segunda, al abrirse la ventana del CDLG, si tapa por completo el picture cargado, desaparece la imagen. aunke realmente está ahí. Hay alguna forma de que esto no suceda? Gracias.
133
« en: Lunes 20 de Febrero de 2006, 23:28 »
Salu2. OLEEEEEEEEEEEEEEEEEEEEEEEEEe, he encontrado el error Set Fld = NuevaTabla.CreateField("PD", dbLongBinary) Fld.DefaultValue = 0 [B]ESTE ES EL ERROR, quitandolo funciona as la perfección.[/B] 'Fld.NuevaTabla.Fields.Append Fld Set Fld = Nothing
Por fin, pensé que no lo iba a encontrar nunca .
134
« en: Lunes 20 de Febrero de 2006, 22:31 »
Salu2. Efectivamente este funciona, dios muchíiiiiiiiiiisimas gracias por tomarte tiempo en hacermelo tan fácil. Lo único que veo diferente al crear el campo Ole de la DB es la forma de abrir la tabla, así que será algo así. La verdad es que no me acuerdo de donde cogí el ejemplo para guardar imagenes, pero tendrás razon seguro porque son muy parecidos. Gracias, me siento en deuda contigo. No es naada habitual ver tanta dedicación.
135
« en: Lunes 20 de Febrero de 2006, 18:20 »
Salu2. si no recuerdo mal con un Timer, pones el intervalo en milisegundos, en el procedimiento timer del objeto timer escribes lo que ha de poner el label1.caption cada vez que pase por el . Espero que lo entiendas.
136
« en: Lunes 20 de Febrero de 2006, 14:11 »
Salu2. Abriéndolo con otro programa me dice que no es un archivo de mapa de bits correcto  . Lo verdaderamente curioso es: Creo la tabla desde VB6 y parece ser que el campo Objeto Ole no se crea correctamente ya que si la abro desde access y borro ese campo, guardo la tabla, y creo el campo de nuevo con los datos exactamente iguales, Mismo nombre y mismo tipo, el programa recupera bien las imagenes. La verdad es que ya no se que mas hacerle, puede que deba desistir y buscar otras posibilidades . Muchas gracias a los 2, el 2º enlaze tiene buena pinta, a ver si saco un ratillo y lo miro. 
137
« en: Domingo 19 de Febrero de 2006, 10:52 »
Salu2. pos ahora si que no veo ningún campo que te pudiera dar un error mas que el de fecha, y eso suponiendo que sea un campo de fecha en la DB. aunkeque como bien te dijeron antes los campos de texto si no compruebas que están vacios es recomendable grabarlos como = "" & CampoTxt, para evitar el posible campo NoNull. Si te parece y tienes un registro en el que sabes que falla siempre estaría encantado de ponerlo en mi PC e intentar buscar la curiosidad entre los 2. venga agur.
138
« en: Sábado 18 de Febrero de 2006, 20:48 »
Salu2, Sin ánimos de ofender el código de otra persona , Hay algo que me tiene intrigado en tu Cod. Te dispones a guardar los datos .AddNew !NUM_MES = txtMes !FECHA = dtpDate !TIPO = txtTipo !AUDITOR = txtAuditor !COD_ZONA = txtMostrador & " " & txtZona AKI COMPRUEBAS UN CAMPO y existe la posibilidad de error crítico según tu mensaje, pienso que estaría mejor arriba el checkeo de ese campo. If chkExep.Value = 0 Then Call MsgBox("NO HAY EXCEPCIONES", vbCritical, "Advertencia") Else !EXCEPCIONES = chkExep.Value !COD_EXEPCION = txtExcep !VLR_AJUSTE = txtVrAjuste End If sigue grabando tanto si es true como si es false !PDV = txtPDV !ENCARGADO = txtPDV !COMPROMISO = txtCompro .Update .Bookmark = .LastModified al principio haces = abres la DB y la tabla y despues compruebas si los campos tienen datos. Si te molestan estos comentarios perdóname lo hago con la mejor intención aunke dado tu gran numero de mensajes respondidos me temo que solo estás haciendo pruebas . ------------------------------- Me ha ocurrido a la hora de pasar un valor true a una Db de acces97 en la que he tenido que pasarle el valor (-1) directamente ya que si no lo graba mal, aunke dudo que esto haría que no se grabara el registro. Es que no veo nada mas que sea raro.
139
« en: Sábado 18 de Febrero de 2006, 17:49 »
Salu2, he sustituido una parte la linea que pienso que no hace falta pero sigue ocurriendo lo mismo . Vieja: Set Fld = NuevaTabla.CreateField("PD", CLng(dbLongBinary)) Nueva: Set Fld = NuevaTabla.CreateField("PD", dbLongBinary) Vamos lo mismo. Agur.
140
« en: Viernes 17 de Febrero de 2006, 20:21 »
SAlu2. Seria posible que te diera algun tipo de error al grabar el registro que no muestra por el Resume Next?, osea, errores como campos obligatorios que no tienen datos. Mas que una respuesta es una pregunta jejeje, bueno ahí queda.
141
« en: Viernes 17 de Febrero de 2006, 20:17 »
142
« 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.
143
« en: Sábado 11 de Febrero de 2006, 10:41 »
Salu2, hasta ahora no he encontrado problemas para hacer lo que necesite con este lenguaje. Hacer el .exe, como bien te ha dicho ElberGon es fácil, eso si, si lo que quieres es hacer un pakete de instalación, ¡Cuidado!, lo que creas en win XP, no funciona en un win 2003, me refiero al Asistente para empaquetado y distribución que viene con VB, no los programas, al menos yo nunca he conseguido que me funcione. Te recomendaria que usaras un InnoSetup por ejemplo. Ya que tienes que aprender empieza con uno de los mejores sino el mejor, que va de lujo. esta versión la encontre en el emule y me va de lujo. InnoSetup5.1.5Encontrarás documentación muy extensa en este foro. Espero que te ayude de algo.
144
« en: Jueves 9 de Febrero de 2006, 21:04 »
SAlu2. Lo mas sencillo, probablemente sea usar ODBC. Siempre he utilizado unidades de red a la carpeta donde esté la db desde todos los puestos y nunca he tenido problemas. Aunke he leido facultad, y si lo quieres por un ejercico que te han pedido dudo que te dejen hacer unidades de red . Espero que te sirva.
145
« 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.
146
« en: Miércoles 28 de Diciembre de 2005, 13:20 »
Salu2. Feliz año para todos.
Que el nuevo año sea, cuando menos, igual que el anterior.
147
« en: Martes 20 de Diciembre de 2005, 13:12 »
Salu2. Si ciertamente se usa una API: ExitWindowsEx Aquí tienes el ejemplo que viene con ApiGuide. 'In general section Const EWX_LOGOFF = 0 Const EWX_SHUTDOWN = 1 Const EWX_REBOOT = 2 Const EWX_FORCE = 4 Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long Private Sub Form_Load() 'KPD-Team 1998 'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@Allapi.net msg = MsgBox("This program is going to reboot your computer. Press OK to continue or Cancel to stop.", vbCritical + vbOKCancel + 256, App.Title) If msg = vbCancel Then End 'reboot the computer ret& = ExitWindowsEx(EWX_FORCE Or EWX_REBOOT, 0) End Sub
Espero te sirva.
148
« en: Viernes 2 de Diciembre de 2005, 14:10 »
Salu2. Yo solo comento, Parece que lo que quieres es un contardor. En mi caso siempre tengo una tabla dedicada exclusivamente a contadores. ¿No te sería mas fácil?  Suerte.
149
« en: Martes 1 de Noviembre de 2005, 19:00 »
Salu2. Respecto a que todos tiren de la misma DB en Red local es fácil. Yo lo hago añadiendo una unidad de red. La unidad de red la enrutas exactamente a la carpeta del servidor en la que se encuentra el DB. Hago que la unidad U:\, por ejemplo, sea el path a la DB del servidor. Espero que te sirva de algo. agur.
150
« en: Lunes 31 de Octubre de 2005, 23:54 »
Páginas: 1 ... 4 5 [6] 7 8 ... 13
|
|
|
Mostrar Mensajes
