06 2016 档案

把一元可以分解成几个１毛，２毛，５毛？

摘要：ＶＦＰ版本写法 clear*把一元可以分解成几个１毛，２毛，５毛？m=0for i=0 to 10 for j=0 to 5 for k =0 to 2 if i*1+j*2+ k*5=10 then ? i,j,k m=m+1 endif next nextnext?" 有"+str(m) +"种阅读全文

posted @ 2016-06-17 19:45 大白熊^_^ 阅读(449) 评论(0) 推荐(0) 编辑

记录集导出到Excel方法

摘要：记录集导出到Excel方法 Public Function ExportToExcel(RSrecord As ADODB.Recordset, Titles_Name)' '参数说明'RSrecord ：记录集'titles_name 表头名称' On Error GoTo ERRCLDim Rs 阅读全文

posted @ 2016-06-12 15:12 大白熊^_^ 阅读(426) 评论(0) 推荐(0) 编辑

MySQL数据库加密与解密:

摘要：MySQL数据库加密与解密: 数据加密、解密在安全领域非常重要。对程序员而言，在数据库中以密文方式存储用户密码对入侵者剽窃用户隐私意义重大。有多种前端加密算法可用于数据加密、解密，下面我向您推荐一种简单的数据库级别的数据加密、解密解决方案。以MySQL数据库为例，它内建了相应的加密函数（AES_E 阅读全文

posted @ 2016-06-07 11:46 大白熊^_^ 阅读(374) 评论(0) 推荐(0) 编辑

运行时错误'430'：类不支持自动化或不支持期望的接口。New ADODB.Connection问题

摘要：运行时错误'430'：类不支持自动化或不支持期望的接口。问题：经调试发现，是运行到下面语句时出错：Set MyConn = New ADODB.Connection 运行到这里是提示本错误这个MyConn在通用里是这么声明的： Dim MyConn As ADODB.Connection 你阅读全文

posted @ 2016-06-03 11:32 大白熊^_^ 阅读(5349) 评论(0) 推荐(0) 编辑

instrrev 和instr 区别vb

摘要：Private Sub Form_click() Dim temp As String temp = "c:\window\system" Print Mid(temp, InStrRev(temp, "\") + 1, Len(temp) - InStrRev(temp, "\")) End Su 阅读全文

posted @ 2016-06-02 16:55 大白熊^_^ 阅读(545) 评论(0) 推荐(0) 编辑