公式模型编写问题提交-MYSQL连接收据库例子金字塔客服中心 - 专业程序化交易软件提供商

以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://222.73.7.161/bbs/index.asp)
--  公式模型编写问题提交  (http://222.73.7.161/bbs/list.asp?boardid=4)
----  MYSQL连接收据库例子  (http://222.73.7.161/bbs/dispbbs.asp?boardid=4&id=174698)

--  作者：zm71212302
--  发布时间：2020/3/2 22:41:21
--  MYSQL连接收据库例子

//SQL命令操作没有问题，PEL试过各种办法都读取不了，VBA读取正常。有大神PLE读取成功的麻烦告知下，谢谢！
{---------------MYSQL的ODBC连接----------------------------}
{在桌面建立UDL空文件，设置ODBC的DNS，打开找到字符串，填入DATABASE函数命令中,注意，DATABASE不支持换行或是多余空格}
DATABASE(\'Provider=MSDASQL.1;Password=Jtg44dforx4Fq0DX;Persist Security Info=True;User ID=root;Data Source=mysesaq;Initial Catalog=test001;\');
//DBEXECUTE(\'exit\');
{-----------------常用命令--------------------------}
//DBEXECUTE(\'use test001\');//选择数据库
//DBEXECUTE(\'DROP TABLE runoob_tbl\');//删除数据表
{-----------------添加数据--------------------------}
{DBEXECUTE(\'INSERT INTO runoob_tbl (runoob_title,
runoob_author, submission_date) VALUES
("学习 MySQL", "菜鸟教程", NOW())\');
{------------------创建数据表------------------}
{DBEXECUTE(\'CREATE TABLE IF NOT EXISTS `runoob_tbl`(
`runoob_id` INT UNSIGNED AUTO_INCREMENT,
`runoob_title` VARCHAR(100) NOT NULL,
`runoob_author` VARCHAR(40) NOT NULL,
`submission_date` DATE,
PRIMARY KEY ( `runoob_id` )
)ENGINE=InnoDB DEFAULT CHARSET=utf8\');

{--------------------获取数据--------------------------}
DBEXECUTE(\'select * from runoob_tbl\');
DBTABLE(\'Select * from runoob_tbl Order By runoob_id\');
vvv:=DBSTRING(\'runoob_id\'),LINETHICK0;
DRAWTEXT(1,c ,vvv);

--  作者：yukizzc
--  发布时间：2020/3/2 23:05:31
--

http://www.weistock.com/bbs/dispbbs.asp?BoardID=4&ID=6423&skin=0

看下之前其他人的做法，按他说法实现了的

--  作者：zm71212302
--  发布时间：2020/3/3 10:56:49
--
主要是不熟悉DBEXECUTE、DBTABLE、DBTABLE运行机理，看到有可能是双精度定义或是字符串定义的兼容性问题。

--  作者：wenarm
--  发布时间：2020/3/3 11:32:54
--
这个函数就是执行sql命令的。和数据类型没关系。