SQL SERVER COMPACT - CRIANDO UM BANCO DE DADOS E SALVANDO IMAGEM NO MESMO

Salvando imagens no banco de dados SQL Server Compact 4.0 de uma forma simples e rápida...

CÓDIGO PARA FORMATO MOEDA NO TEXTBOX

Coloque um TextBox - Name: txtMonetario no Form

Clique duas vezes no form e coloque o seguinte código na parte de baixo entre o 

End Sub e End Class:

Public Shared Sub FormatoMoeda(ByRef txt As TextBox)

        'As variaveis

        Dim FormatoMoedaValor1 As String = String.Empty

        Dim FormatoMoedaValor2 As Double = 0

        Try

            FormatoMoedaValor1 = txt.Text.Replace(",", "").Replace(".", "")

            If FormatoMoedaValor1.Equals("") Then FormatoMoedaValor1 = ""

            FormatoMoedaValor1 = FormatoMoedaValor1.PadLeft(3, "0")

            If FormatoMoedaValor1.Length > 3 And FormatoMoedaValor1.Substring(0, 1) = "0" Then FormatoMoedaValor1 = FormatoMoedaValor1.Substring(1, FormatoMoedaValor1.Length - 1)

            FormatoMoedaValor2 = Convert.ToDouble(FormatoMoedaValor1) / 100

            txt.Text = String.Format("{0:N}", FormatoMoedaValor2)

            txt.SelectionStart = txt.Text.Length

        Catch ex As Exception

        End Try

    End Sub

Adicione um KeyPress e coloque o seguinte código:

Select Case (txtMonetario.TextLength)

Case 4

txtMonetario.SelectionStart = 5

End Select

Código do TextBox:

Clique duas vezes no TextBox e coloque o seguinte código:

 'Atencao dependendo do Name do Form coloque-o antes do metodo FormatoMoeda, neste caso é Form1

Form1.FormatoMoeda(txtMonetario)

SOMANDO VALORES AUTOMATICAMENTE CONFORME VAI DIGITANDO

Adicione 1 TextBox e 3 Labels:
TextBox - Name: txtValorProd
Label1 - Text: Valor 1
Label2 - Text: Total
Label3 - Name: lblTotalGeral

Clique duas vezes no TextBox e coloque o código:
lblTotalGeral.Text = Val(txtValorProd.Text) + Val(lblTotalGeral.Text)

FAZENDO CALCULOS AUTOMÁTICAMENTE

Adicione 2 TextBox no Form, 4 Labels e 1 Botão

TextBox1 - Name: txtValor1
TextBox2 - Name: txtValor2
Label1 - Text: Valor1
Label2 - Text: Valor2
Label3 - Text: Total
Label4 - Name: lblTotal
1 Botão - Text: Limpar

Clique duas vezes no TextBox1, TextBox2 e no Label4 - Name: lblTotal e Coloque o código abaixo em cada um deles:
Código para somar automáticamente: (mude apenas o simbolo para +)

lblTotal.Text = Val(txtValor1.Text) + Val(txtValor2.Text)

e se em vez de somar você quiser multiplicar os valores automaticamente faça a mesma coisa usando o código abaixo
Código para multiplicar automáticamente: (mude apenas o simbolo para *)

lblTotal.Text = Val(txtValor1.Text) * Val(txtValor2.Text)

Código do botão Limpar
lblTotal.Text = ""
txtValor1.Text = ""
txtValor2.Text = ""

FORMA SIMPLES DE SALVAR IMAGEM NO BANCO DE DADOS ACCESS

Crie um banco de dados como na figura abaixo:
O campo imagem com o tipo de dados: Objeto OLE

Crie um formulário com os seguintes itens:

1 botão - Text: Abrir imagem

1 PictureBox

1 OpenFileDialog

Ligue o campo imagem do BD Access arrastando-o para o PictureBox

No PictureBox na propriedade SizeMode mude para: StretchImage

assim a imagem aparecerá completa no PictureBox, e em BorderStyle mude para FixedSingle para aparecer uma borda no PictureBox local da imagem.

'Clique duas vezes no botão Abrir imagem e coloque o código abaixo...

OpenFileDialog1.Filter = "image file (*.jpg, *.bmp, *.png) | *.jpg; *.bmp; *.png | all files (*.*) | *.*"

If OpenFileDialog1.ShowDialog <> Windows.Forms.DialogResult.Cancel Then

PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)

End If

E pronto o programa está funcionando, é só escolher qualquer imagem nos formatos JPG, BMP ou PNG e salvar no banco de dados, simples assim...

SALVAR IMAGEM NO BANCO DE DADOS ACCESS

Crie um BD Access como mostrado abaixo:
id - Numeração Automática
nome - Texto
arquivoimagem - Objeto Ole

Adicione um Module no projeto:

Código do Module:

'Acima do Module Module1 coloque...

Imports System.Data.OleDb

'Entre o Module Module1 e o End Module no meio 

'coloque o código baixo...

Public acsconn As New OleDbConnection

Public acsdr As OleDbDataReader

Public acsda As New OleDbDataAdapter

Public acscmd As New OleDbCommand

Public strsql As String

Public acsds As New Dataset

Public Sub connect()

Try

acsconn.ConnectionString = "provider=microsoft.jet.oledb.4.0; data source= | datadirectory | \database.mdb;"

acsconn.Open()

If acsconn.State = ConnectionState.Open Then

MsgBox("Conectado")

Else

MsgBox("Erro!")

End If

Catch ex As Exception

MsgBox(ex.Message)

End Try

End Sub

/////////////////////////////////////////////////////////////////////

Form1:
Ligue o banco de dados ao formulário:

Adicione os seguintes itens no Form:

1 Botão - Abrir imagem

1 PictureBox - ligue ao campo arquivoimagem do banco de dados:
No PictureBox na propriedade SizeMode mude para: StretchImage
assim a imagem aparecerá completa no PictureBox, e em BorderStyle mude para FixedSingle para aparecer uma borda no PictureBox local da imagem.

1 OpenFileDialog

Load do Form1:

'Apague o Public e acima do Class Form1 coloque:

Imports System.IO

'como mostrado na imagem logo abaixo...

Código do Botão - Abrir imagem:

'Clique duas vezes no botão Abrir imagem e coloque o código abaixo...

OpenFileDialog1.Filter = "image file (*.jpg, *.bmp, *.png) | *.jpg; *.bmp; *.png | all files (*.*) | *.*"

If OpenFileDialog1.ShowDialog <> Windows.Forms.DialogResult.Cancel Then

PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)

End If

CÓDIGO PARA COLOCAR IMAGEM NO FORM

Adicione um PictureBox (Name: picImagem) no Form um Botão (Text: Abrir imagem) um outro Botão (Text: Salvar no HD) e um OpenFileDialog

No PictureBox na propriedade SizeMode mude para: StretchImage
assim a imagem aparecerá completa no PictureBox, e em BorderStyle mude para FixedSingle para aparecer uma borda no PictureBox local da imagem.

Clique duas vezes no Botão (Abrir imagem) e cole o código abaixo:

OpenFileDialog1.ShowDialog()
If OpenFileDialog1.FileNames.Length > 0 Then
PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
End If


Clique duas vezes no Botão (Salvar no HD) e cole o código abaixo:

Dim local As String
Dim img = New Bitmap(picImagem.Image)
Dim saveFileDialog1 As New SaveFileDialog()
saveFileDialog1.Filter = "JPeg Image|*.jpg|Bitmap Image|*.bmp|Gif Image|*.gif"
saveFileDialog1.Title = "Save an Image File"
saveFileDialog1.ShowDialog()
If saveFileDialog1.FileName <> "" Then
local = saveFileDialog1.FileName
img.Save(local, System.Drawing.Imaging.ImageFormat.Jpeg)
End If