Problem mit Abfrage ODBC verknüpfte Tabelle mit TempVar

[DF6GL]

Dann zeige die Guid mal an mit:

Msgbox Me!GUID

[datekk]

Die MsgBox gibt 8 Fragezeichen aus.. Also ??

[datekk]

Das Problem sind die geschweiften Klammern im Index. Siehe: http://support.microsoft.com/kb/826763/de

Habe nämlich mal ein anderes Feld via MsgBox ausgelesen und hier gibt es keine Probleme...

Kann man das Problem mit den Klammern irgenwie umgehen? Ich könnte doch sicher in der Abfrage die Klammern rausfiltern und dann später in der Befehlszeile so oder ähnlich einsetzen: ...."{" & me.guid2 & "}".. Was meinst Du? Wenn ja, wie filter ich die Dinger raus?

[DF6GL]

Hallo,
je nachdem, wie die GUID nun in der Tabelle behandelt (formatiert) ist, muss eine "richtige" Guid in einen String umgewandelt werden.

Versuch mal:

CurrentDb.Execute "Insert into Kundenliste (Anrede,Vorname,Nachname) Select Prefix,FirstName,LastName from dbo_PublicContactsView Where EntryGUID = '" & StringFromGUID (Me!Guid) & "'"

[datekk]

Wir scheinen uns anzunähern.. Aber leider erhalte ich die Fehlermeldung "Laufzeitfehler 3146: ODBC Aufruf fehlgeschlagen".

Den Teil "StringFromGUID(Me!GUID)" habe ich diesmal auch für die MsgBox genutzt und hier spuckt das Teil jetzt aus: "{guid {1234-1234-1234-1234}}" wobei die 1234 nur beispielhaft von mir aufgeführt worden ist.

[DF6GL]

Hallo,

versuch, auch EntryGuid mit StringFroGUID zu konvertieren. Wenn dabei StringfromGuid nicht als Funktion erkannt wird, dann wäre noch eine Möglichkeit, die Konvertierung in einer Public-Funktion durchzuführen und diese Funktion im SQL-String einzusetzen.

Ob man dadurch den ODBC-Treiber überlisten kann, kann ich jetzt und hier nicht nachprüfen.

[datekk]

Also wenn ich den Steuerelementinhalt setzte auf =StringFromGuid([EntryGUID]) dann bekomme ich irgenwelche chinesischen Zeichen in dem Feld angezeigt: ꇝ鵛䃌ﺈ敻渨, mit denen das Anhängen des Datensatzes auch nicht funktioniert...

Sonst noch Ideen? Es kann doch nicht sein, das einem das so schwer gemacht wird....

[DF6GL]

Hallo,

lad mal eine kleine Beispiel-db hoch (mit nicht  ODBC-verknüpften Tabellen)

[datekk]

Mir ist jetzt nicht ganz klar, was für eine Beispieldatei ich hochladen soll... Ohne die ODBC Tabellen ist doch das Problem gar nicht vorhanden. Bitte werde etwas konkreter was Du von mir haben möchtest.

LG

[datekk]

Hallo Franz,

kannst Du mir nochmal genauer Antworten was Du haben möchtest...?

[DF6GL]

Hallo,

ich hätte gern eine DB , in der die Tabellen (mit den GUID-Feldern)  direkt vorhanden sind, also keine ODBC-verlinken Tabellen enthält. 

Du solltest doch die ODBC-verlinkten Tabellen in die DB importieren können... ?

[datekk]

Also nochmal zum Verständnis:

ich soll Dir eine Datenbank erstellen, welche die ODBC Tabellen enthält, allerdings als Import-Variante ohne Datensätze (bzw. mit Datenmustern)?

Was ist mit Abfragen / Formularen etc?

[DF6GL]

Hallo,

naja, "authentische" Spieldaten sollten die Tabellen (es brauchen nur solche zu sein, die sich um das Problem ziehen) schon enthalten, will das Ganze ja "offline" (ohne die externen ODBC- Tabellen) testen... Ein Formular, das das besagte "GUID"-Feld enthält, wäre auch nicht schlecht...

[datekk]

 

Die Lösung ist gefunden. Ich musste die EntryGuid via StringFromGUID an eine Variable übergeben. Da die Funktion "StringFromGUID" aber selbstständig vor den String noch "Guid {" und hinten dran dann nochmal eine "}" setzte sah der Wert dann so aus: "Guid { {xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxx}}"

Damit konnten dann auch keine weiteren Dinge damit angestellt werden. Zum Glück (gut, vieleicht ist es auch immer so) haben die BCM EntryGUID´s alle die gleiche Länge. Somit konnte ich die Variable bearbeiten und diese dann in das richtige brauchbare Format bringen welches dann wäre: "{xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx}"

Code [Auswählen] Erweitern


Private Sub EntryGUID_Click()

Dim v_GUID As String

v_GUID = StringFromGUID(Me.EntryGUID)

v_GUID = Right(v_GUID, 38)
v_GUID = Replace(v_GUID, "}", "")
v_GUID = "{" & v_GUID & "}"

End Sub



Jetzt kann ich mit v_GUID super arbeiten. Z.B. klappt jetzt diese Anfügeabfrage:

Code [Auswählen] Erweitern


CurrentDb.Execute "Insert into tbl_Test (tblTest_GUIDID,tblTest_Name) Select EntryGUID,LastName from dbo_PublicContactsView Where EntryGUID=" & v_GUID


Also.... gelöst....