在VB6.0数据库程序开发中使用ADO 和SQL

e_expression 是一个不包含聚集的表达式。
Field_list列出了数据排序的顺序
ASC定义按照升序排序
DESC定义按照降序排序。
下面我们来举例说明。
你希望检索商品名细表中的信息可使用如下语句：
     SELECT * FROM waredetial 
关键字ORDER BY要求列名以确定按哪一列排序。这里我们选定按wareID排序,如果你希望按列wareID的字母顺序排列可采用下面的代码：
SELECT wareID FROM wareDetial ORDER BY wareID
默认是按升序排列如果想按降序排列可用如下代码：
SELECT wareID FROM wareDetial ORDER BY wareID DESC
如果你想选择多列，使用下面的语句
SELECT wareID,wareName FROM wareDetial ORDER BY wareID
用WHERE 关键字来限制选择范围。如果你想选择wareDetial中wareName 列值为“cisco6000”的行。你可用下面的代码实现：
     SELECT * FROM wareDetial WHERE wareName=”cisco6000” ORDER BY wareID除了SELECT 语句，标准SQL语句还有INSERT UPDATE DELETE等，在此不再作具体介绍．实际的应用经常要对表中的某列或多列数据进行数学运算，这就需要如COUNT(),SUM(),AVG(),MAX(),MIN() 等数学函数。下面对这些函数的用法作具体说明。
先建立一个与数据库的连接
dim myConnectstr as strng
dim myCnt as New ADODB.connection
myConnectstr="PROVIDER=Microsoft.Jet.OLEDB.4.0;DataSource=" & App.Path & "/ware.mdb;Persist Security Info=False"
myCnt.Open myConnectstr
若要产生某种商品的总进货数以及总出货数可用以下代码：
exeStr =”insert into wInOut select sum(wQuantity) as Quantity, sum(wSold) as Sold from wAccount where wareID= ‘000001’”
若要产生库存的总数以及总库存金额可用以下代码：
exeStr = "insert into wLib select sum(numInlib) as totalNum,sum(numInLib*wPrice) as  totalMoney from wDetail "
运行上述代码：
myCnt.Execute exeStr
关闭连接
myCnt.Close
在应用程序的开发中，基于数据库的不同，只在连接的数据源部分作相应的修改，其它的部分无需改动。

５．结束语
     本文所列举的仅仅是ADO和SQL的用法的一小部分，实际的应用中对ADO的操作有时用ADO控件结合DATAGRID控件等显示数据也很方便。     

参考文献：[1]Visual Basic 6 揭秘  Rob Thayer 著   电子工业出版社
             [2]Visual Basic 6.0 程序设计  蒋斌      电子工业出版社
             [3]Microsoft SQL Server 7.0 使用详解       Rob Kraft 机械工业出版社
           　[4]Visual BASIC 5.0中文版程序设计教程　魏源源等　电子工业出版社

上一页  [1] [2]