Hola Amigos !!

Tengo un problema al generar tablas temporales en MSAccess desde VB; regularmente las tablas las nombro con prefijo tmp para diferenciarlas de las tablas de producción; de qué forma puedo depurarlas desde VB sin tener que eliminarlas una por una o entrando a MS-Access ??

Gracias!

Hola manolomx,
Este procedimiento elimina todas las tablas de la BD cuyo nombre empiece por "Tmp".
(Se supone que ya tenemos abierta la conexion a la BD y la hemos llamado "cn")

Código:

 Dim rs As ADODB.Recordset
 Dim sql As String
 Dim Contador As Integer ' No es necesario
 
 Set rs = cn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))
 Do While Not rs.EOF
 If Left(rs!TABLE_NAME, 3) = "Tmp" Then
 sql = "DROP TABLE " & rs!TABLE_NAME
 cn.Execute sql, , adCmdText
 Contador = Contador + 1
 End If
 rs.MoveNext
 Loop
 MsgBox "Se eliminaron " & Contador & " tablas"

Saludos

Si lo quieres con DAO en lugar de ADO, entonces ...

'''''''''''''''''''''''
Dim oDB as DAO.Database
Dim oTD as DAO.TableDef
Dim nContador As Integer

Set oDB = DAO.OpenDatabase("C:\Folder\Database.mdb")

For Each oTD in oDB.TableDefs
If UCase(Mid(oTD.Name,1,3)) = "TMP" Then
oDB.TableDefs.Delete oTD.Name
nContador = nContador + 1
End If
Next
MsgBox "Se eliminaron " & nContador & " tablas"
''''''''''''''''''''''