⑴ 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