wolf_elite -- 编程爱好者博客

用VB6读写数据库中的图片[转载](2006-12-31 13:02:00)

摘要：很多兄弟在这里问关于VB6读写数据库中的图片的问题，在此有一例，希有所启发。
   1，以人名和相关图片为例说明，数据库为Access，有如下字段：Name char,picture OLE object,FileLength
Number。当为ms sql时，将picture改为lob即可。
   2，示例包含control：commom dialog,picture,listbox。
源码如下：
Option Explicit

Private Declare Function GetTempFileName Lib "kernel32" Alias "GetTempFileNameA" (ByVal lpszPath As
String, ByVal lpPrefixString As String, ByVal wUnique As Long, ByVal lpTempFileName As String) As Long
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long,
ByVal lpBuffer As String) As Long
Private Const MAX_PATH = 260

Private m_DBConn As ADODB.Connection

Private Const BLOCK_SIZE = 10000
' Return a temporary file name.
Private Function TemporaryFileName() As String
Dim temp_path As String
Dim temp_file As String
Dim length As Long

    ' Get the temporary file path.
    temp_path = ......

阅读全文(1549) | 评论:0

用VB编写ActiveX DLL实现ASP编程(2006-12-31 12:59:00)

摘要：ASP是目前一种广为应用的用来快速构建动态WEB站点的编程语言，默认的内置开发语言是VBScript，由于ASP和微软Windows系列操作系统的结合非常的好，使得ASP已经成为了NT开发平台上面进行WEB开发的首选语言和环境。他有着简单易学，方便快速开发的种种优点，但是他也有着致命的弱点，就是他是脚本语言解释执行的，速度会受到一定的影响，更为关键的是，使用ASP来开发完成一个项目之后，整个项目在交付客户使用的时候，是会连带所有的ASP脚本源代码的，也就无法将商业程序保密了，源代码泄漏会给自己造成很大的损失，虽然微软也相应的推出了用来加密ASP程序的软件，但是有着诸多的限制，以及会降低程序运行的速度和二次开发调试的难度，难道ASP做出来的项目就真的要暴露所有的源代码吗？

　　当然了，答案当然是否定的，因为世界上没有绝对不可能的事情，接下来就跟随我来看看如何利用VB的ActiveX DLL来实现将ASP程序封装起来吧，也就是我们可以使用ActiveX DLL来完成所有ASP能完成的事情，而ActiveX DLL是编译好的DLL文件，别人是无法得知你的源代码的，也就保证的自己的商业机密和核心技术，并且达到同样的效果，使用完全封装的ActiveX DLL会比完全适用ASP脚本语言的执行速度要快很多，尤其是大运算量的时候跟为明显！经过我们的具体测试，在操纵10000条数据库记录的时候，封装成为ActiveX DLL的WEB应用程序比纯ASP代码的应用程序，速度上面要快大约21%左右，在目前国内过于缓慢的网络来讲，速度就是一个WEB站点的很关键的一部分。并且采用了ActiveX DLL来开发WEB程序，要比单纯使用ASP好得多，毕竟ASP只能使用VBScript来开发，无法享用VB大量的优点，而ActiveX DLL则可以充分利用VB里面所有的特性。

　　下面我们先来看看什么是ActiveX DLL吧。ActiveX是微软提出的广泛应用于Windows系列的一种代码封装技术，提高了程序代码的可重用性，加快了程序项目的开发速度，一般被称为“组件”。在VB6的集成开发环境当中，我们可以看到一下几种ActiveX项目：

　　1、ActiveX EXE

　　这是在“过程外”运行的ActiveX/COM服务器组件，也就是说......

阅读全文(1185) | 评论:0

关闭QQ用VB(2006-12-24 21:49:00)

摘要：关闭QQ用VB
Dim i As Long
    Dim proc As PROCESSENTRY32
    Dim snap As Long
    Dim exename As String
    Dim theloop As Long
    Dim hand As Long
    snap = CreateToolhelpSnapshot(TH32CS_SNAPall, 0) '获得进程“快照”的句柄
    proc.dwSize = Len(proc)
    theloop = ProcessFirst(snap, proc) '获取第一个进程，并得到其返回值
    While theloop <> 0 '当返回值非零时继续获取下一个进程
        exename = proc.szExeFile
        If InStr(UCase(exename), "QQ.exe") <> 0 Then
            Debug.Print "QQ.EXE"
            hand = OpenProcess(PROCESS_TERMINATE, True, proc.th32ProcessID)
            TerminateProce......

阅读全文(1942) | 评论:0

FindWindow函数用于查找窗体(2006-12-24 20:53:00)

摘要：FindWindow函数用于查找窗体
函数原型
HWND FindWindow(
LPCTSTR lpClassName, // pointer to class name
LPCTSTR lpWindowName // pointer to window name
);
lpWindowName是要查找窗体的标题，即这里的Calculator。
如果找到窗体，函数返回该窗体的句柄；
如果找不到，函数返回空值或者零

在VB里可以这样声明
Public Declare Function FindWindow Lib "USER32.DLL" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
成功，返回窗体句柄；
失败，返回0
注意，在VB里""要用vbNullString表示
上面的声明如果写成一行，请去掉第一行后面的“_”。 FindWindow VB声明 Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 说明寻找窗口列表中第一个符合指定条件的顶级窗口（在vb里使用：FindWindow最常见的一个用途是获得ThunderRTMain类的隐藏窗口的句柄；该类是所有运行中vb执行程序的一部分。获得句柄后，可用api函数GetWindowText取得这个窗口的名称；该名也是应用程序的标题）返回值 Long，找到窗口的句柄。如未找到相符窗口，则返回零。会设置GetLastError 参数表参数类型及说明 lpClassName String，指向包含了窗口类名的空中止（C语言）字串的指针；或设为零，表示接收任何类 lpWindowName String，指向包含了窗口文本（......

阅读全文(3164) | 评论:0

ODBC(2006-12-16 14:42:00)

摘要：2.1.1 数据访问对象模型
1、VB的数据访问接口：
Active X数据对象
远程数据对象
数据访问对象 2、数据库访问方式：
Jet数据库引擎
ODBC驱动程序
第三方ODBC驱动程序
2.1.2 ODBC概述
            ODBC(OpenDataBaseConnectivity，开放数据库互连)是Microsoft公司开发的一套开放数据库系统应用程序接口规范，它提供了统一的数据库应用编程接口(APl)，为应用程序提供了一套高层调用接口规范和基于动态链接库的运行支持环境。 ODBC提供了访问大量数据库的单一接口
ODBC使客户应用程序的开发独立于后台服务器
2.1.3 ODBC体系结构
    ODBC驱动程序屏蔽了DBMS之间的差异。     1．ODBC数据库应用程序：前端
主要任务包括：
建立与数据源的连接。
向数据源发送SQL请求，接收并处理请求的结果。
断开与数据源的连接等。
DBMS驱动程序
    ODBC应用程序不能直接存取数据库，它将所要执行的操作提交给数据库驱动程序，通过驱动程序实现对数据源的各种操作，提交数据库操作结果，通过驱动程序返回给应用程序。

数据源
    数据源是指任一种可以通过ODBC连接的数据库管理系统，它包括要访问的数据库和数据库的运行平台。可以将数据源名看成是与一个具体数据库建立的连接。
数据源分为以下三类：
    1)用户数据源：只有创建者才能使用，并且只能在所定义的机器上运行。
    2)系统数据源：所有用户和在Windows NT下以服务方式运行......

阅读全文(2334) | 评论:1

(转载)VB常用代码(2006-12-14 15:01:00)

摘要：移动无标题栏的窗体(borderstyle=none)
dim mouseX as integer
dim mouseY as integer
dim moveX as integer
dim moveY as integer
dim down as boolean
form_mousedown: 'mousedown事件
down=true
mouseX=x
mouseY=y
form_mouseup: 'mouseup事件
down=false
form_mousemove
if down=true then
   moveX=me.left-mouseX+X
   moveY=me.top-mouseY+Y
   me.move moveX,moveY
end if
***********************************************************************
闪烁控件
比如要闪烁一个label（标签）
添加一个时钟控件间隔请根据实际需要设置 enabled属性设为true
代码为：label1.visible=not label1.visible
**********************************************************************
禁止使用 Alt+F4 关闭窗口
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition ......

阅读全文(176) | 评论:0

vb源码收集站点大全(2006-12-14 14:39:00)

摘要：vb源码收集站点大全 http://www.programfan.com/club/showbbs.asp?id=102369

http://www.codesky.net/sort.asp?sortid=12

http://host.bluexp.net/vbgood/code/index.asp

VB超市
http://www.vb99.com/code.asp?findmode=1

枕善居
http://www.mndsoft.com/blog/default.asp?cateID=3

http://www.vbaspnew.com/ziyuan/index.htm

http://vbboshi.diy.myrice.com/vbcode.htm

http://www.applevb.com/

http://www.codesky.net/showcode.asp?uid=51051

http://vbcool.diy.myrice.com/

http://www.code999.com/SoftList/Catalog_170_SoftTime_Desc_1.html
更多的等你……

朋友们，能不能把你们知道的vb源码收集站点贴出来，大家共享呀？

请斑竹帮忙添加整理
作者：q07272777
专家分：50
会员信息
发短消息
所属BLOG 发表时间：2005-9-2 10:33:00    [回复]  [引用] 1 楼   编程无限  http://www.21code.com/codebase/?pos=list&type=subclass&mainclass=1&subclass=7
阿蒙      http://w......

阅读全文(305) | 评论:0

VB实现文件数据对SQL Server上传下载(2006-12-10 12:16:00)

摘要：VB实现文件数据对SQL Server上传下载　　很多单位尤其是制造业、设计院，计算机应用开展的较早。在这些单位，各种法规文件的下达以及日常工作中产生的大量数据，形成了种类繁杂、数量庞大档案资料（各种文件）。面对海量数据，原有档案管理系统在进行数据的备份、还原、更新与维护时多数已力不从心。传统的基于文件的管理方式，还给各种档案的保密工作带来了隐患。为此，越来越多的单位开始开发基于数据库的文件档案管理系统，以期克服这些毛病。　　结合笔者开发的科技档案管理系统，本文以Visual Basic6.0和SQL Server 2000环境下的数据库为例，介绍文件数据对SQL Server 2000数据库的上传和下载。　　数据库的连接　　对数据库的操作一定在已经与本地抑或是网络数据库建立了联系的基础上，建立连接这一需求可以通过两种方式实现。　　为便于理解，这里假定服务器名为Data_Server，档案数据库名为Science_File，其中的一个数据表名为office，设计有一个名称为office、类型为Image的字段，用于保存文件。为便于将不同大小的文件存储在SQL Server的数据表中，必须在数据表中创建一个Image型的字段，该字段可存储的最大文件达2GB字节。
　　1、利用Adodc控件连接　　Visual Basic提供了一个Adodc控件。它通过Adodc属性的设置，按照向导提示完成数据库的连接。具体过程如下：　　首先在属性页中选择生成按钮，进入数据链接属性对话框；然后选择该对话框中的连接属性页，选择或输入服务器名称和数据库等重要信息；最后测试连接，连接成功后，按确定按钮，返回到属性页对话框，可获得连接字符串，如下例：　　Provider=SQLOLEDB.1；Integrated Security=SSPI；Persist；Security Info=False；Initial Catalog=Science_File；Data Source=Data_Server 　　通过下列语句，即可连接到指定的数据库：　　dim odbcstr as String, adocon As New ADODB.Connection
　　odbcstr = "Provider=SQLOLEDB.1;Integrat......

阅读全文(1741) | 评论:1

博客介绍

文章分类

博文