Pada artikel ini kita akan bermain pada VB 2008 Express, tidak seperti pada artikel-artikel sebelumnya dimana tulisan penulis masih menggunakan Vb.net 2003. Untuk topik yang akan dibahas kali ini adalah bagaimana menggunakan BindingNavigator lebih dari satu pada form yang sama. Disini juga dijelaskan bagaimana membuat DataSource untuk MS Acess sebagai database nya. Untuk database pada artikel ini kita menggunakan sample DB dari Microsoft Norhwind.mdb yang dapat di lihat di :\Program Files\Microsoft Office\OFFICE11\SAMPLES. Sekarang ikuti langkah-langkah pada artikel ini.
Untuk mendapatkan source code lengkap nya bisa didapatkan disini
Sedangkan untuk artikel lengkapnya bisa didapatkan disini
Selamat mencoba...
Wassalam
.jpg)
9 comments:
Aku udah coba tips itu. Thanks Bisa!!
Trus kalau boleh, mau nanya tentang gmn nulis data pada excel.
Aku mau buka excel aja gagal pake kode berikut di vb.net 2008:
Imports Microsoft.Office.Interop
sub buatXL()
Dim XL as new Excel.Application
Dim myBook as Excel.Workbook
XL.Visible = true
'disini masalahnya
myBook = XL.Workbooks.Add
end sub
maunya sih nambah workbook baru pada excel yg terbuka. Eh malah error!
Gimana om, kasih solusi donk.
kalau nambah data pada excel yang kita buka kayaknya ga bisa...karena file sudah exst, jadi program tidak bisa mengeksekusi..
kalau hanya mau open file xl gini aja.
System.Diagnostics.Process.Start(ketikkan path dimana file disimpan)
ini cara untuk menambah sheet dan menulis data ke file excel yang aktif..
Try
Filename = Application.StartupPath & "\abc.xls"
oexcel = CreateObject("Excel.Application")
'tambahkan worbook yang baru
obook = oexcel.Workbooks.Add
'menambahkan jumlah sheet pada file
oexcel.Application.Sheets.Add()
'Menunjuk sheet mana yang akan di tulis..
osheet = oexcel.Worksheets(2)
'Menganti nama Sheet
osheet.Name = "Excel Charts3"
osheet.Range("A1").Font.Size = 12
osheet.Range("A1").Font.Bold = True
osheet.Range("A1:I1").Merge()
osheet.Range("A1").Value = "Excel Automation With Charts2"
osheet.Range("A1").EntireColumn.AutoFit()
obook.SaveAs(Filename)
obook.Close()
oexcel.Quit()
MsgBox("Export Finished")
Catch ex As Exception
MsgBox(ex.Message)
End Try
note : file harus tidak dalam keadaan aktif atau lagi tebuka..
Langkahnya terhenti di
oBook = oExcel.Workbooks.Add
pesan yang tampil : Old format or invalid type library.
Apakah ada yg salah dikomputer saya?
Regional setting kamu indonesia or english...
ada dua cara ubah regional setting menjadi English-Us atau pada coding di buat seperti ini
Dim thisThread As System.Threading.Thread = _
System.Threading.Thread.CurrentThread
Dim originalCulture As System.Globalization.CultureInfo = _
thisThread.CurrentCulture
thisThread.CurrentCulture = New System.Globalization.CultureInfo( _
"en-US")
obook = oexcel.Workbooks.Add
dan jika regional setting harus indonesia pada akhir proses balikin lagi..code seperti ini
System.Threading.Thread.CurrentThread.CurrentCulture = New System.Globalization.CultureInfo("id-ID")
slamat mencoba
Oh rupanya regional setting ngaruh ya. Thanx .
mah kasih atas tutornya semoga bermamfaat bagi kita yang newbie
backup dabasenya ngak ada ya?
thx!
knp sy ga bs download filenya ya?
Post a Comment