vb.net如何與excel建立連接，并從里面查詢(xún)并讀取數(shù)據(jù)？

1.新建一張表格，在表格中導(dǎo)入學(xué)生的成績(jī)表，如圖所示，將建立一個(gè)按鈕，通過(guò)它來(lái)實(shí)現(xiàn)查找。

創(chuàng)新互聯(lián)長(zhǎng)期為成百上千家客戶(hù)提供的網(wǎng)站建設(shè)服務(wù)，團(tuán)隊(duì)從業(yè)經(jīng)驗(yàn)10年，關(guān)注不同地域、不同群體，并針對(duì)不同對(duì)象提供差異化的產(chǎn)品和服務(wù)；打造開(kāi)放共贏平臺(tái)，與合作伙伴共同營(yíng)造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為薊州企業(yè)提供專(zhuān)業(yè)的成都做網(wǎng)站、成都網(wǎng)站設(shè)計(jì)，薊州網(wǎng)站改版等技術(shù)服務(wù)。擁有十載豐富建站經(jīng)驗(yàn)和眾多成功案例,為您定制開(kāi)發(fā)。

2.單擊菜單欄中的“開(kāi)發(fā)工具”——插入——表單控件——按鈕，在出現(xiàn)的十字箭頭上拖住畫(huà)出一個(gè)按鈕，如圖所示。

3.在彈出的查找紅對(duì)話(huà)框中選擇“錄制”，在彈出的“錄制新宏”對(duì)話(huà)框中，修改宏名稱(chēng)為“查找”，單擊確定。

4. 單擊“開(kāi)發(fā)工具”——查看代碼，打開(kāi)VBA編輯器，如圖所示。

5.現(xiàn)在輸入代碼：

Sub 查找()

Dim jieguo As String, p As String, q As String

Dim c As Range

jieguo = Application.InputBox(prompt:="請(qǐng)輸入要查找的值：", Title:="查找", Type:=2)

If jieguo = "False" Or jieguo = "" Then Exit Sub

Application.ScreenUpdating = False

Application.DisplayAlerts = False

With ActiveSheet.Cells

? Set c = .Find(jieguo, , , xlWhole, xlByColumns, xlNext, False)

? If Not c Is Nothing Then

? ? ? p = c.Address

? ? ? Do

? ? ? ? ? c.Interior.ColorIndex = 4

? ? ? ? ? q = q c.Address vbCrLf

? ? ? ? ? Set c = .FindNext(c)

? ? ? Loop While Not c Is Nothing And c.Address p

? End If

End With

MsgBox "查找數(shù)據(jù)在以下單元格中：" vbCrLf vbCrLf _

? q, vbInformation + vbOKOnly, "查找結(jié)果"

Application.ScreenUpdating = True

Application.DisplayAlerts = True

End Sub

6.現(xiàn)在回到EXCEL表格，右擊按鈕，選擇“編輯文字”，修改按鈕名稱(chēng)為“查找按鈕”。

7. 現(xiàn)在單擊查找按鈕，出現(xiàn)對(duì)話(huà)框“請(qǐng)輸入要查找的值”，在方框中輸入“男”，單擊確定，出現(xiàn)對(duì)話(huà)框“查找數(shù)據(jù)在一下單元格中”，單擊確定，對(duì)應(yīng)單元格就變成了亮色。

vb 查詢(xún)兩個(gè)表

請(qǐng)你說(shuō)明，你用什么連接數(shù)據(jù)庫(kù)的？ado控件還是對(duì)象？你的數(shù)據(jù)庫(kù)是ACCESS還是SQL？或者其它呢？

我假設(shè)你使用ADODC控件，那么語(yǔ)句如下：

Adodc1.RecordSource = "Select 表1.字段2,表2.字段2 From 表1,表2 Where 表1.字段1='" Text1.Text "' And 表1.字段1=表2.字段1"

Adodc1.Refresh

Set DataGrid1.DataSource = Adodc1

vb.net 中 access多表查詢(xún)語(yǔ)句

select School 學(xué)校，Grade 年級(jí)，Class 班級(jí)

from Grade

inner join Class on Class.Grade_ID=Grade.ID,

inner join School on Class.School_ID=School.ID

where School='" + CStr(ComboBox1.Text) + "' or Grade ='" + CStr(ComboBox5.Text) + "'

or Class='" + CStr(ComboBox6.Text) + "' order by ID

VB.NET查表

直接打開(kāi)EXCEL用CTRL+F ，可以直接定位到符合條件的數(shù)據(jù)；或用指定條件篩選

VB中如何在一個(gè)窗口中實(shí)現(xiàn)兩個(gè)表的查詢(xún)，把查詢(xún)內(nèi)容顯示在相應(yīng)的文本框中

你點(diǎn)我的名字 在個(gè)人簡(jiǎn)介里有我網(wǎng)盤(pán)的地址 去里面找sample.rar

看看里面的東西吧！~~~ 有連接數(shù)據(jù)庫(kù) 有查詢(xún) 有給文本框賦值！~

本文題目：關(guān)于vb.net如何兩表查詢(xún)的信息
當(dāng)前URL：http://chinadenli.net/article6/hhggig.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站設(shè)計(jì)、網(wǎng)站維護(hù)、全網(wǎng)營(yíng)銷(xiāo)推廣、電子商務(wù)、標(biāo)簽優(yōu)化、網(wǎng)站制作

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話(huà)：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)