Auto Increment ID

dalam posting kali ini saya ingin membagikan sedikit tambahan mengenai auto increment ID yang berdasarkan Tahun, Bulan, dan digit auto dengan cara ini diharapkan dapat merubah mindset dan dapat mengecek laporan berdasar bulan dan tahun sesuai yang di maksud

untuk lebih jelas perhatikan form berikut :

pada textbox txtID.Text terdapat kode ID11110001, maksudnya adalah
1. ID = merupakan kode yang telah diset sesuai dengan kebutuhan
2. 11 = diambil dari tahun 2011
3. 11 = diambil dari bulan November
4. 0001 = merupakan auto increment dari jumlah row yang terakhir

skenarionya begini, begitu aplikasi di running maka aplikasi akan mengecek secara sistem apakah sekarang tahun 2011 lalu mengecek apakah sekarang bulan november lalu akan mengecek jumlah row yang terakhir berapa.

kira-kira syntax nya pertama kali saya membutuhkan function untuk menghitung jumlah row di dalam tabel yang dimaksud.
Sub Function cekDigit3(ByVal id As Int16)
Dim a As String
a = IIf(id >= 10, IIf(id >= 100, IIf(id >= 1000, id, "0" & id), "00" & id), "000" & id)
Return a
End Function

function diatas dibutuhkan untuk menghitung row berdasarkan rumus dari IIF bawaan excel. Berikutnya adalah menghitung incrementnya tempatkan pada form load

sub form_load
dim query as string
query="Select ID from tableName where ID like '" & "ID" & mid(Now.Year(3,2) & mid(Now.Month,1,2) & "%'"
da=New OracleDataAdapter(query, xcon)
da.Fill(ds,"TableNameAlias")
'lalu pada txtID.Text diisi
dim n as integer
n=me.BindingContext(ds.Table("TableNameAlias")).Count
txtID.Text="ID" & mid(Now.Year(3,2) & mid(Now.Month,1,2) & cekDigit3(n+1)

Korelasi dari kombinasi seperti ini adalah sistem akan mengecek syarat tahun, syarat bulan dan increment yang terakhir jadi jika pindah bulan atau tahun makan increment akan kembali ke angka 1, jika tahun dan bulan masih sama dan sesuai makan increment akan di tambah 1.

hasilnya pada txtID.Text adalah ID11110001
semoga bermanfaat selamat mencoba, salam

WAL

Simpan Gambar Menggunakan SQL Server dan VB NET 2005

kali ini saya coba mengulas pertanyaan rekan-rekan mengenai penyimpanan gambar ke dalam database SQL Server 2005 menggunakan VB NET 2005.

pada pembahasan kali ini skenarionya adalah bagaimana membuat program untuk menyimpan gambar ke dalam database dan ditampilkan lagi ke dalam picturebox, sebelumnya maaf saya belum mengupload contoh programnya tapi syntaxnya akan saya share dulu

cara memulainya bagaimana?
yang pertama kali di lakukan adalah membuat table pada database SQL Server 2005 anda dan diasumsikan bahwa telah ada table yang menampung gambar dengan type sebagai berikut :
nama table adalah tblSavePic dengan isian kolom id, dan pic

setelah membuat table lalu apa?
setalah kita membuat table melakukan coding dengan syntax sebagai berikut untuk memilih gambar :
drag dan drop komponen OpenFileDialog dan renanme menjadi OFD

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

koneksinya perlu di inisialisasi?
tentu perlu dengan syntax seperti berikut :

Imports Systems.Data.SqlClient

Dim xkoneksi as new SqlConnection
Dim xcomm as new SqlCommand

xkoneksi.ConnectionString="Data Source=[Nama Server];Initial Catalog=[Nama Database];Integrated Security=true"

xkoneksi.open

lalu setelah memilih gambar setelah itu apa?
ok sabar lalu yang dilakukan berikutnya adalah menyimpan gambar yang kita pilih ke dalam table yang ada pada database ikuti syntax seperti berikut :

Try
Dim ms As New System.IO.MemoryStream()
PicBox.Image.Save(ms, PicBox.Image.RawFormat)
Dim CPic() As Byte = ms.GetBuffer
ms.Close()

Dim query as String
query="Insert into tblSavePic values (" & _
"'" & txtID.Text & "'" & _
",'" & CPic & "')"

xcomm.CommandText = query
xcomm.Connection = xkoneksi
xcomm.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message & ex.StrackTrace & ex.Source)
Finally
xkoneksi.close()
End Try

lalu bagaimana menampilkan kembali?
ok untuk menampilkan kembali adalah dengan syntax sebagai berikut :
Try
Dim arr() As Byte
Dim xread as SqlDataReader

Dim query As String
query = "Select pic from tblSavePic where ID ='" & txtCari.Text & "%'" (Asumsi menggunakan txtCari sebagai pencarian)
xcomm.CommandText = query
xcomm.Connection = xkoneksi
xread = xcomm.ExecuteReader()
xread.Read()
arr = xread.Item("pic")
PicBox.Image = Image.FromStream(New IO.MemoryStream(arr))
Catch ex As Exception
MsgBox(ex.Message & ex.StrackTrace & ex.Source)
Finally
xkoneksi.close()
End Try

semoga artikel ini bermanfaat dan jika ada salah penulisan syntax mohon di koreksi dan selamat mencoba

Ubah Sisipan Nama dari (') ke (~)

Cara memasukkan atau menginputkan data / nama seseorang ke dalam database (dalam hal ini back end saya memakai SQL Server dan front line memakai VB NET)...



baik kita mulai saja, kita mengandaikan kita sedang menginputkan nama seseorang dan nama orang tersebut ada tanda (') (petik). dan SQL Server tidak dapat menerima inputan semacam ini, sebagai contoh yang akan kita inputkan adalah seseorang dengan nama Al'Badawi nama ini mengandung tanda (') yang tidak akan mungkin bisa di terima oleh SQL Server. bagaimana cara mengatasinya ?

jalan satu-satunya adalah merubah tanda (') dengan tanda lain yang dapat di terima oleh SQL server yaitu dengan tanda (~) sehingga yang tadinya Al'Badawi menjadi Al~Badawi ketika masuk database SQL Server. gunakan fungsi trim, left, len atau mid untuk me-replace (') menjadi (~)

konversinya menggunakan fungsi replace :

dim vReplace, var as string
var = textbox1.text
vReplace = var.replace("'","~")

hasilnya : Al~Badawi

dan ketika select dari database dan mengembalikan lagi ke bentuk semula (') tinggal di balik saja :

dim vReplace, var as string
var = textbox1.text
vReplace = var.replace("~","'")

hasilnya : Al'Badawi

atau contoh lain untuk perubahannya seperti ini (thank to kus for pengembangan):

Dim i As Integer
Dim x, y, z, xreplace As String
x = TextBox2.Text
i = Len(TextBox2.Text)
For i = 0 To i
y = vb.Left(x, i)
z = "'"
For Each z In y
xreplace = y.Replace("'", "~")
TextBox1.Text = xreplace
Next
Next

yang mana koding diatas adalah untuk mengecek apakah tiap textbox ada yang berisi (') maka akan di ubah menjadi (~)

semoga membantu


WAL

Disconnected Practice 1

Tugas 1 PV2 Setelah UTS

Mohon maaf karena baru dapat mengupload tugas pada hari ini, dan tugas ini tidak lah sulit, hanya pengulangan saja dari Disconnected Environment dasar.
dan dapat di unduh disini



Baca baik-baik petunjuk tugasnya dan mulai tugas yang ini hingga seterusnya akan saya masukkan dalam Tugas 40%

XML in Vb .NET

XML tujuan secara umum adalah sebuah barisan tag yang berbasis bahasa pemrograman seperti HTML dan sangat mudah digunakan untuk mentransfer dan menyimpan data ke berbagai aplikasi dan bahasa pemrograman yang ada. XML bersifat independen dan tidak memerdulikan platform bahasa pemrograman yang ada, sehingga dapat di gunakan pada platform dan OS mana pun.

XML memiliki aturan tersendiri untuk mendeskripsikan dirinya sendiri untuk menentukan data yang terdapat pada tag-tag XML. secara umum membuat sebuah XML sangat mudah anda hanya perlu menuliskan tag "header" pada posisi teratas yang di awali dengan

dan di akhiri dengan

< Header > Header Content Here < /Header >

pada saat membuat XML yang harus diperhatikan adalah bahwa XML bersifat Case Sensitive terhadap setiap inputan

* XML is case sensitive

ex: < Header > is not same as < HeadeR > .

* Tags must be closed in the reverse order that they were opened

ex : < first-tag >< second-tag > Data here < /second-tag > < /first-tag >

contoh penggunaan file XML



Dengan teknologi .NET yang terbaru ini mendukung penggunaan format XML. .NET menyediakan classyang tersimpan pada namespace System.Xml, System.Xml.Schema, System.Xml.Serialization, System.Xml.XPath, System.Xml.Xsl

Tugas Proyek PV2

Tugas Proyek PV2

- Sistem Informasi Hotel
- Sistem Informasi Restoran
- Sistem Informasi Rental Mobil
- Sistem Informasi Apotek
- Sistem Informasi Perpustakaan

yang harus ada di proposal
- Deskripsi sistem
- batasan masalah
- gambaran form (master, transaksi, laporan)
- tambahan2 jika ada sesuai kasus masing2

Slide penilaian proyek

Connected vs Disconnected Environment

Review materi PV2 pertemuan 2




Perbedaan Connected dan Disconnected ada pada penggunaan temp database..

Koneksinya

dim xkoneksi as new sqlconnection
dim xcom as new sqlcommand
dim ds as new dataset
dim da as sqldataadapter


setelah deklarasi, lalu buat action koneksinya agar dapat dikenali program maupun databse

xkoneksi.connectionstring="Data Source=(Nama_Server);Initial Catalog=(Nama_Database);Integrated Security=true"

xkoneksi.open



Connected Environment

xcom.commandtext="Insert into Tugas values (" & _
"'" & textbox1.text & "'" & _
",'" & textbox2.text & "'" & _
",'" & textbox3.text & "')"
xcom.connection=xkoneksi
xcom.executeNonQuery
xkoneksi.close


Disconnected Environment

xcom.commandtext="Insert into Tugas values (" & _
"'" & textbox1.text & "'" & _
",'" & textbox2.text & "'" & _
",'" & textbox3.text & "')"
da=new sqldataadapter(xcom.commandtext,xkoneksi)
da.fill(ds,"Tugas")

The ConnectionString

Jika kita memiliki database yang kita umpamakan sebagai alat komunikasi seperti Handphone, yang mana tiap2 handphone memiliki provider dan BTS yang berbeda2 pula, nah bagaimana caranya agar komunikasi kita dapat terhubung ? pastinya ada suatu kesepakatan antara masing2 provider telekomunikasi dan pemerintah tentunya, yang memiliki perbedaan dalam menetapkan tarif, konten layanan yang mana pastinya berbeda.

kembali kepada apa sih hubungan alat komunikasi dengan database ? jika anda ingin membuat aplikasi yang ada hubungannya dengan database sebagai alat penyimpanan data, maka yang anda lakukan yang pertama adalah anda harus membuka koneksi untuk hubungan dengan database terlebih dahulu, biasa di sebut connectionString.

untuk mudahnya silahkan klik connectionString untuk mencoba berbagai macam koneksi

TUGAS 1 PV2 & Materi Pertemuan 1

Tugas 1 PV2

Dikumpulkan via email dotnet.class@yahoo.com

subyek : Tugas 1 PV2

klik disini

Materi ADO .NET pertemuan 1 dapat diambil di ADO NET