博文
SQL语言快速入门之三 (2005-09-25 08:12:00)
摘要：
SQL语言快速入门之三
日期：2005年4月15日 作者：-=不详=- 人气：
1156 人
我们日常使用SQL语言的工作过程中，使用最多的还是从已经建立好的数据库中查询信息。下面，我们就来详细介绍一下如何使用SQL语言实现各种数据库查询操作。
SELECT…FROM
为方便讲解，我们在数据库中创建名为Store_Information的如下数据表。
Store_Information
Store_Name
Sales
Date
Los Angeles
$1500
Jan-10-2000
San Diego
$250
Jan-11-2000
Los Angeles
$300
Jan-12-2000
Boston
$700
Jan-12-2000
SQL语言中用于数据库查询的最简单的命令就是SELECT…FROM，语法格式为：
SELECT "column_name" FROM "table_name"
例如，如果我们希望查询Store_Information数据表中所有的商店名称时，可以使用如下命令：
SELECT store_name FROM Store_Information
查询结果显示为：
Store_Name
Los Angeles
San Diego
Los Angeles
Boston
如果用户希望一次查询多个字段，可以将所要查询的字段名称依次加入SELECT关键字之后，中间用“，”隔开即可。
DISTINCT
SELECT关键字支持用户查询数据表中指定字段的所有数据，但是这样有时就会不可避免的出现重复信息。如果用户希望只查询那些具有不同记录值的信息的话，可以使用SQL语言的DISTINCT关键字。语法格式如下：
SELECT DISTINCT "column_name"
FROM "table_name"
例如，我们可以使用以下命令查询Store_Information数据表具有不同记录值的所有记录。
SELECT DISTINCT Store_Name ......
ＳＱＬ 语法参考手册 (2005-09-25 08:11:00)
摘要：
ＳＱＬ 语法参考手册
日期：2005年4月15日 作者：-=不详=- 人气：
343 人
DB2 提供了关连式资料库的查询语言 ＳＱＬ (Structured Query Language)，是一种非常口语化、既易学又易懂的语法。 此一语言几乎是每个资料库系统都必须提供的，用以表示关连式的操作，包含了资料的定义（ＤＤＬ）以及资料的处理（ＤＭＬ）。SQL原来拼成SEQUEL，这语言的原型以“系统 R“的名字在 IBM 圣荷西实验室完成，经过IBM内部及其他的许多使用性及效率测试，其结果相当令人满意，并决定在系统R 的技术基础发展出来 IBM 的产品。而且美国国家标准学会（ANSI）及国际标准化组织（ISO）在1987遵循一个几乎是以 IBM SQL 为基础的标准关连式资料语言定义。
一、资料定义 ＤＤＬ（Data Definition Language)
资料定语言是指对资料的格式和形态下定义的语言，他是每个资料库要建立时候时首先要面对的，举凡资料分哪些表格关系、表格内的有什麽栏位主键、表格和表格之间互相参考的关系等等，都是在开始的时候所必须规划好的。
１、建表格：
CREATE TABLE table_name(
column1 DATATYPE [NOT NULL] [NOT NULL PRIMARY KEY],
column2 DATATYPE [NOT NULL],
...）
说明：
DATATYPE --是资料的格式，详见表。
......
VB实现图像在数据库的存储与显示(2005-09-25 08:09:00)
摘要：VB实现图像在数据库的存储与显示
作者：李树海 陆体虎 更新时间： 2005-05-03
摘 要 本文以VB6与Access97作为开发工具，介绍了图像在数据库中的存储与显示技术。
关键词 数据库，数据控件，二进制，图像存储，图像显示，ADODB，Recordset
数据库是数据管理的最新技术，是计算机科学的重要分支，是现代计算机信息系统和计算机应用的基础和核心。在科学技术高速发展......
树视TreeView树视的使用技巧(2005-09-25 08:08:00)
摘要：树视TreeView树视的使用技巧
作者：unknown 更新时间： 2005-05-02
1、为树状浏览器控件添加节点和子节点
用ADD方法添加一个新节点到树状浏览器的NODES集合时，可以声明它是和已存在的节点所联系起来的。通常使用ADD方法，其语法如下：
Nodes.Add(relative,[relationship][,key][,text][,image][,selectedimage])
......
利用Vb保存一幅图像到Access数据库(2005-09-25 08:08:00)
摘要：利用Vb保存一幅图像到Access数据库
在我们做的许多管理系统中，除了保存大量的文字信息以外，有时候也需要保存一定数量的图片。例如：一个人事管理系统，就需要对每个人的照片进行保存，以便可以方便的对每个人的信息进行处理。
Office中的Access数据库除了保存文本，还可以保存图片，保存图片的数据类型就是"OLE对象"：它用来保存 Excel 电子表格、 Word 文档、图形、声音或其他二进制数据。
我现在用一个例子介绍利用vb保存图片的方法，首先我们要介绍vb中处理二进制数据的语句：Put、Get。
Put、Get语句语法如下：
Put [#] filenumber,[recnumber],varname
Get [#] filenumber,[recnumber],varname
Filenumber :必需的。任何有效的文件号
Recnumber :可选的。Variant(Long)。记录号（Random方式的文件）或字节数（Binary方式的文件），指明在此处开始写入
Varname :必需的。包含要写入磁盘的数据的变量名
说明：文件中的第一个记录或字节位于位置1，第二个记录或字节位于位置2，依次类推。若省略recnumber,则将上一个Get或Put语句之后的下一个记录或字节写入。所有用于分界的逗号都必须罗列出来。
现在我们来开始建一个工程，功能是保存一个文档，同时可以保存一幅图片。
首先我们建一个表（表名为photo），字段如下：
字段名
类型
标题
class
类别
文档的分类
photo
OLE对象
保存图片文件
photo_ext
文本
图片的扩展名
inputtime
日期/时间
文档输入的时间
modifytime
日期/时间
文档的修改时间
subject
文本
文本
现在我们就可以创建finput窗口文件来保存图片。
首先我们要连接我们的数据库，代码如下：
Dim cnstr As String
cnstr = "......
VB程序中数据库的图片处理的解决方法 (2005-09-25 08:07:00)
摘要：VB程序中数据库的图片处理的解决方法
在数据库中，我们经常遇到需要处理图片的情况。例如，如
果我们在产品数据库中存储了产品的照片，那将给顾客以直接的
感官认识。
在数据库中，图片的特殊性有两点：1、图片所占存储空间常
常是比较大的；2、图片的处理常常需要外部的程序。
在标准SQL语言中，提供了BLOB和CLOB数据类型来存储巨大的
二进制或字符数据。Microsoft SQL Server中的text数据类型相
当于BLOB，而image数据类型相当于CLOB。
小型数据库我们常用ACCESS。在ACCESS中，备注数据类型可
以存储最多为 65,535 个字符，而OLE对象数据类型可以存储最多
1 G 字节的链接或嵌入的对象（例如 Microsoft Excel 电子表格
、Microsoft Word 文档、图形、声音或其他二进制数据）。
因为图片的大小常超出备注数据类型的限制，且用OLE类型更
方便，下面叙述一种在VB程序中处理ACCESS数据库中图片处理的
办法。
在该方法中，我们要利用ACCESS数据库中的OLE数据类型存储
图片，在VB程序中用OLE控件处理图片。
由于OLE对象不能支持ADO和OLEDB，我们要用......
Visual Basic开发要点三则(2005-09-25 08:06:00)
摘要：Visual Basic开发要点三则
http://tech.sina.com.cn 2001/01/20 16:25 天极网 张华成
一、 用控件拖放表单
怎样用控件拖放表单呢？很简单，将这段代码插入到Declare部分。
Declare Function ReleaseCapture Lib "user32" () As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA"
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long,
lParam As Any) As Long
再在控制的Mousedown事件中插入：
Sub Command1_MouseDown (Button As Integer, Shift As Integer, X
As Single, Y As Single)
Dim Ret&
ReleaseCapture
Ret& = SendMessage(Me.hWnd, &H112, &HF012, 0)
End Sub
二、 把表单放在屏幕的正中央
在开发VB程序时，一般希望将表单放在屏幕可利用区域的正中央，实现上可以利用Move(Screen.Width - Width)\2,(Screen.Height - Height)\2的方法来实现。但是当用户使用Windows 95或 NT 操作系统时，在 屏幕底端会有一任务条，上述的实现方法并未考虑该任务条所占的空间，表单实际并未处于屏幕可利用区域的正中央。下面的代码段实现了在每次启动应用程序时，无论屏幕是否有任务条，表单都会屏幕可利用区域的正中央。在工程中增添一模块，在模块中加上如下的代码：
Option Explicit
Private Const SPI_GETWORKAREA = 48
Private Declare Function SystemParametersInfo& Lib "User32"
Alias
"SystemPa......
打开的一篇word文档，保存到数据库的某个字段中(2005-09-25 08:06:00)
摘要：打开的一篇word文档，保存到数据库的某个字段中
编号：QA004640
建立日期: 2002年11月25日 最后修改日期：2002年11月25日
所属类别：
Visual Basic - Office开发
Visual Basic - 数据库
于丽霞:
操作系统：Win
编程工具：VB
问题：我想把打开的一篇word文档，保存到数据库的某个字段中，刚开始用了宏的办法。先写一下宏，代码如下：
Sub Mac()
Dim PageNo As String
Dim WORDstr As String
Dim i As Integer
'WORD 97 文 档 视 图 设 定 为 页 面 方 式
ActiveWindow.View.Type = wdPageView
ActiveDocument.Repaginate
'获 得 文 档 页 数 并 赋 值 给 变 量 PageNo
PageNo = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
For i = 1 To PageNo
' 光 标 移 动 到 文 档 某一 页 的 开 始
Selection.GoTo What......
县级气象信息综合业务平台的设计与实现(2005-09-25 08:05:00)
摘要：县级气象信息综合业务平台的设计与实现
杨松林 ， 邓世忠＊
(抚州市气象局，江西 抚州 344000)
摘 要：介绍了县级气象信息综合业务平台的设计与实现过程，并阐述了该信息平台各个功能模块的作用，从而为县级气象业务人员提供参考。
关键词：气象信息 业务平台 设计
中图分类号：P409 文献标识码：B 文章编号：1007－9033(2001)01－0037－03
为了进一步发挥气象业务现代化建设的效益，我们根据业务技术体制改革的要求，结合县局的实际业务工作，开发研制了县级气象信息综合业务系统。
1 系统的主要特点
(1) 系统采用Visual Basic 6.0编程，在中文Win9x上运行，并通过流行的下拉式菜单设计，将县级业务中的地面测报、气象服务、农业气象、信息网络以及台站管理等集成一体(图1)。
(2) 运用Access数据库管理技术，将繁琐的难于记忆的目录、文件名用数据库管理，并利用计算机系统时间生成当天最新资料文件名。一般业务操作人员不必了解任何文件名和文件路径，不需输入任何命令，只要用鼠标点击相应模块就可方便地使用本系统。
(3) 系统安装方便，只需运行安装盘＃1中的SETUP.EXE，根据提示依次插入相应磁盘，按默认方式操作直至系统安装完成。系统提供了全中文的操作界面，使用时只要用鼠标点击相应菜单就可方便自如地操作，无需任何计算机软件知识，尤其适合基层台站使用。
2 系统设计的技术特点
(1) 系统设计时，充分应用了Visual Basic6.0中的Shell函数，方便地将本系统与Micaps系统、省台开发的地面气象资料查询系统以及安徽地面测报报表制作系统连接在一起。
(2) 根据9210命名规则，应用DBGrid控件，将文件路径及文件名用汉字直接替代，根据系统时间可自动形成当天的文件名。同时考虑到系统的推广和日益发展的业务需求，设计时留有数据维护接口，可通过增减或更改相应数据库，而无需更改源程序就可适应不同的业务工作，具有较好的可移植性和扩充性。
(3) 应用RichTextBox控件显示文本，解决了省台下发的指导预报产品不分行的现象。
3 主要功能模块
3.1 实时资料模块
该模块是Micaps系统应用......
VB6+ADO+ListView数据库分页显示(2005-09-25 08:04:00)
摘要：VB6+ADO+ListView数据库分页显示
作者：unknown 更新时间： 2005-05-02
Dim link1 As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim page As Integer
Dim pubdatapath As String
......