Re: [belajar-access] MS Acess dengan Database Mysql ???

Audzubillah himinasyaitonirrajim Bismillahirrahmanirrahiim ....,   Mohon maaf sebelumnya. Saya lupa memberi penjelasan lanjutan. Konsep saya begini. Semua user bekerja di Tabelnya sendiri-sendiri (berfungsi sebagai data temporer), kalau data sudah OK masuk ke basis data. Atau sekedar melihat data.   Makanya saya buat nama TABEL_LEGES.  TABEL_LEGES saya definisikan di Module begini: Function TABEL_LEGES()     TABEL_LEGES = "BU_DATA_AS_" & KOM End Function   Sedangkan KOMnya:   Private Const MAX_COMPUTERNAME As Long = 15 Private Declare Function GetComputerName Lib "kernel32" _    Alias "GetComputerNameA" _   (ByVal lpBuffer As String, _    nSize As Long) As Long Private Function TrimNull(item As String)   'return string before the terminating null    Dim pos As Integer       pos = InStr(item, Chr$(0))       If pos Then       TrimNull = Left$(item, pos - 1)    Else       TrimNull = item    End If    End Function Function KOM() Dim tas As String      'pre-load the text boxes with   'the local computer name for testing    tas = Space$(MAX_COMPUTERNAME + 1)    Call GetComputerName(tas, Len(tas))        KOM = TrimNull(tas) End Function Silahkan di edit sesuai kebutuhan.   Kalau misalnya komputer A, memakai form1, maka recordsourcenya TABEL_LEGES (tabel dia sendiri, bukan milik komputer lain).   Kalau cuma ingin create tabel berdiri sendiri, bisa menggunakan:   conn.Execute "DROP TABLE IF EXISTS CONTOH";   Maka akan tercipta nama tabel CONTOH. Sedangkan kalau memakai TABEL_LEGES, akan tercipta tabel BU_DATA_AS_" & KOM (nama komputernya).   Semoga ini bisa membantu...   Hariyanto (Surabaya) --- On Tue, 23/11/10, Ahmad Qomaruddin <ud13en@gmail.com> wrote: From: Ahmad Qomaruddin <ud13en@gmail.com> Subject: Re: [belajar-access] MS Acess dengan Database Mysql ??? To: belajar-access@yahoogroups.com Date: Tuesday, 23 November, 2010, 12:31 PM   Maaf, sudah bisa... kayaknya ada script yang kurang. Sekarang di script buat tabel, ada error di : conn.Execute "DROP TABLE IF EXISTS " & TABEL_LEGES & ";"--->berwarna kuning conn.Execute sql On 11/23/10, Ahmad Qomaruddin <ud13en@gmail.com> wrote: > Nyoba baru sampai disini, sudah ga jalan ... > >>> Prosedurnya: >>> >> koneksi tanpa menyebut nama database: scriptnya begini: >>> >> >>> >> 'ini untuk untuk berhubungan dengan MySql >>> >> Dim conb As New ADODB.Connection >>> >> Public Function conbToDB(serverName As String, _ >>> >> UserName As String, userPass As String, _ >>> >> dbPath As String) >>> >> Dim strCon As String >>> >> On Error GoTo errHandle >>> >> >>> >> strCon = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=" _ >>> >> & serverName & ";" & _ >>> >> "UID=" & UserName & ";PWD=" & userPass & ";OPTION=16426" >>> >> Set conb = New ADODB.Connection >>> >> conb.Open strCon >>> >> Exit Function >>> >> errHandle: >>> >> MsgBox "SERVER SEDANG TIDAK AKTIF", , "NON AKTIF" >>> >> conb.Close >>> >> Set conb = Nothing >>> >> End Function >>> >> >>> >> 'Terus lanjutkan dengan dengan ini: >>> >> >>> >> Function KONEKSIS() >>> >> conbToDB "isi hostname/localhost/ip", "isi dengan username", "isi >>> >> dengan >>> >> password", 3306 >>> >> End Function >>> >> >>> >> 'Lalu kita jalankan fungsi itu dengan memanggilnya, misalnya: >>> >> >>> >> Private Sub Command0_Click() >>> >> KONEKSIS >>> >> If conb.State <> 0 Then >>> >> conb.Execute "create database IF Not EXISTS conto_rek" >>> >> MsgBox "sukses membuat database dengan nama conto_rek di >>> >> MySql" >>> >> Else >>> >> MsgBox "gagal membuat database di MySql" >>> >> End If >>> >> >>> >> conb.Close >>> >> Set conb = Nothing >>> >> End Sub >>> >> > > Muncul debug "Object Required" ..... > > If conb.State <> 0 Then --->berwarna kuning. > -- Ahmad Qomaruddin Sulang Rembang Jawa Tengah Indonesia email : ud13en@gmail.com blog : ud13en.blogspot.com

__._,_.___

SPAM IS PROHIBITED

Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___