Alternatif untuk mendownload artikel disini

@Looping Forever: bos sekedar saran aja tolong donk tutorial dan contoh source code nya diupload di server lokal macam indowebster.com dll thanks & bravo .Net indonesia

Atas saran rekan diatas, dan beberapa email dari rekan-rekan yang lain. Untuk yang memiliki masalah dengan link yang, Maka artikel saya berserta source code lengkapnya dapat di download pada link dibawah ini:

http://geeks.netindonesia.net/files/folders/vbnet_article/default.aspx (Untuk article)

http://geeks.netindonesia.net/files/folders/source_codes_vb/default.aspx (Untuk source code)

Ini semua atas berbaik hatinya Mas Narenda dan Wely yang memberikan space untuk artikel dan source code saya di http://geeks.netindonesia.net/

Dan agar rekan-rekan yang lain mengetahui bahwa kita memiliki komunitas .net developer yang besar disana. Ayooo join ke milis dan buruan buat account di geeks.. tidak sekedar ilmu tapi teman juga bertambah...

Wassalam

Menampilkan gambar pada Datagridview

Pada artikel sebelumnya kita sudah mengerti bagaimana cara menginsert gambar kedalam table. Dan pada artikel ini kita akan membuat bagaimana menampilkan gambar-gambar tersebut kedalam DataGridView

.

Di asumsikan kita masih menggunakan pada Table yang sama seperti pada artikel sebelumnya. Lalu bagaimanakah sintaks untuk menampilkan gambar tersebut, dapat dilihat di bawah ini, penjabaran dari sintaks sudah ada dibawah.

Try
objDataTable.Clear()
'menampilkan data pada table TbPic
'start
strSQL = "Select * from TbPic"

objCommand = New SqlCommand
objCommand.Connection = MyConnection.open
objCommand.CommandType = CommandType.Text
objCommand.CommandText = strSQL
objDataAdapter = New SqlDataAdapter(objCommand)
objDataAdapter.Fill(objDataSet, "MDT_Pic")
MyConnection.close()
objDataTable = objDataSet.Tables("MDT_Pic")
'finish
DataGridView1.DataSource = objDataSet
DataGridView1.DataMember = "MDT_Pic"

DataGridView1.ShowCellToolTips = False

' menyembunyikan binary data (Field Pic)
DataGridView1.Columns("Pic").Visible = False

' Menambahkan image kolom pada gridview
Dim ImageCol As New DataGridViewImageColumn()
ImageCol.Name = "Gambar"
ImageCol.Width = 200
DataGridView1.Columns.Add(ImageCol)

For Each Row As DataGridViewRow In DataGridView1.Rows
'pertama, kita harus mengconvert binary data menjadi memory stream
'Kemudian, kita dapat menggunakan memory stream untuk membuat image object

Try
Dim ImageBytes() As Byte = Row.Cells("Pic").Value

Dim ms As New MemoryStream(ImageBytes)
Dim img As Image = Image.FromStream(ms)


'lalu, ikat (bind) image kolom
Dim ImageCell As DataGridViewImageCell = CType(Row.Cells("Gambar"), DataGridViewImageCell)
ImageCell.Value = img

'Sekrang kita dapat merelease original data
Row.Cells("Pic").Value = New Byte() {}

Row.Height = 100
Catch
'abaikan error dari image yang invalid
End Try

Next

Catch When Err.Number <> 0
MsgBox("Program Error" _
& vbCrLf & Err.Description)
MyConnection.close()
End Try

Semoga bermanfaat..
Wassalam

Bagaimana MengInsert gambar kedalam Table dan menampilkan kembali ke PictureBox

Ini adalah artikel pertama di awal tahun 2009 M/1430 H. sebenarnya udah lama sich mau posting artikel ini, tapi ada kendala sedikit, tapi Alhamdulillah hari ini artikel ini bisa release.
Artikel ini membahas bagaimana membuat program untuk memasukkan gambar ke database dan bagaimana menampilkan file gambar tersebut kedalam picture box.. Pada artikel ini saya menggunakan Vb 2008 express dengan database SQL 2008 express. Tapi ini bisa di gunakan untuk versi-versi sebelumnya.

Tahap pertama adalah dengan membuat form seperti gambar diatas, dan jangan lupa tambahkan 4 button, 1 textbox, OpenfileDialog dan Picturebox.
Di asumsikan kita memiliki table dengan nama TbPic dengan field (ID dan Pic). Sekarang kita masuk ke coding.
Untuk menampilkan file gambar kedalam Picture box ikuti sintaks berikut.
OFD.Filter = "Image Files (*.jpg, *.bmp, *.gif, *.png)*.jpg; *.bmp; *.gif; *.png"
OFD.ShowDialog()
txtFileName.Text = OFD.FileName
txtFileName.SelectionStart = txtFileName.Text.Length
If Trim(txtFileName.Text) <> "" Then
PicBox.Image = Image.FromFile(txtFileName.Text)
End If
Ikuti sintaks dibawah untuk memasukkan gambar kedalam table.
Try
Dim ms As New System.IO.MemoryStream()
PicBox.Image.Save(ms, PicBox.Image.RawFormat)
Dim CPic() As Byte = ms.GetBuffer
ms.Close()

Dim MyConnection As AccessData.DataBaseConnection = New AccessData.DataBaseConnection

Dim myCommand As SqlCommand = New SqlCommand("Insert Into TbPic (ID,Pic) values (@ID,@Pic)", MyConnection.open)

myCommand.CommandType = CommandType.Text

Dim parameterID As SqlParameter = New SqlParameter("@ID", SqlDbType.VarChar)
parameterID.Value = "1"

Dim parameterPic As SqlParameter = New SqlParameter("@Pic", SqlDbType.Image)
parameterPic.Value = CPic
With myCommand.Parameters
.Add(parameterID)
.Add(parameterPic)
End With
Dim result As SqlDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection)


Catch ex As Exception
MsgBox(ex.Message)
Finally
MyConnection.close()
End Try

Lalu bagaimana caranya untuk menampilkan kembali tersebut ke dalam picture box. Berikut sintaks nya
Try
Dim arr() As Byte

objCommand = MyConnection.open.CreateCommand
objCommand.CommandText = ("select Pic from TbPic;")
objdatareader = objCommand.ExecuteReader
objdatareader.Read()
arr = objdatareader.Item("Pic")
PicBox.Image = Image.FromStream(New IO.MemoryStream(arr))
Catch ex As Exception
MsgBox(ex.Message)
Finally
MyConnection.close()
End Try
Mudah-mudahan artikel ini dapat membantu rekan-rekan yang request maupun tidak tentang artikel ini..
Wassalam

Microsoft TechNet Session @Uniba, Batam

Event Summary ini di ambil dari blog nya mas wely

Seperti yang disampaikan Pak Aprizon pada undangannya, hari Minggu kemarin, atas kerja sama antara Microsoft Indonesia, MUGI Batam, dan Universitas Batam (Universitas Batam), sukses mengadakan event TechNet. Ini merupakan event pertama yang dimotori oleh rekan2 MUGI Batam yang begitu antusiasnya. [Sepertinya gak mau kalah dengan teman2 MUGI pada kota lainnya ;)]
Bahkan demi kelancaran acara ini, rekan2 MUGI Batam dan rekan2 panitia Uniba mempersiapkan sampai jam 3 pagi .
Peserta yang hadir sekitar 160an orang dari 220an pendaftar. Sekitar 60% adalah dari mahasiswa dan pelajar, dan juga ada rekan2 dari company customer atau partner.

Acara dimulai dari Opening Speech dari Uniba.

Tentunya tidak lupa, Pak Aprizon selaku ketua MUGI Batam memberikan penjelasan singkat tentang berdirinya MUGI Batam serta aktifitas rekan2 atas terselenggarakannya acara ini.

Session pertama dimulai dari Migrasi dari Windows NT ke Windows 2003 yang dibawakan oleh Pak Rudy dan Pak Irawan.

Pada event tersebut, saya sendiri juga hadir. Tentunya teman2 tahu bahwa saya (Wely) adalah Developer Advisor, jadi tidak begitu familiar dgn mainan IT Pro. That's why pada session saya (Wely), saya bawakan Next Generation Web Application (.NET, ASP.NET 3.5, WPF, Silverlight, DeepZoom). Oleh karena audience kali ini bukanlah developer, maka kita harus "adjust" materi yang saya (Wely) bawakan sehingga dapat dimengerti.

Session ketiga kembali dibawakan oleh Pak Rudy, yang melanjutkan tahap Migrasi kedua yaitu Windows 2003 ke Windows 2008.

Session keempat dibawakan oleh Pak Atha tentang Zimbra. Pada session tersebut Pak Atha menekankan walaupun Zimbra adalah project open source, tetapi dapat berkolaborasi dengan baik dengan Active Directory di Windows. Bahkan pada session ini, peserta diundang untuk maju ke depan, untuk mencoba sendiri Zimbra.

After lunch, dimulai dari session bertema "penampakan" sesuai dgn apa yang Pak Aprizon sampaikan :). Bukan penampakan "makhluk halus", tetapi penampakan "perangkat halus / lunak masa depan", Windows 7. Ini adalah penampakan pertama kepada publik di Sumatera, dan kedua kali di Indonesia :). I am in charge dalam penampakan ini.

Session selanjutnya dibawakan oleh Pak Aprizon, yaitu Windows Vista Adoption.

Berikut adalah foto2 teman2 MUGI Batam, mahasiswa Uniba yang telah menjadi panitia.

After the session, we had a dinner together.

Thanks untuk teman2 MUGI Batam, teman2 mahasiswa Uniba, dan pihak2 lainnya yang ikut serta dalam mensukseskan acara ini.

My Comment : kalau dari saya seorang member baru di Mugi-Batam (panitia or ga pada acara kemaren ga tau dach ) Salut buat anak-anak Mugi Batam dan Mahasiswa/i Uniba yang ampe jam 3 pagi begadang untuk persiapan.. Ayooo temen-temen sharing trus ilmunya..bagi para developer batam jangan mau kalah, ayoo buat event juga yang dapat berguna bagi temen-temen yang lain..Kedepan mungkin bisa jadi pembicara nich.... :).... Ga ada yang keracunan gonggong kan habis makan di Batu Besar.... pokoke keren habis dachhhhhhhhhhhhhhhhh

Wassalam

Step By Step Menjadi Programmer Handal Dengan Vb.Net (17)

Pada artikel sebelumnya saya membahas bagaimana membuat chart pada form dengan menggunakan OWC 11. Dan jika pembaca semua sudah berhasil kini saatnya untuk menerusi ker artikel ini. Bagaimana kita membuat chart pada excel file dengan vb.net (mengeksport data dari table ke excel file dan membuat chart dengan data tersebut. Artikel ini menggunakan Vb.Net 2003, dan juga sudah di implementasikan di Vb 2005 express. Dan project dari artikel ini tersedia pada http://junindar.blogspot.com So mari ikuti step-step dibawah ini.............

Untuk mendapatkan artikel selengkapnya dapat di download disini

Sedangkan untuk mendapatkan project (source code) dari artikel ini bisa didapatkan disini
Semoga bermanfaat..

Wassalam..

Format DataGridView

DataGridView merupakan control dari .Net 2.0, ini merupakan perkembangan dari DataGrid pada .Net 1.x. Sekarang dengan artikel ini kita akan membahas bagaimana memformat datagridview kita dengan metode run time (coding). Untuk melakukan format pada Datagridview kita menggunakan DatagridviewCellStyle. Kita dapat membuat style dengan
banyak DatagridViewStyle, untuk masing-masing baris, kolom dan cells. DatagridviewCellStyle mengambil seluruh format properties pada DatagridView.
Dibawah ini merupakan beberapa properties pada DatagridviewCellStyle :
Alignment
Untuk melakukan format text didalam cell
BackColor and ForeColor
Untuk color dari pada background cell dan warna text pada cell.
Font
Untuk format tulisan
Format
Bagaimana melakukan format string. Contoh melakukan format numeric atau datetime menjadi string.kita dapat menggunakan standard .Net format atau custom format.
NullText
Mengganti Null dengan Text
SelectionBackColor and SelectionForeColor
Mensetting background cell dan warna text jika cell di pilih
WrapMode
Menetapkan jika text adalah multi lines (jika tinggi row cukup untuk menampung) atau akan di potong. Sebagai default adalah wrap.
Dibawah ini adalah sintaks untuk melakukan format pada DatagridView
Dim Style As DataGridViewCellStyle = _ DataGridView1.Columns("CustomerID").DefaultCellStyleStyle.Font = New Font(DataGridView1.Font, FontStyle.Bold)Style.Alignment = DataGridViewContentAlignment.MiddleRightStyle.BackColor = Color.LightYellow
Style.ForeColor = Color.DarkRed
Di asumsikan kita sudah bisa memasukkan data ke dalam datagridview. Pada sintaks diatas, kita sedang melakukan format untuk kolom CustomerID. Hasil dari sintaks ini dapat dilihat pada gambar diatas. Dan untuk masing-masing kolom dapat kita ubah format nya.
Dan bagaimana menambah button pada DataGridView
Dim Details As New DataGridViewButtonColumn()
Details.Name = "Details"

Details.UseColumnTextForButtonValue = True
Details.Text = "Details..."

Details.HeaderText = ""

DataGridView1.Columns.Insert(DataGridView1.Columns.Count, Details)
Dari sintaks diatas dapat diliat kita membuat button dengan text “Details…”, dan tidak memiliki Header pada kolom nya.
Sedangkan untuk menampilkan value pada saat button di klik adalah sebagai berikut.
Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick

If DataGridView1.Columns(e.ColumnIndex).Name = "Details" Then
MessageBox.Show("Kamu mengklik " & _
DataGridView1.Rows(e.RowIndex).Cells("CustomerID").Value)
End If

End Sub
Dan bagaimana membuat Highlight pada cell, sebagai contoh bagaiman jika kita ingin membuat highlight untuk harga yang lebih dari 100, dengan nama kolom ada “Harga”. Berikut sintaks nya.
Private Sub DataGridView1_CellFormatting(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting


If DataGridView1.Columns(e.ColumnIndex).Name = "Harga" Then
If e.Value > 100 Then

e.CellStyle.ForeColor = Color.Red
e.CellStyle.BackColor = Color.Yellow
End If
End If

End Sub
Note : Artikel ini dapat berjalan pada .Net 2.0 keatas
Semoga dengan artikel ini dapat menambah wawasan kita semua.
Wassalam
Note : Artikel ini dapat berjalan pada .Net 2.0 keatas
Semoga dengan artikel ini dapat menambah wawasan kita semua.
Wassalam

Membuat Textbox menjadi auto complete

Biasanya ketika kita mengetikkan alamat URL pada address bar, maka pada address bar akan terlihat alamat-alamat URL yang mendekati dengan apa yang kita ketik. Lalu bagaimana jika auto complete tersebut di buat pada program kita . Artikel ini menggunakan Vb 2005 express.
Textbox dan Combobox adalah control yang mensupport untuk feature ini di .Net 2.0. Untuk menggunakan AutoComplete pertama adalah dengan mensetting property AutoCompleteMode, masing-masing adalah
Append
Mode ini memasukkan text secara otomatis kedalam control sebagaimana yang kita ketik.
Suggets
Text yang mirip dengan apa yang kita ketik akan muncul di bawah control (berbentuk seperti dropdownlist), jika ada yang cocok diantara text yang tampil, you can select it (tinggal pilih aja J)
SuggestAppend
Ini merupakan kombinasi dari 2 mode diatas (Append dan Suggest). List dari text yang mirip akan tampil dibawah control, namun yang paling cocok berada dalam control.

Setelah mengganti AutoComplete Mode pada properties, selanjutnya kita akan mengubah property AutoCompleteSource. Terdapat 7 value pada properties ini.
FileSystem
Menggunakan FileSystemDirectories (Hanya menampilkan direktori path)
HistoryList
Menampilkan URL dari Internet Explore history list
RecentlyUsedList
semua file yang terakhir di gunakan yang muncul pada start menu.
AllUrl
Seluruh URL pada internet explore, apakah diketik manual oleh user atau link dari web page
AllSystemSources
Full List dari URL dan file path
ListItems
Item yang terdapat pada Combobox.item. pilihan ini tidak tersedia untuk control textbox
CustomSource
Untuk mode ini kita harus menambahkan sendiri text pada properties AutoCompleteCustomSource.

Semoga bermanfaat..
Wassalam