ACESSANDO SQL-SERVER COM ADO

USUARIO.EXCLUIDOS 06/01/2005 22:19:46
#59102
Pessoal, tenho o seguinte problema:

Estou criando um gerador de relatório e o usuário irá entrar com os dados para fazer a conexão com os bancos de dados. Só que se eu colocar um nome de banco ou servidor errado o sistema trava, sem retornar Error e nem nada.
Tem como resolver isto?
Abraços,
Milton

Código utilizado por mim >>

Set cnn = New ADODB.Connection
cnn.ConnectionTimeout = 120
cnn.Open "provider=sqloledb.1;data source=" & strServidor & ";initial catalog=" & strBanco & ";user id=" & strUsuario & ";password=" & strSenha & ""
cmd.CommandTimeout = 0
cmd.ActiveConnection = cnn
USUARIO.EXCLUIDOS 06/01/2005 23:20:42
#59105
coloca uma mensagem de erro
eof = true or bof = true than...
USUARIO.EXCLUIDOS 06/01/2005 23:59:41
#59108
Estou usando o On Error mas ainda assim não deu. Como eu faço pra usar isto que vc está me dizendo?
Abração,
Milton
LCSD 07/01/2005 00:32:15
#59109
Milton Jau

No link abaixo tem uma demonstração de como validar um Arquivo

USO BASICO DO FILESYSTEMOBJECT

Basicamente a rotina que você necessita é o trecho abaixo:

Private fs As New FileSystemObject
Dim s As String

Private Sub Command2_Click()
Dim ans As String
On Error GoTo errH
    s = InputBox("Enter the complete path for folder.:", "Delete Folder")
    If Not s > "" Then Exit Sub
    If Not fs.FolderExists(s) Then
        MsgBox "Folder does not exists."
        Exit Sub
    End If
    ans = MsgBox("You will loose all the content of the folder. Make sure you have a back up of this folder before deleting it. Do you want to continue?", vbYesNo + vbCritical)
    If ans = vbYes Then
        fs.DeleteFolder s
        If Not fs.FolderExists(s) Then
            MsgBox "Folder as been deleted."
       End If
    End If
    Exit Sub
errH:

If Err.Number <> 0 Then
    MsgBox Err.Description
End If

End Sub


Seria bom você baixar o Projeto que poderá ser implementado.
[s79]
Tópico encerrado , respostas não são mais permitidas
Voltar