[转自] http://blog.csdn.net/iamlaosong/article/details/18043433 作者:iamlaosong ▲连接Oracle数据库 Set cnn = CreateObject("ADODB.Connection")     cnn.Open "Provider=msdaora;Data Source=dl580;User Id=emssxjk;Password=emssxjk;" dl580是tnsnames.ora中

VBA是一种强大的编程语言,可用于自定义Microsoft Office解决方案.通过使用VBA处理一个或多个Office应用程序对象模型,可以容易地修改Office应用程序的功能或者能够使两个或多个Office应用程序协同工作以完成单个应用程序无法完成的任务.然而,使用VBA仅能控制操作系统的一小部分.Windows API提供了控制操作系统绝大多数方面的功能.下面,介绍在VBA中使用Windows API的一些知识. 理解APIs API只是一组函数,可用于处理组件.应用程序或操作系统.通常

公司某个报表系统使用Informix数据库,在谋划使用Perl语言写数据采集程序后,花费了很多时间建立Perl访问Informix连接.恰巧Windows下ActivePerl的CPAN中又没有DBD::Informix模块,故一度陷入绝望. 有一天突然想起可以使用ODBC方式,经过一番尝试后,很快就成功建立连接. 具体方法: 1. 在Windows系统中建立ODBC数据源.需要安装Informix SDK的客户端驱动. 2. Perl访问ODBC ## 连接参数 my $data_source

原始出处:http://www.cnblogs.com/Charltsing/p/EncryptVBACode.html VBA代码加密是个老生常谈的问题,自从本人的VBA Dumper发布之后,在Office层面上做任何加密都已经失去了意义.所以,很多人开始转战VB封装或者升级到VSTO,Delphi等其他语言.但是,对于广大的VBAer来说,重新学一门语言带来的麻烦要远远超过开发VBA程序所带来的收益.所以,是否能有一种办法在不改变VBA代码的情况下,将VBA代码脱离office进行加密呢?

原文链接:http://hanbaohong.iteye.com/blog/704800 第一步:上网http://dev.mysql.com/downloads/connector/odbc/下载mysql-connector-odbc-5.1.6-win32.msi 第二步:安装mysql-connector-odbc-5.1.6-win32.msi 第三步:运行VB并新建一标准EXE工程, 通过菜单 工程->引用 打开”引用”对话框, 找到 Microsoft ActiveX Data O

1 从官网下载MYSQL的ODBC,选择与自己操作系统对应的版本(前提是你安装了MYSQL) http://dev.mysql.com/downloads/connector/odbc/   2 安装完成之后,搜索数据源,你可以发现刚才装好的MYSQL ODBC驱动   3 新建一个VB6的工程,引用microsoft activex data objects 2.8 library   4 在这个VB6的工程中,复制粘贴以下代码(所有代码都在Form_Load中,不需要做别的什么按钮,控件),

首先在stdafx.h里加入对IDispatch接口提供支持的头文件: #include <afxDisp.h> 再在应用程序类的InitInstance()函数里加入: AfxOleInit(); // 初始化OLE Automation库 我们应该怎么引用Excel对象库呢?按Ctrl+W启动Class Wizard, 再选择“Add Class...”->“From a type library...”,然后 选择“c:\program files\microsoft office

AVOS Cloud目前还在用Ejabberd做Android的消息推送服务.当时选择Ejabberd,是因为Ejabberd是一个发展很长时间的XMPP实现,并且基于Erlang,设想能在我们自主研发的Push Server起来之间顶上一段时间. 我们自主研发的Push Server预计本月中旬就上线了.但是Ejabberd却先顶不住了.Ejabberd做推送,本身就有劣势,比如XMPP协议的冗余,XMPP协议本来就是IM协议,对推送这个简单的场景还是太复杂了一些.Ejabberd Clust

1:内核参数修改 # vi /etc/sysctl.conf kernel.sem= #sysctl –p 备注:此安装过程为测试环境,具体参数修改要参考TimesTen官方文档. 2:创建用户及组信息 [root@nxjs05 wzh]# groupadd timesten [root@nxjs05 wzh]# useradd timesten -g timesten -G timesten [root@nxjs05 wzh]# passwd timesten Changing passwor

笨办法学python. 1 Ec6字符串和文本... 1 ec7. 1 ec8. 1 Ec9. 1 Ec10 转义字符... 1 Ec11提问... 1 raw_input和input的区别... 1 Ec12提示别人... 1 ec13 参数,解包,变量... 1 ec14提示和传递... 1 Ec15读取文件... 1 Ec16读写文件... 1 ec17更多文件操作... 1 ec18命名,变量,代码,函数... 1 ec19函数和变量... 1 ec20函数和文件... 1 ec21函数

AVOS Cloud目前还在用Ejabberd做Android的消息推送服务.当时选择Ejabberd,是因为Ejabberd是一个发展很长时间的XMPP实现,并且基于Erlang,设想能在我们自主研发的Push Server起来之间顶上一段时间. 我们自主研发的Push Server预计本月中旬就上线了.但是Ejabberd却先顶不住了.Ejabberd做推送,本身就有劣势,比如XMPP协议的冗余,XMPP协议本来就是IM协议,对推送这个简单的场景还是太复杂了一些.Ejabberd Clust

笔者作为Apache Doris的开发者,平时感觉相关Doris的文章写的很少.主要是很多时候不知道应该去记录一些怎么样的问题,感觉写的不好就会很慌张.新的一年,希望记录自己在Doris开发过程之中所遇到一些有意思的事情.(只希望能坚持下来,别打脸~~) 言归正传,回到本篇想聊的问一个问题,笔者在开发ODBC of Doris的工作之中,发现通过MySQL 8.0的Driver连接Doris总是提示密码验证失败.但是由于开发工作繁忙,一直没有腾出手解决这个问题.最近重新抽时间梳理了一下这个问题,

Warning messages: 1: In odbcDriverConnect("DSN=Rdata;UID=root") : [RODBC] ERROR: state IM002, code 0, message [Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序 当R语言从数据库取出数据时,出现以上错误,这是由于未配置ODBC数据源引起的错误,以下将介绍该问题的解决方案,同时介绍R连接mysql数据库的方法一.配置ODBC数据源1.下载m

Oracle的配置 一.配置监听和本地服务名配置 分别是 E:\oraclexe\app\oracle\product\11.2.0\server\network\ADMIN 下的这两个文件: 监听配置完之后,执行以下命令登录测试监听是否配置好: sqlplus system/123@XE system是用户,123是密码 在tnsnames.ora中可以添加,如下图: 注意添加的SERVICE_DATA属性的取值必须和服务的一致,这里从下图的服务名称可以看出是XE: 务必要保证这两个服务是正在

我们知道SQL SERVER建立链接服务器(Linked Server)可以选择的驱动程序非常多,最近发现使用ODBC 的 Microsoft OLE DB 驱动程序建立的链接服务器(Linked Server), 调用存储过程过程时,参数不能为NULL值. 否则就会报下面错误提示: 对应的英文错误提示为: EXEC xxx.xxx.dbo.Usp_Test NULL,NULL,'ALL' Msg 7213, Level 16, State 1, Line 1 The attempt by th

在VB中,属性是可以有参数的,而VBA中属性使用参数非常常见.比如最常用的:Worksheet.Range("A1:A10")  VB的语法,使用参数的不一定是方法,也有可能是属性!(虽然属性的本质是方法) 例一:参数当作"索引"使用 定义一个类模块,模块名称Ints.为简化模型,使用了只读属性. ) As Integer Public Property Get ArrValue(Index As Integer) As Integer ArrValue = arr

1.作用    在消息框中显示信息,并等待用户单击按钮,可返回单击的按钮值(比如“确定”或者“取消”).通常用作显示变量值的一种方式.2.语法       MsgBox(Prompt[,Buttons][,Title][,Helpfile,Context]) 参数说明: (1)Prompt,必需的参数,为字符串,作为显示在消息框中的消息文本.其最大长度约为1024个字符,由所用字符的宽度决定.如果prompt的内容超过一行,则可以在每一行之间用回车符(Chr(13)).换行符(Chr(10))或

VBA的过程及参数详解 VBA中的过程(Procedure)有两种,一种叫函数(Function),另外一种叫子程序(Subroutine),分别使用Function和Sub关键字.它们都是一个可以获取参数.执行一系列语句.以及改变其参数的值的独立过程.而与 Function 过程不同的是:带返回值的 Sub 过程不能用于表达式. 这里主要介绍子程序的使用方法,同样这些方法也可以应用到Function上. 语法[Private | Public | Friend] [Static] Sub na

db_connected = False '获取数据库连接设置dsn_name = Trim(Worksheets("加载策略").Cells(2, 5).Value)  ------(ODBC配置中的DATA SOURCE NAME)user_name = Trim(Worksheets("加载策略").Cells(3, 5).Value)pass_word = Trim(Worksheets("加载策略").Cells(4, 5).Value

Function zhengze(ze As String, Rng As Range)    Set regx = CreateObject("vbscript.regexp")With regx  .Global = True  .Pattern = ze '写正则表达式  Set mat = .Execute(Rng)  For Each mg In mat     If .test(Rng) Then        zhengze = mg     Else        zh

解决方法: 菜单-工程-引用Microsoft ActiveX Data Objects 2.x Library 定位……msado15.dll