易语言连接各种外部数据库及读取数据
doc文件：
*attachment=13153*
--------------------------------
窗口程序集：窗口程序集1
程序集变量：记录集句柄 数据类型：整数型
══════════════════════════════
子程序：_按钮3_被单击 //ACCESS
局部变量：sjk 数据类型：文本型*如果 (外部数据库1.打开(
ODBC;DBQ=db1.mdb;DefaultDir=” ＋ 取当前目录 () ＋ “\” ＋“;Driver={Microsoft Access Driver(*.mdb)};DriverId=25;FIL=MSAccess;MaxBufferSize=2048ageTimeout=5WD=542381;UID=admin; ”, ))记录集句柄 ＝ 外部数据库1.查询(“se lect * from 表1”)否则 信息框 (“连接失败”, 0, )如果结束如果 (记录集句柄 ＝ 0) 信息框 (“查询失败”, 0, )否则 外部数据库1.到首记录 (记录集句柄) 信息框(“ok”, 0, ) 显示 ()如果结束*══════════════════════════════*子程序：显示*编辑框1.内容 ＝ 到文本 (外部数据库1.读 (记录集句柄, 2))编辑框2.内容 ＝ 到文本 (外部数据库1.读(记录集句柄, 3))编辑框3.内容 ＝到文本 (外部数据库1.读 (记录集句柄, 4))编辑框5.内容 ＝ 外部数据库1.取连接文本 ()
══════════════════════════════
子程序：_按钮1_被单击*外部数据库1.到前一记录 (记录集句柄)显示 ()*═════════════════════════════
子程序：_按钮2_被单击*外部数据库1.到后一记录 (记录集句柄)显示 ()
═══════════════
-------------
2012-1-12 2:07:22续:
═══════════════*子程序：_按钮2_被单击*外部数据库1.到后一记录 (记录集句柄)显示 ()*══════════════════════════════*子程序：_按钮4_被单击*如果 (_启动窗口.外部数据库1.执行 (“in sert into 表1 ” ＋ “values ” ＋ “(” ＋ 编辑框4.内容 ＋ “,” ＋ “’” ＋ 编辑框1.内容 ＋ “’,” ＋ 编辑框2.内容 ＋“,’” ＋ 编辑框3.内容 ＋ “’)”, )＝ 假)*信息框 (“ok”, 0, )*否则 信息框 (“no ok”, 0, )如果结束*══════════════════════════════*子程序：_按钮5_被单击*如果 (外部数据库1.执行 (“cr eatetable ” ＋ 编辑框4.内容 ＋ “ (”＋ 编辑框4.内容 ＋ “ int,姓名text,年龄 int,电子邮箱 text,地址text,备注 memo)”, )) 信息框(“ok”, 0, )否则 信 .