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:  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
 


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