Coding Membuat Gambar Di Vb.net
Imports System.Data.Odbc
Public Class Form1
Dim conn As New accesdata.koneksi
Private PathFile As String = Nothing
Dim sql As String
Private Sub
btnpilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
btnpilih.Click
On Error Resume Next
OpenFileDialog1.Filter = "JPG
Files(*.jpg)|*.jpg|JPEG Files (*.jpeg)|*.jpeg|GIF Files(*.gif)|*.gif|PNG
Files(*.png)|*.png|BMP Files(*.bmp)|*.bmp|TIFF Files(*.tiff)|*.tiff"
OpenFileDialog1.FileName = ""
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
pct_gambar.SizeMode = PictureBoxSizeMode.StretchImage
pct_gambar.Image = New Bitmap(OpenFileDialog1.FileName)
btnpilih.Enabled = True
PathFile = OpenFileDialog1.FileName
txt_nmgambar.Text = PathFile.Substring(PathFile.LastIndexOf("\") + 1)
lbl_alamat.Text = OpenFileDialog1.FileName
pct_gambar.Image = Image.FromFile(lbl_alamat.Text)
End If
End Sub
Source code untuk simpan gambar :
Private Sub
btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
btnsimpan.Click
Try
sql = "Insert into tb_foldergambar
(kd_gambar,nama,alamat) values (?,?,?)"
Dim mycomm As OdbcCommand = New OdbcCommand(sql, conn.buka)
With mycomm.Parameters
.Add("?", OdbcType.VarChar, 10).Value =
txt_kdgambar.Text.Trim
.Add("?", OdbcType.VarChar, 50).Value =
txt_nmgambar.Text.Trim
.Add("?", OdbcType.VarChar, 100).Value =
lbl_alamat.Text.Trim
End With
mycomm.ExecuteNonQuery()
mycomm = Nothing
MsgBox("Simpan Data Foto ke database
berhasil", MsgBoxStyle.MsgBoxSetForeground,
"Simpan")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Source code untuk Menampilkan gambar :
Private Sub
txt_kdgambar_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
txt_kdgambar.TextChanged
Dim sql As String = ("select*from
tb_foldergambar where kd_gambar ='" & txt_kdgambar.Text & "'")
Dim cmd = New OdbcCommand(sql, conn.buka)
Dim rd As OdbcDataReader
rd =
cmd.ExecuteReader
rd.Read()
If rd.HasRows Then
txt_nmgambar.Text = rd.Item("nama")
lbl_alamat.Text = rd.Item("alamat")
pct_gambar.ImageLocation = rd.Item("alamat")
'untuk mencari lokasi gambar pada direktori
pct_gambar.SizeMode = PictureBoxSizeMode.StretchImage
End If
End Sub
Posting Komentar untuk " "