Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Access: Harte Nuss - adBoolean Feld anlegen, Bug???
Autor: JOMA
Datum: 26.06.03 14:02
Hallo! Ich kann jetzt auch in Access Spalten vom Typ adBoolean mit Null/NOT NUll und Default anlegen. Es funktioniert mit einer Mischung aus SQL und ADO. Warum ich im Alter-Table-SQL-Befehl ein Default angeben kann ist nett aber mir unerklärlich. Es kommt der Fehler 3265, welches aber nur Tabelle existiert bereits bedeuten müsste. '************************* '************************* '************************* Public Sub create_boolean_field(Cnxn As ADODB.Connection, _ tabelle_name As String, _ feld_name As String, _ feld_default As String, _ feld_nullable As Boolean) Dim s_sql, s_trenner, s_text As String Dim l_betroffene_saetze As Long Dim col As ADOX.Column 'ALTER TABLE table '{ADD {COLUMN field type[(size)] [NOT NULL] [CONSTRAINT index] | 'CONSTRAINT multifieldindex} | 'DROP {COLUMN field | CONSTRAINT indexname} } s_trenner = "" s_sql = "ALTER TABLE " + tabelle_name + s_trenner + _ " ADD COLUMN " + feld_name + " Bit " Select Case feld_default Case "=No", "=Nein": s_sql = s_sql + "Default False " Case "=Yes", "=Ja": s_sql = s_sql + "Default True " End Select If feld_nullable = False Then s_sql = s_sql + "NOT NULL " End If s_sql = s_sql + ";" 'MsgBox (s_sql) Cnxn.Execute s_sql, _ l_betroffene_saetze, _ adExecuteNoRecords If Err.Number <> 0 Then IF Err.Number <> 3265 Then MsgBox (Err.description + vbCrLf + vbCrLf + _ "SQL: " + vbCrLf + _ s_sql) End IF End If Err.Clear Exit Sub Fehler: On Error Resume Next Resume End Sub '*************************** '*************************** '*************************** 'Für die Anlage eines Boolean-Feldes anderen 'Weg beschreiben Call create_boolean_field(Cat.ActiveConnection, _ s_aktuelle_tabelle, _ feldbeschreibung.Name, _ feldbeschreibung.Default, _ feldbeschreibung.nullabled) Cat.Tables(s_aktuelle_tabelle).Columns.Refresh 'Cat.Tables.Refresh '************** s_text = feldbeschreibung.description If IsNull(s_text) = False Then If Trim(s_text) <> "" Then Cat.Tables.Item(s_aktuelle_tabelle).Columns.Item(feldbeschreibung.Name).Properties("Description") = s_text End If End If s_text = feldbeschreibung.validation_rule If IsNull(s_text) = False Then If Trim(s_text) <> "" Then Cat.Tables.Item(s_aktuelle_tabelle).Columns.Item(feldbeschreibung.Name).Properties("Jet OLEDB:Column Validation Rule") = s_text End If End If s_text = feldbeschreibung.validation_text If IsNull(s_text) = False Then If Trim(s_text) <> "" Then Cat.Tables.Item(s_aktuelle_tabelle).Columns.Item(feldbeschreibung.Name).Properties("Jet OLEDB:Column Validation Text") = s_text End If End If Cat.Tables.Refresh 0

Access: Harte Nuss - adBoolean Feld anlegen, Bug???	976	JOMA	24.06.03 20:51
Re: Access: Harte Nuss - adBoolean Feld anlegen, Bug...	712	Dieter	24.06.03 22:16
Re: Access: Harte Nuss - adBoolean Feld anlegen, Bug...	597	JOMA	25.06.03 08:54
Re: Access: Harte Nuss - adBoolean Feld anlegen, Bug...	632	JOMA	25.06.03 18:41
Re: Access: Harte Nuss - adBoolean Feld anlegen, Bug...	658	dbayer	25.06.03 19:11
Re: Access: Harte Nuss - adBoolean Feld anlegen, Bug...	570	Dietmar	25.06.03 19:27
Re: Access: Harte Nuss - adBoolean Feld anlegen, Bug...	574	JOMA	25.06.03 22:47
Re: Access: Harte Nuss - adBoolean Feld anlegen, Bug...	618	JOMA	26.06.03 14:02
Re: Access: Harte Nuss - adBoolean Feld anlegen, Bug...	575	JOMA	25.06.03 22:46
Re: Access: Harte Nuss - adBoolean Feld anlegen, Bug...	614	JOMA	26.06.03 14:02

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