catalogos de imagenes en base datos

hola, Rodrigo !

... la bronca es ... para meter las rutas de los archivos.
... examinar el archivo que quiero para el articulo y me regrese la ruta para guardarla en la base de datos [...]

si lo unico que necesitas es 'indicarle' la ruta y el archivo que se asignara como imagen del articulo...
prueba usando un 'getopenfilename' +/- como lo siguiente [suponiendo que tu YA SABES cual es]:
________ =>NO lo abre<=, solo 'te dice' de donde se selecciona ;)
Sub Indicar_Ruta()
Dim El_Archivo As String
El_Archivo = Application.GetOpenFilename("Las fotos (*.jpg), *.jpg", , "Buscando rutas...")
If El_Archivo = False Then Exit Sub
MsgBox El_Archivo & vbCr & "es la imagen y donde esta ubicada"
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨
saludos,
hector.

Aaaaaaaaaah, no lo puedo creer tan facil!! perdon esa funcion la habia usado
pero la neta no recordaba, pero es sencillisima.
Pues finalmente quedo bien la aplicacion, con esta funcion saque el nombre
del archivo unicamente, el cual pongo en la base de datos, entos hice una
carpeta ubicada en ThisWorkbook\ImagenesArticulos\<<--esa, porque el
sistema puede cambiar de directorio, depues hago la exploracion y donde
quiera que este el archivo lo copia a esa carpeta, asi me aseguro que
exista, cuando haga la consulta y listo quedo el catalogo bastante bien,
gracias hector.
Otra consulta Hector me pasate una funcion para agregar de un recordset unos
datos y aumentar la velocidad lo cual quedo perfecto, te copio lo que me
mandaste para que te acuerdes:
**********************************************
...]
With Worksheets("Tu Hoja Oculta")
.Range("a1").CopyFromRecordset RecrdSet
With Range(.Range("a1"), .Range("a1").End(xlToRight).End(xlDown))
Listado = .Value
.ClearContents
End With
End With
ListBox1.ColumnCount = RecrdSet.Fields.Count
ListBox1.List = Listado
[... ...]
**********************************************
bien la unica pregunta es esta: en windows 98 me funciona de maravilla con
office 2000/Excel, pero en windows 2000 no jala, solo me pega el primer
caracter de la descripcion de manera que solo se ve asi:
descripcion stock pventa
a 1.00 145.00
c 2.00 1542.00
. .
etc...etc...etc. .


no me da toda la descripcion como debe ser, ya probe hasta el cansancio y
con windows 2000 con officexp y office 2000 no jala, algun tip????



"Héctor Miguel" escribió en el mensaje
news:

hola, Rodrigo !

> ... la bronca es ... para meter las rutas de los archivos.
> ... examinar el archivo que quiero para el articulo y me regrese la ruta

para guardarla en la base de datos [...]

si lo unico que necesitas es 'indicarle' la ruta y el archivo que se

asignara como imagen del articulo...

prueba usando un 'getopenfilename' +/- como lo siguiente [suponiendo que

tu YA SABES cual es]:

________ =>NO lo abre<=, solo 'te dice' de donde se selecciona ;)
Sub Indicar_Ruta()
Dim El_Archivo As String
El_Archivo = Application.GetOpenFilename("Las fotos (*.jpg), *.jpg", ,

"Buscando rutas...")

If El_Archivo = False Then Exit Sub
MsgBox El_Archivo & vbCr & "es la imagen y donde esta ubicada"
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨
saludos,
hector.

hola, Rodrigo !

... quedo el catalogo bastante bien

;)

Otra consulta ... funcion para agregar de un recordset [...]
... en windows 98 me funciona ... pero en windows 2000 no jala, solo me pega el primer caracter [...]
no me da toda la descripcion ... ya probe ... con windows 2000 con officexp y office 2000 no jala, algun tip????

al mencionar diferentes versiones de windows... 'suena' [mas bien] a que se trate de...

- librerias con versiones mas 'recientes' [al momento de 'generar' la macro] instaladas en win98 que...
al ejecutarlas en 'otras' pc's [casi seguro que] con versiones 'anteriores' de las librerias... fallan :((
=>revisa [en las pc donde 'si funciona'] las referencias y sus versiones< [y despues 'compara' versus las instaladas en las pc's donde 'fallan']

- [probablemente] 'incompatibilidad' en la 'construccion' de las cadenas de la consulta [???]
¿podrias transcribir 'como' -y donde- declaras, construyes, usas, etc. los parametros de la consulta?

saludos,
hector.

Basicamente este el codigo que funciona correctamente bajo windows 98, para
mi el problema reside en el "CopyFromRecordset" porque hasta la copia en la
hoja temporal todo esta bien, cada delda tiene su valor bien, y al momento
de que hace el CopyFromRecordset ahi ya no aparece en la ListaArticulos.Aqui
esta el codigo..

Private Sub Agrega_lista_de_articulos()
Dim Listado As Variant
Abre_base_datos_SAU
Set RecrdSet = BdSAU.OpenRecordset("SELECT DESCRIPCION,PVENT,EXISTENCIA
FROM ARTICULOS ORDER BY DESCRIPCION ASC", dbOpenDynaset)
With Worksheets("TEMPORAL")
.Range("a11").CopyFromRecordset RecrdSet
With Range(.Range("a11"), .Range("a11").End(xlToRight).End(xlDown))
Listado = .Value
.ClearContents
End With
End With

ListaArticulos.Visible = True
ListaArticulos.ColumnCount = RecrdSet.Fields.Count
ListaArticulos.TextColumn = 1
ListaArticulos.ColumnWidths = 50 & ";" & 50 & ";" & 50
ListaArticulos.List = Listado
Cierra_base_datos_y_rcdset
End Sub


"Héctor Miguel" escribió en el mensaje
news:%23j$

hola, Rodrigo !

> ... quedo el catalogo bastante bien
;)

> Otra consulta ... funcion para agregar de un recordset [...]
> ... en windows 98 me funciona ... pero en windows 2000 no jala, solo

me pega el primer caracter [...]

> no me da toda la descripcion ... ya probe ... con windows 2000 con

officexp y office 2000 no jala, algun tip????

al mencionar diferentes versiones de windows... 'suena' [mas bien] a que

se trate de...

- librerias con versiones mas 'recientes' [al momento de 'generar' la

macro] instaladas en win98 que...

al ejecutarlas en 'otras' pc's [casi seguro que] con versiones

'anteriores' de las librerias... fallan :((

=>revisa [en las pc donde 'si funciona'] las referencias y sus

versiones<> [y despues 'compara' versus las instaladas en las pc's donde 'fallan']

- [probablemente] 'incompatibilidad' en la 'construccion' de las cadenas

de la consulta [???]

¿podrias transcribir 'como' -y donde- declaras, construyes, usas, etc.

los parametros de la consulta?

saludos,
hector.

hola, Rodrigo !

... para mi el problema reside en el "CopyFromRecordset"
porque hasta la copia en la hoja temporal todo esta bien, cada delda tiene su valor bien

=> si los datos 'pasan' bien a la hoja temporal... el metodo 'CopyFromRecordSet'... esta funcionando bien ;)
[lo 'unico' que hace el metodo es copiar el contenido de un objeto DAO Recordset en una hoja de calculo]

... al momento de que hace el CopyFromRecordset ahi ya no aparece en la ListaArticulos.

=> la parte del codigo que 'manda' los datos [del recordset copiado] al control 'ListaArticulos' es...
=>ListaArticulos.List = Listado<donde 'Listado' es la variable que se 'lleno' del vaciado del recordset [a la hoja de calculo] en las instrucciones...

With Range(.Range("a11"), .Range("a11").End(xlToRight).End(xlDown))
Listado = .Value
.ClearContents
End With

y como puedes ver, el rango obtenido [del 'vaciado'] es 'eliminado/borrado' [y aqui me surge una duda...]
¿como es que estas seguro que el recordset paso 'completo' a la hoja temporal???
al tiempo que 'persiste' mi inquietud por la poibilidad que te comentaba anteriormente de que...

- [probablemente] 'incompatibilidad' en la 'construccion' de las cadenas de la consulta [???]

y seria necesario que comentaras acerca de lo solcitado en...

¿podrias transcribir 'como' -y donde- declaras, construyes, usas, etc. los parametros de la consulta?

puesto que la consulta, apertura y 'cerrado' del recordset... lo haces 'en otra' macro... las que 'llamas' en...

Abre_base_datos_SAU
Cierra_base_datos_y_rcdset

¿comentas datos adicionales?

¿podrias transcribir 'como' -y donde- declaras, construyes, usas, etc. los parametros de la consulta?

saludos,
hector.