Traspaso de Interbase a SQLServer

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

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