vb如何做数据库查询功能

Adodc1RecordSource = "select " & text1text & " from dboTable_tl where 后面是查询条件。比如日期=？and时间=？之类的“

这样会返回数据库列值。还有一个方法是查询是select from 但显示的时间用 recordset1("压力值")

这样得到的也是压力值。

1在VB界面选“工程”菜单－》“部件”菜单项，系统打开“部件”对话框

选择2个ADO控件，即“Microsoft

ADO

Data

Control

60”（简称ADODC）和“Microsoft

DataGrid

Control

60”。这两个控件前者用来连接数据库，用于以表格形式显示数据库表的内容。

2在VB界面中加入ADODC及DataGrid，设置ADODC的ConnectionString属性。选择该属性，单击“”按钮，系统打开对话框，单击“生成”按钮，系统显示“数据连接属性”，在提供程序中选择“MicrosoftJetOLEDB40”，在连接中选择填写数据库表的名称，最后单击“确定”

3设置ADODC的RecordSource属性，打开属性页，在命令类型中选择“1－adCmdText”，命令文本中输入数据库的命令（如select

from

表名

where

查询条件）

4设置DataGrid的“DataSource”为ADODC的名称

5然后就是编程问题了。明天继续

如还有问题加我QQ:272388243

请注明加我的理由

Private Sub Command1_Click()

'查询代码

Dim ID11,ID12,ID13,ADDR

If Val(Text1Text)<>0 then

strSQL="Select from 数据表1 where ID1=" & Val(Text1Text) & " or ID2=" & Val(Text1Text) & " or ID3=" & Val(Text1Text) & ""

RSOpen strSQL,conn,2,2

If Not RSEOF Then

Text1Text=RS!Name

ID11=RS!ID1

ID12=RS!ID2

ID13=RS!ID3

ADDR=RS!Address

strSQL1="Select from 数据表2"

RS1Open strSQL1,conn,3,3

RS1AddNew

RS1!ID1=ID11

RS1!ID2=ID12

RS1!ID3=ID13

RS1!Name=Text1text

RS1!Address=ADDR

RS1Updata

RS1Close

Else

MsgBox"没有查询到需要查询的记录！"

End If

RSClose

Else

MsgBox"输入的数据必须是数字！"

End If

End Sub

前提：数据表1和数据表2在同一数据库中，必须已经链接了数据库。

Dim

rs

As

ADODBRecordset

Dim

CnStr

As

String,

Sql

As

String

Dim

conn

As

New

ADODBConnection

With

conn

If

State

=

adStateOpen

Then

Close

ConnectionString

=

"Provider

=

MicrosoftJetOLEDB40;Data

Source="

&

AppPath

&

"\Data1mdb;Persist

Security

Info=False"

'连接数据库

CommandTimeout

=

300

Open

End

With

sql="SELECT

[姓名]

FROM

01

where

[姓名]=张三"

这个是连接数据库和查找的例子

Private Sub Command1_Click()

Dim Conn As New ADODBConnection

Dim Rs As New ADODBRecordset

ConnOpen connstring ="Provider=MicrosoftJetOLEDB40;Data Source=" & “数据库的路径和名字” & ";Persist Security Info=True;Jet OLEDB:Database Password= & "数据库密码"

sql = "Select From “ & ”表名" & where ID=20"

RsOpen sql, Conn, 1, 3

If NOT rseof then

m_date= rs("日期型字段的名字")

m_data= rs("数值型字段的名字")

end if

end sub

以上就是关于vb如何做数据库查询功能全部的内容，包括:vb如何做数据库查询功能、怎么在VB中通过某个条件查询access数据库并显示出所有字段、VB编写数据库搜索等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！