Visual LISP, AutoLISP and General Customization

Visual LISP, AutoLISP and General Customization

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

mysql

360 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 (360 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 (360 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 (246 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
Do you have 60 seconds to spare? The Autodesk Community Team is revamping our site ranking system and we want your feedback! Please click here to launch the 5 question survey. As always your input is greatly appreciated.