---

wie kann ich aus VB heraus via ADO in einer mdb (AccessDatebBank) ein Tabelle löschen

------------------
das Leben ist schön, meint Ingolf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

VB .Net ... Voraussetzung ist ein vorhandes ConnectionObjekt!

Code:

---

...
Dim xDropTable As New SqlClient.SqlCommand
xDropTable.CommandText = "DROP TABLE test;"
xDropTable.ExecuteNonQuery()
...

---

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

danke für die promte Antwort.
einiges ist mir nicht ganz klar wo bekommst du das SqlClient.SqlCommand Objekt her?

habe folgened Zeilen geschrieben für MySQL das fungtioniert
  Set sql.SQL_Command = New ADODB.Command
  sql.SQL_Command.CommandType = adCmdText
  sql.SQL_Command.CommandText = "DROP TABLE IF EXISTS " & _
                                        üDaBasName & "." & _
                                        üTableName
 
  Set sql.SQL_Command.ActiveConnection = sql.Conn
  sql.SQL_Command.Execute

MySQL wird übr ODBC bedient

habe folgened Zeilen geschrieben für Access das fungtioniert nicht
  Dim SQL_Command As New ADODB.Command
  Set SQL_Command = New ADODB.Command

  SQL_Command.CommandType = adCmdText
  SQL_Command.CommandText = "DROP TABLE " & üTableName 
  Set SQL_Command.ActiveConnection = ADO.xMDB.ConnS
 
  SQL_Command.Execute

Fehlermeldung = "Syntaxfehler in DROP TABLE oder DROP INDEX."
Access wird über "Microsoft.Jet.OLEDB.4.0" bedient

kannst Du mir sagen wo mein Fehler ist?  bzw
Ich würde auch Deine Lösung benutzen wenn Du sie mir ein wenig erläuters

------------------
das Leben ist schön, meint Ingolf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

probier folgenden Code. Der sollte tun.

Code:

---

Public Sub test()

Dim Conn As New ADODB.Connection
Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
Conn.ConnectionString = "c:\test_db.mdb"

Conn.CursorLocation = adUseClient
Conn.Mode = adModeReadWrite

Conn.Open

Dim SQL_Command As New ADODB.Command
Set SQL_Command = New ADODB.Command
Set SQL_Command.ActiveConnection = Conn
SQL_Command.CommandType = adCmdText

SQL_Command.CommandText = "CREATE TABLE test;"
SQL_Command.Execute

SQL_Command.CommandText = "DROP TABLE test;"
SQL_Command.Execute

Conn.Close

End Sub

---

Dein Fehler kann ich nicht nachvollziehen!
Kann es sein das du versuchst eine Access97 mdb anzusprechen?
Dann musst ...

Code:

---

Conn.Provider = "Microsoft.Jet.OLEDB.3.51"

---

schreiben.

Grüssle TP

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

danke.
genau so gehts.
kann ich außer danke sagen was für Dich tun?

------------------
das Leben ist schön, meint Ingolf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

kein Problem!

schau in deine privaten Mitteilungen.

Grüssle TP

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP