Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Ado und adinteger
Autor: Prian0815
Datum: 26.01.06 12:03
Hi Michael, vielleicht hilft dir ja das hoier weiter, ist ein code zum erstellen einer db. mehr hab ich leider auch jnicht. Zum ändern einer Tabelle, sollte das aber ähnlich funzen: Private Sub DB_erstellen_Click() On Error GoTo Err_DB_erstellen_Click Dim path As String Dim filename As String Dim DB As Database Dim TABLE As New TableDef Dim Feld As New Field path = App.path filename = path & "/ACCESS_Test.mdb" If Dir$(filename) <> "" Then Screen.MousePointer = 11 Set DB = OpenDatabase(filename) Else Set DB = Workspaces(0).CreateDatabase(filename, dbLangGeneral) TABLE.Name = "Tabelle1" 'TABELLENNAME 'Datenfeld #1 Feld.Name = "ID_Feld" 'FELDNAME Feld.Type = dbLong ' FELDDATENTYP 'Feld.Attributes = dbAutoIncrField 'fELDDATENTYP - AUTOWERT 'Autowert sollte für ID's nicht verwendet werden! TABLE.Fields.Append Feld Set Feld = Nothing Feld.Name = "Feld2" Feld.Type = dbText Feld.Size = 20 'FELDGRÖßE Feld.AllowZeroLength = False 'LEERE ZEICHENFOLGE nicht erlaubt TABLE.Fields.Append Feld Set Feld = Nothing Set Feld = Nothing DB.TableDefs.Append TABLE DB.Close Set TABLE = Nothing Set DB = Nothing End If Err_DB_erstellen_Click: MsgBox Err.Description Screen.MousePointer = 1 Exit Sub End Sub Gruß Armin P.S.: always look on the bright side of Life!

Ado und adinteger	965	mmichael29	24.01.06 13:58
Re: Ado und adinteger	532	Prian0815	24.01.06 14:05
Re: Ado und adinteger	515	mmichael29	24.01.06 14:08
Re: Ado und adinteger	551	Prian0815	26.01.06 12:03

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übersicht

Suchen