
VB6
文章平均质量分 77
fangke
这个作者很懒,什么都没留下…
展开
-
实现VB与EXCEL的无缝连接 (转)
如何实现VB与EXCEL的无缝连接 VB是常用的应用软件开发工具之一,由于VB的报表功能有限,而且一但报表格式发生变化,就得相应修改程序,给应用软件的维护工作带来极大的不便。因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能。但由于VB与EXCEL由于分别属于不同的应用系统,如何把它们有机地结合在一起,是一个值得我们研究的课题。 一、 VB读写EXCEL表:原创 2004-09-24 19:25:00 · 2984 阅读 · 2 评论 -
MSDE自动安装使用方法
MSDE自动安装使用方法 一、 制作自动安装的SQL已制作完成,程序放在://工程项目/安装盘制作/MSDE 说明:自动安装目的是在MSDE安装程序执行时不出现画面,并且自动按配置好的步骤安装; 自动配置文件UNATTEND.ISS的制作方法:用SQL SERVER安装程序开始安装,选择“高级选项”,再选择“无人值守”,原创 2004-09-24 19:32:00 · 5027 阅读 · 0 评论 -
VB 一个Function传回多个值
解决Function只能传回一个值的问题-------------------------------------------------------------------------------- ●用Function当成子程序的一个好处,就是Function本身可以传回一个值到上一层呼叫的子程序里,但问题来了,若为了工作上的需要,想一次传回一个以上的值,那该怎么办? Priv原创 2004-09-23 20:54:00 · 2297 阅读 · 0 评论 -
SQL to Excel 三种方法 (转)
方法1。使用CopyFromRecordset(适用于Access,SQL)第一次:49第二次:45第三次:43第四次:43第五次:42方法2:使用QueryTable(适用于Access,SQL)第一次:10第二次:6第三次:3第四次:4第五次:4方法3:使用bcp(适用于SQL)从命令行直接运行时间为701毫秒,从VB中返回时间为0测试代码如下:方法1:Option原创 2004-09-24 19:23:00 · 2349 阅读 · 1 评论 -
VB错误处理中心过程,写数据库日志表或写日志文件
Public Sub ShowError(strModule As String, strProcedure As String, lngErrorNumber As Long, strErrorDescription As String, showMsg As String) 错误处理中心过程,写数据库日志表或写日志文件 strModule原创 2006-09-14 12:19:00 · 2565 阅读 · 2 评论 -
VB6保存文件到数据库,从数据库保存为文件
建立表 Ver 表结构为: f001 标识增量字段,f002 nvarchar(50) 文件名,f003 nvarchar(50) 版本号,f004 image 存储文件,f005 datetime 上传日期时间,f006 存储f004中exe文件的最后修改时间,以上字段均非空 f007 nvarchar(50)SQL文件名称 ,f008 imag原创 2006-09-14 12:46:00 · 2674 阅读 · 0 评论 -
vb6系统安装-初始化SQLserver数据库
需建Module1Option ExplicitPublic goSQLServer As SQLDMO.SQLServerPublic gShowServerEvents As BooleanDeclare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x原创 2006-09-14 12:07:00 · 2306 阅读 · 0 评论 -
VB6应用系统的权限管理
实现方法:建立如下表,对每一个form的操作功能中加入如下的AskRights Function,即可对每一个form及其中的每一项功能进行单独控制,包括菜单项的控制,出错处理请查本人另一文档 表结构说明: 表:users_frm(Form设定) f001 IDENTITY Form ID号, f002 V20 Form名, f003 V50 form说明, f004 V50原创 2006-09-14 12:27:00 · 2271 阅读 · 0 评论 -
两种取网卡序列号方法
对于一机多卡和在win98下无WMI服务,取网卡号需两种方法同时用: If sSystemVer = "WINDOWS98" Then Text1 = EthernetAddressA 取网卡号 Else Text1 = EthernetAddress 取网卡号使用WMI End If If sSystemVer = "WINDOW原创 2006-09-16 16:50:00 · 5093 阅读 · 0 评论