Hilfe! String in ADO-Befehl?
Hey,
mein Projekt schreitet voran. Nun brauch doch einmal wieder einen Schubs in die richtige Richtung!
Altes Thema: http://www.tutorials.de/forum/visual-basic/315936-datenbank-tabelle-erstellen-und-import.html
Alles funktioniert soweit, nun möchte ich aber eine Listung der existierenden Tabellen aus der DB haben. Eine Auswählen, die dann überschrieben/gelöscht und neu erstellt wird, oder einen neuen Namen angeben-> erstellen.
Ich brauche einen Tipp, wie ich die Informationen am besten abfrage und mit welcher Methode sich der Dialog am besten realisieren lässt?
Hier mal der bisherige
Vielen Dank für eure Hilfe!
Hey,
mein Projekt schreitet voran. Nun brauch doch einmal wieder einen Schubs in die richtige Richtung!
Altes Thema: http://www.tutorials.de/forum/visual-basic/315936-datenbank-tabelle-erstellen-und-import.html
Alles funktioniert soweit, nun möchte ich aber eine Listung der existierenden Tabellen aus der DB haben. Eine Auswählen, die dann überschrieben/gelöscht und neu erstellt wird, oder einen neuen Namen angeben-> erstellen.
Ich brauche einen Tipp, wie ich die Informationen am besten abfrage und mit welcher Methode sich der Dialog am besten realisieren lässt?
Hier mal der bisherige
Code:
Dim strSQL As String
Set DB = New ADODB.Connection
DB.CursorLocation = adUseClient
DB.Provider = "Microsoft.Jet.OLEDB.4.0"
DB.Open "c:\****\TSC\Test.mdb"
Dim Pfad As String
Dim sZeilen() As String
Dim lZeilen As Long
Dim Spalte() As String
Dim z, s As Integer
Dim AnzahlZeilen As Integer
CmDialog1.Filter = "Textdatei(*.txt)|*.txt"
CmDialog1.Flags = &H1000&
CmDialog1.Action = 1
Pfad = CmDialog1.FileName
strSQL = "CREATE TABLE Runde1([Datum] char(15),[Name] char(50),Startplatz char(50),Flugzeugtyp char(50),LigaPunkte char(50),TSC char(50))"
DB.Execute strSQL
Open Pfad For Input As 1
While Not EOF(1)
ReDim Preserve sZeilen(lZeilen + 1) As String
Line Input #1, sZeilen(UBound(sZeilen))
lZeilen = UBound(sZeilen)
AnzahlZeilen = Format$(UBound(sZeilen) + 1, "#,##0")
Wend
Close 1
z = 2
Do
s = 0
While Not s = 4
Spalte = Split(sZeilen(z), Chr(9))
'MsgBox (Spalte(s))
s = s + 1
Wend
strSQL = "Insert Into Runde1([Datum],[Name],Startplatz,Flugzeugtyp) VALUES('" & Spalte(0) & "','" & Spalte(1) & "','" & Spalte(2) & "','" & Spalte(3) & "')"
DB.Execute strSQL
z = z + 1
Loop While z < AnzahlZeilen
Vielen Dank für eure Hilfe!
Zuletzt bearbeitet: