by [email protected] (1 Submission)
Category: Databases/Data Access/DAO/ADO
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 25th September 2000
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
'Create a DataSourceName(DSN) at Runtime Without Using API Calls
API Declarations
Dim myDsn As Scripting.TextStream
VBcoders
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
No comments have been posted about 'Create a DataSourceName(DSN) at Runtime Without Using API Calls. Why not be the first to post a comment about 'Create a DataSourceName(DSN) at Runtime Without Using API Calls.
