Wie um zu überprüfen, Tabelle existieren oder nicht existieren

Zu prüfen, wie die Tabelle da ist oder nicht?

Mit VB 6.0

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

Obige code ist in Ordnung, aber falls die Tabelle nicht existiert, dann es zu zeigen, "Tabelle nicht verlassen"

Zu prüfen, wie Tabelle vorhanden ist oder die Tabelle nicht vorhanden ist?

Benötigen VB-CODE Hilfe?

Ich sehe, Sie sind neu und bemerkte, dass Sie noch nicht markiert jede Ihrer Fragen eine Antwort. Vergessen Sie nicht, dies zu tun, weil es nicht nur Holen Sie sich die Beantworter Ruf (Punkte), aber es auch Marken es als Antwort für andere, die vielleicht auf der Suche nach der gleichen Antwort. 🙂

InformationsquelleAutor Gopal | 2009-06-30

Für einen Jet-MDB - (und vielleicht auch generisch für viele OLEDB-Provider) können Sie mit einem Ansatz wie:

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

InformationsquelleAutor Bob77

4

Wenn Sie nur wollen, um die Tabelle löschen, ohne dass eine Fehlermeldung angezeigt wird, können Sie mithilfe der folgenden SQL wenn Sie mit MySQL.
```
DROP TABLE t1 IF EXISTS
```
Anderen Datenbanken haben eine ähnliche Funktion, aber die syntax ist anders. Das gleiche zu tun in MSSQL:
```
IF EXISTS(SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = 't1') DROP TABLE t1;
```
Obwohl, dass sieht sehr hässlich.. es muss einen besseren syntax das gleiche Ergebnis zu erhalten.

Ich hatte vergessen, über die INFORMATION_SCHEMA - ich immer scheinen zu vergessen, dass es existiert - trotz der scheinbaren verbringen die meisten meiner Sql mal mit MySql spät! Gute Entscheidung 🙂

InformationsquelleAutor Andre Miller
1

Wären Sie besser dran, die überprüfung für die Existenz der Tabelle betrifft, anstatt zu versuchen, es fallen zu lassen.

Die SQL-syntax ist abhängig von der Datenbank/server-engine, die Sie verwenden, aber für den Sql Server könnten Sie so etwas wie:

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'
```
Können Sie dann mit VB wie:
```
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
```
Hinweis: Dieser code muss Aufräumen und "productionising" =) (also ich habe nicht wirklich getestet, dass es funktioniert, wie ich nicht über VB6 auf dieser Maschine)

InformationsquelleAutor Rob

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.