Koneksi VB6 ke Oracle di Windows 7

Setting ODBC yang terdapat di Administrative Tools, lalu tambahkan konfigurasi ODBC nya, agar dapat terhubung ke vb

Setelah terlihat tampilan seperti ini kita kita pilih Add, untuk menambahkan ODBCnya jika belum ada, lalu pilih oracle nya.

Setelah memilih databasenya pilih finish

Setelah menyetting konfigurasi ODBC selesai, lalu pilih Test Connection, jika connection success berarti konfigurasi telah benar.

Kini oracle anda sudah dapat terhubung pada vb, selanjutnya mengatur vb
Langkah pertama adalah membuat module pada vb dahulu, agar dapat menjalankan perintah mysql pada vb.

code:

Public kondb As New ADODB.Connection
Public rs As New ADODB.Recordset
Public strconnect As String
Public intsql As Integer
Public strsql As String
Sub Pindah(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
SendKeys "{Tab}"
End If
End Sub
Public Function konek()
strconnect = "Provider = MSDASQL.1;persist security info = false; data source =odbc_stock;user id=system;pwd=oracle"
If kondb.State = adStateOpen Then
kondb.Close
Set kondb = New ADODB.Connection
Set rs = New ADODB.Recordset
kondb.Open strconnect
Else
kondb.Open strconnect
End If
End Function 

Perintah insert di mysql dapat menggunakan syntaks :

Private Sub Command1_Click()
strsql = "insert into table_name ('" + Text1.Text + "','" + Text2.Text + "','" + Text3.Text + "')"
Set rs = kondb.Execute(strsql)
End Sub

Untuk perintah delete dapat menggunkan syntaks :

Private Sub Command3_Click()
strsql = "delete from table_name where condition
Set rs = kondb.Execute(strsql)
End Sub

Dan Perintah pada form load :

Private Sub Form_Load()
konek
kondb.CursorLocation = adUseClient
strsql = "SELECT * From table_name"
end sub