Comment vérifier table exister ou ne pas exister

Comment vérifier le tableau est là ou pas?

À l'aide de VB 6.0

cmd.CommandText = "drop table t1"
cmd.Execute

Code ci-dessus fonctionne très bien, mais si la table n'est pas, alors il en montrant “le tableau n'a pas de sortie”

Comment vérifier table existe pas de table ou de ne pas exister?

Besoin de CODE VB aider?

Je vois que vous êtes nouveau et a remarqué que vous n'avez pas coché l'une de vos questions avec une réponse. N'oubliez pas de le faire car non seulement est-il obtenir le répondeur de la réputation (points), mais également de la marque comme la réponse pour les autres qui pourraient être à la recherche pour la même réponse. 🙂

OriginalL'auteur Gopal | 2009-06-30

Pour un Jet MDB (et peut-être de façon générique pour de nombreux Fournisseurs OLEDB), vous pouvez utiliser une approche comme:

Private Sub Main()
    Dim cnDB As ADODB.Connection

    Set cnDB = New ADODB.Connection
    cnDB.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
            & "Jet OLEDB:Engine Type=5;Data Source='sample.mdb'"

    'Check presence of table --------------
    Dim rsSchema As ADODB.Recordset

    Set rsSchema = _
        cnDB.OpenSchema(adSchemaColumns, _
                        Array(Empty, Empty, "t1", Empty))
    If rsSchema.BOF And rsSchema.EOF Then
        MsgBox "Table does not exist"
    Else
        MsgBox "Table exists"
    End If
    rsSchema.Close
    Set rsSchema = Nothing
    '--------------------------------------

    cnDB.Close
End Sub

OriginalL'auteur Bob77

4

Si vous voulez juste de supprimer la table, sans jeter un message d'erreur, vous pouvez utiliser la requête SQL suivante si vous utilisez MySQL.
```
DROP TABLE t1 IF EXISTS
```
D'autres bases de données ont une fonction similaire, mais la syntaxe est différente. Faire la même chose dans MSSQL:
```
IF EXISTS(SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = 't1') DROP TABLE t1;
```
Bien que c'est très moche.. il doit y avoir une meilleure syntaxe pour obtenir le même résultat.

J'avais oublié INFORMATION_SCHEMA j'oublie toujours qu'il existe -, malgré l'apparente à passer la plupart de mon temps à l'aide de Sql MySql de retard! Bon appel 🙂

OriginalL'auteur Andre Miller
1

Vous feriez mieux de vérifier l'existance de la table concernée, plutôt que d'essayer de la faire tomber.

La syntaxe SQL est dépendante sur le serveur de base de données/moteur que vous utilisez, mais pour Sql Server vous pouvez utiliser quelque chose comme:

Sql Server 2000:
```
SELECT 1 as Exists FROM sysobjects WHERE name = 't1'
```
Sql Server 2005/2008:
```
SELECT 1 as Exists FROM sys.objects WHERE name = 't1'
```
Vous pouvez ensuite utiliser VB comme:
```
Dim rs as Recordset
Dim iExists as Integer

rs = cmd.Execute
On Error Goto DoesNotExist
rs.MoveFirst
iExists = CInt(rs!Exists)
DoesNotExist:
If iExists = 1 Then
 ' Put code here for if the table exists
Else
 ' Put code here for if the table does not exist
End If
```
Remarque: Ce code doit rangements et "productionising" =) (c'est à dire que je n'ai pas réellement testé que ça fonctionne comme je n'ai pas de VB6 sur cette machine)

OriginalL'auteur Rob

Vous devez vous connecter pour publier un commentaire.