我有一個資料表 0.mdb 要讀取的表格名為chs 讀取的列名為sht 我想讀取第五行的值。如果等于text1的值就把對應的the列的第五行讀取到text2里面，
uj5u.com熱心網友回復：
這主要靠寫SQL陳述句實作吧，需要其它技巧很少了。
uj5u.com熱心網友回復：
我掃描一眼，新建一個工程，加入二個text控制元件，text1的text輸入為1，后面的SQL陳述句條件text1.text就是1，然后加入參考adodb,再寫一段代碼，與你的要求不完全一致吧，道理是一樣的。cnopen 一個簡單的程序，'打開資料庫，這個省略了。cn,rs,就不多解釋了。
Set rs = New ADODB.Recordset
rs.Open "SELECT 雇員.雇員ID, 雇員.姓氏, 雇員.名字, 雇員.職務 From 雇員 where 雇員.雇員ID=" & Text1.Text, cn, 1, 1
'If rs.State <> adStateClosed Then rs.Close
rs.MoveFirst
Dim i, a
For i = 0 To rs.Fields.Count - 1 'b-1也可以，b在前面已經賦值.這個回圈代替后面五句，兩者一樣。但模塊化就不一樣了。
a = a & rs.Fields(i)
'.CellAlignment(i) = flexAlignCenterCenter
Next
Text2.Text = a
uj5u.com熱心網友回復：
人們也不知道你的資料庫，表名及欄位、記錄的情況，只是提一些原則。比如，我使用微軟的羅斯文資料庫，表名為雇員，查詢欄位為雇員ID，依據控制元件text1輸入的內容來查詢。SQL陳述句大致為"select * from 雇員 where 雇員ID=1",或者置于控制元件后就成這樣了：
"select * from 雇員 where 雇員ID=" & text1.text
我在兩個text1控制元件外，再加一個命令按鈕。在text1輸入2，按了按鈕后，就所記錄輸出到text2.
Private Sub Command1_Click()
cnopen '打開資料庫，連接方法、解釋省略了。
Set rs = New ADODB.Recordset
rs.Open "SELECT 雇員.雇員ID, 雇員.姓氏, 雇員.名字, 雇員.職務 From 雇員 where 雇員.雇員ID=" & Text1.Text, cn, 1, 1
Dim i, a
For i = 0 To rs.Fields.Count - 1
a = a & rs.Fields(i)
Next
Text2.Text = a
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub
在TEXT1輸入1，就能回傳一記錄；輸入5，就能回傳一記錄，并顯示在TEXT2里。
uj5u.com熱心網友回復：
比較麻煩的是“第 5 行”的確定。Access 資料表不會保證資料行的位置，即使你確定有第 5 個寫入表中的行，除非你在查詢時采用 Order By 子句，根據一個或一些列值來排序。例如你有自動增值欄位，且此欄位值為 5 的記錄沒有洗掉。
uj5u.com熱心網友回復：
哪有什么"第五行", 這是資料庫又不是exceluj5u.com熱心網友回復：
我知道你們說的意思.access是以欄位.但是現在我忽略欄位和行.我只要讀取第五行.你們的方法我知道.但是這個第五行是隨時都會變的.你們都知道ACCESS添加東西的時候會變.但是我只要第五行.并不是說要查找某一個值..我這個是不固定的..別的都不考慮.我寫入都可以.為什么讀取就不能按行讀取呢?
uj5u.com熱心網友回復：
電影院里第5個進去的人為什么不在1排5號？第5個進去的人為什么散場時不是第5個出來？
uj5u.com熱心網友回復：
都確定是第5行了，還說不固定？不過我大概猜到樓主想表達的意思了，你應該是想說：比如我現在查詢的是第10條記錄，點按鈕，則將它后面第5行（即第15行）的內容顯示出來，不知道是不是這個意思？
uj5u.com熱心網友回復：
Dim adoConnection As New ADODB.Connection
adoConnection.ConnectionString = "省略資料庫鏈接字"
adoConnection.Open
Dim rs As New ADODB.Recordset
rs.Open "select sht,the from chs", adoConnection, adOpenKeyset, adLockReadOnly
If rs.RecordCount >= 5 Then
rs.Move 4
If rs.Fields("sht") = text1.Text Then
text2.Text = rs.Fields("the")
End If
End If
rs.Close
Set rs = Nothing
adoConnection.Close
Set adoConnection = Nothing
uj5u.com熱心網友回復：
挖墳可恥
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/113890.html
標籤：資源