Visual LISP, AutoLISP and General Customization

Visual LISP, AutoLISP and General Customization

Reply
*vianello, davide
Message 1 of 4 (357 Views)

mysql

357 Views, 3 Replies
12-12-2001 06:39 PM
hi

Has anyone tried to connect with MySQL database?
Any help or suggestion is appreciated.

thank you in advance
Davide
*Young, Darren J.
Message 2 of 4 (357 Views)

Re: mysql

12-12-2001 10:44 PM in reply to: *vianello, davide
In article <8E738CA5E6BAD90DD0B6F6A71FF9350B@in.WebX.maYIadrTaRb>,
jmpdvi@tin.it says...
> hi
>
> Has anyone tried to connect with MySQL database?
> Any help or suggestion is appreciated.

Try the connectivity group. There's a couple folks there (Jn Fleming &
Scott McFarlane) that are very good with databases.

--
Sincerely,
Darren J. Young

Minnesota CADWorks, Inc.
P.O. Box 7293
Saint Cloud, Minnesota 56302-7293
Phone: (320) 654-9053
WWW: http://www.mcwi.com
Active Member
rbigger
Posts: 8
Registered: ‎09-28-2006
Message 3 of 4 (357 Views)

Re: mysql

09-28-2006 11:21 AM in reply to: *vianello, davide
I found a way to connect to a mysql database with vlisp. first i installed the ODBC mysql driver from the mysql website. then i created a vlisp command to connect to the dll and run a query. here's an example of the code i wrote.

(vl-load-com)
(defun mysqlQuery (sQuery / $acad dbConn dbConnString dbResult field item)
;connect to autocad application object
(setq $acad (vlax-get-acad-object))

;connect to the mysql dll object
(setq dbConn (vla-GetInterfaceObject $acad "ADODB.Connection"))

;open the mysql database
(setq dbConnString (strcat "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost;"
"DATABASE=mydb; UID=myid; PWD=mypassword; OPTION=3")
)
(vlax-invoke dbConn "Open" dbConnString)

;run a query on the database
(setq dbResult (vlax-invoke dbConn "Execute" sQuery))

;find the field, item, and value of the first object in the recordset
(setq field (vlax-get-property dbResult "Fields"))
(setq item (vlax-get-property field "Item" 0))
(setq value (vlax-get-property item "Value"))

;release the autocad application and mysql object
(vlax-invoke-method dbConn "Close")
(vlax-release-object dbConn)
(vlax-release-object $acad)

;prompt the result
(prompt (vlax-variant-value value))
(princ)
)

to run the command i have to send an sql query.

(mysqlQuery "SELECT name FROM staff WHERE name LIKE '%Smith%'")
Active Member
cpambo
Posts: 10
Registered: ‎08-24-2011
Message 4 of 4 (243 Views)

Re: mysql

06-08-2012 10:17 PM in reply to: *vianello, davide

It works!

 

However, the data returned is only for one row.  Could you show how to get multiple rows (or records)?

 

Thanks in advance!

 

 

Post to the Community

Have questions about Autodesk products? Ask the community.

New Post
Announcements
Are You Going To Be @ AU 2014? Feel free to drop by our AU topic post and share your plans, plug a class that you're teaching, or simply check out who else from the community might be in attendance. Ohh and don't forgot to stop by the Autodesk Help | Learn | Collaborate booths in the Exhibit Hall and meet our community team if you get a chance!