Guardar una estructura TYPE en una base de Datos
Publicado por GabrielDR (27 intervenciones) el 18/11/2005 03:53:48
Hola, tengo una estructura Type del siguiente tipo
Private Type Recepcion
coordenadas() as integer
pisos() as integer
responsable as string
clave as string
End type
'Tambien tengo una variable que tiene esa estructura.
Dim Recep1 as Recepcion
'le meto datos
Recept1.clave=IAG54235-56
Recept1.responsable="Gabriel Del Río"
. ... ... ..
'Lo escribo en un archivo...
fnum1 = 1
Open "TempCl.db_" For Binary As #fnum1
Put #fnum1, 1, Recept1
Close fnum1
'Ahora bien lo que realmente quiero hacer es como puedo incrustar este Archivo (fnum1) en una tabla de acces en un campo OLE usando una instrunccion SQL.
he probado algo como esto y me marca un error.
Sql="INSERT INTO tabla(registro) values(@FNUM1)
db.execute(SQL)
alguna idea, se puede realizar?
Gracias
Private Type Recepcion
coordenadas() as integer
pisos() as integer
responsable as string
clave as string
End type
'Tambien tengo una variable que tiene esa estructura.
Dim Recep1 as Recepcion
'le meto datos
Recept1.clave=IAG54235-56
Recept1.responsable="Gabriel Del Río"
. ... ... ..
'Lo escribo en un archivo...
fnum1 = 1
Open "TempCl.db_" For Binary As #fnum1
Put #fnum1, 1, Recept1
Close fnum1
'Ahora bien lo que realmente quiero hacer es como puedo incrustar este Archivo (fnum1) en una tabla de acces en un campo OLE usando una instrunccion SQL.
he probado algo como esto y me marca un error.
Sql="INSERT INTO tabla(registro) values(@FNUM1)
db.execute(SQL)
alguna idea, se puede realizar?
Gracias
Valora esta pregunta


0