FUNCAO LIMPAR BANCO ACCES AJUDA
Bom e isso, tenho um aplicativo em VB6 + Access (ADO)
e atualmente tenho uma funcao pra percorrer algumas tabelas e limpar elas
e essa
Dim strTabela(100) As String, strChave_Ativacao As String
Dim intContador As Integer
Dim rcdAuxiliar As New ADODB.Recordset
Dim strReserve As String
Conexao.TrataEstancia True, rcdAuxiliar
Conexao.AbreTabelaEscrita 0, rcdAuxiliar
strTabela(1) = [Ô]tab_tabela1[Ô]
strTabela(2) = [Ô]tab_tabela2[Ô]
For intContador = 1 To 100
If strTabela(intContador) > [Ô][Ô] Then
strInstrucaoSQL = [Ô]Delete * From [Ô] & strTabela(intContador)
If Not .State = 0 Then .Close
.Open strInstrucaoSQL
strInstrucaoSQL = [Ô][Ô]
End If
Next
eu coloco os nomes das tabelas (atualmenta + de 100) e ele vai lendo adicionando e limpando
mas ali no nomes das tabelas como eu poderia usar o ReDim preserve + UBound
para gerar os numeros automaticamente ?
Abracos
e atualmente tenho uma funcao pra percorrer algumas tabelas e limpar elas
e essa
Dim strTabela(100) As String, strChave_Ativacao As String
Dim intContador As Integer
Dim rcdAuxiliar As New ADODB.Recordset
Dim strReserve As String
Conexao.TrataEstancia True, rcdAuxiliar
Conexao.AbreTabelaEscrita 0, rcdAuxiliar
strTabela(1) = [Ô]tab_tabela1[Ô]
strTabela(2) = [Ô]tab_tabela2[Ô]
For intContador = 1 To 100
If strTabela(intContador) > [Ô][Ô] Then
strInstrucaoSQL = [Ô]Delete * From [Ô] & strTabela(intContador)
If Not .State = 0 Then .Close
.Open strInstrucaoSQL
strInstrucaoSQL = [Ô][Ô]
End If
Next
eu coloco os nomes das tabelas (atualmenta + de 100) e ele vai lendo adicionando e limpando
mas ali no nomes das tabelas como eu poderia usar o ReDim preserve + UBound
para gerar os numeros automaticamente ?
Abracos
A idéia do REDIM PRESERVE é a seguinte:
Dim vetor() As String
ReDim vetor(3)
vetor(0) = [Ô]Tabela1[Ô]
vetor(1) = [Ô]Tabela2[Ô]
vetor(2) = [Ô]Tabela3[Ô]
MsgBox UBound(vetor)
ReDim Preserve vetor(6)
vetor(3) = [Ô]Tabela4[Ô]
vetor(4) = [Ô]Tabela5[Ô]
vetor(5) = [Ô]Tabela6[Ô]
MsgBox UBound(vetor)
Tópico encerrado , respostas não são mais permitidas