Perbedaan ADODB VB6 dan SQLClient, OLEDB, ODBC di VBNET (PART I)

Berikut ini saya akan jelaskan perbedaan ADODB di VB6 dan SQLClient, OLEDB, ODBC di VBNET. VB6 Hanya memiliki satu provider Data yaitu "Microsoft ActiveX Data Object 2.x" (versi 2.0 sampai 2.8). dimana dengan ADODB itu anda dapat gunakan dengan berbagai jenis connection string seperti :

Dim con As New ADODB.Connection

'koneksi ke ms.sqlserver 2008 (default)

con.Open "Provider=SQLNCLI10.1;Data Source=192.168.1.2;User ID=sa;Password=123;Initial Catalog=djiesoft_db"

'koneksi ke ms.access (default)

con.Open "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Jet OLEDB:Database Password=123;Data Source=" + App.Path + "\djiesoft_db.ACCDB"

'koneksi ke mysql (via ODBC v1)

con.Open "Driver={MySQL ODBC 3.51 Driver};Server=127.0.0.1;Database=djiesoft_db;UID=djie;PWD=123"

'koneksi ke mysql (via ODBC v2)

con.Open "DSN=Koneksi_mySql;Server=127.0.0.1;Database=djiesoft_db;UID=djie;PWD=123"

Nah jika di VBNET itu tidak bisa seperti VB6, tetapi harus disesuaikan dengan jenis databasenya, saya akan bahas sekaligus dengan perbedaan antara  SQLClient, OLEDB, ODBC , contoh :

1.SQLClient

Ini hanya berlaku untuk Database Ms.SQLServer (di-khususkan dengan fitur full/lengkap untuk manajemen databse Ms.SQLServer). Disini anda tidak perlu menulis connection string dengan awalan "Provider=..." atau "Driver=..." atau "DSN=..." karena tidak akan bisa ("ERROR Keyword not supported: 'provider/Driver/DSN'"). Contoh connection string :
'koneksi ke ms.sql server 2008

Dim con As New SqlClient.SqlConnection("Data Source=192.168.1.2;User ID=sa;Password=123;Initial Catalog=djiesoft_db")

con.Open

2.OLEDB

Ini dapat berlaku ke semua database, jika di VB6 itu sama dengan saat anda menulis connection string dengan awalan "Provider=...", Jadi jika anda menulis connection string di OLEDB ini dengan awalan "Driver=..." atau "DSN=.." itu tidak akan bisa ("ERROR An OLE DB Provider was not specified in the ConnectionString.  An example would be, 'Provider=SQLOLEDB;"). Contoh connection string :

'koneksi ke ms.sql server 2008

Dim con As New OleDb.OleDbConnection("Provider=SQLNCLI10.1;Data Source=192.168.1.2;User ID=sa;Password=123;Initial Catalog=djiesoft_db")

'koneksi ke ms.access

Dim con As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Jet OLEDB:Database Password=123;Data Source=" + App.Path + "\djiesoft_db.ACCDB")

con.Open

3.ODBC

Ini juga dapat berlaku untuk semua jenis databse, jika di VB6 itu sama dengan saat anda menulis connection string dengan awalan "Driver=..." atau "DSN=...", Jadi jika anda menulis connection string di ODBC ini dengan awalan "Provider=..." itu tidak akan bisa ("ERROR [IM002] [Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified"). Contoh connection string :

'koneksi ke mysql

Dim con As New ODBC.ODBCConnection("Driver={MySQL ODBC 3.51 Driver};Server=127.0.0.1;Database=djiesoft_db;UID=djie;PWD=123")

'koneksi ke mysql

Dim con As New ODBC.ODBCConnection("DSN=Koneksi_mySql;Server=127.0.0.1;Database=djiesoft_db;UID=djie;PWD=123")

con.Open

OK, sampai sini sudah cukup faham? selanjutnya bagaimana perbedaan antara ADODB.Recordset VB6 dan VBNET termasuk hal hal yang biasa anda lakukan seperti :

Dim rec As New ADODB.Recordset

rec.Open "SELECT * FROM TBL", Con, adOpenDynamic, adLockOptimistic

If rec.EOF = True Or rec.BOF = True Then

Else

End If

'atau

Set rec = Con.Execute("SELECT * FROM TBL")

Do While rec.EOF = False

Loop

Tunggu kelanjutan pembahasan tentang ini di Posting Selanjutnya (Part II). Silahkan di tunggu dan tetap kunjungi djiesoft, Terimakasih.

Tags:

belajar vb6 ke vbnet, cara koneksi di vbnet, using adodb in vbnet, belajar vbnet, migrasi vb6 ke vbnet, recordset in vbnet,