free vb application and tutorials

Clear Recent File(s)

noreply@blogger.com (adi_vb) — Sat, 03 Oct 2009 07:51:00 +0000

Oke, dengan vb kita bisa membersihkan daftar file-file yang kita buka. Karena windows secara default menyimpan daftar file tsb. kalo kita klik start>Documents, maka akan tampil semua file yang udah kita buka.

kalo mau delete...ngapain cape-cape, nih kode vb-nya...

Private Declare Sub SHAddToRecentDocs Lib "shell32.dll" _
(ByVal uFlags As Long, ByVal PV As String)

Private Sub Command1_Click()
   ClearDocumentsMenu
   MsgBox "Sudah ter-hapus"
   End
End Sub

Public Function ClearDocumentsMenu() As Boolean
   'Returns true if successful, false otherwise
   SHAddToRecentDocs 2, vbNullString
   ClearDocumentsMenu = Err.LastDllError = 0
End Function

Selamat mencoba!

Report tanpa Data Environment

noreply@blogger.com (adi_vb) — Sat, 01 Aug 2009 06:00:00 +0000

Ya, kita tetap bisa membuat report dengan data report tetapi tanpa data environmnet.
hal ini sangat dimungkinkan sekali, karena vb menyediakan objek data control untuk menghubungkan data report dengan database; yaitu adodc salah satunya.

oke, caranya gmn?
1. buat/desain report dengan data report
2. buat koneksi adodc-nya
3. hubungkan data report dengan adodc, yaitu..
- isi properties text pada data report dengan nama_field pada database
4. buat kodenya: letakkan di command atau objek lainnya.
set datareport1.datasource=adodc1
datareport1.show
5. oke deh selesai!

selamat mencoba!

SQL Statement #2

noreply@blogger.com (adi_vb) — Mon, 12 Jan 2009 04:18:00 +0000

Oke, lets try another SQL Statement.
i was publis little SQL Statement before...
click here if you want to see..

In this tutorial, we will include SQL statement to VB Program.
Actually, we can use any database manipulation by regular

expression or arithmatic expression, but with this way, it tooks
many code and not efficienct.

So, SQL statement simplify our way.

Suppose we have this table:
table name: member
-----------------------------
code name city age
-----------------------------
001 john depok 17
002 erica bogor 20
003 sony jakarta 18
004 wawan depok 16
005 jojo depok 25
-----------------------------

oke, case study:
1. if we to add data...
sql="insert into member values('006','dewi','bogor','18')"
means: add record, code=06, name=dewi, city=bogor, age=18

2. if we want to update data...
sql="update member set name='eric' where code='002'"
means: change erica name into eric

3. if we want to delete data...
sql="delete from member where code='005'"
means: delete the recorde that its code=005

oke, i assume we use adodc1 to connect the database, so how to
embeded SQL statement?
here is the code:

sql="..." [look at each case study above]
adodc1.recordsource=sql
adodc1.refresh

oke, that SQL statement @ glance we'll continue later...

Movie Player by vb

noreply@blogger.com (adi_vb) — Fri, 14 Nov 2008 06:59:00 +0000

yes, with vb, we can create a movie player.
here, i create a movie player. we can change movie number.
it will play from the first movie and then go to next movie until the end.
click here to download full code and application.
have a nice day!

Make 'blinking' label or any object with vb

noreply@blogger.com (adi_vb) — Wed, 05 Nov 2008 00:58:00 +0000

wanna make a blinking label or object?..?

with vb, its so easy....here is the way:

suppose object label1 will blinking, step:

1. Put label1 t the form, fill its caption with any title

2. Put Timer to the form, set its properties: Enabled=true, interval=100 (it means 100 millisecond)

3. Goto code editor by doubleclick Timer, write this code:

private sub Timer1_Timer()

label1.visible=not label1.visible 'this will blink label1 each 100ms

end sub

4. Finish...Run it!....

More timer programming in vb...try this...

Create Own Splash Screen in VB

noreply@blogger.com (adi_vb) — Wed, 05 Nov 2008 00:42:00 +0000

Splash Screen adalah tampilan awal yang biasanya muncul ketika suatu aplikasi dijalankan.

Splash Screen biasanya berisikan informasi umum atau hanya ucapan selamat datang.

Oke, bagaimana bikinnya?...gampang....

Klik disini untuk download. Source code lengkap!

Selamat berkarya....

Caption Form berjalan + Background gonta-ganti

noreply@blogger.com (adi_vb) — Fri, 28 Mar 2008 10:43:00 +0000

Ini adalah contoh program sederhana membuat caption pada form
berpindah huruf pertama ke belakang dan seterusnya.
Juga cara sederhana mengganti warna latar belakang form.

Hal ini sebenarnya sangat sederhana....
Kita hanya menggunakan fungsi manipulasi string (left dan right)
serta Qbcolor (u/ ganti warna)...
----------
source code:

Private Sub Timer1_Timer()
  Me.BackColor = QBColor(Rnd * 15)
End Sub

Private Sub Timer2_Timer()
  a = Left(Me.Caption, 1)
  b = Right(Me.Caption, Len(Me.Caption) - 1)
  Me.Caption = b & a
End Sub
----------

Jangan lupa letakkan 2 timer di form. Set Enabled=true dan Interval=100 (berarti 100 ms).
Selamat mencoba....have a nice day!

Daily Agenda

noreply@blogger.com (adi_vb) — Tue, 11 Mar 2008 04:12:00 +0000

Yes, this application i create for my self at the first aim...
but, i think it would be usefull for other...
so, i decide to publish it...
i use it as a daily agenda, so it can remainds me what i must do at certain day and certain time...
i use MS ACCESS as a database and vb 6 as a programming as usual...
clik here to download all...
have a nice day!...

web viewer like browser

noreply@blogger.com (adi_vb) — Fri, 09 Nov 2007 11:36:00 +0000

so many browser spread in internet.
wow, vb can make it too, even it's so easy.
we need an object called Microsoft Internet Controls.
this object defaultly installed when we install vb.
here is some code..

Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
'show web file
web.Navigate App.Path & "\contoh.htm"
End Sub

read write ini file

noreply@blogger.com (adi_vb) — Fri, 09 Nov 2007 11:26:00 +0000

some application need configuration setting.
usually we use ini file in windows system.
vb can do both read and write ini file.
here is code for read/write ini file.

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias _ "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As _ Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize _
As Long, ByVal lpFileName As String) As Long

Private Declare Function WritePrivateProfileString Lib "kernel32" _
Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Const ini_file = "C:\contoh.ini"

Private Sub Command1_Click()
'this code will save from di Text1
'under section 'coba' on Key 'oke'.
hasil = WritePrivateProfileString("coba", "oke", Text1.Text, ini_file)
End Sub

Private Sub Command2_Click()
Dim my_val As String * 20
'this code will get from key 'oke' under section 'coba',
'and give to variable named my_val.
hasil = GetPrivateProfileString("coba", "oke", "Empty", my_val, Len(my_val),ini_file)
MsgBox my_val, vbInformation, "ok"
End Sub

click here to download the project...

show hidden file

noreply@blogger.com (adi_vb) — Fri, 09 Nov 2007 11:09:00 +0000

so many virus or worm that attack our file or folder.
one of its attack is hide our file or folder.
they usually make our file hidden and system file.
here is some code to make it show again.
we only use dos command to resolve this problem.
here is the code...

1. get in to command dos (Start>Run>type ‘cmd’)
2. suppost the drive that we want to recover is f, so type "f:" (enter)
3. type “attrib –s –h /s /d *” push enter
4. that's all, all file or folder will show up again…

have a nice try…

Login with database

noreply@blogger.com (adi_vb) — Fri, 09 Nov 2007 09:24:00 +0000

Oke, now we try to make a login form.
but, we use database to store user name and password...
i use ms access 2003 to build the database.
in this application, there are 2 form. 1 for login and other for display the data.

here, the code...
#1) login form

Private Sub Command1_Click()
Adodc1.RecordSource = "select * from data_user where user_name='" & Text1.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.RecordSource = "select * from data_user where user_name='" & Text1.Text & "' and kode_password='" & Text2.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
'benar
Unload Me
Load Form2
Form2.Show
Else
MsgBox "Password salah!", vbInformation, "salah"
Text2.Text = ""
Text2.SetFocus
End If
Else
MsgBox "user name salah!", vbInformation, "salah"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
sumber = App.Path & "\login.mdb"
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sumber & ";Persist Security Info=False"
Adodc1.RecordSource = "select * from data_user"
Adodc1.Refresh
End Sub

#2) data form

Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
sumber = App.Path & "\login.mdb"
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sumber & ";Persist Security Info=False"
Adodc1.RecordSource = "select * from data_user"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub

.....
click here to download...

Login for Access Application

noreply@blogger.com (adi_vb) — Fri, 09 Nov 2007 09:17:00 +0000

OK, its very easy make a login form for any application with vb (of course).
Here i make count if any mistakes of entry both user name or password.
User only 3 times to try. If 3 times mistakes, so the form will terminated!
Of course, it will show a message if there's a mistakes...

here, the code...

Dim salah As Byte

Private Sub Command1_Click()
If Text1.Text = "adi" And Text2.Text = "vb" Then
MsgBox "Login sukses!", vbInformation, "oke"
Else
MsgBox "Login gagal!", vbCritical, "no"
salah = salah + 1
If salah = 3 Then
MsgBox "Anda sudah salah 3x!" & Chr(10) & "Aplikasi akan mati!", vbInformation, "look"
End
End If
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End If
End Sub

Private Sub Command2_Click()
End
End Sub

click here to download...

Syntax SQL for querying database

noreply@blogger.com (adi_vb) — Fri, 09 Nov 2007 09:01:00 +0000

SQL (Structured Query Language) is a small-language that we can use to manipulate a database. In real life, SQL equivalent with lingua-france (language of trade).
Almost database application recognize this language.
So, if we good in this language, it very useful for our application that related with database. Of cource, most application related with database.

Suppost we have table: "data_pegawai"
here the record...
--------------------------------------------
nip nama alamat usia gender
--------------------------------------------
001 joko depok 50 L
002 soni bogor 35 L
003 dewi jakarta 20 P
004 rudi depok 30 L
--------------------------------------------

here...some SQL syntax...

if we want to display all record...
"select * from data_pegawai"
if we want to display only nip and nama...
"select nip,nama form data_pegawai"
if we want to display person who only usia > 30...
"select * from data_pegawai where usia > 30"
if we want to display only alamat in depok...
"select * from data_pegawai where alamat='depok'"
if we want to know how many person in each alamat...
"select alamat,count(alamat) as jumlah from data_pegawai group by alamat"

...that's an example....i will continue later...

count date different (selisih tanggal)

noreply@blogger.com (adi_vb) — Fri, 09 Nov 2007 08:27:00 +0000

with vb, its very easy to calculate the different between two date.
we can count the different based on day or month.
we need dtpicker object. it object is a member of microsoft windows common control 2-6.0
here is the source code...

Private Sub Command1_Click()
If Option2.Value = True Then
Text1.Text = DateDiff("m", tgl1.Value, tgl2.Value)
Label4.Caption = "Bulan"
Else
Text1.Text = DateDiff("d", tgl1.Value, tgl2.Value)
Label4.Caption = "Hari"
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Option3.Value = True
tgl1.Value = Now
tgl2.Value = Now
End Sub

click here to download...

billing rental/warnet single pc

noreply@blogger.com (adi_vb) — Fri, 09 Nov 2007 07:52:00 +0000

we can make a billing for pc rental or internet rental (warnet).
we can use object timer in vb.
maybe we need to give them a password form; to end or stop application.
in this application we need 2 forms; 1 for billing and 1 for password.
here is some its source code...

'this is code for billing form...

Dim mulai As Single
Dim keluar As Single
Dim biaya As Long
Dim hitung As Integer

Private Sub Command1_Click()
     biaya = 500
     Text3.Text = "500"
     mulai = Time
     keluar = Time
     Text1.Text = Format(Time, "hh:mm:ss")
     Timer1.Enabled = True
     Command1.Enabled = False
     Command2.Enabled = True
End Sub

Private Sub Command2_Click()
     Load password
     password.Show
End Sub

Private Sub Form_Resize()
     If Me.WindowState = 1 Then
           Me.Caption = Text2.Text
     Else
           Me.Caption = "Billing PC-10"
     End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
     Load password
     password.Show
     password.Caption = "Close"
     Cancel = 1
End Sub

Private Sub Timer1_Timer()
     hitung = hitung + 1
     keluar = keluar + 0.00001157448
     Text2.Text = Format(keluar - mulai, "hh:mm:ss")
     If hitung Mod 480 = 0 Then
           biaya = biaya + 500
           Text3.Text = Format(biaya, "###,###,###")
           hitung = 0
     End If
     If Me.WindowState = 1 Then
           Me.Caption = Text2.Text
     End If

End Sub

'this code for password form...
Private Sub Command1_Click()
     If Me.Caption = "Close" Then
          If Text1.Text = "aadc" Then
               End
          End If
     Else
          If Text1.Text = "aadc" Then
               Form1.Timer1.Enabled = False
               Form1.Command1.Enabled = True
               Form1.Command2.Enabled = False
          End If
     End If
     Unload Me
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
     If KeyAscii = 13 Then
     Command1_Click
     End If
End Sub

click here to download...

stop watch by vb

noreply@blogger.com (adi_vb) — Fri, 09 Nov 2007 06:31:00 +0000

here is i make a small application from vb.
i make a stop watch...
we can use object timer.
there are a few methods or properties that we must set if we want to use a timer.
they are: interval (to determine time interval of timer counting) and enabled (to run/stop timer).
here is some simple code to utilize timer object...
'vb code
private sub command1_click()
     'set interval
     timer1.interval=1000      '1000=1 second
     'start timer
     timer1.enabled=true
end sub

private sub command2_click()
     'stop timer
     timer1.enabled=false
end sub

click here to download full application...

adodc connectionstring for any database

noreply@blogger.com (adi_vb) — Fri, 09 Nov 2007 02:55:00 +0000

visual basic 6 has many capabilities to connect with many database application.
both desktop database and client-server database.
such as: ms access, foxpro, dbase, sql server, etc.
with these capabilities, make vb mostly used by many programmer related with database application.
to connect with database, we need object connector, adodc.
in adodc, there are 2 methods that we must set to make adodc connect with database.
they are: connectionstring and recordsource.
we use connectionstring to determine what database application and the name of our database. while recordsource, we use it to select a table.
here some adodc connectionstring....(i've repost it from pondokindah.wordpress.com. thanks)

kind of vb ado connection string for any databases

noreply@blogger.com (adi_vb) — Sat, 27 Oct 2007 09:30:00 +0000

hi....you guys...
i've got these kind of ado connectionstring from http://pondokindah.wordpress.com...
here...all connectionstring...
-------------
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;”
------------------------