易语言连接PostgreSQL

q1012789582

.版本 2
.支持库 eDB

连接文本 ＝ “Driver={PostgreSQL ODBC Driver(ANSI)};DSN=PostgreSQL30;DATABASE=postgres;SERVER=localhost;PORT=5432;UID=postgres;PWD=123456;”
.如果真 (_启动窗口.数据库连接1.连接 (连接文本) ＝ 假)
    输出调试文本 (“连接数据库失败！”)
.如果真结束
_启动窗口.记录集1.置连接 (数据库连接1)

.版本 2
.支持库 eDB

.子程序 _登录按钮2_被单击
.局部变量 SQL语句, 文本型

SQL语句 ＝ “SELECT * FROM ” ＋ #引号 ＋ “Smart_User” ＋ #引号 ＋ “ where mc='” ＋ 组合框1.内容 ＋ “' and mm='” ＋ 编辑框1.内容 ＋ “'”
_启动窗口.记录集1.打开 (SQL语句, #SQL语句, )
.如果 (_启动窗口.记录集1.记录数量 ＞ 0)
    全局_登陆状态 ＝ 真
    全局_用户名 ＝ 组合框1.内容
    登录吧.销毁 ()
.否则
    信息框 (“账号或密码错误!”, 0, , )
    输出调试文本 (SQL语句)


如上面所说，标记背景的地方很重要！，建议数据库字段全部用小写字母，至于为什么要这样，你自己慢慢琢磨吧！

bb9OKY

厉害，链接PQ数据库嗷嗷好使！

xurr2000

浩淼锋 发表于 2017-7-23 11:03
这样就可以连接postgresql了么？我试试！

是的，64位操作系统下，需要这样修改连接文本。32位下是否是楼主所说，我没有试过。

xurr2000

第一次使用易语言连接数据库，楼主贴对我启发很大。

xurr2000

我是64位win10操作系统，ODBC驱动安装好了，DSN也配置好了，也用excle的数据连接测试了ODBC连接成功，

在程序中：
.版本 2
.支持库 eDB

连接文本 ＝ “Driver={PostgreSQL ODBC Driver(UNICODE)};DSN=PostgreSQL35W;DATABASE=postgres;SERVER=localhost;PORT=5432;UID=postgres;PWD=123456;”
.如果真 (_启动窗口.数据库连接.连接 (连接文本) ＝ 假)
    输出调试文本 (“连接数据库失败！”)
.如果真结束
_启动窗口.记录集.置连接 (数据库连接)

调试显示：
开始运行被调试程序
* 连接数据库失败！
被调试易程序运行完毕

=================================== 已解决
===================================


在窗口中放入扩展组件1中的“数据库连接”和“记录集”：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
连接文本	文本型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

连接文本 ＝ “Driver={PostgreSQL UNICODE};DSN=PostgreSQL35W;DATABASE=postgres;SERVER=localhost;PORT=5432;UID=postgres;PWD=123456;”
判断 (_启动窗口.数据库连接.连接 (连接文本) ＝ 真)
输出调试文本 (“连接数据库成功！”)

输出调试文本 (“连接数据库失败！”)

_启动窗口.记录集.置连接 (数据库连接)

i支持库列表	支持库注释
eDB	数据库操作支持库

.版本 2<br /> .支持库 eDB<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 连接文本, 文本型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 连接文本 ＝ “Driver={PostgreSQL UNICODE};DSN=PostgreSQL35W;DATABASE=postgres;SERVER=localhost;PORT=5432;UID=postgres;PWD=123456;”<br /> .判断开始 (_启动窗口.数据库连接.连接 (连接文本) ＝ 真)<br /> 输出调试文本 (“连接数据库成功！”)<br /> <br /> .默认<br /> 输出调试文本 (“连接数据库失败！”)<br /> .判断结束<br /> <br /> _启动窗口.记录集.置连接 (数据库连接)

浩淼锋

这样就可以连接postgresql了么？我试试！