求助：AutoLisp访问SQL数据库问题

CAD爱好者2018

本人因工作需要，自学AutoLisp开发，想用业余时间做AutoLisp联网绘图功能，经过2个月的自学，目前Autolisp功能已经基本搭建，总体思路是用AutoLisp实现绘图，用MySQL数据库做服务器实现联网，AutoLisp实现访问数据库，并采集数据库的变化，实现实时更新绘图。
目前正在学习lisp访问数据库和MySQL数据库知识。
我的疑问是，①AutoLisp访问数据库在论坛里找了一个ADOLisp函数库，用这个函数库能访问MySQL吗？②网上也有高手说用AutoLisp访问数据库会很慢，需要用exe文件解析数据库实现Lisp读取，这个过程是如何实现的？恳请高手不吝赐教。小弟谢过。

marting

你先百度， ADO 和 MYSQL ， 看看他们的相关知识。

marting

另外，你要联网绘图？ 需要用数据库存储数据吗？

kqqt6236

太高深了，不懂！

CAD爱好者2018

非常感谢marting！我需要用MySQL存储数据。网上关于ADO的知识很多都是关于SQL server的

st788796

CAD爱好者2018 发表于 2018-3-8 19:56

找到一个这样的程序

https://sourceforge.net/projects/wmidb/?source=typ_redirect

MySQL ActiveX Connector

st788796

------------------------------------------------------------------
Examples   (written in VBScript on Active Server Pages)
----------------------
        Example:  Connecting and disconnecting from a database
        Note:          Disconnection is always recommended to free up resources.

                set myObject = Server.CreateObject("WMIDB.MySQL")
                m_iResult = myObject.OpenConnection("HostName", "Port", "UserName", "Password", "Database")
                myObject.CloseConnectionID m_iResult

        Note:  m_iResult is a return value, > 0 = ConnectionID, < 0 = Error
----------------------
        Example:  Opening and closing a recordset
        Note:          Closing a recordset is not mandatory

                if myObject.OpenRecordset("Handle Name", "SQL Statement Returning Rows") then
                        Do work here
                        myObject.CloseRecordset "Handle Name"
                end if

        Note:  SQL Statement can only be 8192 characters in length.  Handles only unique to 100 characters.
                   m_iResult is a return value, zero (0) on success, one (1) on failure
----------------------
        Example:  Refreshing a recordset
        Note:          Retrieves latest data from database and moves you to first row again.

                myObject.Refresh "Handle Name"

----------------------
        Example:  Checking Recordset Bounds
        Note:          There are functions to allow you to check the EOR and BOR
                          values returned are true and false.  If recordset is empty
                          both will return true.

                m_iResult1 = myObject.EOR("Handle Name")
                m_iResult2 = myObject.BOR("Handle Name")

                if m_iResult1 and m_iResult2 then
                        Recordsets are empty
                end if

----------------------
        Example:  Navigation
        Note:          Functions will move recordset through results

                myObject.MoveNext "Handle Name"
                myObject.MovePrevious "Handle Name"
                myObject.MoveFirst "Handle Name"
                myObject.MoveLast "Handle Name"

----------------------
        Example:  Retrieving values
        Note:  These functions allow you to retrieve particular values from within the current row.

                m_varReturn = myObject.GetFieldByName("Handle Name", "Column Name")
                m_varReturn = myObject.GetFieldByIndex("Handle Name", IntegerRepresentingOrder)

        Note:  The GetFieldByIndex function will allow you to retrieve the column from the row
                        by the order in which it was retrieved, 0 -> N-1
----------------------
        Example:  Executing miscellaneous commands  (Only available in full version)
        Note:          This function will allow you to execute any SQL command without storing the
                          rows (if any) coming back.  For use with CREATE, UPDATE, INSERT, DELETE, DROP, ALTER, etc.

                m_iResult = myObject.Execute("SQL Statement to Run")

        Note:          This will return a true for successful sends and false for failed communication.

CAD爱好者2018

非常感谢！st788796，我好好研究一下。