Um DSN é um conjunto de instruções utilizadas para conexão com bancos de dados externos . DSN conter estruturas de dados que descrevem a conexão com o banco de dados, como o nome do banco de dados , localização, nome de usuário e senha para se conectar com o banco de dados. Os administradores de sistema podem criar DSN usando a ferramenta Administrador de ODBC no painel de controle no Windows. Os programadores podem criar estruturas de dados DSN usando uma linguagem de programação como Visual Basic ea API do Windows. Criando DSN usando VB e da API do Windows requer algum conhecimento de tais conceitos , mas depois que você ganhou esse conhecimento , ele simplesmente requer alguns passos e linhas de código . Instruções
1

Abra o Visual Basic 6 .
2

Selecione " Standard EXE " da nova lista de projetos. Isto irá colocar uma principal Form VB na tela, assim como exibir o VB ToolBox.
3

Selecione "Button" do VB ToolBox e solte-o seu principal Form VB . Isto irá colocar um botão de comando para seu formulário.
4

Vá para a barra de menu superior , clique em " Project" e clique em "Add Module. " Isto irá adicionar um módulo de código padrão para o seu projeto VB6
5 Tipo

ou copie e cole o seguinte código: . Declaração

Option Explicit
'

constante < br >

Private Const ODBC_ADD_DSN = 1 ' Adicionar fonte de dados

Private Const ODBC_CONFIG_DSN = 2' Configure ( edit) fonte de dados

Private Const ODBC_REMOVE_DSN = 3 ' fonte Remover dados

Private Const vbAPINull As Long = 0 & 'NULL Pointer

' Declare Function

# Se WIN32 Então

Private Declare Function SQLConfigDataSource Lib " ODBCCP32.DLL " _ < br >

(ByVal hwndParent As Long , ByVal fRequest As Long , _ ByVal

lpszDriver As String , ByVal lpszAttributes As String) _

As Long

# Else

Private Declare Function SQLConfigDataSource Lib " ODBCINST.DLL " _

(ByVal hwndParent As Integer , ByVal fRequest As Integer , ByVal _

lpszDriver As String , ByVal lpszAttributes As String) as Integer

# End If
6

Volte para o seu principal Form VB e dê um duplo clique no botão de comando. Isto irá abrir procedimento de evento Click do botão de comando
7 Tipo

ou copie e cole o seguinte bloco de código entre Private Sub Command_button1 e End Sub : .

# Se WIN32 Então

Dim intRet As Long

# Else

Dim intRet As Integer

# End If

Dim strDriver As String
< strAttributes p> Dim as String

'Definir o driver para SQL Server , pois é mais comum .

strDriver = " SQL Server "

' Definir os atributos delimitados por nulo .

' Consulte a documentação do driver para uma

completo " lista de atributos suportados.

strAttributes =" SERVER = someserver "& Chr $ (0)

strAttributes = strAttributes & " DESCRIPTION = Temp DSN " & Chr $ (0)

strAttributes = strAttributes & " DSN = DSN_TEMP " & Chr $ (0)

strAttributes = strAttributes & " DATABASE = pubs " e Chr $ (0)

' Para mostrar diálogo, use Form1.hWnd em vez de vbAPINull .

intRet = SQLConfigDataSource ( vbAPINull , ODBC_ADD_DSN , _

strDriver , strAttributes )

Se intRet Então

MsgBox " DSN Criado "

Else

MsgBox "Criar Failed"

End If