VERIFICAR BASE DE DADOS DSN

ERINALDO 22/04/2007 10:54:16
#213213
tenho essa função que cria a conexão dns
eu gostaria que o sistema verificasse se ja existesse a conexão utilizasse a existente
nesse codigo o banco tem que esta na mesma pasta do sistema
eu queria colocar o banco em outra pasta!!...

este codigo que to usando
Sub CriaDSN()

  Dim intRet As Long
  Dim strDriver As String
  Dim strAttributes As String

  strDriver = "Microsoft Access Driver (*.mdb)"
  strAttributes = strAttributes & "DESCRIPTION=" & VB.App.Title & Chr$(0)
  strAttributes = strAttributes & "DSN=" & VB.App.Title & Chr$(0)
  strAttributes = strAttributes & "DBQ=" & App.Path & "\Banco.mdb" & Chr$(0)
  strAttributes = strAttributes & "UID=admin" & Chr$(0)
  strAttributes = strAttributes & "PWD=admin" & Chr$(0)
  intRet = SQLConfigDataSource(vbAPINull, ODBC_ADD_SYS_DSN, _
  strDriver, strAttributes)
  
  If intRet = False Then
    MsgBox "Falha na criação do DSN"
  End If

End Sub
CLEVERTON 22/04/2007 11:16:30
#213217
Cara, só é vc tentar conectar

Cnn.Open "DSWN=SeuDSN"

se gerar erro, então vc exucuta a função CriaDSN
Tópico encerrado , respostas não são mais permitidas
Voltar