2024年4月27日发(作者：慈白柏)
INTOUCH与SQL数据库通讯
1:首先在SQL2005建立一个用于测试的表.
2: 在SQL server 配置管理器中开启 TCP/IP
3:在INTOUCH中建立标签名
ConnectionID 内存整型标记
ResultCode 内存整型标记
SQLErrorMsg1内存消息
aa 内存实型
bb 内存消息
4: 在 Intouch的 SQL访问管理器中建立绑定列表
到Intouch 中建立绑定列表 BindTable
5:建立一个测试画面，并建立以下按钮。
建立按钮 ResultCode = SQLConnect(ConnectionID,"Provider=SQLOLEDB;User ID=sa;
Password=admin!@#$%^7890;Initial Catalog=mmtest;Data
Source=20150604-2311SQL2005;");
建立按钮 选表: 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 字符串
aa aa 模拟型
bb bb 字符串
ResultCode ResultCode 模拟型
ConnectionID ConnectionID模拟型
7：数据改变脚本 标记名 ResultCode
IF ResultCode ==0 THEN
SQLErrorMsg1 = "no errors occrred";
ELSE
SQLErrorMsg1 = SQLErrorMsg(ResultCode);
ENDIF;
8：到此为主就可以看到我们的测试画面了。。
通过EXCEL表格查询到数据库里内容
如图所示，通过点击查询，即可刷新SQL数据内容到EXCEL表格
上。（日期查询功能未做）
具体步骤如下：
1：安装EXCEL2007版本，发现2007以下，个别不太支持宏指令。
2：进入开发工具下Visual Basic.
个别没有开发工具需要手动开启此工具。
改“开发工具”勾选。
3：进入后，即可见到熟悉的VB窗口。
4：插入一个窗体
建立以下画面：
代码如下：
Private Sub CmdOK_Click()
te
'需要改动的地方之一,选取你的改动单元格
的区域
Range("A2:K2").Select
ontents
'报表日期打印，需要指定单元格
(2, 1) = "查询日期：" &
Year() & "年" &
Month() & "月" &
Day() & "日"
Dim Cn As New tion
Dim rs As New set
Dim i As Integer '列数
Dim j As Integer '行数
Range("A6:B30").Select
ontents
'Dim msg As String
'行数初始化
j = 0
'需要改动的地方之一
"Provider=SQLOLEDB.1;User
ID=sa;Password=admin!@#$%^7890;Persist Security
Info=False;Initial Catalog=mmtest;Data
Source=192.168.0.127SQL2005"
Connection = Cn
'需要改动的地方之一,修改访问表名称
"select * from table_1 "
'数据库检索数据采集
Do While Not
'列数填充
For i = 1 To 2 '这里的32就是你建立数据库
表格数据个数31+1
'这里只需要更改Sheet号
(j + 4, i) = (i - 1)
Next
'列数填充后，操作下一行
j = j + 1
xt
Loop
End Sub
5：EXCEL运行代码，在运行当中，点击表格弹出对话框代码。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If <= 2 Then
End If
If >= 3 Then
MsgBox "数据无法修改！", vbExclamation, "系统提示"
End If
End Sub
到此为止结束。
2015、08、31
2024年4月27日发(作者：慈白柏)
INTOUCH与SQL数据库通讯
1:首先在SQL2005建立一个用于测试的表.
2: 在SQL server 配置管理器中开启 TCP/IP
3:在INTOUCH中建立标签名
ConnectionID 内存整型标记
ResultCode 内存整型标记
SQLErrorMsg1内存消息
aa 内存实型
bb 内存消息
4: 在 Intouch的 SQL访问管理器中建立绑定列表
到Intouch 中建立绑定列表 BindTable
5:建立一个测试画面，并建立以下按钮。
建立按钮 ResultCode = SQLConnect(ConnectionID,"Provider=SQLOLEDB;User ID=sa;
Password=admin!@#$%^7890;Initial Catalog=mmtest;Data
Source=20150604-2311SQL2005;");
建立按钮 选表: 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 字符串
aa aa 模拟型
bb bb 字符串
ResultCode ResultCode 模拟型
ConnectionID ConnectionID模拟型
7：数据改变脚本 标记名 ResultCode
IF ResultCode ==0 THEN
SQLErrorMsg1 = "no errors occrred";
ELSE
SQLErrorMsg1 = SQLErrorMsg(ResultCode);
ENDIF;
8：到此为主就可以看到我们的测试画面了。。
通过EXCEL表格查询到数据库里内容
如图所示，通过点击查询，即可刷新SQL数据内容到EXCEL表格
上。（日期查询功能未做）
具体步骤如下：
1：安装EXCEL2007版本，发现2007以下，个别不太支持宏指令。
2：进入开发工具下Visual Basic.
个别没有开发工具需要手动开启此工具。
改“开发工具”勾选。
3：进入后，即可见到熟悉的VB窗口。
4：插入一个窗体
建立以下画面：
代码如下：
Private Sub CmdOK_Click()
te
'需要改动的地方之一,选取你的改动单元格
的区域
Range("A2:K2").Select
ontents
'报表日期打印，需要指定单元格
(2, 1) = "查询日期：" &
Year() & "年" &
Month() & "月" &
Day() & "日"
Dim Cn As New tion
Dim rs As New set
Dim i As Integer '列数
Dim j As Integer '行数
Range("A6:B30").Select
ontents
'Dim msg As String
'行数初始化
j = 0
'需要改动的地方之一
"Provider=SQLOLEDB.1;User
ID=sa;Password=admin!@#$%^7890;Persist Security
Info=False;Initial Catalog=mmtest;Data
Source=192.168.0.127SQL2005"
Connection = Cn
'需要改动的地方之一,修改访问表名称
"select * from table_1 "
'数据库检索数据采集
Do While Not
'列数填充
For i = 1 To 2 '这里的32就是你建立数据库
表格数据个数31+1
'这里只需要更改Sheet号
(j + 4, i) = (i - 1)
Next
'列数填充后，操作下一行
j = j + 1
xt
Loop
End Sub
5：EXCEL运行代码，在运行当中，点击表格弹出对话框代码。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If <= 2 Then
End If
If >= 3 Then
MsgBox "数据无法修改！", vbExclamation, "系统提示"
End If
End Sub
到此为止结束。
2015、08、31