|
发表于 2024-10-15 09:56:42
|
显示全部楼层
山东省青岛市
需要先安装驱动!!!
驱动安装方法如下:
1.下载oracle驱动文件,并将两个压缩包的文件解压至一个文件夹内(文件太大,只能上百度云了)
链接: https://pan.baidu.com/s/1804RlFMyL2W5QW2qgi_RTQ 提取码: pxyc
2.添加环境变量,注意路径
path变量加上 D:\Oracle\instantclient_12_1
新建 ORACLE_HOME:D:\Oracle\instantclient_12_
新建 TNS_ADMIN:D:\Oracle\instantclient_12_1\network\admin
新建 NLS_LANG:SIMPLIFIED CHINESE_CHINA.ZHS16GBK --用于设置中文乱码问题
3.最后以管理员模式执行 odbc_install.exe
以下是语言开发内容:
不用引用模块
.版本 2
.程序集 窗口程序集_启动窗口
.子程序 _按钮1_被单击
.局部变量 结果, 整数型
.局部变量 句柄, 整数型
.局部变量 GZ, 文本型
.局部变量 PATH, 文本型
' 开发前必须安装驱动,驱动安装后不能删除,哪台电脑
.如果 (外部数据库1.打开 (“DRIVER={Oracle in instantclient_12_1};DBQ=172.16.1.1/orcl;UID=用户名;PWD=密码;DBA=数据库名”, , ) = 真)
编辑框2.内容 = “真”
.否则
编辑框2.内容 = “假”
.如果结束
句柄 = 外部数据库1.查询 (编辑框1.内容)
外部数据库1.到首记录 (句柄)
.判断循环首 (外部数据库1.尾记录后 (句柄) = 假)
GZ = 外部数据库1.读 (句柄, “GZ”) + #换行符 + GZ
PATH = 外部数据库1.读 (句柄, “PATH”) + #换行符 + PATH
外部数据库1.到后一记录 (句柄)
.判断循环尾 ()
编辑框3.内容 = GZ
编辑框4.内容 = PATH
外部数据库1.关闭 ()
|
|