VB6 : Create DSN Programatically

[neo008]

Hi all,

Can somebody help me about creation of Data Source Name (DSN) programatically.

I'm using ADO control for connections. MS-Access as database

Thanks

-NEO

[debasisdas]

try to use this

1. add the required ODBC library reference from Project ---> References
2. add 2 listboxes,1 textbox and 1 command button on the form.

Private Sub Command1_Click()
Dim ds As New ODBCTool.Dsn
If ls.ListIndex <> -1 Then
If Len(Trim(Text1.Text)) = 0 Then
MsgBox "Enter the name of dns"
End If
tt = ds.CreateDSN(Text1.Text, ls.List(ls.ListIndex), "orcl", "", "debasis", "debasis", "", False, "")
Else
MsgBox "Choose the Driver ..."
End If
End Sub
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 116 Then
Dim ds As New ODBCTool.Dsn
Dim List1() As String
tt = ds.GetOdbcDriverList(List1)
ls1.Clear
tt = ds.GetDataSourceList(List1)
For I = 0 To UBound(List1) - 1
ls1.AddItem List1(I)
Next
ls1.Refresh
End If
End Sub
 
 
Private Sub Form_Load()
Dim ds As New ODBCTool.Dsn
Dim List1() As String
tt = ds.GetOdbcDriverList(List1)
 
For I = 0 To UBound(List1) - 1
ls.AddItem List1(I)
Next
 
tt = ds.GetDataSourceList(List1)
For I = 0 To UBound(List1) - 1
ls1.AddItem List1(I)
Next
 
Command1.Enabled = ls.ListIndex <> -1 And Len(Trim(Text1.Text)) > 0
End Sub
 
Private Sub Text1_Change()
Command1.Enabled = ls.ListIndex <> -1 And Len(Trim(Text1.Text)) > 0
End Sub