vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Mails senden, abrufen und decodieren - ganz easy ;-)  
 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 & Datenbanken
Re: Neue DB Felder anlegen mittels ADO 
Autor: TZollo
Datum: 21.03.07 12:38

Achso Sorry, ich habe die Function so von der empfohlenen Website übernommen...
 
Public Function ADO_CreateField(pcnn As ADODB.Connection, _
psTable As String, _
psFieldName As String, _
plFieldType As ADODB.DataTypeEnum, _
Optional plFieldSize As Long = 0) _
As Boolean

' Benötigte Objektvariablen
On Error GoTo HandleErr
Dim cat As New ADOX.Catalog
Dim tbl As ADOX.Table

cat.ActiveConnection = pcnn

'// Tabelle zuweisen
Set tbl = cat.Tables(psTable)

'// Neues Feld anlegen und einfügen
If plFieldType = adWChar Then
' Wenn Textfeld, dann
tbl.Columns.Append psFieldName, plFieldType, plFieldSize
Else
tbl.Columns.Append psFieldName, plFieldType
End If

'// Erfolgreich
ADO_CreateField = True

HandleExit:
'// Speicher freigeben
If Not tbl Is Nothing Then Set tbl = Nothing
If Not cat Is Nothing Then Set cat = Nothing
Exit Function

HandleErr:
Select Case Err.Number
Case Else
MsgBox "Fehler " & Err.Number & ": " & _
Err.Description, vbCritical, _
"modKap02.ADO_CreateField"
End Select
ADO_CreateField = False
Resume HandleExit
End Function
 
Aber wie gesagt der Fehler tritt bereits beim Aufruf auf und zwar bereits wenn ich die benannte Zeile geschrieben habe und das Projekt noch nicht "gestartet" habe.

Danke
Thobias
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Neue DB Felder anlegen mittels ADO1.436TZollo07.03.07 09:38
Re: Neue DB Felder anlegen mittels ADO988srcdbgr07.03.07 11:02
Re: Neue DB Felder anlegen mittels ADO944TZollo07.03.07 18:30
Re: Neue DB Felder anlegen mittels ADO916TZollo09.03.07 14:33
Re: Neue DB Felder anlegen mittels ADO935srcdbgr09.03.07 14:49
Re: Neue DB Felder anlegen mittels ADO938TZollo21.03.07 11:42
Re: Neue DB Felder anlegen mittels ADO1.057srcdbgr21.03.07 11:52
Re: Neue DB Felder anlegen mittels ADO909TZollo21.03.07 12:38
Re: Neue DB Felder anlegen mittels ADO905srcdbgr21.03.07 13:07
Re: Neue DB Felder anlegen mittels ADO887TZollo21.03.07 13:53
Re: Neue DB Felder anlegen mittels ADO1.055TZollo22.03.07 11:23
Re: Neue DB Felder anlegen mittels ADO956srcdbgr22.03.07 12:23

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