none
Could not find installable ISAM.

    Pertanyaan

  • permasalahan di koneksi access 2000 ke visual basic 6.0

    Option Explicit
    Public KonekDB As ADODB.Connection
    Public Rs_Barang As New ADODB.Recordset
    Public Rs_Supplier As New ADODB.Recordset
    Public Rs_Beli As New ADODB.Recordset
    Public Rs_Keluar As New ADODB.Recordset

    Public strKonekDB As String
    Public SQL As String

    Public Sub BukaDatabase()
        Set KonekDB = New ADODB.Connection
        
        strKonekDB = "provider=Microsoft.Jet.OLEDB.4.0;Persist security Info= False;DataSource=" & App.Path + "\database.mdb"
        
        On Error Resume Next
        If KonekDB.State = adStateOpen Then
        KonekDB.Close
        Set KonekDB = New ADODB.Connection
        Else
            KonekDB.Open strKonekDB     'Permasalahannya disini
        End If
        
        If Err.Number <> 0 Then
        MsgBox "koneksi Database Gagal, Silahkan Periksa Kembali ", vbOKOnly + vbInformation, "Informasi"
        End
        Else
           ' Koneksi Sukses
    End If
        
    End Sub


    • Diedit oleh Fellany 07 Agustus 2017 17:50
    07 Agustus 2017 17:43

Semua Balasan

  • Mohon maaf mengingat. Access 2000 adalah versi access 17 tahun yang lalu, dan VB 6 adalah versi VB 19 tahun yang lalu maka sudah tidak ada dukungan lagi, kami menyarankan Anda untuk memperbarui kode Anda setidaknya ke VB.NET dan Access 2007 (10 tahun lalu). unduh versi terkini secara gratis Visual Studio Community bisa diunduh di visualstudio.com


    Agile and ALM blog at http://ridilabs.net :)

    10 Agustus 2017 12:12