添加如下vbs脚本. 并在适当的时候调用,比如定时器触发 Sub LogVal(furno) '记录温度值等等 Dim conn ,sqlstr Set conn = CreateObject("ADODB.Connection") conn.open "Provider=SQLOLEDB.1;In ...
分类：
数据库 时间：
2019-10-18 16:12:52
阅读次数：
146
unit Unit3; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, DB, ADODB, StdCtrls; type PNo... ...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, DB, ADODB; type PNo... ...
（1）new ActiveXObject("ADODB.Connection"); <HTML> <HEAD> <TITLE></TITLE> <script language=javascript> function connectDb() { var ConnDB = new ActiveXOb ...
分类：
数据库 时间：
2019-07-05 12:28:08
阅读次数：
186
' ' 过程及函数名： ListAllTableAndAllField' 版本号 ： --' 说明 ： 本过程只用于演示如何用adodb的OpenSchema获取' 当前ACCESS数据库的所有表的所有列信息' 引用 ： Micrsoft ActiveX Data Ojbects 2.1 Libra ...
分类：
数据库 时间：
2019-07-03 20:10:06
阅读次数：
156
使用软件office2010 工具-引用-activex 2.8 .xls 等类型文件 On Error GoTo ErrorHandler Dim Conn As New ADODB.ConnectionConn.Open "Provider=Microsoft.ACE.OLEDB.12.0;ex ...
分类：
数据库 时间：
2018-12-09 14:01:32
阅读次数：
258
asp参数化查询读取写入修改删除完整版 Function SqlHelper(sqlstr,para)Dim cmdSet cmd = Server.CreateObject( "ADODB.Command" )queryType = 0If Not IsArray(para) Then If pa ...
分类：
Web程序 时间：
2018-10-10 14:22:49
阅读次数：
210
未识别错误，是因拼写错误或找不到定义文件。 下面列举一些类型和函数用到的单元。 _Stream ADODB_TLB akTop, akLeft, akRight, akBottom Controls Application (the variable not a type) Forms Beep S ...
分类：
其他好文 时间：
2018-10-02 17:43:35
阅读次数：
245
'DbFunc.bas'== 标记数据库是否连接 == Private IsConnect As Boolean '== 标记执行Connect()函数后，访问数据库的次数 == Private Connect_Num As Integer Private cnn As ADODB.Connecti... ...
分类：
其他好文 时间：
2018-08-29 18:44:38
阅读次数：
184
'導入命名空間 Imports ADODB Imports Microsoft.Office.Interop Private Sub A1() Dim Sql As StringDim Cnn As New ADODB.Connection Dim Rs As New ADODB.Recordset ...
分类：
数据库 时间：
2018-07-10 20:10:53
阅读次数：
203
