vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Brandneu! sevEingabe v3.0 - Das Eingabecontrol der Superlative!  
 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: max. Zeichenanzahl in Access 
Autor: Prian0815
Datum: 06.06.05 16:15
Probier ma das hier, kann aber keine Garantie übernehmen, habs selber noch nie getestet. Wäre fdüpr ein Feedback sehr dankbar.
:
' Feldgröße nachträglich ändern
Public Sub dbField_ChangeSize(Db As Database, _
ByVal sTable As String, ByVal sField As String, _
ByVal iNewSize As Integer)

Dim oField As New Field
Dim Rs As Recordset
Dim iPosition As Integer

With Db.TableDefs(sTable)
' temporäres Feld erstellen
oField.Name = sField + "_tmp"
oField.Type = dbText
oField.AllowZeroLength = True
oField.Size = iNewSize
.Fields.Append oField

' Tabelle öffnen und alten Feldinhalt ins
' neue temporäre Feld speichern
Set Rs = Db.OpenRecordset("SELECT " + sField + ", " + _
sField + "_tmp FROM " + sTable)
If Rs.RecordCount > 0 Then
Do Until Rs.EOF
Rs.Edit
Rs(1) = Rs(0)
Rs.Update
Rs.MoveNext
Loop
End If
Rs.Close
Set Rs = Nothing

' OrdinalPosition merken
iPosition = .Fields(sField).OrdinalPosition

' altes Feld löschen
.Fields.Delete sField

' neues temporäre Feld umbenennen
.Fields(sField + "_tmp").Name = sField

' Ordinalposition wiederherstellen
.Fields(sField).OrdinalPosition = iPosition
End With
End Sub
Beispiel für den Aufruf:
Dim Db As Database

Gruß Armin

P.S.: always look on the bright side of Life!
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
max. Zeichenanzahl in Access1.362neuerProg.03.06.05 17:07
Re: max. Zeichenanzahl in Access805Prian081506.06.05 16:15

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