Senang rasanya bisa berbagi lagi buat temen-temen karena udah lama gak posting, kali ini tentang cara Menampilkan Angka Terbilang dengan Visual Basic. Maksud angka terbilang disini adalah penulisan angka-angka dengan huruf misalnya Rp. 1.500 jadi (Seribu Lima Ratus Rupiah) tapi tip kali ini hanya untuk penulisan bilangan genap saja dan belum bisa digunakan untuk bilangan decimal atu bilangan berkoma, untuk menghemat waktu dan jangan capek ngetiknya (udah pasti neh) lanjut aja kita dengan cara pembuatan coding nya, nah bagi yang berkenan silakan ikuti langkah-langkah berikut
Persiapan yang dilakukan
* Buat Project Baru Standart Exe
* Tambahkan 1 buah TextBox dan 1 Label
* Tambahkan 1 buah Module
’Ketik Coding dibawah ini pada module
Option Explicit
Public Const vbKeyDecPt = 46
Public Function ConvertirEnText(ValNum As Double) As String
Static Unites(0 To 9) As String
Static Dixaines(0 To 9) As String
Static LesDixaines(0 To 9) As String
Static Milliers(0 To 4) As String
Dim i As Integer
Dim nPosition As Integer
Dim ValNb As Integer
Dim LesZeros As Integer
Dim strResultat As String
Dim strTemp As String
Dim tmpBuff As String
Unites(0) = "nol"
Unites(1) = "satu"
Unites(2) = "dua"
Unites(3) = "tiga"
Unites(4) = "empat"
Unites(5) = "lima"
Unites(6) = "enam"
Unites(7) = "tujuh"
Unites(8) = "delapan"
Unites(9) = "sembilan"
Dixaines(0) = "sepuluh"
Dixaines(1) = "sebelas"
Dixaines(2) = "dua belas"
Dixaines(3) = "tiga belas"
Dixaines(4) = "empat belas"
Dixaines(5) = "lima belas"
Dixaines(6) = "enam belas"
Dixaines(7) = "tujuh belas"
Dixaines(8) = "delapan belas"
Dixaines(9) = "sembilan belas"
LesDixaines(0) = ""
LesDixaines(1) = "sepuluh"
LesDixaines(2) = "dua puluh"
LesDixaines(3) = "tiga puluh"
LesDixaines(4) = "empat puluh"
LesDixaines(5) = "lima puluh"
LesDixaines(6) = "enam puluh"
LesDixaines(7) = "tujuh puluh"
LesDixaines(8) = "delapan puluh"
LesDixaines(9) = "sembilan puluh"
Milliers(0) = ""
Milliers(1) = "ribu"
Milliers(2) = "juta"
Milliers(3) = "milyard"
Milliers(4) = "triliyun"
On Error GoTo NbVersTexteError
strTemp = CStr(Int(ValNum)) 'Untuk Konversi Angka yang di format ke default
For i = Len(strTemp) To 1 Step -1
ValNb = Val(Mid$(strTemp, i, 1))
nPosition = (Len(strTemp) - i) + 1
Select Case (nPosition Mod 3)
Case 1
LesZeros = False
If i = 1 Then
If ValNb > 1 Then
tmpBuff = Unites(ValNb) & " "
Else
tmpBuff = ""
End If
ElseIf Mid$(strTemp, i - 1, 1) = "1" Then
tmpBuff = Dixaines(ValNb) & " "
i = i - 1
ElseIf ValNb > 0 Then
tmpBuff = Unites(ValNb) & " "
Else
LesZeros = True
If i > 1 Then
If Mid$(strTemp, i - 1, 1) <> "0" Then
LesZeros = False
End If
End If
If i > 2 Then
If Mid$(strTemp, i - 2, 1) <> "0" Then
LesZeros = False
End If
End If
tmpBuff = ""
End If
If LesZeros = False And nPosition > 1 Then
tmpBuff = tmpBuff & Milliers(nPosition / 3) & " "
End If
strResultat = tmpBuff & strResultat
Case 2
If ValNb > 0 Then
strResultat = LesDixaines(ValNb) & " " & _
strResultat
End If
Case 0
If ValNb > 0 Then
If ValNb > 1 Then
strResultat = Unites(ValNb) & " ratus " & _
strResultat
Else
strResultat = "seratus " & strResultat
End If
End If
End Select
Next i
If Len(strResultat) > 0 Then
strResultat = UCase$(Left$(strResultat, 1)) & _
Mid$(strResultat, 2)
End If
EndNbVersTexte:
ConvertirEnText = strResultat & " rupiah"
Exit Function
NbVersTexteError:
strResultat = "Une Erreur !"
Resume EndNbVersTexte
End Function
Public Function AngkaTerbilang(Counter As Double) As String
On Error Resume Next
Dim A As Single
AngkaTerbilang = ConvertirEnText(Counter)
A = Len(ConvertirEnText(Counter))
If Mid(ConvertirEnText(Counter), 1, 4) = "Ribu" Then
AngkaTerbilang = "Se" + Mid(ConvertirEnText(Counter), 1, A)
End If
If Mid(ConvertirEnText(Counter), 1, 4) = "Juta" Then
AngkaTerbilang = "Satu " + Mid(ConvertirEnText(Counter), 1, A)
End If
If Mid(ConvertirEnText(Counter), 1, 7) = "" Then
AngkaTerbilang = "Satu " + Mid(ConvertirEnText(Counter), 1, A)
End If
If Mid(ConvertirEnText(Counter), 1, 7) = "Milyard" Then
AngkaTerbilang = "Satu " + Mid(ConvertirEnText(Counter), 1, A)
End If
End Function
’Ketik Coding dibawah ini pada Form
Option Explicit
Private Sub Text1_Change()
If Text1 <> "" Then
Text1.Text = Format(Text1, "#,##0")
Text1.SelStart = Len(Text1)
Label1.Caption = AngkaTerbilang(Text1)
Label1.Caption = StrConv(Label1, vbProperCase)
Else
Label1.Caption = ""
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyDecPt Or KeyAscii = vbKeyBack Then
Exit Sub
Else
KeyAscii = 0
End If
End Sub
Nah coba jalankan program atau tekan F5 dan isi beberapa angka pada Text1 akan secara otomatis angka terbilangnya akan ditampilkan pada Label1.
Mudah-mudahan ada mampaat nya bagi kita semua, dan jangan lupa beri komentar nya yah … sebelumnya saya ucapkan terima kasih ... wassalam
Selasa, 26 April 2011
Contoh Encrypt dan Decrypt Teks dengan Visual Basic
Tujuan Utama Encrypt dan Descript teks adalah untuk merubah karakter teks sehingga tidak mudah dibaca atau dipahami orang lain, metode ini banyak dipakai untuk proteksi seperti dunia Internet, Bank baik proteksi password, pengiriman pesan, pengiriman data dan lain-lain. Disini saya memberikan contoh dasar bagaimana pembuatan Encrypt dan Descript teks tersebut dengan Visual Basic
Sintax :
1. EncryptText(strText As String, ByVal strPwd As String) As String
2. DecryptText(strText As String, ByVal strPwd As String)
contoh :
EncryptText("Uji Coba", "gila") = ž¶ªgŒ»£¨
DecryptText("ž¶ªgŒ»£¨","gila") = Uji Coba
Bagi sobat-sobat yang tertarik silakan ikuti langkah - langkah pembuatan fungsi Encrypt dan Decript ini
Persiapan yang harus dilakukan
* Buat Project Baru Standart Exe
* 3 Buah TextBox (Text1,Text2, Text3)
* 2 Buah CommandButton (Command1, Command2)
* 2 Buah Label
* 1 buat Moudule
* Design form seperti Gambar dibawah ini
Contoh Design Project Form Engcrypt - Descrypt
Tempat Coding dibawah ini pada Module
Option Explicit
#Const CASE_SENSITIVE_PASSWORD = False
'Encrypt text
Public Function EncryptText(strText As String, ByVal strPwd As String) As String
Dim i As Integer, c As Integer
Dim strBuff As String
#If Not CASE_SENSITIVE_PASSWORD Then
'Convert password to upper case
'if not case-sensitive
strPwd = UCase$(strPwd)
#End If
'Encrypt string
If Len(strPwd) Then
For i = 1 To Len(strText)
c = Asc(Mid$(strText, i, 1))
c = c + Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
strBuff = strBuff & Chr$(c And &HFF)
Next i
Else
strBuff = strText
End If
EncryptText = strBuff
End Function
Public Function DecryptText(strText As String, ByVal strPwd As String)
Dim i As Integer, c As Integer
Dim strBuff As String
#If Not CASE_SENSITIVE_PASSWORD Then
'Convert password to upper case
'if not case-sensitive
strPwd = UCase$(strPwd)
#End If
'Decrypt string
If Len(strPwd) Then
For i = 1 To Len(strText)
c = Asc(Mid$(strText, i, 1))
c = c - Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
strBuff = strBuff & Chr$(c And &HFF)
Next i
Else
strBuff = strText
End If
DecryptText = strBuff
End Function
Ketik Coding dibawah ini pada Form Project
Option Explicit
Private Sub Command1_Click()
Text2 = EncryptText(Text1, "gila")
End Sub
Private Sub Command2_Click()
Text3 = DecryptText(Text2, "gila")
End Sub
Cukup sekian dulu tutorial singkat ini, mudah-mudahan ada mamfaat nya bagi sobat - sobat VB Depeloper, selamat mencoba ... salam
Sintax :
1. EncryptText(strText As String, ByVal strPwd As String) As String
2. DecryptText(strText As String, ByVal strPwd As String)
contoh :
EncryptText("Uji Coba", "gila") = ž¶ªgŒ»£¨
DecryptText("ž¶ªgŒ»£¨","gila") = Uji Coba
Bagi sobat-sobat yang tertarik silakan ikuti langkah - langkah pembuatan fungsi Encrypt dan Decript ini
Persiapan yang harus dilakukan
* Buat Project Baru Standart Exe
* 3 Buah TextBox (Text1,Text2, Text3)
* 2 Buah CommandButton (Command1, Command2)
* 2 Buah Label
* 1 buat Moudule
* Design form seperti Gambar dibawah ini
Contoh Design Project Form Engcrypt - Descrypt
Tempat Coding dibawah ini pada Module
Option Explicit
#Const CASE_SENSITIVE_PASSWORD = False
'Encrypt text
Public Function EncryptText(strText As String, ByVal strPwd As String) As String
Dim i As Integer, c As Integer
Dim strBuff As String
#If Not CASE_SENSITIVE_PASSWORD Then
'Convert password to upper case
'if not case-sensitive
strPwd = UCase$(strPwd)
#End If
'Encrypt string
If Len(strPwd) Then
For i = 1 To Len(strText)
c = Asc(Mid$(strText, i, 1))
c = c + Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
strBuff = strBuff & Chr$(c And &HFF)
Next i
Else
strBuff = strText
End If
EncryptText = strBuff
End Function
Public Function DecryptText(strText As String, ByVal strPwd As String)
Dim i As Integer, c As Integer
Dim strBuff As String
#If Not CASE_SENSITIVE_PASSWORD Then
'Convert password to upper case
'if not case-sensitive
strPwd = UCase$(strPwd)
#End If
'Decrypt string
If Len(strPwd) Then
For i = 1 To Len(strText)
c = Asc(Mid$(strText, i, 1))
c = c - Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
strBuff = strBuff & Chr$(c And &HFF)
Next i
Else
strBuff = strText
End If
DecryptText = strBuff
End Function
Ketik Coding dibawah ini pada Form Project
Option Explicit
Private Sub Command1_Click()
Text2 = EncryptText(Text1, "gila")
End Sub
Private Sub Command2_Click()
Text3 = DecryptText(Text2, "gila")
End Sub
Cukup sekian dulu tutorial singkat ini, mudah-mudahan ada mamfaat nya bagi sobat - sobat VB Depeloper, selamat mencoba ... salam
Membuat Caption Label Bergerak dengan Visual Basic
Semangat lagi nih Pagerank udah pulih , hehehe .. kemarin sempat diturunin jadi dua sekarang udah normal lagi jadi tiga .. thx mbah Google (wekekeke). Walau beberapa hari ini jarang ol dikarenakan ada sedikit gangguan tapi eRGe masih sempatkan untuk Update Posting Blog Ekakom ini, Tips kali ini masih seputar Visual Basic yaitu Membuat Caption Label Bergerak , maksudnya bisa berjalan-jalan (smoga aja gak kesasar yah .. wekekeke) kalau di Html istilah nya Marquee (kalo gak salah), mudah-mudahan yang saya maksud bisa ngerti yah, kalo gak ngerti di mengertiin aja deh (wekekeke), Nah bagi yang berminat silakan ikuti langkah-langkah dibawah ini, Persiapan :
- Buat Project baru Standart Exe
- Tambahkan 1 buah Control Timer (Timer1) Property yang diset :
Enable = True, Interval = 100
- Satu Buah Control Label (Label1)
Ketik Coding dibawah ini pada Form Project
Dim Pos As Integer, StartPos As Integer, Lengh As Integer, iTeks As Integer
Dim MyTeks As String
Private Sub Form_Load()
iTeks = 1
End Sub
Private Sub Timer1_Timer()
Pos = Pos + 1
If iTeks = 1 Then
MyTeks = "Ini adalah Contoh ..."
ElseIf iTeks = 2 Then
MyTeks = "Pembuatan Label Berjalan"
ElseIf iTeks = 3 Then
MyTeks = "Dengan Visual Basic"
End If
StartPos = Len(MyTeks)
Lengh = StartPos - Pos
If Lengh = 0 Then
If iTeks = 1 Then
iTeks = 2
ElseIf iTeks = 2 Then
iTeks = 3
ElseIf iTeks = 3 Then
iTeks = 1
End If
Pos = 0 - StartPos
End If
Label1 = Right(MyTeks, Lengh)
End Sub
Mudahkan gak ribet , Sekarang Coba sobat jalan kan Project nya (Tekan F5) Caption pada label1 akan berjalan-jalan dan tulisannya bergantian tapi hati-hati sob jangan sampai labelnya kesasar gak tau pulang (wekekekekeke).
Mudah-mudahan ada mamfaat nya bagi sobat-sobat semua, dan khusus pada VB Depelover yang masih pemula tentunya (Salam)
- Buat Project baru Standart Exe
- Tambahkan 1 buah Control Timer (Timer1) Property yang diset :
Enable = True, Interval = 100
- Satu Buah Control Label (Label1)
Ketik Coding dibawah ini pada Form Project
Dim Pos As Integer, StartPos As Integer, Lengh As Integer, iTeks As Integer
Dim MyTeks As String
Private Sub Form_Load()
iTeks = 1
End Sub
Private Sub Timer1_Timer()
Pos = Pos + 1
If iTeks = 1 Then
MyTeks = "Ini adalah Contoh ..."
ElseIf iTeks = 2 Then
MyTeks = "Pembuatan Label Berjalan"
ElseIf iTeks = 3 Then
MyTeks = "Dengan Visual Basic"
End If
StartPos = Len(MyTeks)
Lengh = StartPos - Pos
If Lengh = 0 Then
If iTeks = 1 Then
iTeks = 2
ElseIf iTeks = 2 Then
iTeks = 3
ElseIf iTeks = 3 Then
iTeks = 1
End If
Pos = 0 - StartPos
End If
Label1 = Right(MyTeks, Lengh)
End Sub
Mudahkan gak ribet , Sekarang Coba sobat jalan kan Project nya (Tekan F5) Caption pada label1 akan berjalan-jalan dan tulisannya bergantian tapi hati-hati sob jangan sampai labelnya kesasar gak tau pulang (wekekekekeke).
Mudah-mudahan ada mamfaat nya bagi sobat-sobat semua, dan khusus pada VB Depelover yang masih pemula tentunya (Salam)
Cara Membuat dan Menghapus Folder dengan VB
Masih Seputar Visual Basic tentunya, kesempatan kali ini saya coba mempergunakan untuk ngebahas Masalah Folder yaitu Cara Membuat dan Menghapus Folder dengan VB dan ini juga merupakan salah satu request dari sahabat yang melayangkannya lewat email. Saya rasa hal ini pun sangat penting dalam membangun sebuat Aplikasi.
Langsung aja kita kepokok pembahasan bagaimana dengan pembuatan Coding nya, nah bagi yang tertarik silakan ikuti langkah - langkah berikut ini
Ketik Coding Berikut ini pada Module Project
Option Explicit
Private Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type
Private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long
'Fungsi mencek keberadaan folder
Public Function DirectoryExist(DirPath As String) As Boolean
DirectoryExist = Dir(DirPath, vbDirectory) <> ""
End Function
'Fungsi untuk membuat Folder
Public Sub CreateNewDirectory(NewDirectory As String)
Dim sDirTest As String
Dim SecAttrib As SECURITY_ATTRIBUTES
Dim bSuccess As Boolean
Dim sPath As String
Dim iCounter As Integer
Dim sTempDir As String
sPath = NewDirectory
If Right(sPath, Len(sPath)) <> "\" Then
sPath = sPath & "\"
End If
iCounter = 1
Do Until InStr(iCounter, sPath, "\") = 0
iCounter = InStr(iCounter, sPath, "\")
sTempDir = Left(sPath, iCounter)
sDirTest = Dir(sTempDir)
iCounter = iCounter + 1
'create directory
SecAttrib.lpSecurityDescriptor = &O0
SecAttrib.bInheritHandle = False
SecAttrib.nLength = Len(SecAttrib)
bSuccess = CreateDirectory(sTempDir, SecAttrib)
Loop
End Sub
'Fungsi Untuk Menghapus folder
Public Sub DelDirectory(sName as String)
On Error Resume Next
Dim Fso
Set Fso = CreateObject("Scripting.FileSystemObject")
If Dir(sName, vbDirectory) <> "" Then
Fso.DeleteFolder sName
End If
Set Fso = Nothing
End Sub
Nah sekarang tinggal menggunakan fungsi-fungsi tersebut kedalam Form Project sebagai contoh membuat sebuah folder di drive C dengan nama Database coding nya seperti dibawah ini
'Coding untuk mebuat Folder
'Cek dulu Folder
If DirectoryExist("C:\Database") <> True Then
'Jika Folder yg dimaksud belum ada maka akan dibuat
Call CreateNewDirectory("C:\Database\")
'Coding Menghapus Folder
'Kalau Folder yang dimaksud ditemukan langsung dihapus
Call DelDirectory ("C:\Database\")
Cukup sekian dulu tutorial singkat ini mudah-mudahan kalau ada umur panjang akan saya lanjutkan pada topik yang lain, semoga dapat membantu dan bermamfaat, selamat mencoba dan salam.
Langsung aja kita kepokok pembahasan bagaimana dengan pembuatan Coding nya, nah bagi yang tertarik silakan ikuti langkah - langkah berikut ini
Ketik Coding Berikut ini pada Module Project
Option Explicit
Private Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type
Private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long
'Fungsi mencek keberadaan folder
Public Function DirectoryExist(DirPath As String) As Boolean
DirectoryExist = Dir(DirPath, vbDirectory) <> ""
End Function
'Fungsi untuk membuat Folder
Public Sub CreateNewDirectory(NewDirectory As String)
Dim sDirTest As String
Dim SecAttrib As SECURITY_ATTRIBUTES
Dim bSuccess As Boolean
Dim sPath As String
Dim iCounter As Integer
Dim sTempDir As String
sPath = NewDirectory
If Right(sPath, Len(sPath)) <> "\" Then
sPath = sPath & "\"
End If
iCounter = 1
Do Until InStr(iCounter, sPath, "\") = 0
iCounter = InStr(iCounter, sPath, "\")
sTempDir = Left(sPath, iCounter)
sDirTest = Dir(sTempDir)
iCounter = iCounter + 1
'create directory
SecAttrib.lpSecurityDescriptor = &O0
SecAttrib.bInheritHandle = False
SecAttrib.nLength = Len(SecAttrib)
bSuccess = CreateDirectory(sTempDir, SecAttrib)
Loop
End Sub
'Fungsi Untuk Menghapus folder
Public Sub DelDirectory(sName as String)
On Error Resume Next
Dim Fso
Set Fso = CreateObject("Scripting.FileSystemObject")
If Dir(sName, vbDirectory) <> "" Then
Fso.DeleteFolder sName
End If
Set Fso = Nothing
End Sub
Nah sekarang tinggal menggunakan fungsi-fungsi tersebut kedalam Form Project sebagai contoh membuat sebuah folder di drive C dengan nama Database coding nya seperti dibawah ini
'Coding untuk mebuat Folder
'Cek dulu Folder
If DirectoryExist("C:\Database") <> True Then
'Jika Folder yg dimaksud belum ada maka akan dibuat
Call CreateNewDirectory("C:\Database\")
'Coding Menghapus Folder
'Kalau Folder yang dimaksud ditemukan langsung dihapus
Call DelDirectory ("C:\Database\")
Cukup sekian dulu tutorial singkat ini mudah-mudahan kalau ada umur panjang akan saya lanjutkan pada topik yang lain, semoga dapat membantu dan bermamfaat, selamat mencoba dan salam.
Koneksi Visual Basic 6.0 ke MySQL
Sesuai janji saya di artikel ini, saya akan menulis tentang bagaimana aplikasi Visual Basic 6 anda terkoneksi dengan MySQL. Saya beranggapan anda sudah belajar tentang dasar-dasar Visual Basic 6. Artikel ini hanya akan membahas tentang bagaimana Visual Basic 6 dapat berkomunikasi aplikasi database MySQL.
Buatlah prosedur baru di form MDI anda atau di Module (dan pastikan kalau di Module, prosedur anda adalah Public sehingga dapat dipanggil dari form utama anda). Berikan nama prosedur itu yang mewakili dengan koneksi anda. Misalnya, buat koneksi.
Prosedur yang saya buat adalah sebagai berikut:
Private Sub buat_koneksi()
Dim ConnString As String
Dim db_name As String
Dim db_server As String
Dim db_port As String
Dim db_user As String
Dim db_pass As String
'//error traping
On Error GoTo buat_koneksi_Error
'/isi variable
db_name = "databaseku"
db_server = "localhost" 'ganti jika server anda ada di komputer lain
db_port = "3306" 'default port is 3306
db_user = "root" 'sebaiknya pakai username lain.
db_pass = "password_anda"
'/buat connection string
ConnString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & db_server & ";DATABASE=" & db_name & ";UID=" & db_user & ";PWD=" & db_pass & ";PORT=" & db_port & ";OPTION=3"
'/buka koneksi
With Conn
.ConnectionString = ConnString
.Open
End With
'________________________________________________
On Error GoTo 0
Exit Sub
buat_koneksi_Error:
MsgBox "Ada kesalahan dengan server, periksa apakah server sudah berjalan !", vbInformation, "Cek Server"
End Sub
Untuk memanggil prosedur itu, cukup panggil di form utama anda (atau form dimana anda mau memulai koneksi anda) dengan mengetik
call buka_koneksi
atau
buka_koneksi
saja.
Dan jangan lupa untuk membuat object Conn dulu dan biasanya variable Conn ini dibuat secara Public sehingga bisa dipanggil dimana saja. Biasaya saya buat disuatu Module yang isinya adalah koleksi variable Public. Nyatakan variable tersebut dengan menuliskan:
Public Conn As New ADODB.Connection
Dan seperti biasa, ketika anda menutup aplikasi, anda harus menutup dulu koneksi anda ke MySQL. Biasanya prosedur tutup koneksi ini saya taruh di blok MDIForm_Unload.
If Conn.State = adStateOpen Or Conn.State = adStateConnecting Then
Conn.Close
Set Conn = Nothing
End If
Nah, itu bagian pertama dalam membuat aplikasi Visual Basic 6 dan MySQL, untuk selanjutnya kita akan berdiskusi tentang cara membuka tabel-tabel yang ada di MySQL.
Buatlah prosedur baru di form MDI anda atau di Module (dan pastikan kalau di Module, prosedur anda adalah Public sehingga dapat dipanggil dari form utama anda). Berikan nama prosedur itu yang mewakili dengan koneksi anda. Misalnya, buat koneksi.
Prosedur yang saya buat adalah sebagai berikut:
Private Sub buat_koneksi()
Dim ConnString As String
Dim db_name As String
Dim db_server As String
Dim db_port As String
Dim db_user As String
Dim db_pass As String
'//error traping
On Error GoTo buat_koneksi_Error
'/isi variable
db_name = "databaseku"
db_server = "localhost" 'ganti jika server anda ada di komputer lain
db_port = "3306" 'default port is 3306
db_user = "root" 'sebaiknya pakai username lain.
db_pass = "password_anda"
'/buat connection string
ConnString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & db_server & ";DATABASE=" & db_name & ";UID=" & db_user & ";PWD=" & db_pass & ";PORT=" & db_port & ";OPTION=3"
'/buka koneksi
With Conn
.ConnectionString = ConnString
.Open
End With
'________________________________________________
On Error GoTo 0
Exit Sub
buat_koneksi_Error:
MsgBox "Ada kesalahan dengan server, periksa apakah server sudah berjalan !", vbInformation, "Cek Server"
End Sub
Untuk memanggil prosedur itu, cukup panggil di form utama anda (atau form dimana anda mau memulai koneksi anda) dengan mengetik
call buka_koneksi
atau
buka_koneksi
saja.
Dan jangan lupa untuk membuat object Conn dulu dan biasanya variable Conn ini dibuat secara Public sehingga bisa dipanggil dimana saja. Biasaya saya buat disuatu Module yang isinya adalah koleksi variable Public. Nyatakan variable tersebut dengan menuliskan:
Public Conn As New ADODB.Connection
Dan seperti biasa, ketika anda menutup aplikasi, anda harus menutup dulu koneksi anda ke MySQL. Biasanya prosedur tutup koneksi ini saya taruh di blok MDIForm_Unload.
If Conn.State = adStateOpen Or Conn.State = adStateConnecting Then
Conn.Close
Set Conn = Nothing
End If
Nah, itu bagian pertama dalam membuat aplikasi Visual Basic 6 dan MySQL, untuk selanjutnya kita akan berdiskusi tentang cara membuka tabel-tabel yang ada di MySQL.
Connection String
Mau konek dari Visual Basic ke database, eh.. Lupa syntax connection string !!!
Jangan khwatir berikut saya tampilkan List syntax connection string mulai dari SQL Server , Oracle, MYSQL,FoxPro, IBM DB2 sampe AS/400.. Hah?? kok bisa ?
Berikut kumpulan syntax2 nya …
1. SQL Server
* ODBC
Standard Security:
"Driver={SQL Server};Server=Aron1;Database=pubs;Uid=sa;Pwd=asdasd;"
Trusted connection:
"Driver={SQL Server};Server=Aron1;Database=pubs;
Trusted_Connection=yes;"
Prompt for username and password:
oConn.Properties("Prompt") = adPromptAlwaysoConn.Open "Driver={SQL Server};Server=Aron1;DataBase=pubs;"
* OLE DB, OleDbConnection (.NET)
Standard Security:
"Provider=sqloledb;Data Source=Aron1;Initial Catalog=pubs;User Id=sa;Password=asdasd;"
Trusted Connection:
"Provider=sqloledb;Data Source=Aron1;Initial Catalog=pubs;Integrated Security=SSPI;"
(use serverName\instanceName as Data Source to use an specifik SQLServer instance, only SQLServer2000)
Prompt for username and password:
oConn.Provider = "sqloledb"oConn.Properties("Prompt") = adPromptAlwaysoConn.Open "Data Source=Aron1;Initial Catalog=pubs;"
Connect via an IP address:
"Provider=sqloledb;Data Source=190.190.200.100,1433;Network Library=DBMSSOCN;Initial Catalog=pubs;User ID=sa;Password=asdasd;"
(DBMSSOCN=TCP/IP instead of Named Pipes, at the end of the Data Source is the port to use (1433 is the default))
* SqlConnection (.NET)
Standard Security:
"Data Source=Aron1;Initial Catalog=pubs;User Id=sa;Password=asdasd;" - or -
"Server=Aron1;Database=pubs;User ID=sa;Password=asdasd;Trusted_Connection=False"
(both connection strings produces the same result)
Trusted Connection:
"Data Source=Aron1;Initial Catalog=pubs;Integrated Security=SSPI;" - or -"Server=Aron1;Database=pubs;Trusted_Connection=True;"
(both connection strings produces the same result)
(use serverName\instanceName as Data Source to use an specifik SQLServer instance,
only SQLServer2000)
Connect via an IP address:
"Data Source=190.190.200.100,1433;Network Library=DBMSSOCN;Initial Catalog=pubs;User ID=sa;Password=asdasd;"
(DBMSSOCN=TCP/IP instead of Named Pipes,
at the end of the Data Source is the port to use (1433 is the default))
Declare the SqlConnection:
C#:using System.Data.SqlClient;SqlConnection oSQLConn = new SqlConnection();oSQLConn.ConnectionString="my connection string";oSQLConn.Open();
VB.NET:
Imports System.Data.SqlClientDim oSQLConn As SqlConnection = New SqlConnection()oSQLConn.ConnectionString="my connection string"oSQLConn.Open()
* Data Shape
MS Data Shape"Provider=MSDataShape;Data Provider=SQLOLEDB;Data Source=Aron1;Initial Catalog=pubs;User ID=sa;Password=asdasd;"
2. SQL Server 2005
* SQL Native Client ODBC Driver
Standard security:
"Driver={SQL Native Client};Server=Aron1;Database=pubs;UID=sa;PWD=asdasd;"
Trusted connection:
"Driver={SQL Native Client};Server=Aron1;Database=pubs;Trusted_Connection=yes;"
EquivalentsIntegrated Security=SSPI equals Trusted_Connection=yes
Prompt for username and password:
oConn.Properties("Prompt") = adPromptAlwaysoConn.Open "Driver={SQL Native Client};Server=Aron1;DataBase=pubs;"
Enabling MARS (multiple active result sets):
"Driver={SQL Native Client};Server=Aron1;Database=pubs;
Trusted_Connection=yes;MARS_Connection=yes"
EquivalentsMultipleActiveResultSets=true equals MARS_Connection=yes
Encrypt data sent over network:
"Driver={SQL Native Client};Server=Aron1;Database=pubs;
Trusted_Connection=yes;Encrypt=yes"
Attach a database file on connect to a local SQL Server Express instance:
"Driver={SQL Native Client};Server=.\SQLExpress;
AttachDbFilename=c:\asd\qwe\mydbfile.mdf;
Database=dbname;Trusted_Connection=Yes;"
- or -
"Driver={SQL Native Client};Server=.\SQLExpress;
AttachDbFilename=DataDirectorymydbfile.mdf;
Database=dbname;Trusted_Connection=Yes;"
(use DataDirectory when your database file resides in the data directory)
Why is the "Database" parameter needed?
Answer:
If the database was previously attached, SQL Server does not reattach it
(it uses the attached database as the default for the connection).
(the package contains booth the ODBC driver and the OLE DB provider)
Using SQL Server 2005 Express? Don't miss the server name syntax:
SERVERNAME\SQLEXPRESS (Substitute "SERVERNAME" with the name of the computer)
* SQL Native Client OLE DB Provider
Standard security:
"Provider=SQLNCLI;Server=Aron1;Database=pubs;
UID=sa;PWD=asdasd;"
Trusted connection:
"Provider=SQLNCLI;Server=Aron1;Database=pubs;
Trusted_Connection=yes;"
Equivalents
Integrated Security=SSPI equals Trusted_Connection=yes
Prompt for username and password:
oConn.Properties("Prompt") = adPromptAlwaysoConn.Open "Provider=SQLNCLI;Server=Aron1;DataBase=pubs;"
Enabling MARS (multiple active result sets):
"Provider=SQLNCLI;Server=Aron1;Database=pubs;
Trusted_Connection=yes;MarsConn=yes"
Equivalents
MarsConn=yes equals MultipleActiveResultSets=true equals MARS_Connection=yes
Encrypt data sent over network:
"Provider=SQLNCLI;Server=Aron1;Database=pubs;
Trusted_Connection=yes;Encrypt=yes"
Attach a database file on connect to a local SQL Server Express instance:
"Provider=SQLNCLI;Server=.\SQLExpress;
AttachDbFilename=c:\asd\qwe\mydbfile.mdf;
Database=dbname;Trusted_Connection=Yes;"
- or -
"Provider=SQLNCLI;Server=.\SQLExpress;
AttachDbFilename=DataDirectorymydbfile.mdf;
Database=dbname;Trusted_Connection=Yes;"
(use DataDirectory when your database file resides in the data directory)
Why is the "Database" parameter needed?
Answer: If the database was previously attached,
SQL Server does not reattach it
(it uses the attached database as the default for the connection).
(the package contains booth the ODBC driver and the OLE DB provider)
Using SQL Server 2005 Express? Don't miss the server name syntax:
SERVERNAME\SQLEXPRESS (Substitute "SERVERNAME" with the name of the computer)
* SqlConnection (.NET)
Standard Security:
"Data Source=Aron1;Initial Catalog=pubs;User Id=sa;Password=asdasd;"
- or -
"Server=Aron1;Database=pubs;User ID=sa;Password=asdasd;Trusted_Connection=False"
(both connection strings produces the same result)
Trusted Connection:
"Data Source=Aron1;Initial Catalog=pubs;Integrated Security=SSPI;"
- or -
"Server=Aron1;Database=pubs;Trusted_Connection=True;"
(both connection strings produces the same result)
(use serverName\instanceName as Data Source to use an specifik SQLServer instance)
Connect via an IP address:
"Data Source=190.190.200.100,1433;
Network Library=DBMSSOCN;Initial Catalog=pubs;User ID=sa;Password=asdasd;"
(DBMSSOCN=TCP/IP instead of Named Pipes,
at the end of the Data Source is the port to use (1433 is the default))
Enabling MARS (multiple active result sets):
"Server=Aron1;Database=pubs;
Trusted_Connection=True;MultipleActiveResultSets=true"
Note! Use ADO.NET 2.0 for MARS functionality.
MARS is not supported in ADO.NET 1.0 nor ADO.NET 1.1
Streamline your Data Connections by Moving to MARS, by Laurence Moroney, DevX.com >>
Attach a database file on connect to a local
SQL Server Express instance:
"Server=.\SQLExpress;
AttachDbFilename=c:\asd\qwe\mydbfile.mdf;
Database=dbname;
Trusted_Connection=Yes;"
- or -
"Server=.\SQLExpress;
AttachDbFilename=DataDirectorymydbfile.mdf;
Database=dbname;
Trusted_Connection=Yes;"
(use DataDirectory when your database file resides in the data directory)
Why is the "Database" parameter needed?
Answer: If the database was previously attached,
SQL Server does not reattach it (
it uses the attached database as the default for the connection).
Using "User Instance" on a local SQL Server Express instance:
"Data Source=.\SQLExpress;integrated security=true;
attachdbfilename=DataDirectory\mydb.mdf;user instance=true;"
The "User Instance" functionality creates a new SQL Server
instance on the fly during connect. This works only on a local SQL Server 2005
instance and only when connecting using windows authentication over local named pipes.
The purpose is to be able to create a full rights SQL Server instance to a user
with limited administrative rights on the computer.
To enable the functionality: sp_configure 'user instances enabled','1' (0 to disable)
Using SQL Server 2005 Express? Don't miss the server name syntax:
SERVERNAME\SQLEXPRESS (Substitute "SERVERNAME" with the name of the computer)
* Context Connection - connecting to "self" from within your
CLR stored prodedure/function
C#:
using(SqlConnection connection = new SqlConnection("context connection=true"))
{ connection.Open();
// Use the connection
}
Visual Basic:
Using connection as new SqlConnection("context connection=true")
connection.Open() ' Use the connection
End Using
The context connection lets you execute Transact-SQL statements
in the same context (connection) that your code was invoked in the first place.
3. Access
* ODBC
Standard Security:
"Driver={Microsoft Access Driver (*.mdb)};
Dbq=C:\mydatabase.mdb;Uid=Admin;Pwd=;"
Workgroup:
"Driver={Microsoft Access Driver (*.mdb)};
Dbq=C:\mydatabase.mdb;SystemDB=C:\mydatabase.mdw;"
Exclusive:
"Driver={Microsoft Access Driver (*.mdb)};
Dbq=C:\mydatabase.mdb;Exclusive=1;Uid=admin;Pwd="
* OLE DB, OleDbConnection (.NET)
Standard security:
"Provider=Microsoft.Jet.OLEDB.4.0;
Data Source=\somepath\mydb.mdb;User Id=admin;Password=;"
Workgroup (system database):
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\mydb.mdb;Jet OLEDB:System Database=system.mdw;"
With password:
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\mydb.mdb;Jet OLEDB:Database Password=MyDbPassword;"
4. Oracle
* ODBC
New version:
"Driver={Microsoft ODBC for Oracle};Server=OracleServer.world;
Uid=Username;Pwd=asdasd;"
Old version:
"Driver={Microsoft ODBC Driver for Oracle};
ConnectString=OracleServer.world;
Uid=myUsername;Pwd=myPassword;"
* OLE DB, OleDbConnection (.NET)
Standard security:
"Provider=msdaora;Data Source=MyOracleDB;User Id=UserName;Password=asdasd;"
This one's from Microsoft, the following are from Oracle
Standard Security:
"Provider=OraOLEDB.Oracle;Data Source=MyOracleDB;User Id=Username;Password=asdasd;"
Trusted Connection:
"Provider=OraOLEDB.Oracle;Data Source=MyOracleDB;OSAuthent=1;"
* OracleConnection (.NET)
Standard:
"Data Source=MyOracleDB;Integrated Security=yes;"
This one works only with Oracle 8i release 3 or later
Specifying username and password:
"Data Source=MyOracleDB;User Id=username;Password=passwd;Integrated Security=no;"
This one works only with Oracle 8i release 3 or later
* Declare the OracleConnection:
C#:
using System.Data.OracleClient;
OracleConnection oOracleConn = new OracleConnection();
oOracleConn.ConnectionString = "my connection string";
oOracleConn.Open();
VB.NET:
Imports System.Data.OracleClient
Dim oOracleConn As OracleConnection = New OracleConnection()
OracleConn.ConnectionString = "my connection string"
oOracleConn.Open()
Missing the System.Data.OracleClient namespace? Download .NET Managed Provider for Oracle >>Great article! "Features of Oracle Data Provider for .NET" by Rama Mohan G. at C# Corner
* Core Labs OraDirect (.NET)
Standard:
"User ID=scott; Password=tiger; Host=ora; Pooling=true; Min Pool Size=0;Max Pool Size=100; Connection Lifetime=0"
Read more at Core Lab and the product page.
* Data Shape
MS Data Shape:
"Provider=MSDataShape.1;Persist Security Info=False;Data Provider=MSDAORA;Data Source=orac;user id=username;password=mypw"
5. MySQL
* MyODBC
MyODBC 2.50 Local database:
"Driver={mySQL};Server=localhost;
Option=16834;Database=mydatabase;"
MyODBC 2.50 Remote database:
"Driver={mySQL};Server=data.domain.com;
Port=3306;Option=131072;Stmt=;
Database=my-database;Uid=username;Pwd=password;"
MyODBC 3.51 Local database:
"DRIVER={MySQL ODBC 3.51 Driver};
SERVER=localhost;DATABASE=myDatabase;
USER=myUsername;
PASSWORD=myPassword;OPTION=3;"
MyODBC 3.51 Remote database:
"DRIVER={MySQL ODBC 3.51 Driver};
SERVER=data.domain.com;
PORT=3306;DATABASE=myDatabase; USER=myUsername;PASSWORD=myPassword;OPTION=3;"
* OLE DB, OleDbConnection (.NET)
Standard:
"Provider=MySQLProv;Data Source=mydb;
User Id=UserName;Password=asdasd;"
Connector/Net 1.0 (.NET)
Standard:
"Server=Server;Database=Test;Uid=UserName;Pwd=asdasd;"
Download the driver at MySQL Developer Zone.
Specifying port:
"Server=Server;Port=1234;Database=Test;
Uid=UserName;Pwd=asdasd;"
Default port is 3306. Enter value -1 to use a named pipe connection.
Declare the MySqlClient connection:
C#:
using MySql.Data.MySqlClient;
MySqlConnection oMySqlConn = new MySqlConnection();
oMySqlConn.ConnectionString = "Server=Server;Database=Test;Uid=UserName;Pwd=asdasd;";
oMySqlConn.Open();
VB.NET:
Imports MySql.Data.MySqlClient
Dim oMySqlConn As MySqlConnection = New MySqlConnection()
oMySqlConn.ConnectionString = "Server=Server;Database=Test;Uid=UserName;Pwd=asdasd;"
oMySqlConn.Open()
* MySqlConnection (.NET)
eInfoDesigns.dbProvider:
"Data Source=server;Database=mydb;User ID=username;Password=pwd;Command Logging=false"
This one is used with eInfoDesigns dbProvider, an add-on to .NET
Declare the MySqlConnection:
C#:
using eInfoDesigns.dbProvider.MySqlClient;
MySqlConnection oMySqlConn = new MySqlConnection();
oMySqlConn.ConnectionString = "my connection string";
oMySqlConn.Open();
VB.NET:
Imports eInfoDesigns.dbProvider.MySqlClient
Dim oMySqlConn As MySqlConnection = New MySqlConnection()
oMySqlConn.ConnectionString = "my connection string"
oMySqlConn.Open()
* SevenObjects MySqlClient (.NET)
Standard:
"Host=server; UserName=myusername; Password=mypassword;Database=mydb;"
This is a freeware ADO.Net data provider from SevenObjects
* Core Labs MySQLDirect (.NET)
Standard:
"User ID=root; Password=pwd; Host=localhost; Port=3306; Database=test;
Direct=true; Protocol=TCP; Compress=false; Pooling=true; Min Pool Size=0;
Max Pool Size=100; Connection Lifetime=0"
6.Interbase
* ODBC, Easysoft
Local computer:
"Driver={Easysoft IB6 ODBC};
Server=localhost;Database=localhost:C:\mydatabase.gdb;
Uid=username;Pwd=password"
Remote Computer:
"Driver={Easysoft IB6 ODBC};
Server=ComputerName;
Database=ComputerName:C:\mydatabase.gdb;
Uid=username;Pwd=password"
* ODBC, Intersolv
Local computer:
"Driver={INTERSOLV InterBase ODBC Driver (*.gdb)};Server=localhost;Database=localhost:C:\mydatabase.gdb;
Uid=username;Pwd=password"
Remote Computer:
"Driver={INTERSOLV InterBase ODBC Driver (*.gdb)};
Server=ComputerName;
Database=ComputerName:C:\mydatabase.gdb;
Uid=username;Pwd=password"
This driver are provided by DataDirect Technologies >> (formerly Intersolv)
* OLE DB, SIBPROvider
Standard:
"provider=sibprovider;location=localhost:;data source=c:\databases\gdbs\mygdb.gdb;user id=SYSDBA;password=masterkey"
Specifying character set:
"provider=sibprovider;location=localhost:;data source=c:\databases\gdbs\mygdb.gdb;user id=SYSDBA;password=masterkey;character set=ISO8859_1"
Specifying role:
"provider=sibprovider;location=localhost:;data source=c:\databases\gdbs\mygdb.gdb;user id=SYSDBA;password=masterkey;role=DIGITADORES"
7.IBM DB2
* OLE DB, OleDbConnection (.NET) from ms
TCP/IP:
"Provider=DB2OLEDB;Network Transport Library=TCPIP;Network Address=XXX.XXX.XXX.XXX;Initial Catalog=MyCtlg;Package Collection=MyPkgCol;Default Schema=Schema;
User ID=MyUser;Password=MyPW"
APPC:
"Provider=DB2OLEDB;APPC Local LU Alias=MyAlias;APPC Remote LU Alias=MyRemote;Initial Catalog=MyCtlg;Package Collection=MyPkgCol;Default Schema=Schema;
User ID=MyUser;Password=MyPW"
* IBM's OLE DB Provider (shipped with IBM DB2 UDB v7 or above)
TCP/IP:
Provider=IBMDADB2;Database=sample;HOSTNAME=db2host;
PROTOCOL=TCPIP;
PORT=50000;uid=myUserName;pwd=myPwd;
* ODBC
Standard:
"driver={IBM DB2 ODBC DRIVER};Database=myDbName;hostname=myServerName;
port=myPortNum;protocol=TCPIP;
uid=myUserName; pwd=myPwd"
8.Sybase
* ODBC
Standard Sybase System 12 Enterprise Open Client:
"Driver={SYBASE ASE ODBC Driver};Srvr=Aron1;Uid=username;Pwd=password"
Standard Sybase System 12.5 Enterprise Open Client:
"Driver={SYBASE ASE ODBC Driver};NA=HOSTNAME,PORT_NUMBER;
UID=username;PWD=password"
Standard Sybase System 11:
"Driver={SYBASE SYSTEM 11};Srvr=Aron1;Uid=username;Pwd=password;Database=mydb"
For more information check out the Adaptive Server Enterprise Document Sets
Intersolv 3.10:
"Driver={INTERSOLV 3.10 32-BIT Sybase};Srvr=Aron1;Uid=username;Pwd=password;"
Sybase SQL Anywhere (former Watcom SQL ODBC driver):
"ODBC; Driver=Sybase SQL Anywhere 5.0;
DefaultDir=c:\dbfolder\;Dbf=c:\mydatabase.db;
Uid=username;Pwd=password;Dsn="""""
Note! The two double quota ("") following the DSN parameter at
the end are escaped quotas (VB syntax),
you may have to change this to your
language specific escape syntax (\") or maybe single quota (').
The empty DSN parameter is indeed critical as not including it will result in error 7778.
OLE DB
Adaptive Server Anywhere (ASA):
"Provider=ASAProv;Data source=myASA"
Read more in the ASA User Guide (part 1, chapter 2) >>
Adaptive Server Enterprise (ASE) with Data Source .IDS file:
"Provider=Sybase ASE OLE DB Provider; Data source=myASE"
Note that you must create a Data Source .IDS file using
the Sybase Data Advministrator. These .IDS files resemble ODBC DSNs.
* Adaptive Server Enterprise (ASE):
"Provider=Sybase.ASEOLEDBProvider;Srvr=myASEserver,5000;
Catalog=myDBname;User Id=username;Password=password"
- some reports on problem using the above one, try the following as an alternative -
"Provider=Sybase.ASEOLEDBProvider;
Server Name=myASEserver,5000;Initial Catalog=myDBname;
User Id=username;Password=password"
This one works only from Open Client 12.5 where the server port number feature works,
allowing fully qualified connection strings to be used without
defining any .IDS Data Source files.
* AseConnection (.NET)
Standard:
"Data Source='myASEserver';Port=5000;Database='myDBname';
UID='username';PWD='password';"
Declare the AseConnection:
C#:
using Sybase.Data.AseClient;
AseConnection oCon = new AseConnection();
oCon.ConnectionString="my connection string";
oCon.Open();
VB.NET:
Imports System.Data.AseClientDim oCon As AseConnection = New AseConnection()oCon.ConnectionString="my connection string"oCon.Open()
9.Informix
* ODBC
Informix 3.30:
"Dsn='';Driver={INFORMIX 3.30 32 BIT};Host=hostname;
Server=myserver;Service=service-name;Protocol=olsoctcp;
Database=mydb;UID=username;PWD=myPwd
Informix-CLI 2.5:
"Driver={Informix-CLI 2.5 (32 Bit)};Server=myserver;
Database=mydb;Uid=username;Pwd=myPwd"
* OLE DB
IBM Informix OLE DB Provider:
"Provider=Ifxoledbc.2;password=myPw;User ID=myUser;Data Source=dbName@serverName;
Persist Security Info=true"
10. Ingres
* ODBC
DSN-less:
"Provider=MSDASQL.1;DRIVER=Ingres;SRVR=xxxxx;
DB=xxxxx;Persist Security Info=False;uid=xxxx;
pwd=xxxxx;SELECTLOOPS=N;
Extended Properties=""SERVER=xxxxx;
DATABASE=xxxxx;SERVERTYPE=INGRES"""
Important note! The two double quota ("") in the string are
escaped quotas (VB syntax), you may have to change this to your
language specific escape syntax (ex. \") or maybe single quota (').
11. Mimer SQL
* ODBC
Standard Security:
"Driver={MIMER};Database=mydb;Uid=myuser;Pwd=mypw;"
Prompt for username and password:
"Driver={MIMER};Database=mydb;"
12. Lightbase
* Standard
Standard:
"user=USERLOGIN;password=PASSWORD;UDB=USERBASE;
server=SERVERNAME"
13.PostgreSQL
* Core Labs PostgreSQLDirect (.NET)
Standard:
"User ID=root; Password=pwd; Host=localhost; Port=5432;
Database=testdb;Pooling=true;
Min Pool Size=0; Max Pool Size=100; Connection Lifetime=0"
Read more at Core Lab and the product page.
* PostgreSQL driver
Standard:
"DRIVER={PostgreSQL};SERVER=ipaddress;port=5432;
DATABASE=dbname;UID=username;PWD=password;"
* Npgsql by pgFoundry (.NET)
SSL activated:
"Server=127.0.0.1;Port=5432;Userid=myuserid;
password=mypw;Protocol=3;SSL=true;
Pooling=true;MinPoolSize=3;MaxPoolSize=20;
Encoding=UNICODE;Timeout=20;SslMode=Require"
Without SSL:
"Server=127.0.0.1;Port=5432;Userid=myuserid;
password=mypw;
Protocol=3;SSL=false;
Pooling=true;MinPoolSize=1;MaxPoolSize=20;
Encoding=UNICODE;Timeout=15;SslMode=Disable"
14. Paradox
* ODBC
5.X:
Driver={Microsoft Paradox Driver (*.db )};DriverID=538;Fil=Paradox 5.X;DefaultDir=c:\pathToDb\;Dbq=c:\pathToDb\;
CollatingSequence=ASCII"
7.X:
"Provider=MSDASQL.1;Persist Security Info=False;Mode=Read;Extended Properties='DSN=Paradox;DBQ=C:\myDb;
DefaultDir=C:\myDb;DriverId=538;FIL=Paradox 7.X;
MaxBufferSize=2048;PageTimeout=600;';Initial Catalog=C:\myDb"
* OleDbConnection (.NET)
Standard
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\myDb;
Extended Properties=Paradox 5.x;"
15. DSN
* ODBC
DSN:
"DSN=myDsn;Uid=username;Pwd=;"
File DSN:
"FILEDSN=c:\myData.dsn;Uid=username;Pwd=;"
16. Firebird
* ODBC - IBPhoenix Open Source
Standard:
"DRIVER=Firebird/InterBase(r) driver;UID=SYSDBA;
PWD=masterkey;
DBNAME=D:\FIREBIRD\examples\TEST.FDB"
IBPhoenix ODBC; More info, download etc >>
* .NET - Firebird .Net Data Provider
Standard:
"User=SYSDBA;Password=masterkey;
Database=SampleDatabase.fdb;
DataSource=localhost;
Port=3050;Dialect=3;Charset=NONE;Role=;
Connection lifetime=15;Pooling=true;MinPoolSize=0;
MaxPoolSize=50;Packet Size=8192;ServerType=0"
17. Excel
* ODBC
Standard:
"Driver={Microsoft Excel Driver (*.xls)};DriverId=790;
Dbq=C:\MyExcel.xls;DefaultDir=c:\mypath;"
TIP! SQL syntax: "SELECT * FROM [sheet1$]" - i.e. worksheet name followed by a "$"
and wrapped in "[" "]" brackets.
* OLE DB
Standard:
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyExcel.xls;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""
"HDR=Yes;" indicates that the first row contains columnnames, not data
"IMEX=1;" tells the driver to always read "intermixed"
data columns as text. Note that this option might affect excel sheet write access negative.
TIP! SQL syntax: "SELECT * FROM [sheet1$]" -
i.e. worksheet name followed by a "$" and wrapped in "[" "]" brackets.
TIP! Check out the [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Excel]
located registry REG_DWORD "TypeGuessRows". That's the key to n
ot letting Excel use only the first 8 rows to guess the columns data type.
Set this value to 0 to scan all rows. This might hurt performance.
Important note! The two double quota ("") in the string are escaped quotas (VB syntax),
you may have to change this to your language specific escape syntax (ex. \") or
maybe single quota (').
18. Text
* ODBC
Standard:
"Driver={Microsoft Text Driver (*.txt; *.csv)};
Dbq=c:\txtFilesFolder\;Extensions=asc,csv,tab,txt;"
* OLE DB
Standard:
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\txtFilesFolder\;Extended Properties=""text;HDR=Yes;FMT=Delimited"""
"HDR=Yes;" indicates that the first row contains columnnames, not data
Important note! The two double quota ("") in the string are escaped quotas (VB syntax),
you may have to change this to your language specific escape syntax (ex. \") or maybe single quota (').
19. DBF / FoxPro
* ODBC
standard:
"Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=c:\mydbpath;"
* OLE DB, OleDbConnection (.NET)
standard:
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\folder;
Extended Properties=dBASE IV;User ID=Admin;Password="
20. AS/400 (iSeries)
* OLE DB, OleDbConnection (.NET)
IBM Client Access OLE DB provider:
"PROVIDER=IBMDA400; DATA SOURCE=MY_SYSTEM_NAME;
USER ID=myUserName;PASSWORD=myPwd"
Where MY_SYSTEM_NAME is the name given to the system
connection in OperationsNavigator
IBM Client Access OLE DB provider:
"PROVIDER=IBMDA400; DATA SOURCE=MY_SYSTEM_NAME;USER ID=myUserName;PASSWORD=myPwd;DEFAULT COLLECTION=MY_LIBRARY;"
Where MY_SYSTEM_NAME is the name given to the System Connection,
and MY_LIBRARY is the name given to the library in iSeries Navigator.
* ODBC
IBM Client Access ODBC driver:
"Driver={Client Access ODBC Driver (32-bit)};System=my_system_name;
Uid=myUserName;Pwd=myPwd"
21. Exchange
* OLE DB
Exchange OLE DB provider:
"ExOLEDB.DataSource"
Specify store in the connection open command like this:
conn.open http://servername/mypublicstore
22. Visual FoxPro
* OLE DB, OleDbConnection (.NET)
Database container (.DBC):
"Provider=vfpoledb.1;Data Source=C:\MyDbFolder\MyDbContainer.dbc;
Collating Sequence=machine"
Free table directory:
"Provider=vfpoledb.1;Data Source=C:\MyDataDirectory\;Collating Sequence=general"
Force the provider to use an ODBC DSN:
"Provider=vfpoledb.1;DSN=MyDSN"
Read more (Microsoft msdn) >>
* ODBC
Database container (.DBC):
"Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;
SourceDB=c:\myvfpdb.dbc;Exclusive=No;
NULL=NO;
Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO"
Free Table directory:
"Driver={Microsoft Visual FoxPro Driver};
SourceType=DBF;SourceDB=c:\myvfpdbfolder;Exclusive=No;
Collate=Machine;
NULL=NO; DELETED=NO;BACKGROUNDFETCH=NO"
"Collate=Machine" is the default setting, for other settings check the
list of supported collating sequences >>
Microsoft Visual Foxpro site: http://msdn.microsoft.com/vfoxpro
23 Pervasive
* ODBC
Standard:
"Driver={Pervasive ODBC Client Interface};ServerName=srvname;dbq=@dbname"
Pervasive ODBC info >>
* OLE DB
Standard:
"Provider=PervasiveOLEDB;Data Source=C:\path"
24. UDL
* UDL
UDL:
"File Name=c:\myDataLink.udl;"
Jangan khwatir berikut saya tampilkan List syntax connection string mulai dari SQL Server , Oracle, MYSQL,FoxPro, IBM DB2 sampe AS/400.. Hah?? kok bisa ?
Berikut kumpulan syntax2 nya …
1. SQL Server
* ODBC
Standard Security:
"Driver={SQL Server};Server=Aron1;Database=pubs;Uid=sa;Pwd=asdasd;"
Trusted connection:
"Driver={SQL Server};Server=Aron1;Database=pubs;
Trusted_Connection=yes;"
Prompt for username and password:
oConn.Properties("Prompt") = adPromptAlwaysoConn.Open "Driver={SQL Server};Server=Aron1;DataBase=pubs;"
* OLE DB, OleDbConnection (.NET)
Standard Security:
"Provider=sqloledb;Data Source=Aron1;Initial Catalog=pubs;User Id=sa;Password=asdasd;"
Trusted Connection:
"Provider=sqloledb;Data Source=Aron1;Initial Catalog=pubs;Integrated Security=SSPI;"
(use serverName\instanceName as Data Source to use an specifik SQLServer instance, only SQLServer2000)
Prompt for username and password:
oConn.Provider = "sqloledb"oConn.Properties("Prompt") = adPromptAlwaysoConn.Open "Data Source=Aron1;Initial Catalog=pubs;"
Connect via an IP address:
"Provider=sqloledb;Data Source=190.190.200.100,1433;Network Library=DBMSSOCN;Initial Catalog=pubs;User ID=sa;Password=asdasd;"
(DBMSSOCN=TCP/IP instead of Named Pipes, at the end of the Data Source is the port to use (1433 is the default))
* SqlConnection (.NET)
Standard Security:
"Data Source=Aron1;Initial Catalog=pubs;User Id=sa;Password=asdasd;" - or -
"Server=Aron1;Database=pubs;User ID=sa;Password=asdasd;Trusted_Connection=False"
(both connection strings produces the same result)
Trusted Connection:
"Data Source=Aron1;Initial Catalog=pubs;Integrated Security=SSPI;" - or -"Server=Aron1;Database=pubs;Trusted_Connection=True;"
(both connection strings produces the same result)
(use serverName\instanceName as Data Source to use an specifik SQLServer instance,
only SQLServer2000)
Connect via an IP address:
"Data Source=190.190.200.100,1433;Network Library=DBMSSOCN;Initial Catalog=pubs;User ID=sa;Password=asdasd;"
(DBMSSOCN=TCP/IP instead of Named Pipes,
at the end of the Data Source is the port to use (1433 is the default))
Declare the SqlConnection:
C#:using System.Data.SqlClient;SqlConnection oSQLConn = new SqlConnection();oSQLConn.ConnectionString="my connection string";oSQLConn.Open();
VB.NET:
Imports System.Data.SqlClientDim oSQLConn As SqlConnection = New SqlConnection()oSQLConn.ConnectionString="my connection string"oSQLConn.Open()
* Data Shape
MS Data Shape"Provider=MSDataShape;Data Provider=SQLOLEDB;Data Source=Aron1;Initial Catalog=pubs;User ID=sa;Password=asdasd;"
2. SQL Server 2005
* SQL Native Client ODBC Driver
Standard security:
"Driver={SQL Native Client};Server=Aron1;Database=pubs;UID=sa;PWD=asdasd;"
Trusted connection:
"Driver={SQL Native Client};Server=Aron1;Database=pubs;Trusted_Connection=yes;"
EquivalentsIntegrated Security=SSPI equals Trusted_Connection=yes
Prompt for username and password:
oConn.Properties("Prompt") = adPromptAlwaysoConn.Open "Driver={SQL Native Client};Server=Aron1;DataBase=pubs;"
Enabling MARS (multiple active result sets):
"Driver={SQL Native Client};Server=Aron1;Database=pubs;
Trusted_Connection=yes;MARS_Connection=yes"
EquivalentsMultipleActiveResultSets=true equals MARS_Connection=yes
Encrypt data sent over network:
"Driver={SQL Native Client};Server=Aron1;Database=pubs;
Trusted_Connection=yes;Encrypt=yes"
Attach a database file on connect to a local SQL Server Express instance:
"Driver={SQL Native Client};Server=.\SQLExpress;
AttachDbFilename=c:\asd\qwe\mydbfile.mdf;
Database=dbname;Trusted_Connection=Yes;"
- or -
"Driver={SQL Native Client};Server=.\SQLExpress;
AttachDbFilename=DataDirectorymydbfile.mdf;
Database=dbname;Trusted_Connection=Yes;"
(use DataDirectory when your database file resides in the data directory)
Why is the "Database" parameter needed?
Answer:
If the database was previously attached, SQL Server does not reattach it
(it uses the attached database as the default for the connection).
(the package contains booth the ODBC driver and the OLE DB provider)
Using SQL Server 2005 Express? Don't miss the server name syntax:
SERVERNAME\SQLEXPRESS (Substitute "SERVERNAME" with the name of the computer)
* SQL Native Client OLE DB Provider
Standard security:
"Provider=SQLNCLI;Server=Aron1;Database=pubs;
UID=sa;PWD=asdasd;"
Trusted connection:
"Provider=SQLNCLI;Server=Aron1;Database=pubs;
Trusted_Connection=yes;"
Equivalents
Integrated Security=SSPI equals Trusted_Connection=yes
Prompt for username and password:
oConn.Properties("Prompt") = adPromptAlwaysoConn.Open "Provider=SQLNCLI;Server=Aron1;DataBase=pubs;"
Enabling MARS (multiple active result sets):
"Provider=SQLNCLI;Server=Aron1;Database=pubs;
Trusted_Connection=yes;MarsConn=yes"
Equivalents
MarsConn=yes equals MultipleActiveResultSets=true equals MARS_Connection=yes
Encrypt data sent over network:
"Provider=SQLNCLI;Server=Aron1;Database=pubs;
Trusted_Connection=yes;Encrypt=yes"
Attach a database file on connect to a local SQL Server Express instance:
"Provider=SQLNCLI;Server=.\SQLExpress;
AttachDbFilename=c:\asd\qwe\mydbfile.mdf;
Database=dbname;Trusted_Connection=Yes;"
- or -
"Provider=SQLNCLI;Server=.\SQLExpress;
AttachDbFilename=DataDirectorymydbfile.mdf;
Database=dbname;Trusted_Connection=Yes;"
(use DataDirectory when your database file resides in the data directory)
Why is the "Database" parameter needed?
Answer: If the database was previously attached,
SQL Server does not reattach it
(it uses the attached database as the default for the connection).
(the package contains booth the ODBC driver and the OLE DB provider)
Using SQL Server 2005 Express? Don't miss the server name syntax:
SERVERNAME\SQLEXPRESS (Substitute "SERVERNAME" with the name of the computer)
* SqlConnection (.NET)
Standard Security:
"Data Source=Aron1;Initial Catalog=pubs;User Id=sa;Password=asdasd;"
- or -
"Server=Aron1;Database=pubs;User ID=sa;Password=asdasd;Trusted_Connection=False"
(both connection strings produces the same result)
Trusted Connection:
"Data Source=Aron1;Initial Catalog=pubs;Integrated Security=SSPI;"
- or -
"Server=Aron1;Database=pubs;Trusted_Connection=True;"
(both connection strings produces the same result)
(use serverName\instanceName as Data Source to use an specifik SQLServer instance)
Connect via an IP address:
"Data Source=190.190.200.100,1433;
Network Library=DBMSSOCN;Initial Catalog=pubs;User ID=sa;Password=asdasd;"
(DBMSSOCN=TCP/IP instead of Named Pipes,
at the end of the Data Source is the port to use (1433 is the default))
Enabling MARS (multiple active result sets):
"Server=Aron1;Database=pubs;
Trusted_Connection=True;MultipleActiveResultSets=true"
Note! Use ADO.NET 2.0 for MARS functionality.
MARS is not supported in ADO.NET 1.0 nor ADO.NET 1.1
Streamline your Data Connections by Moving to MARS, by Laurence Moroney, DevX.com >>
Attach a database file on connect to a local
SQL Server Express instance:
"Server=.\SQLExpress;
AttachDbFilename=c:\asd\qwe\mydbfile.mdf;
Database=dbname;
Trusted_Connection=Yes;"
- or -
"Server=.\SQLExpress;
AttachDbFilename=DataDirectorymydbfile.mdf;
Database=dbname;
Trusted_Connection=Yes;"
(use DataDirectory when your database file resides in the data directory)
Why is the "Database" parameter needed?
Answer: If the database was previously attached,
SQL Server does not reattach it (
it uses the attached database as the default for the connection).
Using "User Instance" on a local SQL Server Express instance:
"Data Source=.\SQLExpress;integrated security=true;
attachdbfilename=DataDirectory\mydb.mdf;user instance=true;"
The "User Instance" functionality creates a new SQL Server
instance on the fly during connect. This works only on a local SQL Server 2005
instance and only when connecting using windows authentication over local named pipes.
The purpose is to be able to create a full rights SQL Server instance to a user
with limited administrative rights on the computer.
To enable the functionality: sp_configure 'user instances enabled','1' (0 to disable)
Using SQL Server 2005 Express? Don't miss the server name syntax:
SERVERNAME\SQLEXPRESS (Substitute "SERVERNAME" with the name of the computer)
* Context Connection - connecting to "self" from within your
CLR stored prodedure/function
C#:
using(SqlConnection connection = new SqlConnection("context connection=true"))
{ connection.Open();
// Use the connection
}
Visual Basic:
Using connection as new SqlConnection("context connection=true")
connection.Open() ' Use the connection
End Using
The context connection lets you execute Transact-SQL statements
in the same context (connection) that your code was invoked in the first place.
3. Access
* ODBC
Standard Security:
"Driver={Microsoft Access Driver (*.mdb)};
Dbq=C:\mydatabase.mdb;Uid=Admin;Pwd=;"
Workgroup:
"Driver={Microsoft Access Driver (*.mdb)};
Dbq=C:\mydatabase.mdb;SystemDB=C:\mydatabase.mdw;"
Exclusive:
"Driver={Microsoft Access Driver (*.mdb)};
Dbq=C:\mydatabase.mdb;Exclusive=1;Uid=admin;Pwd="
* OLE DB, OleDbConnection (.NET)
Standard security:
"Provider=Microsoft.Jet.OLEDB.4.0;
Data Source=\somepath\mydb.mdb;User Id=admin;Password=;"
Workgroup (system database):
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\mydb.mdb;Jet OLEDB:System Database=system.mdw;"
With password:
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\mydb.mdb;Jet OLEDB:Database Password=MyDbPassword;"
4. Oracle
* ODBC
New version:
"Driver={Microsoft ODBC for Oracle};Server=OracleServer.world;
Uid=Username;Pwd=asdasd;"
Old version:
"Driver={Microsoft ODBC Driver for Oracle};
ConnectString=OracleServer.world;
Uid=myUsername;Pwd=myPassword;"
* OLE DB, OleDbConnection (.NET)
Standard security:
"Provider=msdaora;Data Source=MyOracleDB;User Id=UserName;Password=asdasd;"
This one's from Microsoft, the following are from Oracle
Standard Security:
"Provider=OraOLEDB.Oracle;Data Source=MyOracleDB;User Id=Username;Password=asdasd;"
Trusted Connection:
"Provider=OraOLEDB.Oracle;Data Source=MyOracleDB;OSAuthent=1;"
* OracleConnection (.NET)
Standard:
"Data Source=MyOracleDB;Integrated Security=yes;"
This one works only with Oracle 8i release 3 or later
Specifying username and password:
"Data Source=MyOracleDB;User Id=username;Password=passwd;Integrated Security=no;"
This one works only with Oracle 8i release 3 or later
* Declare the OracleConnection:
C#:
using System.Data.OracleClient;
OracleConnection oOracleConn = new OracleConnection();
oOracleConn.ConnectionString = "my connection string";
oOracleConn.Open();
VB.NET:
Imports System.Data.OracleClient
Dim oOracleConn As OracleConnection = New OracleConnection()
OracleConn.ConnectionString = "my connection string"
oOracleConn.Open()
Missing the System.Data.OracleClient namespace? Download .NET Managed Provider for Oracle >>Great article! "Features of Oracle Data Provider for .NET" by Rama Mohan G. at C# Corner
* Core Labs OraDirect (.NET)
Standard:
"User ID=scott; Password=tiger; Host=ora; Pooling=true; Min Pool Size=0;Max Pool Size=100; Connection Lifetime=0"
Read more at Core Lab and the product page.
* Data Shape
MS Data Shape:
"Provider=MSDataShape.1;Persist Security Info=False;Data Provider=MSDAORA;Data Source=orac;user id=username;password=mypw"
5. MySQL
* MyODBC
MyODBC 2.50 Local database:
"Driver={mySQL};Server=localhost;
Option=16834;Database=mydatabase;"
MyODBC 2.50 Remote database:
"Driver={mySQL};Server=data.domain.com;
Port=3306;Option=131072;Stmt=;
Database=my-database;Uid=username;Pwd=password;"
MyODBC 3.51 Local database:
"DRIVER={MySQL ODBC 3.51 Driver};
SERVER=localhost;DATABASE=myDatabase;
USER=myUsername;
PASSWORD=myPassword;OPTION=3;"
MyODBC 3.51 Remote database:
"DRIVER={MySQL ODBC 3.51 Driver};
SERVER=data.domain.com;
PORT=3306;DATABASE=myDatabase; USER=myUsername;PASSWORD=myPassword;OPTION=3;"
* OLE DB, OleDbConnection (.NET)
Standard:
"Provider=MySQLProv;Data Source=mydb;
User Id=UserName;Password=asdasd;"
Connector/Net 1.0 (.NET)
Standard:
"Server=Server;Database=Test;Uid=UserName;Pwd=asdasd;"
Download the driver at MySQL Developer Zone.
Specifying port:
"Server=Server;Port=1234;Database=Test;
Uid=UserName;Pwd=asdasd;"
Default port is 3306. Enter value -1 to use a named pipe connection.
Declare the MySqlClient connection:
C#:
using MySql.Data.MySqlClient;
MySqlConnection oMySqlConn = new MySqlConnection();
oMySqlConn.ConnectionString = "Server=Server;Database=Test;Uid=UserName;Pwd=asdasd;";
oMySqlConn.Open();
VB.NET:
Imports MySql.Data.MySqlClient
Dim oMySqlConn As MySqlConnection = New MySqlConnection()
oMySqlConn.ConnectionString = "Server=Server;Database=Test;Uid=UserName;Pwd=asdasd;"
oMySqlConn.Open()
* MySqlConnection (.NET)
eInfoDesigns.dbProvider:
"Data Source=server;Database=mydb;User ID=username;Password=pwd;Command Logging=false"
This one is used with eInfoDesigns dbProvider, an add-on to .NET
Declare the MySqlConnection:
C#:
using eInfoDesigns.dbProvider.MySqlClient;
MySqlConnection oMySqlConn = new MySqlConnection();
oMySqlConn.ConnectionString = "my connection string";
oMySqlConn.Open();
VB.NET:
Imports eInfoDesigns.dbProvider.MySqlClient
Dim oMySqlConn As MySqlConnection = New MySqlConnection()
oMySqlConn.ConnectionString = "my connection string"
oMySqlConn.Open()
* SevenObjects MySqlClient (.NET)
Standard:
"Host=server; UserName=myusername; Password=mypassword;Database=mydb;"
This is a freeware ADO.Net data provider from SevenObjects
* Core Labs MySQLDirect (.NET)
Standard:
"User ID=root; Password=pwd; Host=localhost; Port=3306; Database=test;
Direct=true; Protocol=TCP; Compress=false; Pooling=true; Min Pool Size=0;
Max Pool Size=100; Connection Lifetime=0"
6.Interbase
* ODBC, Easysoft
Local computer:
"Driver={Easysoft IB6 ODBC};
Server=localhost;Database=localhost:C:\mydatabase.gdb;
Uid=username;Pwd=password"
Remote Computer:
"Driver={Easysoft IB6 ODBC};
Server=ComputerName;
Database=ComputerName:C:\mydatabase.gdb;
Uid=username;Pwd=password"
* ODBC, Intersolv
Local computer:
"Driver={INTERSOLV InterBase ODBC Driver (*.gdb)};Server=localhost;Database=localhost:C:\mydatabase.gdb;
Uid=username;Pwd=password"
Remote Computer:
"Driver={INTERSOLV InterBase ODBC Driver (*.gdb)};
Server=ComputerName;
Database=ComputerName:C:\mydatabase.gdb;
Uid=username;Pwd=password"
This driver are provided by DataDirect Technologies >> (formerly Intersolv)
* OLE DB, SIBPROvider
Standard:
"provider=sibprovider;location=localhost:;data source=c:\databases\gdbs\mygdb.gdb;user id=SYSDBA;password=masterkey"
Specifying character set:
"provider=sibprovider;location=localhost:;data source=c:\databases\gdbs\mygdb.gdb;user id=SYSDBA;password=masterkey;character set=ISO8859_1"
Specifying role:
"provider=sibprovider;location=localhost:;data source=c:\databases\gdbs\mygdb.gdb;user id=SYSDBA;password=masterkey;role=DIGITADORES"
7.IBM DB2
* OLE DB, OleDbConnection (.NET) from ms
TCP/IP:
"Provider=DB2OLEDB;Network Transport Library=TCPIP;Network Address=XXX.XXX.XXX.XXX;Initial Catalog=MyCtlg;Package Collection=MyPkgCol;Default Schema=Schema;
User ID=MyUser;Password=MyPW"
APPC:
"Provider=DB2OLEDB;APPC Local LU Alias=MyAlias;APPC Remote LU Alias=MyRemote;Initial Catalog=MyCtlg;Package Collection=MyPkgCol;Default Schema=Schema;
User ID=MyUser;Password=MyPW"
* IBM's OLE DB Provider (shipped with IBM DB2 UDB v7 or above)
TCP/IP:
Provider=IBMDADB2;Database=sample;HOSTNAME=db2host;
PROTOCOL=TCPIP;
PORT=50000;uid=myUserName;pwd=myPwd;
* ODBC
Standard:
"driver={IBM DB2 ODBC DRIVER};Database=myDbName;hostname=myServerName;
port=myPortNum;protocol=TCPIP;
uid=myUserName; pwd=myPwd"
8.Sybase
* ODBC
Standard Sybase System 12 Enterprise Open Client:
"Driver={SYBASE ASE ODBC Driver};Srvr=Aron1;Uid=username;Pwd=password"
Standard Sybase System 12.5 Enterprise Open Client:
"Driver={SYBASE ASE ODBC Driver};NA=HOSTNAME,PORT_NUMBER;
UID=username;PWD=password"
Standard Sybase System 11:
"Driver={SYBASE SYSTEM 11};Srvr=Aron1;Uid=username;Pwd=password;Database=mydb"
For more information check out the Adaptive Server Enterprise Document Sets
Intersolv 3.10:
"Driver={INTERSOLV 3.10 32-BIT Sybase};Srvr=Aron1;Uid=username;Pwd=password;"
Sybase SQL Anywhere (former Watcom SQL ODBC driver):
"ODBC; Driver=Sybase SQL Anywhere 5.0;
DefaultDir=c:\dbfolder\;Dbf=c:\mydatabase.db;
Uid=username;Pwd=password;Dsn="""""
Note! The two double quota ("") following the DSN parameter at
the end are escaped quotas (VB syntax),
you may have to change this to your
language specific escape syntax (\") or maybe single quota (').
The empty DSN parameter is indeed critical as not including it will result in error 7778.
OLE DB
Adaptive Server Anywhere (ASA):
"Provider=ASAProv;Data source=myASA"
Read more in the ASA User Guide (part 1, chapter 2) >>
Adaptive Server Enterprise (ASE) with Data Source .IDS file:
"Provider=Sybase ASE OLE DB Provider; Data source=myASE"
Note that you must create a Data Source .IDS file using
the Sybase Data Advministrator. These .IDS files resemble ODBC DSNs.
* Adaptive Server Enterprise (ASE):
"Provider=Sybase.ASEOLEDBProvider;Srvr=myASEserver,5000;
Catalog=myDBname;User Id=username;Password=password"
- some reports on problem using the above one, try the following as an alternative -
"Provider=Sybase.ASEOLEDBProvider;
Server Name=myASEserver,5000;Initial Catalog=myDBname;
User Id=username;Password=password"
This one works only from Open Client 12.5 where the server port number feature works,
allowing fully qualified connection strings to be used without
defining any .IDS Data Source files.
* AseConnection (.NET)
Standard:
"Data Source='myASEserver';Port=5000;Database='myDBname';
UID='username';PWD='password';"
Declare the AseConnection:
C#:
using Sybase.Data.AseClient;
AseConnection oCon = new AseConnection();
oCon.ConnectionString="my connection string";
oCon.Open();
VB.NET:
Imports System.Data.AseClientDim oCon As AseConnection = New AseConnection()oCon.ConnectionString="my connection string"oCon.Open()
9.Informix
* ODBC
Informix 3.30:
"Dsn='';Driver={INFORMIX 3.30 32 BIT};Host=hostname;
Server=myserver;Service=service-name;Protocol=olsoctcp;
Database=mydb;UID=username;PWD=myPwd
Informix-CLI 2.5:
"Driver={Informix-CLI 2.5 (32 Bit)};Server=myserver;
Database=mydb;Uid=username;Pwd=myPwd"
* OLE DB
IBM Informix OLE DB Provider:
"Provider=Ifxoledbc.2;password=myPw;User ID=myUser;Data Source=dbName@serverName;
Persist Security Info=true"
10. Ingres
* ODBC
DSN-less:
"Provider=MSDASQL.1;DRIVER=Ingres;SRVR=xxxxx;
DB=xxxxx;Persist Security Info=False;uid=xxxx;
pwd=xxxxx;SELECTLOOPS=N;
Extended Properties=""SERVER=xxxxx;
DATABASE=xxxxx;SERVERTYPE=INGRES"""
Important note! The two double quota ("") in the string are
escaped quotas (VB syntax), you may have to change this to your
language specific escape syntax (ex. \") or maybe single quota (').
11. Mimer SQL
* ODBC
Standard Security:
"Driver={MIMER};Database=mydb;Uid=myuser;Pwd=mypw;"
Prompt for username and password:
"Driver={MIMER};Database=mydb;"
12. Lightbase
* Standard
Standard:
"user=USERLOGIN;password=PASSWORD;UDB=USERBASE;
server=SERVERNAME"
13.PostgreSQL
* Core Labs PostgreSQLDirect (.NET)
Standard:
"User ID=root; Password=pwd; Host=localhost; Port=5432;
Database=testdb;Pooling=true;
Min Pool Size=0; Max Pool Size=100; Connection Lifetime=0"
Read more at Core Lab and the product page.
* PostgreSQL driver
Standard:
"DRIVER={PostgreSQL};SERVER=ipaddress;port=5432;
DATABASE=dbname;UID=username;PWD=password;"
* Npgsql by pgFoundry (.NET)
SSL activated:
"Server=127.0.0.1;Port=5432;Userid=myuserid;
password=mypw;Protocol=3;SSL=true;
Pooling=true;MinPoolSize=3;MaxPoolSize=20;
Encoding=UNICODE;Timeout=20;SslMode=Require"
Without SSL:
"Server=127.0.0.1;Port=5432;Userid=myuserid;
password=mypw;
Protocol=3;SSL=false;
Pooling=true;MinPoolSize=1;MaxPoolSize=20;
Encoding=UNICODE;Timeout=15;SslMode=Disable"
14. Paradox
* ODBC
5.X:
Driver={Microsoft Paradox Driver (*.db )};DriverID=538;Fil=Paradox 5.X;DefaultDir=c:\pathToDb\;Dbq=c:\pathToDb\;
CollatingSequence=ASCII"
7.X:
"Provider=MSDASQL.1;Persist Security Info=False;Mode=Read;Extended Properties='DSN=Paradox;DBQ=C:\myDb;
DefaultDir=C:\myDb;DriverId=538;FIL=Paradox 7.X;
MaxBufferSize=2048;PageTimeout=600;';Initial Catalog=C:\myDb"
* OleDbConnection (.NET)
Standard
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\myDb;
Extended Properties=Paradox 5.x;"
15. DSN
* ODBC
DSN:
"DSN=myDsn;Uid=username;Pwd=;"
File DSN:
"FILEDSN=c:\myData.dsn;Uid=username;Pwd=;"
16. Firebird
* ODBC - IBPhoenix Open Source
Standard:
"DRIVER=Firebird/InterBase(r) driver;UID=SYSDBA;
PWD=masterkey;
DBNAME=D:\FIREBIRD\examples\TEST.FDB"
IBPhoenix ODBC; More info, download etc >>
* .NET - Firebird .Net Data Provider
Standard:
"User=SYSDBA;Password=masterkey;
Database=SampleDatabase.fdb;
DataSource=localhost;
Port=3050;Dialect=3;Charset=NONE;Role=;
Connection lifetime=15;Pooling=true;MinPoolSize=0;
MaxPoolSize=50;Packet Size=8192;ServerType=0"
17. Excel
* ODBC
Standard:
"Driver={Microsoft Excel Driver (*.xls)};DriverId=790;
Dbq=C:\MyExcel.xls;DefaultDir=c:\mypath;"
TIP! SQL syntax: "SELECT * FROM [sheet1$]" - i.e. worksheet name followed by a "$"
and wrapped in "[" "]" brackets.
* OLE DB
Standard:
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyExcel.xls;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""
"HDR=Yes;" indicates that the first row contains columnnames, not data
"IMEX=1;" tells the driver to always read "intermixed"
data columns as text. Note that this option might affect excel sheet write access negative.
TIP! SQL syntax: "SELECT * FROM [sheet1$]" -
i.e. worksheet name followed by a "$" and wrapped in "[" "]" brackets.
TIP! Check out the [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Excel]
located registry REG_DWORD "TypeGuessRows". That's the key to n
ot letting Excel use only the first 8 rows to guess the columns data type.
Set this value to 0 to scan all rows. This might hurt performance.
Important note! The two double quota ("") in the string are escaped quotas (VB syntax),
you may have to change this to your language specific escape syntax (ex. \") or
maybe single quota (').
18. Text
* ODBC
Standard:
"Driver={Microsoft Text Driver (*.txt; *.csv)};
Dbq=c:\txtFilesFolder\;Extensions=asc,csv,tab,txt;"
* OLE DB
Standard:
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\txtFilesFolder\;Extended Properties=""text;HDR=Yes;FMT=Delimited"""
"HDR=Yes;" indicates that the first row contains columnnames, not data
Important note! The two double quota ("") in the string are escaped quotas (VB syntax),
you may have to change this to your language specific escape syntax (ex. \") or maybe single quota (').
19. DBF / FoxPro
* ODBC
standard:
"Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=c:\mydbpath;"
* OLE DB, OleDbConnection (.NET)
standard:
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\folder;
Extended Properties=dBASE IV;User ID=Admin;Password="
20. AS/400 (iSeries)
* OLE DB, OleDbConnection (.NET)
IBM Client Access OLE DB provider:
"PROVIDER=IBMDA400; DATA SOURCE=MY_SYSTEM_NAME;
USER ID=myUserName;PASSWORD=myPwd"
Where MY_SYSTEM_NAME is the name given to the system
connection in OperationsNavigator
IBM Client Access OLE DB provider:
"PROVIDER=IBMDA400; DATA SOURCE=MY_SYSTEM_NAME;USER ID=myUserName;PASSWORD=myPwd;DEFAULT COLLECTION=MY_LIBRARY;"
Where MY_SYSTEM_NAME is the name given to the System Connection,
and MY_LIBRARY is the name given to the library in iSeries Navigator.
* ODBC
IBM Client Access ODBC driver:
"Driver={Client Access ODBC Driver (32-bit)};System=my_system_name;
Uid=myUserName;Pwd=myPwd"
21. Exchange
* OLE DB
Exchange OLE DB provider:
"ExOLEDB.DataSource"
Specify store in the connection open command like this:
conn.open http://servername/mypublicstore
22. Visual FoxPro
* OLE DB, OleDbConnection (.NET)
Database container (.DBC):
"Provider=vfpoledb.1;Data Source=C:\MyDbFolder\MyDbContainer.dbc;
Collating Sequence=machine"
Free table directory:
"Provider=vfpoledb.1;Data Source=C:\MyDataDirectory\;Collating Sequence=general"
Force the provider to use an ODBC DSN:
"Provider=vfpoledb.1;DSN=MyDSN"
Read more (Microsoft msdn) >>
* ODBC
Database container (.DBC):
"Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;
SourceDB=c:\myvfpdb.dbc;Exclusive=No;
NULL=NO;
Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO"
Free Table directory:
"Driver={Microsoft Visual FoxPro Driver};
SourceType=DBF;SourceDB=c:\myvfpdbfolder;Exclusive=No;
Collate=Machine;
NULL=NO; DELETED=NO;BACKGROUNDFETCH=NO"
"Collate=Machine" is the default setting, for other settings check the
list of supported collating sequences >>
Microsoft Visual Foxpro site: http://msdn.microsoft.com/vfoxpro
23 Pervasive
* ODBC
Standard:
"Driver={Pervasive ODBC Client Interface};ServerName=srvname;dbq=@dbname"
Pervasive ODBC info >>
* OLE DB
Standard:
"Provider=PervasiveOLEDB;Data Source=C:\path"
24. UDL
* UDL
UDL:
"File Name=c:\myDataLink.udl;"
Membuat Pop Up Menu dengan Visual Basic 6.0
Langkah – langkah pembuatan Pop Up menu adalah :
Sebelumnya buka aplikasi visual basic 6.0 buat satu project dengan sebuah form standar, Letakkan sebuah label, button dan sebuah line, atur tampilan seperti gambar berikut :
ubah properti caption label1 sesuai keinginan anda (dalam contoh diatas caption diisi dengan “Test Fungsi Pop Up Menu”), selanjutnya buka menu editor, terdapat dua cara untuk membuka menu editor, pertama klik menu Tools (Alt + T) pilih menu editor
cara kedua adalah klik kanan pada obyek form lalu pilih menu editor
pada menu editor buatlah struktur menu seperti berikut
Perhatikan letak menu pada menu editor,
masuk jendela kode ketikan listing program berikut :
Private Sub Command1_Click()
End ‘ mengakhiri program
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
PopupMenu mnufonts 'memanggil menu menjadi pop up menu
End If
End Sub
Private Sub mnu8_Click()
Label1.FontSize = 8 '
End Sub
Private Sub mnu18_Click()
Label1.FontSize = 18
End Sub
Private Sub mnu26_Click()
Label1.FontSize = 28
End Sub
Private Sub mnumerah_Click()
Label1.ForeColor = &HFF& ' warna merah
End Sub
Private Sub mnu14_Click()
Label1.Font = 14
End Sub
Private Sub mnuhijau_Click()
Label1.ForeColor = &H8000& ' warna hijau
End Sub
Private Sub mnubiru_Click()
Label1.ForeColor = &HFF0000 'warna biru
End Sub
Private Sub mnutahoma_Click()
Label1.FontName = "tahoma"
End Sub
Private Sub mnustop_Click()
Label1.FontName = "Stop"
End Sub
jalankan program, klik kanan pada form,Pop Up Menu anda akan tampil seperti berikut
Perhatian : Pop Up Menu hanya muncul jika kita lakukan event klik kanan pada
form, Pop Up Menu tidak akan muncul ketika kita mengklik kanan
obyek lain seperti label,button dan lainya.
Selamat Mencoba !!!
Sebelumnya buka aplikasi visual basic 6.0 buat satu project dengan sebuah form standar, Letakkan sebuah label, button dan sebuah line, atur tampilan seperti gambar berikut :
ubah properti caption label1 sesuai keinginan anda (dalam contoh diatas caption diisi dengan “Test Fungsi Pop Up Menu”), selanjutnya buka menu editor, terdapat dua cara untuk membuka menu editor, pertama klik menu Tools (Alt + T) pilih menu editor
cara kedua adalah klik kanan pada obyek form lalu pilih menu editor
pada menu editor buatlah struktur menu seperti berikut
Perhatikan letak menu pada menu editor,
masuk jendela kode ketikan listing program berikut :
Private Sub Command1_Click()
End ‘ mengakhiri program
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
PopupMenu mnufonts 'memanggil menu menjadi pop up menu
End If
End Sub
Private Sub mnu8_Click()
Label1.FontSize = 8 '
End Sub
Private Sub mnu18_Click()
Label1.FontSize = 18
End Sub
Private Sub mnu26_Click()
Label1.FontSize = 28
End Sub
Private Sub mnumerah_Click()
Label1.ForeColor = &HFF& ' warna merah
End Sub
Private Sub mnu14_Click()
Label1.Font = 14
End Sub
Private Sub mnuhijau_Click()
Label1.ForeColor = &H8000& ' warna hijau
End Sub
Private Sub mnubiru_Click()
Label1.ForeColor = &HFF0000 'warna biru
End Sub
Private Sub mnutahoma_Click()
Label1.FontName = "tahoma"
End Sub
Private Sub mnustop_Click()
Label1.FontName = "Stop"
End Sub
jalankan program, klik kanan pada form,Pop Up Menu anda akan tampil seperti berikut
Perhatian : Pop Up Menu hanya muncul jika kita lakukan event klik kanan pada
form, Pop Up Menu tidak akan muncul ketika kita mengklik kanan
obyek lain seperti label,button dan lainya.
Selamat Mencoba !!!
Mencari Character Tertentu Dalam Textbox
Required Knowledge / Skill:
-Mengerti dasar-dasar pemrograman VB6
-Mampu menempatkan component pada form
-Mengetahui penggunaan properties component object
-Mampu melakukan coding
seperti biasa, buatlah project baru, Standart EXE seperti Gbr. 01 di samping.
Tempatkan beberapa component object kedalam Form1 seperti pada Gbr. 02 disamping
Klik 2 kali pada Command1, dan ketikkan baris code seperti dibawah ini. Malas ah…. copy paste aja !, silakan…. Sah-sah saja… he4x
Hasilnya akan seperti yang tampak pada Gbr. 03
Dim jmlText, jmlChar, i As Integer
jmlChar = 0 ' nol kan variabel JmlChar supaya hasil perhitungan valid
jmlText = Len(Text2.Text) 'Menghitung jumlah karakter didalam Text2 dan
'dan isikan hasilnya ke variabel JmlText
For i = 0 To jmlText 'Melakukan proses perulangan sebanyak jumlah character dalam text2
Text2.SetFocus
Text2.SelStart = i
Text2.SelLength = 1
If Text2.SelText = Text1.Text Then 'Bandingkan Text2 dengan karakter yang
‘dicari dari Text1
jmlChar = jmlChar + 1 'Lakukan penambahan saat ditemukan karakter yang sesuai
End If
Next
Label3.Caption = "You have " & jmlChar & " Character " & Text1.Text
Command1.SetFocus 'Mengembalikan posisi focus ke Command1
Ubah properties pada masing-masing component seperti pada Gbr. 04
Jalankan program dengan menekan F5, dan klik cari maka akan muncul seperti pada
Gbr. 05
-Mengerti dasar-dasar pemrograman VB6
-Mampu menempatkan component pada form
-Mengetahui penggunaan properties component object
-Mampu melakukan coding
seperti biasa, buatlah project baru, Standart EXE seperti Gbr. 01 di samping.
Klik 2 kali pada Command1, dan ketikkan baris code seperti dibawah ini. Malas ah…. copy paste aja !, silakan…. Sah-sah saja… he4x
Hasilnya akan seperti yang tampak pada Gbr. 03
Dim jmlText, jmlChar, i As Integer
jmlChar = 0 ' nol kan variabel JmlChar supaya hasil perhitungan valid
jmlText = Len(Text2.Text) 'Menghitung jumlah karakter didalam Text2 dan
'dan isikan hasilnya ke variabel JmlText
For i = 0 To jmlText 'Melakukan proses perulangan sebanyak jumlah character dalam text2
Text2.SetFocus
Text2.SelStart = i
Text2.SelLength = 1
If Text2.SelText = Text1.Text Then 'Bandingkan Text2 dengan karakter yang
‘dicari dari Text1
jmlChar = jmlChar + 1 'Lakukan penambahan saat ditemukan karakter yang sesuai
End If
Next
Label3.Caption = "You have " & jmlChar & " Character " & Text1.Text
Command1.SetFocus 'Mengembalikan posisi focus ke Command1
Ubah properties pada masing-masing component seperti pada Gbr. 04
Jalankan program dengan menekan F5, dan klik cari maka akan muncul seperti pada
Gbr. 05
Aplikasi SMS dengan VB & Mobile FBUS 1.5 ActiveX Control
Mungkin banyak orang yang beranggapan bahwa untuk membuat suatu aplikasi SMS itu dibutuhkan software & hardware yang rumit dan mahal. Padahal kita dapat membuatnya dengan relatif mudah & biaya yang terjangkau. Untuk membuat aplikasi SMS yang sederhana kita “hanya” membutuhkan Ponsel NOKIA 6110 atau 5110, kabel data 5 in 1, komputer yang memiliki port COM dan dilengkapi Visual Basic 6, Mobile FBUS 1.5 ActiveX Control dan VB runtimes SP5. Mobile FBUS 1.5 ActiveX adalah Freeware ActiveX Control yang digunakan untuk membuataplikasi yang berhubungan dengan Ponsel. Contoh aplikasi yang dapat dibuat adalah pengirim & penerima SMS, memanipulasi logo operator, mengakses Phonebook dan lain-lain. Mobile FBUS 1.5 ActiveX dapat digunakan pada Ponsel GSM NOKIA yaitu NOKIA 51xx / 61xx dan 3210.
MEMPERSIAPKAN PERANGKAT
Langkah-langkah untuk melakukan persiapan perangkat adalah sebagai berikut:
1.Lakukanlah proses install untuk VB runtimes SP5.
2.Lakukanlah proses extract untuk file mfbus15.zip. Kemudian dari file hasil extract, copykan file gjfbus15.dll, mfbus15.ocx, mfbus15.oca ke directory windows\system32.
3.Lakukanlah proses registrasi untuk Mobile FBUS 1.5 ActiveX Control dengan cara menjalankan perintah regsvr32 mfbus15.ocx pada command prompt.
4.Hubungkan Ponsel NOKIA 6110 atau 5110 ke port COM di komputer menggunakan kabel data yang tersedia. Kemudian aktifkan ponsel tersebut.
PROGRAM UNTUK MENGKONEKSIKAN ANTARA PONSEL DENGAN KOMPUTER
Ikutilah langkah-langkah berikut untuk mengkoneksikan antara ponsel dengan komputer:
1.Jalankan Visual Basic 6.
2.Click menu Project → Components, kemudian berilah tanda √ pada component mobileFBUS control v1.5 dan tekanlah button “OK”. Maka pada daftar components akan muncul suatu component dengan icon
3.Kemudian pada form tambahkan component MFBUS15Control, CommandButton sebanyak 2 buah dan Label. Rubahlah properties untuk bagian caption dari component CommandButton & Label sehingga tampilan form menjadi mirip seperti gambar dibawah ini.
4.Click dua kali pada CommandButton yang mempunyai caption “Connect”, kemudian ketikkan listing program berikut :
Private Sub Command1_Click()
'Untuk mengkoneksikan antara Ponsel dengan Komputer. Nilai "COM1" dapat
'berubah-ubah sesuai dengan nomor COM yang digunakan
MFBUS15Control1.Connect "COM1"
'Untuk menampilkan kekuatan signal yang mampu ditangkap oleh Ponsel
Label1.Caption = "Signal : " & MFBUS15Control1.RfLevel
'Untuk melakukan cek, apakah koneksi berhasil atau gagal
If MFBUS15Control1.Connected = True Then
MsgBox "KONEKSI BERHASIL :-)"
Else
MsgBox "KONEKSI GAGAL :-("
End If
End Sub
5.Click dua kali pada CommandButton yang mempunyai caption “Disconnect”, kemudian ketikkan listing program berikut :
Private Sub Command2_Click()
'Koneksi antara Ponsel dengan Komputer dapat dilepaskan dengan perintah
ini
MFBUS15Control1.Disconnect
'Untuk menyembunyikan tampilan nilai signal
Label1.Caption = "Signal : "
End Sub
6.Jalankan program, kemudian click CommandButton Connect maka program akan memberitahu apakah koneksi berhasil atau gagal. Untuk melepaskan koneksi lakukanlah click pada CommandButton Disconnect.
PROGRAM UNTUK MENGIRIM SMS
Ikutilah langkah-langkah berikut untuk membuat program yang dapat mengirimkan sebuah SMS:
1. Dari form yang telah kita buat sebelumnya, tambahkan sebuah CommandButton dan rubahlah captionnya menjadi “Kirim SMS”. Lalu aturlah letak component-componentnya sehingga tampilannya menjadi seperti gambar dibawah ini.
2.Click dua kali pada CommandButton yang mempunyai caption “Kirim SMS”, kemudian ketikkan listing program berikut :
Private Sub Command3_Click()
'Variabel A adalah variabel yang akan menampung nilai hasil proses
pengiriman SMS
'A akan bernilai TRUE jika pengiriman berhasil dan FALSE jika
pengiriman gagal
'Proses pengiriman SMS ini akan mengembalikan suatu nilai yang bertype
BOOLEAN
'Nomor tujuan untuk pengiriman SMS saat ini adalah ABCDEFGHIJKL. Nomor
ini dapat
'diganti sesuai dengan kebutuhan
'Begitu pula dengan pesan SMS yang dikirimkan dapat diganti sesuai
dengan kebutuhan
A = MFBUS15Control1.SMS.SendMessage("ABCDEFGHIJKL ", "Hallo, ini hanya
test")
'Untuk melakukan cek, apakah pengiriman SMS berhasil atau gagal
If A = True Then
MsgBox "Pengiriman SMS berhasil"
Else
MsgBox "Pengiriman SMS gagal"
End If
End Sub
3.Jalankan program, kemudian click CommandButton Connect sehingga koneksi berhasil. Setelah koneksi berhasil, klik CommandButton Kirim SMS maka program akan memberitahu apakah pengiriman SMS berhasil atau gagal.
PROGRAM UNTUK MENGAMBIL SMS YANG TERDAPAT PADA INBOX
SMS yang dikirim oleh orang lain dan diterima oleh Ponsel kita maka akan disimpan pada Folder
Inbox. Untuk mengambil SMS yang tersimpan pada Folder Inbox tersebut ikutilah langkah-langkah
berikut ini :
1. Dari form yang telah kita buat sebelumnya, tambahkan sebuah CommandButton dan rubahlah captionnya menjadi “Lihat Inbox”. Lalu aturlah letak component-componentnya sehingga tampilannya menjadi seperti gambar dibawah ini.
2.Click dua kali pada CommandButton yang mempunyai caption “Lihat Inbox”, kemudian ketikkan listing program berikut :
Private Sub Command4_Click()
'Refresh perlu dilakukan setiap kali akan melihat INBOX atau OUTBOX
MFBUS15Control1.SMS.Refresh
MsgBox "Jumlah SMS di Inbox : " & MFBUS15Control1.SMS.Inbox.Count
'No pengirim disimpan pada variabel Pengirim
'Angka 1 menunjukan no urut SMS atau letak SMS yang akan ditampilkan.
'Angka tersebut dapat diganti sesuai dengan kebutuhan
Pengirim = MFBUS15Control1.SMS.Inbox(1).Sender
'Isi SMS disimpan pada variabel text
Text = MFBUS15Control1.SMS.Inbox(1).Text
'No Pengirim & Isi SMS ditampilkan bersama-sama pada Message Box
MsgBox Pengirim & ";" & Text
End Sub
3.Jalankan program, kemudian click CommandButton Connect sehingga koneksi berhasil. Setelah koneksi berhasil, klik CommandButton Lihat Inbox maka program akan menampilkan message box yang berisi no pengirim dan isi SMS.
MEMPERSIAPKAN PERANGKAT
Langkah-langkah untuk melakukan persiapan perangkat adalah sebagai berikut:
1.Lakukanlah proses install untuk VB runtimes SP5.
2.Lakukanlah proses extract untuk file mfbus15.zip. Kemudian dari file hasil extract, copykan file gjfbus15.dll, mfbus15.ocx, mfbus15.oca ke directory windows\system32.
3.Lakukanlah proses registrasi untuk Mobile FBUS 1.5 ActiveX Control dengan cara menjalankan perintah regsvr32 mfbus15.ocx pada command prompt.
4.Hubungkan Ponsel NOKIA 6110 atau 5110 ke port COM di komputer menggunakan kabel data yang tersedia. Kemudian aktifkan ponsel tersebut.
PROGRAM UNTUK MENGKONEKSIKAN ANTARA PONSEL DENGAN KOMPUTER
Ikutilah langkah-langkah berikut untuk mengkoneksikan antara ponsel dengan komputer:
1.Jalankan Visual Basic 6.
2.Click menu Project → Components, kemudian berilah tanda √ pada component mobileFBUS control v1.5 dan tekanlah button “OK”. Maka pada daftar components akan muncul suatu component dengan icon
3.Kemudian pada form tambahkan component MFBUS15Control, CommandButton sebanyak 2 buah dan Label. Rubahlah properties untuk bagian caption dari component CommandButton & Label sehingga tampilan form menjadi mirip seperti gambar dibawah ini.
4.Click dua kali pada CommandButton yang mempunyai caption “Connect”, kemudian ketikkan listing program berikut :
Private Sub Command1_Click()
'Untuk mengkoneksikan antara Ponsel dengan Komputer. Nilai "COM1" dapat
'berubah-ubah sesuai dengan nomor COM yang digunakan
MFBUS15Control1.Connect "COM1"
'Untuk menampilkan kekuatan signal yang mampu ditangkap oleh Ponsel
Label1.Caption = "Signal : " & MFBUS15Control1.RfLevel
'Untuk melakukan cek, apakah koneksi berhasil atau gagal
If MFBUS15Control1.Connected = True Then
MsgBox "KONEKSI BERHASIL :-)"
Else
MsgBox "KONEKSI GAGAL :-("
End If
End Sub
5.Click dua kali pada CommandButton yang mempunyai caption “Disconnect”, kemudian ketikkan listing program berikut :
Private Sub Command2_Click()
'Koneksi antara Ponsel dengan Komputer dapat dilepaskan dengan perintah
ini
MFBUS15Control1.Disconnect
'Untuk menyembunyikan tampilan nilai signal
Label1.Caption = "Signal : "
End Sub
6.Jalankan program, kemudian click CommandButton Connect maka program akan memberitahu apakah koneksi berhasil atau gagal. Untuk melepaskan koneksi lakukanlah click pada CommandButton Disconnect.
PROGRAM UNTUK MENGIRIM SMS
Ikutilah langkah-langkah berikut untuk membuat program yang dapat mengirimkan sebuah SMS:
1. Dari form yang telah kita buat sebelumnya, tambahkan sebuah CommandButton dan rubahlah captionnya menjadi “Kirim SMS”. Lalu aturlah letak component-componentnya sehingga tampilannya menjadi seperti gambar dibawah ini.
2.Click dua kali pada CommandButton yang mempunyai caption “Kirim SMS”, kemudian ketikkan listing program berikut :
Private Sub Command3_Click()
'Variabel A adalah variabel yang akan menampung nilai hasil proses
pengiriman SMS
'A akan bernilai TRUE jika pengiriman berhasil dan FALSE jika
pengiriman gagal
'Proses pengiriman SMS ini akan mengembalikan suatu nilai yang bertype
BOOLEAN
'Nomor tujuan untuk pengiriman SMS saat ini adalah ABCDEFGHIJKL. Nomor
ini dapat
'diganti sesuai dengan kebutuhan
'Begitu pula dengan pesan SMS yang dikirimkan dapat diganti sesuai
dengan kebutuhan
A = MFBUS15Control1.SMS.SendMessage("ABCDEFGHIJKL ", "Hallo, ini hanya
test")
'Untuk melakukan cek, apakah pengiriman SMS berhasil atau gagal
If A = True Then
MsgBox "Pengiriman SMS berhasil"
Else
MsgBox "Pengiriman SMS gagal"
End If
End Sub
3.Jalankan program, kemudian click CommandButton Connect sehingga koneksi berhasil. Setelah koneksi berhasil, klik CommandButton Kirim SMS maka program akan memberitahu apakah pengiriman SMS berhasil atau gagal.
PROGRAM UNTUK MENGAMBIL SMS YANG TERDAPAT PADA INBOX
SMS yang dikirim oleh orang lain dan diterima oleh Ponsel kita maka akan disimpan pada Folder
Inbox. Untuk mengambil SMS yang tersimpan pada Folder Inbox tersebut ikutilah langkah-langkah
berikut ini :
1. Dari form yang telah kita buat sebelumnya, tambahkan sebuah CommandButton dan rubahlah captionnya menjadi “Lihat Inbox”. Lalu aturlah letak component-componentnya sehingga tampilannya menjadi seperti gambar dibawah ini.
2.Click dua kali pada CommandButton yang mempunyai caption “Lihat Inbox”, kemudian ketikkan listing program berikut :
Private Sub Command4_Click()
'Refresh perlu dilakukan setiap kali akan melihat INBOX atau OUTBOX
MFBUS15Control1.SMS.Refresh
MsgBox "Jumlah SMS di Inbox : " & MFBUS15Control1.SMS.Inbox.Count
'No pengirim disimpan pada variabel Pengirim
'Angka 1 menunjukan no urut SMS atau letak SMS yang akan ditampilkan.
'Angka tersebut dapat diganti sesuai dengan kebutuhan
Pengirim = MFBUS15Control1.SMS.Inbox(1).Sender
'Isi SMS disimpan pada variabel text
Text = MFBUS15Control1.SMS.Inbox(1).Text
'No Pengirim & Isi SMS ditampilkan bersama-sama pada Message Box
MsgBox Pengirim & ";" & Text
End Sub
3.Jalankan program, kemudian click CommandButton Connect sehingga koneksi berhasil. Setelah koneksi berhasil, klik CommandButton Lihat Inbox maka program akan menampilkan message box yang berisi no pengirim dan isi SMS.
Marquee Form Caption
Ini ada sebuah tip menarik untuk mempercantik tampilan aplikasi yang kita buat. Dimana caption dari form yang kita gunakan akan berjalan dari kanan kekiri secara terus menerus.
Jika anda berfikir kode yang digunakan akan ribet dan banyak, maka tidak demikian, kode yang digunakan sangat sederhana karena hanya melibatkan beberapa fungsi dasar saja diantaranya fungsi Left yang digunakian untuk mendapatkan karakter dari sebelah kiri, lau ada fungsi Right yang berfungsi untuk mencari karakter yang dimulai dari sebelah kanan serta fungsi Len yang dipakai untuk mendapatkan panjang karakter.
Kontrol yang digunakan juga menggunakan kontrol standar dari visual basic 6.0 yaitu satu buah kontrol timer yang intervalnya kita set menjadi 100 atau bisa kita ganti sesuai keinginan kita.
Kalo mau mencoba silahkan ketikkan kode berikut:
Private Sub Form_Load()
Form1.Caption = " [ Belajar VB 6.0 ] "
End Sub
Private Sub Timer1_Timer()
a = Left(Form1.Caption, 1)
b = Len(Form1.Caption)
c = Right(Form1.Caption, b - 1)
Form1.Caption = c + a
End Sub
Jika anda berfikir kode yang digunakan akan ribet dan banyak, maka tidak demikian, kode yang digunakan sangat sederhana karena hanya melibatkan beberapa fungsi dasar saja diantaranya fungsi Left yang digunakian untuk mendapatkan karakter dari sebelah kiri, lau ada fungsi Right yang berfungsi untuk mencari karakter yang dimulai dari sebelah kanan serta fungsi Len yang dipakai untuk mendapatkan panjang karakter.
Kontrol yang digunakan juga menggunakan kontrol standar dari visual basic 6.0 yaitu satu buah kontrol timer yang intervalnya kita set menjadi 100 atau bisa kita ganti sesuai keinginan kita.
Kalo mau mencoba silahkan ketikkan kode berikut:
Private Sub Form_Load()
Form1.Caption = " [ Belajar VB 6.0 ] "
End Sub
Private Sub Timer1_Timer()
a = Left(Form1.Caption, 1)
b = Len(Form1.Caption)
c = Right(Form1.Caption, b - 1)
Form1.Caption = c + a
End Sub
Mengenal ListView dalam Visual Basic
ListView dalam Visual Basic biasanya digunakan untuk menampilkan data, baik dari
database maupun bukan, ke dalam tabel dalam bentuk list atau grid. Dengan
listview, data yang ada dapat diurutkan, ditambahkan maupun dihapus dengan
mudah dari list.
Menambahkan ListView
Untuk menambahkan listview ke dalam form (project), carilah icon pada toolbox.
Jika icon tersebut belum ada di toolbox, maka Anda harus menambahkan /
mengaktifkan komponen Microsoft Common Controls. Klik kanan pada toolbox dan
pilih sub menu Components… Lihat gambar berikut ini :
Mengatur Header ListView
Untuk mengatur header listview, perhatikan contoh berikut ini :
.. .. ..
Dim ch As ColumnHeader
Set ch = ListView1.ColumnHeaders.Add(, , "No.", 600)
Set ch = ListView1.ColumnHeaders.Add(, , "Kode", 900, vbCenter)
Set ch = ListView1.ColumnHeaders.Add(, , "Nama Barang", 2300,
vbLeftJustify)
Set ch = ListView1.ColumnHeaders.Add(, , "Byk", 900, vbCenter)
Set ch = ListView1.ColumnHeaders.Add(, , "Harga Satuan", 1500,
vbRightJustify)
Set ch = ListView1.ColumnHeaders.Add(, , "Jumlah", 1580,
vbRightJustify)
ListView1.GridLines = True
.. .. ..
Program di atas akan mengatur header listview menjadi 7 kolom, yaitu kolom No,
Kode, Nama Barang, Byk, Harga Satuan dan Jumlah. Anda juga dapat mengatur
perataan dan lebar masing-masing kolom. Tampilan listview yang dihasilkan dari
program di atas kurang lebih sebagai berikut :
Menambahkan Record (Item) ke dalam ListView
Untuk menambahkan Record (Item) ke dalam listview, perhatikan contoh sebagai
berikut :
Dim lv As ListItem
Set lv = lsttampil.ListItems.Add(, , 1)
lv.SubItems(1) = "B001"
lv.SubItems(2) = "Buku Tulis"
lv.SubItems(3) = "30"
lv.SubItems(4) = "2100"
lv.SubItems(5) = "63000"
.. .. ..
Program di atas akan menambahkan sebuah record (item) baru ke dalam listview.
database maupun bukan, ke dalam tabel dalam bentuk list atau grid. Dengan
listview, data yang ada dapat diurutkan, ditambahkan maupun dihapus dengan
mudah dari list.
Menambahkan ListView
Untuk menambahkan listview ke dalam form (project), carilah icon pada toolbox.
Jika icon tersebut belum ada di toolbox, maka Anda harus menambahkan /
mengaktifkan komponen Microsoft Common Controls. Klik kanan pada toolbox dan
pilih sub menu Components… Lihat gambar berikut ini :
Mengatur Header ListView
Untuk mengatur header listview, perhatikan contoh berikut ini :
.. .. ..
Dim ch As ColumnHeader
Set ch = ListView1.ColumnHeaders.Add(, , "No.", 600)
Set ch = ListView1.ColumnHeaders.Add(, , "Kode", 900, vbCenter)
Set ch = ListView1.ColumnHeaders.Add(, , "Nama Barang", 2300,
vbLeftJustify)
Set ch = ListView1.ColumnHeaders.Add(, , "Byk", 900, vbCenter)
Set ch = ListView1.ColumnHeaders.Add(, , "Harga Satuan", 1500,
vbRightJustify)
Set ch = ListView1.ColumnHeaders.Add(, , "Jumlah", 1580,
vbRightJustify)
ListView1.GridLines = True
.. .. ..
Program di atas akan mengatur header listview menjadi 7 kolom, yaitu kolom No,
Kode, Nama Barang, Byk, Harga Satuan dan Jumlah. Anda juga dapat mengatur
perataan dan lebar masing-masing kolom. Tampilan listview yang dihasilkan dari
program di atas kurang lebih sebagai berikut :
Menambahkan Record (Item) ke dalam ListView
Untuk menambahkan Record (Item) ke dalam listview, perhatikan contoh sebagai
berikut :
Dim lv As ListItem
Set lv = lsttampil.ListItems.Add(, , 1)
lv.SubItems(1) = "B001"
lv.SubItems(2) = "Buku Tulis"
lv.SubItems(3) = "30"
lv.SubItems(4) = "2100"
lv.SubItems(5) = "63000"
.. .. ..
Program di atas akan menambahkan sebuah record (item) baru ke dalam listview.
Belajar Pemrograman dengan Visual Basic 6.0
Apa itu Microsoft Visual Basic 6.0 ?
Microsoft Visual Basic 6.0 (VB) merupakan salah satu bahasa pemrograman yang handal untuk membuat suatu aplikasi dalam Microsoft Windows yang berbasis grafis (Graphical User Interface – GUI). Dengan metode Graphical User Interface (GUI), VB memudahkan pemrogram untuk berinteraksi langsung dengan elemen-elemen untuk setiap bentuk pemrograman.
Sebagai pemrograman berbasis Windows, VB mempunyai kemampuan untuk berinteraksi dengan seluruh aplikasi Windows, seperti Microsoft Word, Microsoft Excel dan Microsoft Acces. Dengan kemampuan yang hampir tidak terbatas, VB dapat digunakan untuk semua aplikasi pemrograman, seperti game, multimedia, program perhitungan, bahkan untuk membuat aplikasi program yang mirip Word dan Excel (Pamungkas, 2003)
VB merupakan program yang mendukung pengolahan data yang akurat karena dilengkapi dengan fasilitas pengolahan database (Andi dan Madcom, 2003). Dalam pengembangan aplikasi, VB menggunakan pendekatan Visual untuk merancang user-interface dalam bentuk form, sedangkan untuk kodingnya menggunakan dialek bahasa basic.
Dalam VB, pembuatan sebuah program aplikasi harus dikerjakan dalam sebuah proyek. Proyek tersebut berisi kumpulan file-file yang digunakan untuk membuat aplikasi. Sedangkan untuk membuat sebuah program aplikasi, terlebih dahulu dibuat form, baru kemudian membuat file dan modul lain. Setelah semua komponen dipadukan dan kode telah ditulis, langkah selanjutnya adalah membuat proyek menjadi file yang bisa dieksekusi (Pamungkas, 2003).
Di antara fasilitasnya ialah ADO (ActiveX Data Object) dan DHTML (Dynamic Hypertex MarkUp Language). Pembahasan dalam Modul ini akan dititik beratkan pd pembahasan pemrograman database menggunakan ADO.
Mengenal Tampilan Kerja (Intergrated Development Environtment/IDE) VB 6
IDE akan memberikan semua yang dibutuhkan programer untuk membuat aplikasi yang besar dengan dilengkapi dengan fasilitas yang sangat lengkap.
Microsoft Visual Basic 6.0 (VB) merupakan salah satu bahasa pemrograman yang handal untuk membuat suatu aplikasi dalam Microsoft Windows yang berbasis grafis (Graphical User Interface – GUI). Dengan metode Graphical User Interface (GUI), VB memudahkan pemrogram untuk berinteraksi langsung dengan elemen-elemen untuk setiap bentuk pemrograman.
Sebagai pemrograman berbasis Windows, VB mempunyai kemampuan untuk berinteraksi dengan seluruh aplikasi Windows, seperti Microsoft Word, Microsoft Excel dan Microsoft Acces. Dengan kemampuan yang hampir tidak terbatas, VB dapat digunakan untuk semua aplikasi pemrograman, seperti game, multimedia, program perhitungan, bahkan untuk membuat aplikasi program yang mirip Word dan Excel (Pamungkas, 2003)
VB merupakan program yang mendukung pengolahan data yang akurat karena dilengkapi dengan fasilitas pengolahan database (Andi dan Madcom, 2003). Dalam pengembangan aplikasi, VB menggunakan pendekatan Visual untuk merancang user-interface dalam bentuk form, sedangkan untuk kodingnya menggunakan dialek bahasa basic.
Dalam VB, pembuatan sebuah program aplikasi harus dikerjakan dalam sebuah proyek. Proyek tersebut berisi kumpulan file-file yang digunakan untuk membuat aplikasi. Sedangkan untuk membuat sebuah program aplikasi, terlebih dahulu dibuat form, baru kemudian membuat file dan modul lain. Setelah semua komponen dipadukan dan kode telah ditulis, langkah selanjutnya adalah membuat proyek menjadi file yang bisa dieksekusi (Pamungkas, 2003).
Di antara fasilitasnya ialah ADO (ActiveX Data Object) dan DHTML (Dynamic Hypertex MarkUp Language). Pembahasan dalam Modul ini akan dititik beratkan pd pembahasan pemrograman database menggunakan ADO.
Mengenal Tampilan Kerja (Intergrated Development Environtment/IDE) VB 6
IDE akan memberikan semua yang dibutuhkan programer untuk membuat aplikasi yang besar dengan dilengkapi dengan fasilitas yang sangat lengkap.
Langganan:
Postingan (Atom)