找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 484|回复: 7

[求助] 求助:AutoLisp访问SQL数据库问题

[复制链接]
发表于 2018-2-28 09:54:45 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

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

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 20个

财富等级: 恭喜发财

发表于 2018-2-28 09:58:13 | 显示全部楼层
你先百度, ADO 和 MYSQL , 看看他们的相关知识。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 20个

财富等级: 恭喜发财

发表于 2018-2-28 09:59:46 | 显示全部楼层
另外,你要联网绘图? 需要用数据库存储数据吗?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 6056个

财富等级: 富甲天下

发表于 2018-3-2 01:00:41 | 显示全部楼层
太高深了,不懂!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-3-8 19:56:40 | 显示全部楼层
非常感谢marting!我需要用MySQL存储数据。网上关于ADO的知识很多都是关于SQL server的
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1268个

财富等级: 财源广进

发表于 2018-3-9 10:21:53 | 显示全部楼层
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1268个

财富等级: 财源广进

发表于 2018-3-9 10:23:11 | 显示全部楼层
------------------------------------------------------------------
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.
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-3-10 16:44:17 | 显示全部楼层
非常感谢!st788796,我好好研究一下。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-3-29 23:52 , Processed in 0.381112 second(s), 42 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表