09 January 2011

Source menghubungkan Database


Berikut ini contoh source yang dibuat untuk program VB 6, VB.net, dan C. Source ini berdasarkan pengalaman penulis dalam membuat aplikasi. Jadi sudah teruji,heheheheeee (bangga).... Database yang digunakan bisa apa saja, tergantung Anda.. semoga bermanfaat bagi kalian...

Adapun contoh source bisa dilihat di bawah ini...
a. Source VB 6 untuk menghubungkan database
'Koneksi
Public cn As New ADODB.Connection
'Recordset
Public rs As New ADODB.Recordset
Public Sub koneksi(ByVal konek As ADODB.Connection)
sprovider = "provider =Microsoft.Jet.OLEDB.4.0;"
db = "Data Source=" & App.Path & "\NAMA_DATABASE.mdb"
skon = sprovider & db
With konek
            .CursorLocation = adUseClient
            .Open skon
End With
End Sub

Public Sub Hubung_koneksi(sql_koneksi As String, c As ADODB.Connection, r As ADODB.Recordset)
With r
            .CursorType = adOpenStatic
            .LockType = adLockPessimistic
            .Source = sql_koneksi
            .ActiveConnection = c
            .Open
End With
End Sub

Source diatas digunakan jika menggunakan cara manual... Jika menggunakan ODBC bisa dilihat pada prosedur di bawah ini.

Public Sub koneksi(ByVal konek As ADODB.Connection)
Dim sprovider As String
sprovider = "DRIVER=MySQL ODBC 3.51 Driver;" & _
            "SERVER=localhost;" & _
            "DATABASE=NAMA_DATABASE;" & _
            "UID=root;" & _
            "PASSWORD=;OPTION=;STMT=;"
With konek
    .CursorLocation = adUseClient
    .Open sprovider
End With
End Sub

b. Source VB.net untuk menghubungkan database
Public stringConnection As String
Public MyDataSource As String
Public MyUserID As String
Public MyPassword As String
Public strConnectInformation As String

'==WITH ODBC NET============================
Public Sub Koneksi(ByVal uid As String, ByVal pass As String, ByVal dtbase As String, ByVal server As String)
'connect to MySQL server using MySQL ODBC 3.51 Driver
    conn = New ADODB.Connection
    conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" & _
        "SERVER=192.168.1.55;" & _
        "DATABASE=dt_sipkb;" & _
        "UID=root2;" & _
        "PASSWORD=root;" & _
        "OPTION=3;"
    Try
        conn.Open()
    Catch e As Exception
        MsgBox(e.Message)
    End Try
End Sub

c. Source C  untuk menghubungkan database
MYSQL *conn,*conn1;
MYSQL_ROW row;

void connect_dt(char *fl)
{ char *dtconfig[8],flg,port=0,flags=0,i,flgof=0;

      for (i=0;i<7;i++) {
            dtconfig[i]=(char *)calloc(101,sizeof(char));
      }

      conn=mysql_init(NULL);
      if (conn==NULL) {
            fprintf(stderr,"mysql_init() failed\n");
            flgconn=0;
      }
      else {
            printf("CONNECT TO MYSQL : SUCCESS!!!\n");
            flgconn=1;
      }

      flgof=open_file(dtconfig,fl,port,flags);
      printf("dtconfig:[%s] [%s] [%s] [%s]\n", dtconfig[0],dtconfig[1],dtconfig[2],dtconfig[3]);
      if (flgof) {
            flg=0;
      conn=mysql_real_connect(conn,dtconfig[0],dtconfig[1],dtconfig[2],dtconfig[3],port,dtconfig[5],flags);
 
            if (conn==NULL) {
                 fprintf(stderr,"CAN'T CONNECT TO DATABASE %s\nflgcon0
                            mysql_real_connect() failed:\nError %u
                            (%s)\n",dtconfig[3],mysql_errno(conn),mysql_error(conn));
                 flgconn=0;
            }
            else {
                 printf("CONNECT TO DATABASE %s : SUCCESS!!!\n",dtconfig[3]);
                 flgconn=1;
            }
       }  
       else {
             printf("something error in file %s or file %s NULL\n",fl,fl);
            flgconn=0;
       }
       mysql_close(conn);
       for (i=0;i<7;i++) {
            free(dtconfig[i]);
       }
}

Semua source di atas, dapat Anda kembangkan sesuai dengan kebutuhan Anda.. Jika ada pertanyaan silakan isi komentar ...

No comments:

Post a Comment

Silakan masukkan komentar Anda untuk perkembangan blog ini.