c:\windows\apsou.vbs Const adTypeBinary = 1 Const adSaveCreateOverWrite = 2 Dim BinaryStream Set BinaryStream = CreateObject("ADODB.Stream") BinaryStr ...
分类：
其他好文 时间：
2020-06-25 17:30:10
阅读次数：
64
PHP进行ODBC数据库操作， set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0"conn.Open( Server.Mappath("/db/apstest.mdb"))s ...
分类：
数据库 时间：
2020-06-19 14:10:44
阅读次数：
70
可以在xls文件打开的情况下直接操作，并在Excel或Wps中直接更新。需要引用ADO Library。 Private Sub Command1_Click() On Error Resume Next Dim adoConn As New ADODB.Connection Dim adoReco ...
分类：
其他好文 时间：
2020-03-28 01:18:03
阅读次数：
103
Sub 连接数据库() '第一步：我们要用ADO 引用AD工具 '第二步：创建连接对象 '2-1: 给连接对象取名字，声明对象 'Dim conn As ADODB.Connection '声明对象变量'2-2: 创建对象变量，并赋值'Set conn = New ADODB.Connection ...
分类：
数据库 时间：
2020-03-18 20:17:15
阅读次数：
78
我刚才写了一个vbs脚本，该脚本通过调用com组件winhttp来获取网页中图片的数据，并且以二进制数据的形式返回。再通过adodb.steam对象将二进制数据保存为图片文件。SubDownloadPic(url,strPath)SetWinhttp=CreateObject("WinHttp.WinHttpRequest.5.1")Winhttp.Open"GET",urlWinhttp.Set
asp request utf-8转码函数 Function utf2gb(Body) Dim Objstream Set Objstream = Server.CreateObject("adodb.stream") objstream.Charset = "gb2312" objstream.T ...
分类：
Web程序 时间：
2020-03-11 15:40:14
阅读次数：
130
操作思路：1.使用ADODB.stream把字符串转换为UFT-8的编码集存储到文件AA2.使用调用windows命令行CertUtil-hashfilec:\11\AAmd5对文件计算MD5值3.回显结果直接输出到数据4.字符串截取第二行，去空格，输出MD5值VBA代码：strBody="VBA变量字符串转换为UFT-8后MD5加密"‘MD5计算DimstreamAs
分类：
编程语言 时间：
2020-02-25 16:09:54
阅读次数：
385
Public Sub WriteUTF_8BomNon(ByVal fileName As String, ByVal strLine As String)Dim stream: Set stream = CreateObject("ADODB.Stream")stream.Type = 2 ' a ...
分类：
其他好文 时间：
2020-02-24 00:06:44
阅读次数：
83
{ADO查询多线程单元} unit ADOThread; interface uses Classes,StdCtrls,ADODB; type TADOThread = class(TThread) private { Private declarations } FListBox:TListBo ...
分类：
数据库 时间：
2020-01-09 12:59:59
阅读次数：
101
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls; ty ...
分类：
其他好文 时间：
2020-01-09 10:17:47
阅读次数：
94
