ini jurus hasil combain dari belajar-access@yahoogroups.com
sudah ok punya...
langsung ke TKP...
Public Function ODBCok()
Dim rs As ADODB.Recordset
Dim stg As String
Dim i As Integer
Set rs = conn.Execute("SHOW TABLES;")
Call createSystemODBCdsn
KONEKSI
If conn.State <> 0 Then
If Not rs.EOF Then
i = 0
Do While Not rs.EOF
DoCmd.TransferDatabase acLink, "ODBC Database", _
"ODBC;DSN=" & dsnName & ";SERVER =" & d1 & ";UID=" _
& d2 & ";PWD=" & d3 & ";LANGUAGE=us_english;" _
& "DATABASE=" & d4 & "", acTable, rs.Fields(0), rs.Fields(0)
stg = stg & i + 1 & ". " & rs.Fields(0) & vbCrLf
i = i + 1
rs.MoveNext
Loop
End If
MsgBox stg, , "Table yang berhasil Koneksi adalah :"
rs.Close
Set rs = Nothing
End If
End Function
Wassalamualikum warohmatullohi wabarokatuh
m451mam
| Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (6) |
Tidak ada komentar:
Posting Komentar