USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Banco de Dados)

Título da Dica:  Criar e remover DSN (run-time)
Postada em 11/3/2003 por Ricardo         
Public Sub CriaDSN(driver As String, server As String, description As String, dsn As String, database As String)
    Dim intRet As Long
    Dim strDriver As String
    Dim strAttributes As String
'   String de conexão
    strDriver = driver
    strAttributes = "SERVER=" & server & Chr$(0)
    strAttributes = strAttributes & "DESCRIPTION=" & description & Chr$(0)
    strAttributes = strAttributes & "DSN=" & dsn & Chr$(0)
    strAttributes = strAttributes & "DATABASE=" & database & Chr$(0)
    intRet = SQLConfigDataSource(vbAPINull, ODBC_ADD_DSN, strDriver, strAttributes)
    If intRet = 0 Then MsgBox "Falha na criação do DSN para MySQL", vbCritical, "Falha ODBC"
End Sub

Public Sub RemoveDSN(driver As String, dsn As String)
    Dim intRet As Long
    Dim strDriver As String
    Dim strAttributes As String
'   Executar exclusão do DSN
    strDriver = driver
    strAttributes = "DSN=" & dsn & Chr$(0)
    intRet = SQLConfigDataSource(vbAPINull, ODBC_REMOVE_DSN, strDriver, strAttributes)
    If intRet = 0 Then MsgBox "DSN não foi eliminado!"
End Sub
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página