Intouch与SQL连接.docx

Intouch与SQL连接.docx

《Intouch与SQL连接.docx》由会员分享，可在线阅读，更多相关《Intouch与SQL连接.docx（11页珍藏版）》请在冰点文库上搜索。

Intouch与SQL连接

INTOUCH与SQL数据库通讯

1:

首先在SQL2005建立一个用于测试的表.

2:

在SQLserver配置管理器中开启TCP/IP

3:

在INTOUCH中建立标签名

ConnectionID内存整型标记

ResultCode内存整型标记

SQLErrorMsg1内存消息

aa内存实型

bb内存消息

4:

在Intouch的SQL访问管理器中建立绑定列表

到Intouch中建立绑定列表BindTable

5:

建立一个测试画面，并建立以下按钮。

建立按钮ResultCode=SQLConnect（ConnectionID,"Provider=SQLOLEDB;UserID=sa;

Password=admin!

@#$%^7890;InitialCatalog=mmtest;DataSource=20150604-2311\SQL2005;"）;

建立按钮选表:

ResultCode=SQLSelect（ConnectionID,"Table_1","BindTable","",""）;

建立按钮第一行：

ResultCode=SQLFirst（ConnectionID）;

建立按钮下一行：

ResultCode=SQLNext（ConnectionID）;

建立按钮最后一行：

ResultCode=SQLLast（ConnectionID）;

建立按钮关闭按钮：

ResultCode=SQLDisconnect（ConnectionID）;

建立按钮插入按钮：

ResultCode=SQLInsert（ConnectionID,"Table_1","BindTable"）;

需要注意：

"Table_1"为数据库中表的名字，"BindTable为INTOUCH绑定列表的名称。

建立连接按钮为例：

双击按钮，选择动作

在弹出对话框输入代码：

6：

对应显示地址

报警信息SQLErrorMsg1字符串

aaaa模拟型

bbbb字符串

ResultCodeResultCode模拟型

ConnectionIDConnectionID模拟型

7：

数据改变脚本标记名ResultCode

IFResultCode==0THEN

SQLErrorMsg1="noerrorsoccrred";

ELSE

SQLErrorMsg1=SQLErrorMsg（ResultCode）;

ENDIF;

8：

到此为主就可以看到我们的测试画面了。

。

通过EXCEL表格查询到数据库里内容

如图所示，通过点击查询，即可刷新SQL数据内容到EXCEL表格上。

（日期查询功能未做）

具体步骤如下：

1：

安装EXCEL2007版本，发现2007以下，个别不太支持宏指令。

2：

进入开发工具下VisualBasic.

个别没有开发工具需要手动开启此工具。

改“开发工具”勾选。

3：

进入后，即可见到熟悉的VB窗口。

4：

插入一个窗体

建立以下画面：

代码如下：

PrivateSubCmdOK_Click（）

Sheet1.Activate

'需要改动的地方之一,选取你的改动单元格的区域

Range（"A2:

K2"）.Select

Selection.ClearContents

'报表日期打印，需要指定单元格

Sheet1.Cells（2,1）="查询日期：

"&Year（Calendar1.Value）&"年"&Month（Calendar1.Value）&"月"&Day（Calendar1.Value）&"日"

DimCnAsNewADODB.Connection

DimrsAsNewADODB.Recordset

DimiAsInteger'列数

DimjAsInteger'行数

Range（"A6:

B30"）.Select

Selection.ClearContents

'DimmsgAsString

'行数初始化

j=0

'需要改动的地方之一

Cn.Open"Provider=SQLOLEDB.1;UserID=sa;Password=admin!

@#$%^7890;PersistSecurityInfo=False;InitialCatalog=mmtest;DataSource=192.168.0.127\SQL2005"

rs.ActiveConnection=Cn

'需要改动的地方之一,修改访问表名称

rs.Open"select*fromtable_1"

'数据库检索数据采集

DoWhileNotrs.EOF

'列数填充

Fori=1To2'这里的32就是你建立数据库表格数据个数31+1

'这里只需要更改Sheet号

Sheet1.Cells（j+4,i）=rs.Fields（i-1）

Next

'列数填充后，操作下一行

j=j+1

rs.MoveNext

Loop

rs.Close

EndSub

5：

EXCEL运行代码，在运行当中，点击表格弹出对话框代码。

PrivateSubWorksheet_SelectionChange（ByValTargetAsRange）

IfTarget.Row<=2Then

FrmDaySelect.Hide

FrmDaySelect.Show

EndIf

IfTarget.Row>=3Then

MsgBox"数据无法修改！

",vbExclamation,"系统提示"

EndIf

EndSub

到此为止结束。

2015、08、31