VB6中，怎样用指定时间段的组合查询，查询Access数据库

Private Sub Command1_Click()

Dim cnn As New ADODBConnection

Dim rs As New ADODBRecordset

Dim strsql As String

Set cnn = Nothing

Set rs = Nothing

cnnConnectionString = "Provider=MicrosoftJetOLEDB40;Data Source=" & AppPath & "\data\userinfomdb;Persist Security Info=False"

cnnOpen

If Trim(Text1Text) = "" Then

MsgBox "请输入你要查找的内容！", vbCritical + vbOKOnly, "提示"

Else

strsql = "select from 表名 where 字段名=" & Text1Text

rsCursorLocation = adUseClient

rsOpen strsql, cnn, adOpenStatic, adLockOptimistic

If rsRecordCount > 0 Then

Set DataGrid1DataSource = rs

DataGrid1Refresh

Else

MsgBox "对不起，没有找到此项。", vbCritical + vbOKOnly, "出错"

End If

End If

End Sub

1

统计各出版社出版图书的数量。

SELECT

出版社出版社名称,

COUNT(图书书号)

AS

出版图书的数量

FROM

图书,

出版社

WHERE

图书出版社编号

=

出版社编号

GROUP

BY

出版社出版社名称

2

列出多人合著的图书书号和价格。

SELECT

书号,

价格

FROM

图书

GROUP

BY

书号,

价格

HAVING

COUNT(作者编号)

>=

2

3

列出高教出版社出版的最贵图书信息。

SELECT

图书

FROM

图书,

出版社

WHERE

图书出版社编号

=

出版社编号

AND

出版社出版社名称

=

'高教出版社'

AND

图书价格

IN

(SELECT

MAX(价格)

FROM

图书

T

WHERE

T出版社编号

=

出版社编号)

4

列出所有图书都是30元以上的出版社名称。

SELECT

出版社出版社名称

FROM

图书,

出版社

WHERE

图书出版社编号

=

出版社编号

GROUP

BY

出版社出版社名称

HAVING

SUM

(

CASE

WHEN

图书价格

>

30

THEN

0

ELSE

1

END

)

=

0

数据库都是数据的存储，如果你们现在用的是EXCEL表的，那么你可以将EXCEL表转换成数据库表，然后将数据导入，再建立表关系。根据表关系用SQL语句进行查询组合。

如果你不熟悉数据库的话，建议你找个人帮你做。当然找我也行。

1，打开access，点击创建，点击窗体设计，然后在工具栏的属性表，在属性表的数据的控件来源中选择要查询的比偶。

2，点击工具栏中窗体设计工具控件的组合框，在主体中任意拉一个组合框，然后在跳出的框框中选择第三个。

3，选择要查询的字段，点击下一步，直到最后一个，在最后一个框里输入该查询窗体的名称，点击确定。

4，点击保存，右击该窗体的名称，选择窗体视图，就可以看到效果了。

假设：

数据库DB_A，表Table_A

数据库DB_B，表Table_B

那么联合查询写入如下：

from

    DB_AdboTable_A a

    inner join DB_BdboTable_B b on aID=bID

以上就是关于VB6中，怎样用指定时间段的组合查询，查询Access数据库全部的内容，包括:VB6中，怎样用指定时间段的组合查询，查询Access数据库、数据库实验：统计查询和组合查询、想建一个简单的数据库，便于数据的查询，怎么做等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！