Situs Donkeymails ternyata membayar saya, walaupun hanya sebesar $1 namun ini penting untuk menjaga kepercayaan agar usaha saya nge-klik disitus ini tidak sia-sia.
Di situs ini anda cukup daftar sebagai member lalu klik iklan yang tersedia di situs ini, selain itu juga anda akan dibayar untuk membaca setiap email yang mereka sediakan, mudah kan.
Ini bukti pembayaran dari Donkeymails.
Incentria adalah situs yang sama adminnya dengan Clicksia sehingga banyak yang menyebut kedua situs ini kembar. Hebatnya lagi keduanya juga legit alias benar-benar membayar... Ini bukti pembayaran pertama saya dari Incentria.
Ini adalah bukti pembayaran pertama dari Clicksia, ini membuktikan bahwa Clicksia memang situs yang benar-benar membayar seperti yang dikatakan banyak orang... Pembayaran saya terima sekitar 5 hari setelah saya request Cashout. Ini buktinya :
Untuk yang belum tahu id.ipanelonline bisa klik disini, kurang lebih situs id.ipanelonline adalah situs yang membayar kita dengan hanya mengisi survey yang mereka sediakan.
Bagi yang belum percaya dan minta bukti pembayaran, ini saya sediakan. Ini adalah bukti pembayaran pertama sebesar $5.85 atau sekitar Rp 50.000 ke akun paypal saya.
Beberapa waktu lalu saya membuat aplikasi yang menggunakan laporan Crystal Report, dimana datanya diambil dari SQL Server komputer saya. Laporan tersebut menggunakan kombinasi 5 tabel database sekaligus dan menggunakan banyak field dan grouping data didalamnya.
Masalah muncul saat saya ingin memindahkan aplikasi tersebut ke Laptop orang lain, dimana nama Server SQL-Server di komputer saya dan di laptop itu berbeda. Databasenya sendiri sudah saya copy ke laptop tersebut.
Otomatis saya harus mengubah setting nama Servernya. Untuk koneksi di Form, mungkin saya tinggal mengganti nama servernya di file khusus untuk modul koneksi. Bagaimana dengan koneksi database di laporan yang menggunakan Crystal Report..? Kondisinya seperti gambar berikut..!
Menjawab survey dapat uang..? Ya, mudah sekali bukan..?
Anda akan mendapat uang hanya dengan menjawab survey yang diberikan kepada anda.
Jangan berpikir jauh-jauh dulu, pertama-tama anda perlu mendaftar sebagai anggota. Caranya klik banner dibawah ini dan isi semua pertanyaan yang diajukan.
Satu bulan lalu (awal Juli) saya lihat 1 web iklan yang menyatakan bahwa mencari uang di internet itu mudah. Pemilik web itu bilang tiap minggu ada uang ratusan ribu masuk ke rekeningnya. Saya tentu saja mau seperti dia... Tapi bijimane caranya..?
Selama 1 bulan ini saya coba belajar bisnis internet, kira2 dengan hal apa saya bisa dapat uang dengan hanya browsing internet.
Setelah 1 bulan berkelana, saya baru dapat $1,11. Tapi lumayan lah daripada gak ada, karena kata orang2 bisnis di internet itu butuh waktu sampai berbulan-bulan bahkan tahunan untuk bisa sukses. Jadi saya harap ini awal dari sukses itu.
Ini adalah bukti pembayaran dari situs Aurora Intoffers.com sebesar $1,11. Ini bukti bahwa bisnis di internet itu ternyata benar real. Pembayaran ini dilakukan ke akun Paypal saya.
Mungkin sudah banyak yang mengetahui perbedaan deklarasi parameter dengan ByVal dan ByRef ini, namun saya rasa tidak ada salahnya untuk membahasnya lagi disini. Siapa tahu masih ada sejumlah visitor yang belum mengetahuinya (Kemana aja selama ini..?).
Untuk deklarasi parameter pada suatu method sub / function secara default akan menggunakan keyword ByVal. VB.Net 2008 akan menambahkannya secara otomatis saat anda mendeklarasikan sebuah parameter.
Jika suatu parameter dideklarasikan sebagai ByVal maka nilai parameter tersebut adalah copy-an nilai / salinan dari method pemanggilnya. Jadi ketika parameter tersebut diubah pada method sub / function, ia tidak akan berpengaruh pada nilai di pemanggilnya / hanya berubah didalam sub / functionnya sendiri.
Maka kebalikannya terjadi jika anda menggunakan ByRef, dengan ByRef maka parameter akan menggunakan nilai dan objek yang sama dengan pemanggilnya (mereferensi ke objek di pemanggilnya). Jadi jika nilai parameternya berubah di dalam sub / function tersebut maka perubahan juga terjadi di method pemanggilnya.
Saya rasa dari penjelasan diatas perbedaan antara deklarasi parameter dengan ByVal dan ByRef sudah cukup jelas dan tidak perlu dicontohkan.
Postingan kali ini mengenai datareader di VB.Net 2008, object ini digunakan khusus untuk membaca data dan sifatnya read only dan forward only. Read Only dalam artian object ini tidak dapat digunakan untuk melakukan manipulasi data. Forward Only sendiri berarti bahwa selama dalam proses pembacaan record maka datareader tersebut tidak dapat melakukan navigasi record ke record sebelumnya yang sudah dibaca.
Berikut adalah contoh penggunaan datareader. Siapkan sebuah database di SQL Server dengan nama testing dan sebuah tabel bernama t_obat. Berikut penampakan tabel t_obat. (SQL Query dapat didownload di akhir postingan ini)
Imports System.Data.SqlClient
Public Class Form1
Private Sub ButtonCallDataReader_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonCallDataReader.Click
Dim connectionString As String = "Data Source=ZHENLONK-342572;Initial Catalog=testing;Integrated Security=True"
Dim koneksi As New SqlConnection(connectionString)
Using cmd As New SqlCommand
cmd.Connection = koneksi
cmd.CommandType = CommandType.Text
cmd.CommandText = "SELECT * FROM t_Obat"
Dim mydatareader As SqlDataReader = Nothing
Try
koneksi.Open()
mydatareader = cmd.ExecuteReader
While mydatareader.Read
ListBoxData.Items.Add(mydatareader(0) & " - " & mydatareader(1) & " - " & mydatareader(2))
End While
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "Pesan Kesalahan")
End Try
End Using
End Sub
Private Sub ButtonExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonExit.Click
Me.Close()
End Sub
End Class
Postingan kali ini mengenai pengaturan data yang ditampilkan berdasarkan halaman per halaman atau paging data. Konsep ini umum kita temui terutama saat menampilkan data dalam jumlah hingga ratusan atau ribuan data. Tentu tidak mungkin kita menampilkan seluruh data tersebut dalam 1 halaman sekaligus.
Solusinya dengan membagi data menjadi beberapa halaman, disini saya akan mencontohkan konsep paging data. Siapkan sebuah database bernama testing dan buat table t_Obat. Berikut penampakan tabelnya.
Imports System.Data.SqlClient
Public Class FormDG
Dim PA As SqlDataAdapter
Dim DS As DataSet
Dim scrollVal, ShowData, TotalData As Integer
Private Sub Buttonload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonLoad.Click
Dim connectionString As String = "Data Source=ZHENLONK-342572;Initial Catalog=testing;Integrated Security=True"
Dim sql As String = "SELECT * FROM t_Obat"
Dim koneksi As New SqlConnection(connectionString)
PA = New SqlDataAdapter(sql, koneksi)
DS = New DataSet()
koneksi.Open()
PA.Fill(DS, "Obat")
TotalData = DS.Tables("Obat").Rows.Count()
DS.Clear()
PA.Fill(DS, scrollVal, ShowData, "Obat")
koneksi.Close()
DGObat.DataSource = DS
LabelPage.Text = "1"
LabelTotal.Text = Math.Ceiling(TotalData / ShowData)
DGObat.DataMember = "Obat"
ButtonNext.Enabled = True
ButtonPrev.Enabled = True
End Sub
Private Sub ButtonNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonNext.Click
If Not LabelPage.Text = Math.Ceiling(TotalData / ShowData) Then
scrollVal = scrollVal + ShowData
If scrollVal > TotalData Then
scrollVal = Math.Floor(TotalData / ShowData) * ShowData
End If
LabelPage.Text = Val(LabelPage.Text) + 1
End If
DS.Clear()
PA.Fill(DS, scrollVal, ShowData, "Obat")
End Sub
Private Sub ButtonPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonPrev.Click
scrollVal = scrollVal - ShowData
If scrollVal <= 0 Then
scrollVal = 0
End If
If Not LabelPage.Text = "1" Then LabelPage.Text = Val(LabelPage.Text) - 1
DS.Clear()
PA.Fill(DS, scrollVal, ShowData, "Obat")
End Sub
Private Sub FormDG_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ShowData = 6
LabelPage.Text = "n"
LabelTotal.Text = "m"
End Sub
Private Sub ButtonExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonExit.Click
Me.Close()
End Sub
End Class
Postingan kali ini kita akan mengeksport data yang ada di Datagrid menjadi file XML. File XML sekarang umum digunakan untuk pertukaran data di Internet karena pemrosesannya yang mudah dan cepat.
Langsung to the point aja...
Seperti biasa, persiapkan sebuah database bernama testing dan buat table tbl_konsumen. Berikut penampakan tabel tbl_konsumen. (Script SQL query dapat didownload di akhir postingan).
Sub XMLFile()
With FormXML
Try
If My.Computer.FileSystem.FileExists("../../XML/datakonsumen.xml") Then
MsgBox("File XML Sudah Ada..!")
Exit Sub
Else
Dim settings As New XmlWriterSettings()
settings.Indent = True
settings.IndentChars = " "
Using writer As XmlWriter = XmlWriter.Create("../../XML/datakonsumen.xml", settings)
writer.WriteComment("XML Files datakonsumen")
writer.WriteStartElement("dataset")
writer.WriteStartElement("DataKonsumen")
writer.WriteComment("Start datakonsumen")
For rowIndex As Integer = 0 To .DataGridKonsumen.Rows.Count - 1 Step 1
writer.WriteElementString("perusahaan", .DataGridKonsumen.Item(0, rowIndex).Value)
writer.WriteElementString("contactperson", .DataGridKonsumen.Item(1, rowIndex).Value)
writer.WriteElementString("phone", .DataGridKonsumen.Item(2, rowIndex).Value)
writer.WriteElementString("alamat", .DataGridKonsumen.Item(3, rowIndex).Value)
Next
writer.WriteComment("End datakonsumen")
writer.WriteEndElement()
writer.WriteEndElement()
writer.WriteEndDocument()
writer.Flush()
writer.Close()
MsgBox("File XML Data Konsumen Berhasil dibuat..!")
End Using
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "Pesan Kesalahan")
End Try
End With
End Sub
Regular Expression atau Regex memungkinkan anda menguraikan teks secara mudah untuk mengikuti suatu pola teks tertentu. Regex umumnya digunakan untuk memvalidasi suatu inputan / data agar sesuai dengan pola yang diinginkan. Dalam .NET Framework disediakan namespace System.Text.RegularExpressions untuk mendukung penggunaan Regex.
Contoh sederhana misalkan kita ingin data inputan berupa data numerik, maka ekspresinya [0-9] atau \d. Jika kita ingin data inputan berupa huruf kapital dan angka, maka ekspresinya [0-9A-Z].
Berikut adalah contoh syntax perintah dari Regex:
1. [abc] => hanya karakter a,b dan c saja yang diijinkan.
2. [^abc] => karakter apa saja boleh kecuali a,b dan c.
3. [0-9] => karakter yang diijinkan angka 0 hingga 9, sama dengan \d.
4. \w => Semua karakter diijinkan, sama dengan [a-zA-Z_0-9].
5. \W => Kebalikan dari \w. Hanya karakter simbol yang diijinkan.
6. \d => Karakter numerik yang diijinkan
7. \D => Karakter numerik tidak diijinkan
8. \n => baris baru
9. \t => Tab
10. * => Terdapat 0 atau lebih karakter yang sesuai.
11. + => Terdapat minimal 1 atau lebih karakter yang sesuai.
12. ? => Terdapat 0 atau 1 karakter yang sesuai.
13. +? => Terdapat pengulangan setidaknya 1 kali.
14. {n} => Terdapat sebanyak n kecocokan dalam string.
15. {n,m} => Terdapat minimal n kecocokan namun tidak lebih dari m.
16. . => Tanda Titik berarti Semua Karakter diijinkan.
Sebenarnya masih ada lagi contoh syntaxnya, namun diatas adalah yang umum digunakan. Setiap ekspresi Regex harus diawali dengan ^ dan diakhiri $.
Berikut contoh ekspresi Regex untuk tahun kelahiran yang valid :
"^(18)|(19)|(20)\d\d$"
Function ValidTahun(ByVal str As String)
Return Regex.IsMatch(str, "^(18)|(19)|(20)\d\d$")
End Function
Bila kita membuat aplikasi desktop yang memakai database, tentu kita akan bekerja dengan proses Input, Edit dan Delete data. Nah, di postingan kali ini kita akan membuat contoh proses tersebut dengan memakai database SQL Server 2008.
Seperti biasa siapkan dulu contoh tabel database yang akan digunakan. Sebagai contoh kita akan bermain dengan nama-nama obat. Nama databasenya testing dan nama tabelnya obat. Berikut penampakan tabel obat : (Script SQL query dapat didownload di akhir postingan).
Public koneksi As SqlConnection = Nothing
Public cmd As SqlCommand = Nothing
Public Sub koneksiDB()
Dim connString As String = "Data Source=ZHENLONK-342572;Initial Catalog=testing;Integrated Security=True"
Try
koneksi = New SqlClient.SqlConnection(connString)
koneksi.Open()
koneksi.Close()
Catch ex As Exception
MessageBox.Show("Database Connection Error : " & ex.Message)
End Try
End Sub
Sub getDataFromDB(ByVal i As Integer)
koneksiDB()
Try
koneksi.Open()
DS_Obat = New DataSet
sql = "SELECT * FROM obat"
DA_Obat.SelectCommand = New SqlClient.SqlCommand(sql, koneksi)
DA_Obat.Fill(DS_Obat, "obat")
RowNumber = i
koneksi.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Sub DaftarObat()
If DS_Obat.Tables("obat").Rows.Count = 0 Then
MsgBox("Data Obat di Database Masih Kosong", MsgBoxStyle.Exclamation, "Pesan Program")
Exit Sub
End If
Me.TextBoxKodeObat.Text = DS_Obat.Tables("obat").Rows(RowNumber)("kd_obat").ToString
Me.TextBoxNamaObat.Text = DS_Obat.Tables("obat").Rows(RowNumber)("nama").ToString
Me.ComboBoxJenisObat.Text = DS_Obat.Tables("obat").Rows(RowNumber)("jenis").ToString
Me.TextBoxStok.Text = DS_Obat.Tables("obat").Rows(RowNumber)("stok").ToString
Me.TextBoxSatuan.Text = DS_Obat.Tables("obat").Rows(RowNumber)("satuan").ToString
Me.TextBoxHargaBeli.Text = DS_Obat.Tables("obat").Rows(RowNumber)("hargabeli").ToString
Me.TextBoxHargaJual.Text = DS_Obat.Tables("obat").Rows(RowNumber)("hargajual").ToString
End Sub
Sub SaveData()
With FormObat
Try
If .TextBoxNamaObat.Text = "" Then MsgBox("Nama Obat Harus Diisi..!", MsgBoxStyle.Critical, "Pesan Kesalahan") : Exit Sub
If .TextBoxStok.Text = "" Then MsgBox("Stok Obat Harus Diisi..!", MsgBoxStyle.Critical, "Pesan Kesalahan") : Exit Sub
If .TextBoxHargaBeli.Text = "" Then MsgBox("Harga Beli Obat Harus Diisi..!", MsgBoxStyle.Critical, "Pesan Kesalahan") : Exit Sub
If .TextBoxHargaJual.Text = "" Then MsgBox("Harga Jual Harus Diisi..!", MsgBoxStyle.Critical, "Pesan Kesalahan") : Exit Sub
sql = "INSERT INTO obat VALUES ('" & .TextBoxKodeObat.Text & "', '" & .TextBoxNamaObat.Text & "', '" & .ComboBoxJenisObat.Text & "', '" & .TextBoxSatuan.Text & "', '" & .TextBoxStok.Text & "', '" & .TextBoxHargaBeli.Text & "','" & .TextBoxHargaJual.Text & "')"
cmd = New SqlClient.SqlCommand(sql)
cmd.Connection = koneksi
koneksi.Open()
cmd.ExecuteNonQuery()
koneksi.Close()
MsgBox("Data Obat " & .TextBoxNamaObat.Text & " Berhasil Disimpan", MsgBoxStyle.Information, "Pesan Program")
.LoadData()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "Pesan Kesalahan")
End Try
End With
End Sub
Sub EditData()
With FormObat
Try
If .TextBoxNamaObat.Text = "" Then MsgBox("Nama Obat Harus Diisi..!", MsgBoxStyle.Critical, "Pesan Kesalahan") : Exit Sub
If .TextBoxStok.Text = "" Then MsgBox("Stok Obat Harus Diisi..!", MsgBoxStyle.Critical, "Pesan Kesalahan") : Exit Sub
If .TextBoxHargaBeli.Text = "" Then MsgBox("Harga Beli Obat Harus Diisi..!", MsgBoxStyle.Critical, "Pesan Kesalahan") : Exit Sub
If .TextBoxHargaJual.Text = "" Then MsgBox("Harga Jual Harus Diisi..!", MsgBoxStyle.Critical, "Pesan Kesalahan") : Exit Sub
sql = "UPDATE obat SET nama='" & .TextBoxNamaObat.Text & "', " _
& "jenis = '" & .ComboBoxJenisObat.Text & "', " _
& "satuan = '" & .TextBoxSatuan.Text & "', " _
& "stok = '" & .TextBoxStok.Text & "', " _
& "hargabeli = '" & .TextBoxHargaBeli.Text & "', " _
& "hargajual = '" & .TextBoxHargaJual.Text & "' " _
& "WHERE kd_obat = '" & .TextBoxKodeObat.Text & "'"
cmd = New SqlClient.SqlCommand(sql)
cmd.Connection = koneksi
koneksi.Open()
cmd.ExecuteNonQuery()
koneksi.Close()
MsgBox("Data Obat " & .TextBoxNamaObat.Text & " Berhasil DiUpdate", MsgBoxStyle.Information, "Pesan Program")
.LoadData()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "Pesan Kesalahan")
End Try
End With
End Sub
Sub DeleteData()
With FormObat
Try
Dim hapus As Integer
Dim Sql As String
hapus = MsgBox("Anda Yakin Ingin Menghapus Data Obat " & .TextBoxNamaObat.Text & " ini?", MsgBoxStyle.OkCancel, "Info Program")
Select Case hapus
Case vbCancel
Exit Sub
Case vbOK
Sql = "DELETE FROM obat WHERE kd_obat = '" & .TextBoxKodeObat.Text & "'"
cmd = New SqlClient.SqlCommand(Sql)
cmd.Connection = koneksi
koneksi.Open()
cmd.ExecuteNonQuery()
koneksi.Close()
MsgBox("Data Berhasil Dihapus", MsgBoxStyle.Information, "Info Program")
.LoadData()
End Select
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "Pesan Kesalahan")
End Try
End With
End Sub
Private Sub ButtonFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonFirst.Click
RowNumber = 0
Me.DaftarObat()
End Sub
Private Sub ButtonPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonPrev.Click
If RowNumber = 0 Then
MsgBox("Anda Berada di Data Paling Awal", MsgBoxStyle.Information, "Info Program")
Else
RowNumber -= 1
Me.DaftarObat()
End If
End Sub
Private Sub ButtonNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonNext.Click
If RowNumber = DS_Obat.Tables("obat").Rows.Count - 1 Then
MsgBox("Anda Berada di Data Paling Akhir", MsgBoxStyle.Information, "Info Program")
Else
RowNumber += 1
Me.DaftarObat()
End If
End Sub
Private Sub ButtonLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonLast.Click
RowNumber = DS_Obat.Tables("obat").Rows.Count - 1
Me.DaftarObat()
End Sub
Private Sub DataGridFullData_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridFullData.DoubleClick
FormObat.getDataFromDB(DataGridFullData.CurrentCell.RowIndex)
FormObat.DaftarObat()
Me.Close()
End Sub
Beberapa hari lalu di Warnet dekat kampus, saya kaget Flashdisk Jetflash saya telah disusupi oleh file tidak dikenal yang saat itu saya sebut Virus Shortcut + Recycler.
Virus ini membuat 4 file yang bernama Copy of Shortcut to (1).lnk, Copy of Shortcut to (2).lnk, Copy of Shortcut to (3).lnk dan Copy of Shortcut to (4).lnk. Virus ini juga membuat folder Recycler yang berisi folder bernama acak. Folder acak tersebut juga diisi oleh file-file acak yang otomatis dibuat secara terus menerus sehingga membuat komputer terasa lambat. Berikut penampakannya :
[ Situs ini telah ditutup ]
Optimasi dapat berarti suatu cara untuk memperoleh kinerja maksimum. Maka Optimasi Query SQL Server berarti suatu cara atau tips untuk memperoleh kinerja maksimum dari Database SQL Server saat mengeksekusi perintah Query yang kita berikan.
Setelah berkelana menjelajahi puluhan tutorial di Internet yang saya dapatkan, saya coba share beberapa trik untuk optimasi Database SQL Server kita, antara lain :
1. Menentukan Tipe Data yang Tepat.
Hal ini sebenarnya gampang-gampang susah, perlu ketelitian dalam menganalisa tipe dari data-data yang hendak kita kelola. Sebagai contoh, Kita harus mengetahui kapan harus menggunakan tipe data char atau varchar. Keduanya sama-sama tipe karakter, bedanya char ukuran penyimpanannya tetap (fixed), sedangkan varchar ukuran penyimpanannya sesuai dengan panjang karakter data.
2. Hindari Allow Null
Kurangi penggunaan Allow Null, sebagai gantinya berikan nilai default bila field kosong. Nilai null mengonsumsi byte tambahan sehingga menambah beban saat akses query.
3. Hindari SELECT *
Perintah SELECT sangat umum digunakan, perintah SELECT dengan (*) akan mengakses seluruh field di suatu tabel. Bila tabel anda punya banyak field dan anda hanya memerlukan sebagian fieldnya saja, ada baiknya anda menentukan field yang hendak anda proses daripada menggunakan tanda (*).
4. Batasi ORDER BY
Pengurutan akan menambah konsekuensi menambah beban query karena akan menambah 1 proses yaitu sorting. Karena itu gunakan perintah ORDER BY hanya jika anda memerlukannya. Jika memungkinkan lakukan proses Pengurutan / Sorting pada aplikasi, bukan di Query.
5. Gunakan JOIN daripada Subquery
Daripada anda menumpuk beberapa Query sekaligus yang saling berhubungan, lebih baik anda menggunakan JOIN untuk menghasilkan performa yang lebih cepat.
6. Batasi Record yang dipanggil
Perhatikan bila table anda memiliki ratusan atau ribuan data, jangan memanggil seluruh data sekaligus. Disarankan anda melakukan Paging dengan membatasi Record yang keluar dengan menggunakan perintah TOP didalam perintah SELECT. Contoh : SELECT TOP 100... (sama dengan perintah LIMIT pada Mysql)
7. Link Gambar di Database
Ada pepatah mengatakan sebuah gambar bermakna sejuta kata namun tidak berarti anda harus menyimpan gambar tersebut di database, akan lebih optimal bila anda menyimpan path / lokasi dan nama file gambarnya saja.
Pasti masih banyak cara lain yang tidak mungkin dibahas semuanya disini. Mungkin anda juga tidak terlalu melihat perbedaan yang signifikan jika anda mengabaikan tips-tips diatas terlebih jika spesifikasi komputer / server anda cukup canggih untuk kinerja eksekusi program yang cepat. Namun anda disarankan untuk menekan penggunaan memory untuk optimasi kinerja Database terlebih bila anda bekerja dengan aplikasi yang besar.
Apabila kita berbicara tentang Rich Text maka itu berarti suatu Text Editor yang memiliki fasilitas format text yang banyak. Text Editor dalam hal ini harus lebih kaya fungsi dibanding Text Editor sederhana seperti Notepad.
Kita coba membuatnya di VB.Net 2008 dan ini adalah contoh Rich Text Editor (seperti Wordpad di Windows). Menu menggunakan icon-icon (seperti toolbar) yang digunakan untuk memformat text pada textpad.
Berikut adalah penampakan output program Rich Text Editor yang dimaksud. (mirip dengan Wordpad)
Anda pasti tahu kegunaan Form Login, kira-kira untuk melakukan authentication terhadap user yang hendak menggunakan suatu aplikasi.
Kali ini kita akan membuat Login Form, pertama-tama siapkan di Sql Server sebuah database testing dan tabel bernama tbl_user. Kurang lebih berikut penampakan tbl_user.
cmd.Connection = koneksi
cmd.CommandText = "SELECT * FROM tbl_user WHERE myuser = '" & TextBoxUser.Text & "' and mypass = '" & TextBoxPass.Text & "'"
dtReader = cmd.ExecuteReader
If (dtReader.Read()) Then
Utama.Show()
Else
MsgBox("Maaf, Username dan Password tidak Ditemukan....!", MsgBoxStyle.OkOnly, "Login Gagal")
End If
Postingan kali ini tentang gambar, yaitu cara save image ataupun load image di VB.Net 2008. Gambar dalam hal ini akan ditampilkan melalui PictureBox.
Pertama-tama, di SQL Server siapkan sebuah table bernama tbl_img (nama database = testing).
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"
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
PictureBox1.Image = New Bitmap(OpenFileDialog1.FileName)
PictureBox1.SizeMode = PictureBoxSizeMode.CenterImage
End If
Dim cmd As SqlCommand = New SqlCommand("INSERT INTO tbl_img (gambar, alamat) VALUES ('" & TextBoxFileName.Text & "', '" & PathFile & "')", koneksi)
cmd.CommandType = CommandType.Text
Dim DReader As SqlDataReader = cmd.ExecuteReader(CommandBehavior.CloseConnection)
Postingan kali ini yaitu cara mengisi value dari Combobox yang value-nya berasal dari database. Pertama-tama tentu menyiapkan tabelnya di SQL Server, sebagai contoh saya menggunakan database testing dan tabel bernama tbl_obat. Berikut penampakannya.
Dim query As String = "SELECT * FROM tbl_obat"
Dim DA = New SqlDataAdapter(query, koneksi)
Dim DS = New DataSet
DA.Fill(DS, "tbl_obat")
With ComboBox1
.DataSource = DS.Tables("tbl_obat")
.DisplayMember = "obat"
.ValueMember = "id"
.SelectedIndex = 0
End With
Postingan kali ini masih tentang membuat laporan dengan Crystal Report yang datanya ditentukan berdasarkan tanggal yang diinput.
Langsung saja, buat database SQL Server baru bernama testing dan buat tabel bernama beliObat, berikut penampakan tabelnya. (SQL Query dapat didownload bersama program di akhir postingan)
DateTimeValue({?awal}) <= DateTimeValue({beliObat.tgl_beli}) and DateTimeValue({beliObat.tgl_beli}) <= DateTimeValue({?akhir})
Formlaporan.myreport1.SetParameterValue("awal", DateTimePicker1.Text)
Formlaporan.myreport1.SetParameterValue("akhir", DateTimePicker2.Text)
Formlaporan.Show()