✔ Datenbank öffnen, aber wie?

[Fleance]

Warum funktioniert das:

Private Sub Command1_Click()
Dim strSQL As String

strSQL = "CREATE TABLE Adressen (AdressNr COUNTER NOT NULL " & _
                 "CONSTRAINT AdressNr  PRIMARY KEY, " & _
                 "Anrede VARCHAR(20) NULL, " & _
                 "Vorname VARCHAR(20) NULL )"

DB.Execute strSQL

End Sub

Aber das nicht:

Private Sub cmdTabHinzufügen_Click()
    Dim strSQL As String
    
    b$ = InputBox("Geben Sie bitte den Bauteilnamen ein", "Bauteileingabe")
    
    strSQL = "CREATE TABLE " & b$ & " (Baustoffname COUNTER NOT NULL " & _
                 "CONSTRAINT Baustoffname  PRIMARY KEY, " & _
                 "Dicke VARCHAR(20) NULL, " & _
                 "Lambda VARCHAR(20) NULL, " & _
                 "Dichte VARCHAR(20) NULL, " & _
                 "dyn.Steifigkeit VARCHAR(20) NULL )"

    Db.Execute strSQL
    lstBauteile.Clear
    
    With Db
        Set TabRs = .OpenSchema(adSchemaTables)
  
        Do Until TabRs.EOF
        If TabRs("TABLE_TYPE") = "TABLE" Then
            lstBauteile.AddItem TabRs("TABLE_NAME")
        End If
        TabRs.MoveNext
        Loop
    End With

    TabRs.Close
    
End Sub

Er erstellt mir nicht einmal eine neue Tabelle. Er bleibt immer bei
Db.Execute strSQL
hängen?



Thx
Fleance

 

[wincnc]

Hallo, in dem Feldnamen dyn.Steifigkeit darf kein Punkt drin sein.
Beispiel:
dyn_Steifigkeit

 

[Fleance]

Wieder mal Danke und die nächste Frage

Private Sub lstBauteile_DblClick()
    Set RS = New ADODB.Recordset
    
    strTabelle = 
    
    RS.Open "SELECT * FROM " & strTabelle, Db, adOpenDynamic, adLockOptimistic

    Set DataGrid1.DataSource = RS
End Sub

Will hier mit einem Doppelklick auf einen Listfeldeintrag in meinem Datagrid die entsprechende Tabelle anzeigen. Weiß aber nicht wie ich der Variablen strTabelle den Eintrag unter dem Maus Icon angebe.

Bekomme zwar den ListIndex des Eintrages ich bräuchte aber die Bezeichnung.

Thx
Fleance