|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Banco de Dados)
|
|
 |
Título da Dica: Listar e testar conexão com tabelas de um BD Access
|
 |
|
|
|
Postada em 4/8/2003 por caco
Essa dica verifica as tabelas do BD, faz um teste de conexão, lista o total de registros e o total de tabelas.
Referências necessárias:
Microsoft Ado Ext. 2.x for DDL And Security
Microsoft ActiveX Data Object Library
Esse código imprime os resultados na janela immediate.
=============================================================================================
On Error GoTo CatchException
Dim conn As ADODB.Connection
Set conn = New Connection
Dim rsCheckTable As ADODB.Recordset
Set rsCheckTable = New Recordset
Dim sSQL As String, TableName As String
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\develop\imobadm\imobdata.mdb"
Dim AdoxObj As ADOX.Catalog
Set AdoxObj = New Catalog
AdoxObj.ActiveConnection = conn
Dim i As Integer
For Each Table In AdoxObj.Tables
If LCase(Table.Type) = "table" Then
i = i + 1
TableName = Table.Name
sSQL = "select count(*) as totalreg from " & Table.Name
On Error Resume Next
Set rsCheckTable = conn.Execute(sSQL)
Debug.Print "Checando tabela: " & TableName & " - Total de registros: " & rsCheckTable("totalreg") & IIf(Err.Number = 0, " - OK", " - Erro")
On Error GoTo CatchException
End If
Next
Debug.Print "Total de tabelas: " & i
saida:
Set conn = Nothing
Set rsCheckTable = Nothing
Set AdoxObj = Nothing
Exit Sub
CatchException:
MsgBox "Houve um erro! " & vbCrLf & "Nº do erro: " & Err.Number & vbCrLf & "Descrição do erro: " & _
Err.Description, vbCritical
Resume saida
|
|
|
|
|
