• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• 'Create a DataSourceName(DSN) at Runtime Without Using API Calls

'Create a DataSourceName(DSN) at Runtime Without Using API Calls

'Create a DataSourceName(DSN) at Runtime Without Using API Calls

API Declarations


Dim myDsn As Scripting.TextStream



Rate 'Create a DataSourceName(DSN) at Runtime Without Using API Calls

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    CommonDialog1.DialogTitle = "Select Your Database Name"
    CommonDialog1.Filter = "mdb Files(*.mdb)|*.mdb"
    CommonDialog1.ShowOpen
    
    If CommonDialog1.FileName = Empty Then
        MsgBox "Please Select Your Database Name" & (Chr(13) & Chr(10)) & "And Also Your DSN Not Created", vbDefaultButton1 + vbInformation, "Viju"
    Else
        Set myDsn = fsn.CreateTextFile("c:\viju.dsn")
        
        myDsn.WriteLine "[ODBC]"
        myDsn.WriteLine "DRIVER=Microsoft Access Driver (*.mdb)"
        myDsn.WriteLine "UID = admin"
        myDsn.WriteLine "UserCommitSync = Yes"
        myDsn.WriteLine "Threads = 3"
        myDsn.WriteLine "SafeTransactions = 0"
        myDsn.WriteLine "PageTimeout = 5"
        myDsn.WriteLine "MaxScanRows = 8"
        myDsn.WriteLine "MaxBufferSize = 512"
        myDsn.WriteLine "ImplicitCommitSync = Yes"
        myDsn.WriteLine "FIL=MS Access"
        myDsn.WriteLine "DriverId = 25"
        myDsn.WriteLine "DefaultDir=C:\"
        myDsn.WriteLine "DBQ=" & CommonDialog1.FileName
        MsgBox "Your DSN is Created Now"
    End If
End Sub