Insert into Abfrage schmeißt Fehler aus !

Insert into Abfrage schmeißt Fehler aus !

am 06.06.2005 13:14:22 von viashin

Private Sub cmd_Neu_Click()

Dim db As DAO.Database
Dim rs_Alt As DAO.Recordset
Dim rs_Neu As DAO.Recordset

Dim lng_PK_Neu As Long
Dim str_sql As String

Set db =3D CurrentDb
Set rs_Alt =3D db.OpenRecordset("SELECT * FROM tab01_profile WHERE
PK_Profil =3D " & Me!cbo_PK_Profil.Value)
Set rs_Neu =3D db.OpenRecordset("tab01_profile")

rs_Neu.AddNew
rs_Neu![Profil] =3D Me!txt_Profil.Value
rs_Neu![Nutzung] =3D rs_Alt![Nutzung]
rs_Neu![Neuanlagedatum] =3D Date
rs_Neu![User] =3D fOSUserName()
lng_PK_Neu =3D rs_Neu![PK_Profil]
rs_Neu.Update

str_sql =3D "INSERT INTO tab03_Verknuepf_profile_privilegien (
FK_Profil, FK_Privileg, loeschdatum , neuanlagedatum, user ) SELECT " &
lng_PK_Neu & " AS PK_Neu, FK_Privileg, loeschdatum, " & Date & " AS
neuanlagedatum2, " & fOSUserName() & " AS user2 FROM
tab03_Verknuepf_profile_privilegien WHERE FK_Profil =3D " &
Me!cbo_PK_Profil.Value
db.Execute str_sql

MsgBox "Profil wurde kopiert und hinzugefügt!"


End Sub


Bei der Insert into Abfrage kommt folgender Fehler raus:

Laufzeitfehler '3075'
Syntaxfehler in Zahl in Abfrageausdruck '06.06.2005'

die Date Funktion gibt mir solch ein Datum aus, an dem Tabellenfeld
"neuanlagedatum" kann es eigentlich nicht liegen, da die anderen
Funktionen ohne Probleme in solche Datumsfelder Werte eingeben können.

Zur Info:

Tabellen:

-tab01_profile =3D Tabelle in die Profile hinzugefügt werden (PK_Profile
=3D autowert & PK )

-tab02_privilegien =3D Tabelle in die Privilegien hinzugefügt werden
(PK_Privileg =3D autowert & PK )

-tab03_Verknuepf_profile_privilegien =3D In dieser Tabelle werden die
Privilegien den Profilen zugewiesen
(FK_Profil =3D PK_Profil)
(FK_Privileg =3D PK_Privileg)


Kann mir jemand den Grund dafür nennen ?! Also für die Fehlermeldung?

Re: Insert into Abfrage schmeißt Fehler aus !

am 06.06.2005 13:19:20 von viashin

ich wollte noch erwähnen das es sich hierbei um eine access datenbank
handelt :D ich hoffe die frage ist trotzdem berechtigt, also hier in
diesem forum.

Re: Insert into Abfrage schmeißt Fehler aus !

am 06.06.2005 13:21:50 von Fabian Schladitz

viashin schrieb:
> [VB-Müll]

Danke für deinen Source Code, aber den brauchen wir hier nicht. Lass di=
r=20
das Statement ausgeben, welches dein Code produziert. Versuche dieses=20
Statement im MySQL-Client.

> Bei der Insert into Abfrage kommt folgender Fehler raus:
>=20
> Laufzeitfehler '3075'
> Syntaxfehler in Zahl in Abfrageausdruck '06.06.2005'

Dann hast du da wohl eine merkwürdige Zahl reingepfuscht, welche MySQL =

nicht mag. Welchen Spaltentyp hat die Spalte, in welche dieses Datum komm=
t?

> die Date Funktion gibt mir solch ein Datum aus, an dem Tabellenfeld
> "neuanlagedatum" kann es eigentlich nicht liegen, da die anderen
> Funktionen ohne Probleme in solche Datumsfelder Werte eingeben können=


Ahja... die anderen Funktionen. Versuchen die auch etwas in diese Spalte =

zu schreiben? Und versuchen auch diese ein deutsches Datumsformat zu=20
schreiben?

> Zur Info:
>=20
> Tabellen:
>=20
> [nichtssagende Tabellenbeschreibung]

Das nächste Mal bitte SHOW CREATE TABLE verwenden und per copy&paste=20
hier rein. Ggf. Fremdschlüssel und Bedeutung der im Statement=20
verwendeten Felder beschreiben.

> Kann mir jemand den Grund dafür nennen ?! Also für die Fehlermeldun=
g?

Du hast einen Syntax-Fehler oder einen Datentypfehler.

--=20
HTH,
Fabian

Re: Insert into Abfrage schmeißt Fehler aus !

am 06.06.2005 13:23:02 von Fabian Schladitz

viashin schrieb:
> ich wollte noch erwähnen das es sich hierbei um eine access datenbank=

> handelt :D ich hoffe die frage ist trotzdem berechtigt, also hier in
> diesem forum.

*grummel*

Nein. Die Frage passt hier nicht, sonst würde an der Tür "Access"=20
stehen, wo bei uns "mysql" steht.

--=20
genervt,
Fabian

Re: Insert into Abfrage schmeißt Fehler aus !

am 06.06.2005 13:36:41 von viashin

kann geschlossen werden, habs ins access forum gepackt, sry
nochmalflals ich jemanden genervt habe.

Re: Insert into Abfrage schmeißt Fehler aus !

am 06.06.2005 15:13:35 von Felix Holdener

"viashin" wrote in
news:1118057801.707386.103890@o13g2000cwo.googlegroups.com:

> kann geschlossen werden, habs ins access forum gepackt, sry
> nochmalflals ich jemanden genervt habe.

Wenn du so programmierst, wie du Deutsch schreibst, dann ist es kein
Wunder, dass du Probleme haben mit deinem Code hast...

Je länger je mehr Leute posten hier in einer Sprache, die nicht mehr
wirklich lesbar ist. _Das_ nervt, um auf deine Frage zurück zu kommen.

Felix