---

Fehlerausg.jpg

Hallo,

ich habe bisher mit Hilfe der ARX-Anwendung asilisp eine Excel-Datei ohne Probleme bearbeitet. Nun möchte ich dies auf ADOLisp umstellen. Die Verbindung zu Excel stelle ich nun so her:
(setq vobjverb (ADOLISP_ConnectToDB "Provider=MSDASQL;Driver={Microsoft Excel Driver (*.xls)};DBQ=W:\\Schriften\\TestSchriften.xls""" ""))
Nun möchte ich in der Excel-Datei eine neue Tabelle wie folgt anlegen:
(setq Result (ADOLISP_DoSQL vobjverb "create table testtab (ASCII double, URWNR double, KORREKTUR double)"))
Die Variable Result hat aber den Wert nil.

-----------------------------------------------------------------
Edit:
Fehlerausgabe siehe Anlage
-----------------------------------------------------------------

Wie kann ich per ADOLisp (bzw. ActiveX) in Excel eine neue Tabelle anlegen?

Danke im Voraus und viele Grüße
Bernd

[Diese Nachricht wurde von Bernd10 am 19. Jul. 2004 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

um mein Problem zu lösen, mußte ich beim Verbinden der Datenbank noch folgendes hinzufügen:
READONLY=FALSE

Gruß Bernd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Bernd10,

ich arbeite auch mit ADOlisp und kann alles von AutoCAD nach Access
per Lisp schreiben. (siehe Beispiel)
Das möchte ich auch mit Excel so handhaben.
Aber wenn ich eine vorhandene Exceldatei was scheiben will z.B.
in "A1" eine Wert (Zahl oder Text) bekomme ich es einfach nicht hin.
Kannst du mir ein Beispiel zusenden ? ( Danke )

Beispiel in ACCESS :

(setq ConnectString (strcat "Provider=MSDASQL;Driver={Microsoft Access Driver (*.mdb)};DBQ=" Path Bezeichnung))
(setq SQLStatement (strcat "INSERT INTO STÜCKLISTE (ITEM, QTY "
vorne ", STUECKLISTENNUMMER) VALUES (" Pos_Nr ", " STUECKZAHL hinten ", '" ACCESS_STUECKLISTEN_NR "'" ")"))
(setq Result(ADOLISP_DoSQL ConnectionObject SQLStatement))
(ADOLISP_GetTablesAndViews ConnectionObject)
(ADOLISP_DisconnectFromDB ConnectionObject)

Beispiel in Excel ????

Gruss Dietmar

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Dietmar,

Zitat:

---

Original erstellt von Dammfeld:

ich arbeite auch mit ADOlisp und kann alles von AutoCAD nach Access
per Lisp schreiben. (siehe Beispiel)
Das möchte ich auch mit Excel so handhaben.
Aber wenn ich eine vorhandene Exceldatei was scheiben will z.B.
in "A1" eine Wert (Zahl oder Text) bekomme ich es einfach nicht hin.
Kannst du mir ein Beispiel zusenden ? ( Danke )

Beispiel in ACCESS :

(setq ConnectString (strcat "Provider=MSDASQL;Driver={Microsoft Access Driver (*.mdb)};DBQ=" Path Bezeichnung))
(setq SQLStatement (strcat "INSERT INTO STÜCKLISTE (ITEM, QTY "
vorne ", STUECKLISTENNUMMER) VALUES (" Pos_Nr ", " STUECKZAHL hinten ", '" ACCESS_STUECKLISTEN_NR "'" ")"))
(setq Result(ADOLISP_DoSQL ConnectionObject SQLStatement))
(ADOLISP_GetTablesAndViews ConnectionObject)
(ADOLISP_DisconnectFromDB ConnectionObject)

Beispiel in Excel ????

---

ich kann Dir leider keine Beispiele von der ADOLisp/Excel mehr liefern, da ich meine Test unter AutoCAD 2002 gemacht habe und das ist inzwischen deinstalliert. Ich verwende ich AutoCAD 2005. Ich wollte zu meiner Testphase auch Access verwenden und habe dies nicht hinbekommen. Nach meinen damaligen Informationen könnten die SQLStatements von Ecxel und Access unterschiedlich sein. Dies habe ich dann aber nicht mehr genauer getestet. Ich verwende unter AutoCAD 2005 immer noch ASILisp/Excel. Bei Interesse kann ich hierfür einige Beispiele zusammenstellen. es kann aber einige Tage dauern, da ich zuerst meine aktuellen Termine einhalten muss.

Gruß Bernd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Dietmar,

wie versprochen habe ich nun für meine Kombination AutoCAD2005/ASILisp/Excel einige Beispiele meiner SQL-Befehle zusammengestellt. Vielleicht hilft es Dir ja weiter.

"create table lte50166ker (BUNRKOMBI double, KORREKTUR double)"
"insert into lte50166ker (BUNRKOMBI, KORREKTUR) values (3232, 0.00)"
"select * from signusaa"
"select KORREKTUR from mker"

Gruß Bernd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Bernd10,

Danke für die schnelle Antwort.
Aber ganz genau verstehe ich das noch nicht.
Für mein Problem kommt wohl die folgende Zeile in Frage.
"insert into lte50166ker (BUNRKOMBI, KORREKTUR) values (3232, 0.00)"

Was bedeutet lte50166ker , BUNRKOMBI und KORREKTUR ???

Gruss Dietmar

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Dietmar,

Zitat:

---

Original erstellt von Dammfeld:

"insert into lte50166ker (BUNRKOMBI, KORREKTUR) values (3232, 0.00)"

Was bedeutet lte50166ker , BUNRKOMBI und KORREKTUR ???

---

lte50166ker = Tabelle in der Exceldatei
BUNRKOMBI  = Spalte in der Tabelle
KORREKTUR  = Spalte in der Tabelle

Gruß Bernd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP