Traspaso de Interbase a SQLServer

02/07/2006 - 19:45 por LuisMiguel | Informe spam
Buenas.
Traspasando un base de datos de Interbase (la unica referencia que tenfo es
Interbase Server WI-T6.2.679 Firebird Release Candidate 2) as SQLServer
2000, tengo un campo de una imagen BLOG que se convierte a Image.
Para leer esta imagen, utilizo la siguiente rutina:

Public Function DevolverImagen(ByVal qImagen As Object) As Image

Dim MyData As Byte()

If Not qImagen Is DBNull.Value Then

MyData = CType(qImagen, Byte())

Dim memorybits As New System.IO.MemoryStream(MyData)

Dim bitmap As New Bitmap(memorybits)

Return bitmap

Else

Return Nothing

End If

End Function





Y todas las fotos me aparecen truncadas en la parte inferior, como si
quedara informacion por leer o traspasar.
He intentado tambien, acceder directamente a la base de datos original a
traves de ODBC con algo parecido a esto:



Dim StSQL As String

StSQL = "DRIVER={XTG Systems InterBase6 ODBC
driver};DB.0.0.33:C:\MIBD.GDB;UID=SYSDBA;PWD=masterkey"

Dim CX As New Odbc.OdbcConnection(StSQL)

'Try

StSQL = "Select * From MiTabla where ID 12"

Dim DS As New DataSet

Dim adapter As New Odbc.OdbcDataAdapter(StSQL, CX)



Me.Text = "Abriendo ODBC"

CX.Open()

Me.Text = "Cargando Adaptador"

adapter.Fill(DS)

Me.Text = DS.Tables(0).Rows(0)("NombreCompleto").ToString

CX.Close()

CX.Dispose()

CX = Nothing



y ni siquiera me permite hacer la Select, me da el siguiente error en el
Fill -> Administrador decontroles ODBC, el adaptador no admite esta funcion.



Despues de 1 semanita con el tema estoy bloqueado. Alguien me puede indicar
algo?.

Gracias por llegar hasta el final.

PD. disculpas si tampoco es el foro indicado.


LuisMiguel
 

Leer las respuestas

#1 DosFlores
06/07/2006 - 01:07 | Informe spam
que tipo de dato usas para guardar la imagen en SQL Server 2000?

Un saludo
Oscar Montesinos
"LuisMiguel" <lmolinoARROBAyaPUNTOcom> escribió en el mensaje
news:%23GqOu%
Buenas.
Traspasando un base de datos de Interbase (la unica referencia que tenfo
es Interbase Server WI-T6.2.679 Firebird Release Candidate 2) as SQLServer
2000, tengo un campo de una imagen BLOG que se convierte a Image.
Para leer esta imagen, utilizo la siguiente rutina:

Public Function DevolverImagen(ByVal qImagen As Object) As Image

Dim MyData As Byte()

If Not qImagen Is DBNull.Value Then

MyData = CType(qImagen, Byte())

Dim memorybits As New System.IO.MemoryStream(MyData)

Dim bitmap As New Bitmap(memorybits)

Return bitmap

Else

Return Nothing

End If

End Function





Y todas las fotos me aparecen truncadas en la parte inferior, como si
quedara informacion por leer o traspasar.
He intentado tambien, acceder directamente a la base de datos original a
traves de ODBC con algo parecido a esto:



Dim StSQL As String

StSQL = "DRIVER={XTG Systems InterBase6 ODBC
driver};DB.0.0.33:C:\MIBD.GDB;UID=SYSDBA;PWD=masterkey"

Dim CX As New Odbc.OdbcConnection(StSQL)

'Try

StSQL = "Select * From MiTabla where ID 12"

Dim DS As New DataSet

Dim adapter As New Odbc.OdbcDataAdapter(StSQL, CX)



Me.Text = "Abriendo ODBC"

CX.Open()

Me.Text = "Cargando Adaptador"

adapter.Fill(DS)

Me.Text = DS.Tables(0).Rows(0)("NombreCompleto").ToString

CX.Close()

CX.Dispose()

CX = Nothing



y ni siquiera me permite hacer la Select, me da el siguiente error en el
Fill -> Administrador decontroles ODBC, el adaptador no admite esta
funcion.



Despues de 1 semanita con el tema estoy bloqueado. Alguien me puede
indicar algo?.

Gracias por llegar hasta el final.

PD. disculpas si tampoco es el foro indicado.


LuisMiguel


Preguntas similares