Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Tabelle erstellen
Autor: Prian0815
Datum: 14.05.04 12:57
Probiers mal so: 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 Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) With Label1 .BackColor = QBColor(15) .ForeColor = QBColor(10) End With End Sub Gruß Armin P.S.: always look on the bright side of Life!

Tabelle erstellen	3.319	xirtam	14.05.04 11:22
Re: Tabelle erstellen	1.028	Prian0815	14.05.04 12:57
Re: Tabelle erstellen	884	xirtam	14.05.04 13:00

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