vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Fortgeschrittene
datenbank definition ändern? 
Autor: spike24
Datum: 14.06.04 06:56
hi ihr

ich bin am verzweifeln

ich habe mein programm in der 2.5 version fertig
für dieses programm muss ich für meinen kunden die bestehende datenbank erweitern und ich weis nicht wie
das SQL gefällt mir nicht sehr, da es ja was besseres geben muss
habe dann das ADOX gefunden, habe zwar schon gehört, das diese methode von der geschwindigkeit nicht das beste sein soll, aber ist mir egal, denn dieses programm macht man 2 mal im jahr, ist mir egal, also möchte ich es mit dem machen

ein datenbank feld umbennenen -> no problem
eine tabelle umbenennen -> no problem
eine tabelle oder feld erstellen -> no problem
typ bzw. grösse eines feldes ändern -> noch nicht probiert
ein neues "Autowertfeld" erstellen -> keine chance

folgender code: 
        Dim cn As New ADODB.Connection
        Dim cat As New ADOX.Catalog
        Dim table As ADOX.Table
        Dim col As ADOX.Column
 
        cn.Open(cDataBase.ConString)
 
        cat.ActiveConnection = cn
 
        table = cat.Tables("Adr_Main2")
 
        col = table.Columns("LFdNr")
        With col
            .ParentCatalog = cat
            .Properties.Item("AutoIncrement") = True
        End With
öffne die tabelle "Adr_Main2", dann hole ich mir das feld LfdNr (LaufendeNummer hat sich statt ID eingebürgert)
und dann will ich die eigenschaft AutoIncrement verändern, geht nicht, da er mir in der entwicklungsumgebung schon sagt "Die Eigenschaft "Item" ist ReadOnly"
da führt kein weg vorbei, absolut keiner

die nächste version: 
        Dim cn As New ADODB.Connection
        Dim cat As New ADOX.Catalog
        Dim table As ADOX.Table
        Dim col As ADOX.Column
        Dim prop As ADOX.Property
        Dim props As ADOX.Properties
 
        cn.Open(cDataBase.ConString)
 
        cat.ActiveConnection = cn
 
        table = cat.Tables("Adr_Main2")
 
        col = table.Columns("LFdNr")
 
        props = col.Properties
        prop = props.Item("AutoIncrement")
        prop.Value = True
bring folgenden fehler:
Fehler bei einem aus mehreren Schritten bestehenden OLE DB-Vorgang. Prüfen Sie die einzelnen OLE DB-Statuswerte, falls vorhanden. Daten wurden nicht verarbeitet
ja und was bedeutet das für mich?
der google schweigt sich über diese fehler meldung aus

folgende links habe ich betrachtet:
Datenbanken mit ADOX
find keinen anderen mehr, aber der müsste genügen um zu wissen was ich will

bin aber generell für jede andere möglichkeit offen, z.b. eine die direkt mit .Net zusammen arbeitet

hoffe mir kann da jemand helfen!
0
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
datenbank definition ändern?3.684spike2414.06.04 06:56
*nach vorne schieb und allen auf die nerven geh* ot1.210spike2416.06.04 09:50
Re: datenbank definition ändern?1.326xellon16.06.04 10:31
Re: datenbank definition ändern?1.174spike2416.06.04 10:37
Re: datenbank definition ändern?1.331WaldiMaywood17.06.04 23:44
Re: datenbank definition ändern?1.137spike2418.06.04 09:10
Re: datenbank definition ändern?1.204WaldiMaywood18.06.04 19:57
*noch mal nach vorne schieb, weil frage aufgetaucht*1.073spike2423.06.04 09:28

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel