Guardar imagen sql server

[Lerolero]

Hola, tengo el siguiente codigo

Código vb:

'Se declaran variables para la consulta
        Dim Consulta As String
        Dim ds As New DataSet
 
        Dim foto As Byte() = ImageToByteArray(pct_imagencaptura.Image)
        'Dim cadena As String = Convert.ToBase64String(foto)
 
        'Se crea la consulta sql para ingresar un nuevo registro
        Consulta = " INSERT FOTOPLACA_TAB "
        Consulta = Consulta + "("
        Consulta = Consulta + "FOTOPLACA_ID,"
        Consulta = Consulta + "FOTOPLACA_AUTORIZACIONID,"
        Consulta = Consulta + "FOTOPLACA_PLACAID,"
        Consulta = Consulta + "FOTOPLACA_IMAGEN,"
        Consulta = Consulta + "FOTOPLACA_FECHA"
        Consulta = Consulta + ") VALUES ( "
        Consulta = Consulta + "" + "NEXT VALUE FOR FOTOPLACA_SEC" + "" + ", "
        Consulta = Consulta + "" + G_IDAUTORIZACION + "" + ", "
        Consulta = Consulta + "" + G_IDPLACA + "" + ", "
        Consulta = Consulta + "" + foto + "" + ", "
        Consulta = Consulta + "" + "GETDATE()" + "" + " "
        Consulta = Consulta + ")"
 
        'EJECUTAR EL INSERT
        Try
            'Se ejecuta la consulta pasandole la cadena 
            ADONet_SQLExcute(Consulta)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        ds.Dispose()
 

Estoy intentando ingresar una imagen en la base de datos, pero al intentar convertir en string el array de byte, saca error.


Codigo que ejecuta la consulta

Código vb:

Public Sub ADONet_SQLExcute(ByRef ADO_Sql As String)
        'EJECUTA UN SQL EXECUTE A LA BASE DE DATOS
        'REQUIERE UNA CADENA SQL Y CONEXION ABIERTA
        Dim oledbAdapter As OleDbDataAdapter
        Dim ds As New DataSet
        oledbAdapter = New OleDbDataAdapter(ADO_Sql, cnn)
        oledbAdapter.Fill(ds)
        oledbAdapter.Dispose()
        ds.Dispose()
    End Sub
 

He visto muchos ejemplos, pero casi todos son con sqlcommand y yo solo lo quiero hacer con el dataset.

[Libras]

creo que esto va en el foro de VB

[iislas]

Ademas de que el manejo de imagenes en SQL Server 2005 y superiores, es mas sencillo:

Código SQL:

USE AdventureWorks
GO
IF OBJECT_ID (N'Employees', N'U') IS NOT NULL
DROP TABLE dbo.Employees
GO
SELECT EmployeeID, FirstName, LastName, JobTitle
INTO Employees
FROM HumanResources.vEmployee
GO
ALTER TABLE Employees
ADD ResumeFile VARBINARY(MAX) NULL
GO
USE AdventureWorks
GO
UPDATE Employees
SET ResumeFile = (
SELECT *
FROM OPENROWSET(BULK 'C:\Data\Employee1.docx', SINGLE_BLOB)
AS ResumeContent)
WHERE EmployeeID = 1
 

Aunque pienso que es mucho mejor utilizar FILESYSTEM, para guardar imagenes