none
ADOX-Properties - 'read only' verhindert das Setzen RRS feed

 > 

  • Frage

  • Question
    Anmelden
    0
    Anmelden
    Hallo,
    Ich bekomme die Properties nicht gesetzt.

    was mache ich falsch?
    wer kann helfen?


    Alles andere klappt
    - Datenbank anlegen, OK
    - Tabelle "Test" anlegen, OK
    - Felder ID, Feld1 anlegen, OK 
    'Imports IO
'Imports ADOX
    Private Function MakeTable() As Boolean
        Dim oCat As New ADOX.Catalog
        Dim sConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
          Path.Combine(Application.StartupPath, "test.accdb") & ";"
        Dim aConn As New ADODB.Connection
        oCat = New ADOX.Catalog
        Try
            oCat.Create(sConn)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        aConn.Open(sConn)
        oCat.ActiveConnection = aConn
        Dim aTable As New ADOX.Table
        With aTable
            .Name = "Test"
            .ParentCatalog = oCat
            .Columns.Append("ID", DataTypeEnum.adInteger)
'properties sind readonly, deswegen klappt dies hier nicht
            .Columns("ID").Properties("Autoincrement") = True
            .Columns("ID").Properties("Description") = "Test"

            .Columns.Append("Feld1", DataTypeEnum.adWChar, 60)
        End With
        oCat.Tables.Append(aTable)
        aConn.Close()
        aTable = Nothing
        Return False
    End Function



    Donnerstag, 3. März 2016 10:05
    |

Antworten