Como salvar uma imagem para um banco de dados com o MS Visual Basic 6

Criar um objeto de fluxo de memória e atribuí-lo à imagem. O fluxo de memória lê os dados binários a partir da imagem e armazena na memória. Este binário de dados é depois transferida para uma matriz binária. O código a seguir cria o fluxo de memória e salva a imagem:

ms dim como novo MemoryStream ()
theImage.Save (ms, theImage.RawFormat)

"a imagem" é a ID da imagem localizada no seu formulário de Visual Basic. Este elemento de imagem aponta para uma localização de uma imagem no disco rígido.

Criar a conexão banco de dados e consulta SQL que insere a imagem no banco de dados. A conexão que você cria é dependente do servidor que você usa. O código a seguir configura a conexão e cria o "inserir" query:

Dim conn As New SqlConnection (string_connection)
consulta Dim As String = "inserir valores Picture_Table (foto) (@Picture)"
comando Dim As New SqlCommand (consulta, conn)

Configure o parâmetro de imagem para o comando de consulta. O código a seguir cria um parâmetro para o código SQL e anexa a imagem:

Dim byteArray () As Byte = ms.GetBuffer ()
command.Parameters.Add (Nova SqlParameter ("@Picture", SqlDbType.Image)). Value = byteArray

Executar a consulta e salvar a imagem para o banco de dados. Todos os parâmetros são criados, mas a imagem ainda não é salvo no banco de dados. O código a seguir abre a conexão de banco de dados, executa o código SQL e salva a imagem para a tabela de banco de dados:

conn.Open ()
command.ExecuteNonQuery ()
conn.Close ()