vb数据库查询

❶ 在VB怎么查询数据库中的数据啊！

1.一个简单的查询的例子：
'*定义一个连接
Dim Conn As ADODB.Connection
'*定义一个记录集
Dim mrc As ADODB.Recordset
'*分别实例化
Set Conn = New ADODB.Connection
set mrc =New ADODB.Recordset
'*定义一个连接字符串
dim ConnectString as string
ConnectString="provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\data\数据库名.mdb;jet oledb:database password=数据库密码"
'*打开连接
Conn1.Open ConnectString
'*定义游标位置
Conn1.CursorLocation = adUseClient
'*查询记录集(从student表中找出名子为"张三"的记录)
mrc.open "select * from student where name='张三'",Conn, adOpenKeyset, adLockOptimistic

'*现在你已经得到了你想要查询的记录集了，那就是mrc
'*你可以把此记录集与DataGrid榜定，用datagrid显示你查询的记录
set me.datagrid.datasource=mrc

❷ VB连接数据库查询

VB连接数据库查询过程基本辩丛是这样子：
须引用ADO.
private sub 查询_click()
Dim Cnn1 As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim cnnstr As String, s As Boolean
CnnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\mp.mdb;Persist Security Info=False"
Cnn1.Open CnnStr

s = "select * from 表1 where 下载编号='" & Text1.Text & "'"携誉樱
Rs.Open s, Cnn1, adOpenStatic, adLockReadOnly
If Rs.RecordCount > 0 Then
Text2.text = rs!歌手 & rs!歌名虚信 & rs!文件地址
else
Text2.text = "没找到!"
End If
Rs.Close
Cnn1.Close
Set Rs = Nothing
Set Cnn1 = Nothing
end sub

❸ VB中查询数据库内容方法

多条件混合模糊搜索
"select * from 表名 where 字段名 Like'%" & text1.text & "%'察亏and 字段名 like'%" & combo1.text & "%' and 字段名 like'%" & text2.text & "%'"
例子
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strsql As String
Dim cnstr As String
Private Sub Form_Load() '窗口键中打开时，连接数据库
conn.CursorLocation = adUseClient
cnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= db1.mdb;Jet OLEDB:Database Password=" '修改成你的数据为地址/密码
conn.ConnectionString = cnstr
conn.Open cnstr
End Sub
Private Sub Command1_Click()
if rs.state=adstateopen then rs.close'稿没山记录集打开时则关闭记录集
strsql ="select * from 表名 where 字段名 Like'%" & text1.text & "%'and 字段名 like'%" & combo1.text & "%' and 字段名 like'%" & text2.text & "%'"
rs.Open strsql, conn, 3, 3
set DataGrid1.DataSource =rs
'这时适当调整一下datagird控件的格式（略）
End Sub
Private sub form_unload()
conn.close
end sub

❹ VB数据库查询

虽然不推荐，你可以试正让下放到公共变量里传举族局穗盯递
全局变量当然可以保留值
模块
Public
TestRS
As
ADODB.Recordset
窗体1
Set
TestRS
=
rs
窗体2
MsgBox
TestRS.RecordCount

❺ vb.net 中如何使用SQL语句查询数据库中的数据

1、首先打开Visual Studio 2008代好瞎兄码窗口，添加引用。

❻ vb 数据库查询语句

like语句要缓档核配合sql里的通配符进行模糊查询的，1
，11
，111
这三个数是这样
sql
=
"蠢滚select
*
from
厂家资料
where
厂家手机扰掘
like
'"
&
trim(text1.text)
&
"%'"

❼ VB数据库查询日期

说明:
仔细看了看你的代码,你肯定是用combox控件来组合了一个年
月
日的
时间表,其实有个DTpicker控件
可能更适合.但你这样做也没有错,某些情况下也具有优点.
正确使用sql,在这里颤洞猜
你要查询的条件是对的.但你数据库里的日期字段的格式一定要设置正确(相匹配的),否则在查询有于时颤改间变量原因可能会出现意想不茄型到的结果,这就是你错误的原因所在.
下面是你要的sql语句.代入使用即刻
sql="select
*
from
data
where
sf='"
&
text1.text
&"'
and
beteewn
'"&
data1
&"'
and
'"&
data1
&"'"

❽ 求助：VB数据库查询

周末没上线，今早才看到你的消息

Option Explicit

Dim CNN As New ADODB.Connection
Dim Rs As New ADODB.Recordset

Private Sub Form_Load()
Dim Cnstr As String, I As Integer

'设置数据库连接
Cnstr = "Provider=Microsoft.Jet.OLEDB.4.0;"
Cnstr = Cnstr + "Data Source=" + App.Path & "\XX.MDB;"
CNN.ConnectionString = Cnstr

'读取combo(0 - 4)下拉列表
CNN.Open
Rs.Open "select 品种 from TT", CNN
Do While Not Rs.EOF
For I = 0 To 4
Combo1(I).AddItem Rs.Fields(0).Value
Next I
Rs.MoveNext
Loop
Rs.Close
CNN.Close

'请选择
For I = 0 To 4
Combo1(I).Text = "请选择品种"
Next I
End Sub

Private Sub Command1_Click() '显销册昌示
Dim I As Integer
List1.Clear
For I = 0 To 4
If Combo1(I).Text <> "请选择姿陪品种" Then
List1.AddItem Combo1(I).Text
End If
Next I
End Sub

Private Sub Command2_Click() '排序
Dim I As Integer, J As Integer
List2.Clear
For I = 0 To List1.ListCount - 1
For J = 0 To List2.ListCount - 1
If Val(Left(List2.List(J), 2)) >= Val(Left(List1.List(I), 2)) Then Exit For
Next J
List2.AddItem List1.List(I), J
Next I
End Sub

'其实排序这里有个不费脑筋的办法，只要在窗体设亏扒计时把list2的sorted属性设为TRUE，它就会把添加进来的数据自动排序

Private Sub Command3_Click() '查询
Dim I As Integer, N As Integer

If Text1.Text = "" Then
MsgBox "请填写间隔数。", vbOKOnly, "提示"
Exit Sub
End If

N = Val(Text1.Text)

List3.Clear
CNN.Open
For I = 0 To List2.ListCount - 1
Rs.Open "select * from TT where 品种 ='" + List2.List(I) + "'", CNN
If 1 + I * N <= 9 Then
List3.AddItem Rs.Fields(1 + I * N).Value
Else
List3.AddItem Rs.Fields(9).Value
End If
Rs.Close
Next I
CNN.Close
End Sub

❾ vb如何做数据库查询功能

Adodc1.RecordSource = "select " & text1.text & " from dbo.Table_tl where 后面是查询条件。比如日期=？and时间=？之类的“
这样会返回数据库列值卜辩。还有森带一个方法是查询是select * from 但显示的时间用 recordset1("压力值"型春缺)
这样得到的也是压力值。

❿ VB如何实现查询数据库并显示出来

可以快速导出使用excel 就有该功能

PublicFunctionExportToExcel(ByValstrOpenAsString,TitleAsString,diAsString,conAsADODB.Connection)
'*********************************************************
'*名称：ExporToExcel
'*功能：导出数据到EXCEL'*用法：ExporToExcel(strOpen查询字符串，titile
'*excel标题,di保存路径，con数据库连接地址)
'*********************************************************
lok:OnErrorGoToer
Screen.MousePointer=11
DimRs_DataAsNewADODB.Recordset
DimIrowcountAsLong
DimIcolcountAsLong

DimXlAppAsNewExcel.Application
DimxlbookAsExcel.Workbook
DimxlSheetAsExcel.Worksheet
DimxlQueryAsExcel.QueryTable

WithRs_Data
If.State=adStateOpenThen
.Close
EndIf
.ActiveConnection=con
.CursorLocation=adUseClient
.CursorType=adOpenStatic
.LockType=adLockReadOnly
.Source=strOpen
DoEvents
'Debug.PrintstrOpen
.Open

EndWith
Debug.PrintstrOpen
'SetRs_Data=Open_rst_from_str(strOpen)
WithRs_Data
If.RecordCount<1Then
MsgBox("没有记录!")
Screen.MousePointer=0
ExitFunction
EndIf
'记录总数
Irowcount=.RecordCount
'字段总数
Icolcount=.Fields.Count
EndWith

SetXlApp=CreateObject("Excel.Application")
Setxlbook=Nothing
SetxlSheet=Nothing
Setxlbook=XlApp.Workbooks().Add
SetxlSheet=xlbook.Worksheets("sheet1")


'添加查询语句，导入EXCEL数据
SetxlQuery=xlSheet.QueryTables.Add(Rs_Data,xlSheet.Range("a1"))

WithxlQuery
.FieldNames=True
.RowNumbers=False
.FillAdjacentFormulas=False
.PreserveFormatting=True
.RefreshOnFileOpen=False
.BackgroundQuery=True
.RefreshStyle=xlInsertDeleteCells
.SavePassword=True
.SaveData=True
.AdjustColumnWidth=True
.RefreshPeriod=0
.PreserveColumnInfo=True
EndWith

xlQuery.FieldNames=True'显示字段名
xlQuery.Refresh

DimiAsInteger,ZdAsString
WithxlSheet
Fori=1To6

Zd=.Range(.Cells(1,1),.Cells(1,Icolcount)).item(1,i)
'.Range(.Cells(1,1),.Cells(1,Icolcount)).Item(1,i)=Lm_YwToZw(Zd)
Next
.Range(.Cells(1,1),.Cells(1,Icolcount)).Font.name="黑体"
'设标题为黑体字
'.Range(.Cells(1,1),.Cells(1,Icolcount)).Font.Bold=True
'标题字体加粗
.Range(.Cells(1,1),.Cells(Irowcount+1,Icolcount)).Borders.LineStyle=xlContinuous
'.Range(.Cells(Irowcount+2,Icolcount)).Text=Zje
'设表格边框样式
EndWith
XlApp.Visible=True
XlApp.Application.Visible=True
'xlBook.SaveAsdi
SetXlApp=Nothing'"交还控制给Excel
Setxlbook=Nothing
SetxlSheet=Nothing
Screen.MousePointer=0
ExitFunction
er:
'Dispose_Err
MsgBoxerr.Description&"从新导报表，请等待！"

GoTolok:
EndFunction

使用这个模块就可以，你可以看看引用的函数即可