Rss & SiteMap

金字塔客服中心 - 专业程序化交易软件提供商 http://www.weistock.com/bbs/

专业程序化软件提供商
共4 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:MYSQL连接收据库例子

1楼
zm71212302 发表于:2020/3/2 22:41:21
//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);

2楼
yukizzc 发表于:2020/3/2 23:05:31

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

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

3楼
zm71212302 发表于:2020/3/3 10:56:49
主要是不熟悉DBEXECUTE、DBTABLE、DBTABLE运行机理,看到有可能是双精度定义或是字符串定义的兼容性问题。
4楼
wenarm 发表于:2020/3/3 11:32:54
这个函数就是执行sql命令的。和数据类型没关系。
共4 条记录, 每页显示 10 条, 页签: [1]


Powered By Dvbbs Version 8.3.0
Processed in 0.32813 s, 3 queries.