2. 程式人生 > >VB查詢ACCESS資料庫內容

VB查詢ACCESS資料庫內容

阿新 • • 發佈：2019-02-17
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cmd As New ADODB.Command

Private Sub Command2_Click()
On Error Resume Next
'Adodc2.RecordSource = "select * from A2 where 人口=" & Trim(Text5.Text)
Adodc2.RecordSource = "select * from A2 where 人口>=" & Text5.Text & " And 人口 <= " & Text6.Text & ""



Adodc2.Refresh
Set DataGrid2.DataSource = Adodc2
End Sub

Private Sub Command3_Click()
Adodc2.RecordSource = "select * from A2 where 省份='" & Text7.Text & "'"
Adodc2.Refresh
Set DataGrid2.DataSource = Adodc2
End Sub


Private Sub Command4_Click()

'Adodc2.RecordSource = "select * from A2 where 時間 = #2002/7/5#"

'Adodc2.RecordSource = "select * from A2 where 時間 > #2000/1/1# and 時間< #2001/1/2#"
'Adodc2.RecordSource = "select * from A2 where 時間 between #2000/1/1# and #2000/2/2#"
'Adodc2.RecordSource = "select * from A2 where 時間 =#" & Format(Text8.Text, "yyyy/mm/dd") & "#"
Adodc2.RecordSource = "select * from A2 where 
時間 between #" & Format(Text8.Text, "yyyy/mm/dd") & "# and #" & Format(Text9.Text, "yyyy/mm/dd") & "# "



Adodc2.Refresh
Set DataGrid2.DataSource = Adodc2
End Sub

Private Sub Command5_Click()
'Adodc2.RecordSource = "select * from A2 where 時間 =#" & Format(DTPicker1.Value, "yyyy/mm/dd") & "#"
'Adodc2.RecordSource = "select * from A2 where 時間 >#" & Format(DTPicker1.Value, "yyyy/mm/dd") & "# and 時間 <#" & Format(DTPicker2.Value, "yyyy/mm/dd") & "# "
Adodc2.RecordSource = "select * from A2 where 時間 between #" & Format(DTPicker1.Value, "yyyy/mm/dd") & "# and #" & Format(DTPicker2.Value, "yyyy/mm/dd") & "# "


Adodc2.Refresh
Set DataGrid2.DataSource = Adodc2
End Sub

Private Sub Form_Load()
cnn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\db_k1.mdb" '連線資料庫
Set cmd.ActiveConnection = cnn
Me.WindowState = 2
Adodc1.CommandType = adCmdText
Adodc2.CommandType = adCmdText
End Sub

Private Sub Command1_Click()        '單擊"查詢"按鈕
On Error GoTo err_1         '如果發生錯誤,則去執行err_1後面的語句
cmd.CommandText = "select * from A2 where 城市='" & Text1.Text & "'"  '查詢文字框1中的內容

'cmd.CommandType = adCmdText
cmd.CommandTimeout = 15
Set rs = cmd.Execute

Text2.Text = rs.Fields("省份")
Text3.Text = rs.Fields("城市")
Text4.Text = rs.Fields("人口")

Adodc1.Recordset.MoveFirst
'Adodc1.Recordset.Find "省份=" & Text2.Text
'Adodc1.Recordset.Find "城市 = '蘇州'"
Adodc1.Recordset.Find "城市= '" & Text3.Text & "'"

Adodc2.RecordSource = "select * from A2 where 城市='" & Text3.Text & "'"
Adodc2.Refresh
Set DataGrid2.DataSource = Adodc2
Exit Sub

err_1:
MsgBox "未找到你所查詢的結果"
End Sub

相關推薦

VB查詢ACCESS資料庫內容

Dim cnn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim cmd As New ADODB.CommandPrivate Sub Command2_Click()On Error Resume Next'

C#查詢ACCESS資料庫欄位和時間欄位

查詢表的所有欄位 string.Format("SELECT * FROM{0}", TableName); 查詢表中的一個欄位 在ACCESS中將欄位用CStr()轉換成字串來判斷 string.Format("SELECT* FROM {0} WHERE CStr({1})=

用asp查詢Access資料庫的程式碼

下邊是ASP與ACCESS的連線程式碼~ =============================================================== ASP與Access資料庫連線： <%@ language=VBs cript%> <% dim conn,mdbfile

批量查詢資料庫內容

#/bin/bashname=`cat 2.txt`for i in $namedo sqlplus -S mintrade/HTCH2017htch << EOF set heading off feedback off verify

索引新增後，ACCESS資料庫表查詢執行速度的區別

一般而言，在10萬條記錄下的表查詢，加不加索引，查詢速度沒用明顯區別，但是記錄增加到100萬條後，這種差別就很明顯了。 比較VFP和ACCESS，在100萬條資料中 VFP中加入CDX索引，查詢結果變化不大。 ACCESS針對欄位加入索引後，原查詢需要約2-3秒鐘，但是現在

VS2013 MFC連線Access資料庫（ADO）詳細版例項操作（含Combo Box讀取資料庫內容，附原始碼）

話不多說，先上圖，如果你需要的是這樣的程式，那麼可以下載下來看一看，帖子裡也會附上比較具體的操作步驟：先附上下載地址：程式下載地址 程式已經經過VS 2013+Windows 7+Access 2003的測試（執行出現其他問題應該多為環境問題，解決辦法各位可以自行百度）具體的

VB查詢資料庫之登陸窗體——機房收費總結（一）

    機房收費系統已經做了很長一段時間了，雖然到目前為止，仍然沒有結束，但已經結節尾聲了。我感覺現在有必要回首總結一下整個機房收費系統。     除了結賬做了一半，報表接觸一點之外，其他的都基本上差不多了。從做過的這些和正要做的來分析機房收費，我把他分成了幾個部分：查詢資

Access資料庫的Like查詢

原文網址:http://www.china-askpro.com/msg15/qa22.shtmlＱ NewStar:     作業系統：PNT4.0 SP5+IIS4+Access 97     工具：ASP     問題：我有一個客戶檔案資料庫，有大概13000條資料，用

詳解VB中連線access資料庫的幾種方法

      在VB中，連線ACCESS資料庫的方法主要有下面三種    使用ADO物件，通過編寫程式碼訪問資料庫                       Connection 物件     

Access資料庫多表聯合查詢

Access 資料庫多表聯合查詢 1、Access 資料庫多表聯合查詢，每次連線之前須將連線符前面的內容放在括號裡面，示例如下：        select 表a.欄位1，表b.欄位1，表c.欄位1，

MFC學習（12）Access資料庫多表聯合查詢

1、Access 資料庫多表聯合查詢，每次連線之前須將連線符前面的內容放在括號裡面，示例如下：       select 表a.欄位1，表b.欄位1，表c.欄位1，表d.欄位1 from （（表a inner join 表b on 表a.欄位=表b.欄位） inner join 表c on 表c.欄位=表a.

Access資料庫“操作必須使用一個可更新的查詢”

今天又遇到這樣一個錯誤“操作必須使用一個可更新的查詢”這裡我整理下原因及解決辦法,大家以後再遇到相同的問題可以先試下類似的解決辦法. 網上百度了很多，都沒有什麼作用，大多都是說許可權問題，改的也都很麻煩，最後還是沒有解決，下面具體說下我的情況： 表A中有欄位id、roomn

VB查詢資料庫之組合查詢——機房收費總結（二）

     在機房收費系統中，組合查詢用的還是挺多的，像上機狀態查詢窗體、學生上機統計資訊窗體、操作員工記錄窗體、基本資訊維護窗體。這其中，學生基本資訊維護窗體中的東西比較多，就以它為例子，說說組合查詢吧！      學生基本資訊維護窗體如圖所示：     先把程式碼放在

vb.net合夥資料庫access（一）——連線資料庫

    終於在花了一個四個小時的時間完成了資料庫與vb.net的合夥連線的第一步連線資料庫，在這個過程遇到了問題，而且也是出現了一些剛剛接觸的新的詞語和觀念，很新鮮，不過無論怎麼樣，最終也是給解決了，

Centos中查詢目錄中內容命名ls

超級用戶 logs ges module cond 9.png img 文件信息 nac 首先解釋下這塊， root代表當前登錄用戶，localhost代表主機名， ~代表當前主機目錄， #代表用戶權限 #表示超級用戶，$表示普通用戶； 查詢目錄中內

VB中隊Access數據庫表的連接操作

access數據庫 數據庫表 lis record left 數據 events join dip 三表連接 SELECT a.ZDID,a.ZDname,a.ZDIP,a.Remark,b.eventtime,c.checkTime from (ZDList as a l

linux命令查詢文件內容

輸出 sed linu pla 斜杠 表示 inux -s -- 1.查詢文件裏的某一行 sed -n ‘1000p‘ 1.txt --查詢1.txt的第1000行 2.查詢1到5行 sed -n ‘1,5p‘ 1.txt ---查詢1.txt的第1行到

學習筆記sql server數據庫批量查詢和刪除內容執行語句

sql server 數據庫 查詢 最近一直在研究博客，其實也就是現在熱門的自媒體，有意思的是，以前網民們都自己寫博客，建立一個自己的小站，現在又去了，都跑去平臺給人家免費打工，還自得其樂，也不知道這是什麽狀況。博客信息：主題：讀書筆記相關的學習主題。網站：使用一個.net的域名作為網址，例如駱駝

MySQL、SQL server 、Oracle資料庫中查詢所有的資料庫，查詢指定資料庫所有表名，查詢所有的欄位的名字

MySQL中查詢所有資料庫名和表名 1.查詢所有資料庫 show databases; 2.查詢指定資料庫中所有表名 select table_name from information_schema.tables where table_schema='database_name' a

C# 讀取Access資料庫及php讀取伺服器上的Access資料庫

Access資料庫他是不能遠端訪問的，也就是說實際上它是單機的一個數據庫，那麼如果非要遠端訪問它那麼就需要php作為中間語言去操作Access資料庫。 我想現實使用C#在本地訪問Access資料庫。要想訪問Access資料庫，我們首先得自己建立一個數據庫檔案：在開始選單中找到 Microso