⑴ VB怎样读取数据库并显示出来
用StrIn = Inet1.GetChunk(0, icString)获取到查询结果，然后直接打印到VB窗口，或是绑定到相关控件上就可以了。
⑵ 用哪种VB控件可以显示数据库查询结果
用datagrid控件，下面是一篇控件使用方法，你可以看看
使用DataGrid
控件
DataGrid
控件是一种类似于电子数据表的绑定控件，可以显示一系列行和列来表示
Recordset
对象的记录和字段。可以使用
DataGrid
来创建一个允许最终用户阅读和写入到绝大多数数据库的应用程序。DataGrid
控件可以在设计时快速进行配置，只需少量代码或无需代码。当在设计时设置了DataGrid
控件的
DataSource
属性后，就会用数据源的记录集来自动填充该控件，以及自动设置该控件的列标头。然后您就可以编辑该网格的列；删除、重新安排、添加列标头、或者调整任意一列的宽度。
在运行时，可以在程序中切换
DataSource
来察看不同的表，或者可以修改当前数据库的查询，以返回一个不同的记录集合。
⑶ 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
使用这个模块就可以，你可以看看引用的函数即可
⑷ 在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中通过某个条件查询access数据库并显示出所有字段
1.在VB界面选“工程”菜单－》“部件”菜单项，系统打开“部件”对话框
选择2个
ADO
控件，即“Microsoft
ADO
Data
Control
6.0”（简称ADODC）和“Microsoft
DataGrid
Control
6.0”。这两个控件前者用来连接数据库，用于以
表格
形式显示数据库表的内容。
2.在VB界面中加入ADODC及DataGrid，设置ADODC的ConnectionString属性。选择该属性，单击“...”按钮，系统打开对话框，单击“生成...”按钮，系统显示“数据连接属性”，在提供程序中选择“Microsoft.Jet.OLEDB.4.0”，在连接中选择填写数据库表的
名称
，最后单击“确定”
3.设置ADODC的RecordSource属性，打开
属性页
，在命令类型中选择“1－adCmdText”，命令文本中输入数据库的命令（如select
*
from
表名
where
查询条件）
4.设置DataGrid的“DataSource”为ADODC的名称
5.然后就是编程问题了。明天继续
如还有问题加我QQ:272388243
请注明加我的理由
⑹ 请一段VB查询数据库并显示的代码
private
sub
search()
dim
str
as
string;
dim
res
as
adodb.recordset
dim
cnn
as
ADODB.Connection
//数据库的连接，根据实际情况设置
Set
cnn
=
New
ADODB.Connection
cnn.Provider
=
"Microsoft.Jet.OLEDB.4.0"
cnnFile
=
"Data
Source="
&
App.Path
&
"\data.mdb;Persist
Security
Info=False
cnn.Open
cnnFile
str="
select
*
from
authorityInfo
where
编号='"&
trim(text1)
&"'"
set
res.Open
str,
cnn,
adOpenStatic,
adLockOptimistic
MSHFlexGrid1.datasource=res
end
sub