給你寫個(gè)例子,不明白,再問!!

站在用戶的角度思考問題,與客戶深入溝通,找到東城網(wǎng)站設(shè)計(jì)與東城網(wǎng)站推廣的解決方案,憑借多年的經(jīng)驗(yàn),讓設(shè)計(jì)與互聯(lián)網(wǎng)技術(shù)結(jié)合,創(chuàng)造個(gè)性化、用戶體驗(yàn)好的作品,建站類型包括:做網(wǎng)站、成都網(wǎng)站建設(shè)、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣、主機(jī)域名、虛擬主機(jī)、企業(yè)郵箱。業(yè)務(wù)覆蓋東城地區(qū)。
'引入OLEDB命令空間
Imports System.Data.OleDb
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
'定義一個(gè)OLEDB連接并實(shí)例化它
Dim con As New OleDbConnection
'定義一個(gè)OLEDB命令并實(shí)例化他
Dim cmd As New OleDbCommand
'定義一個(gè)OLEDBReader方法來(lái)讀取數(shù)據(jù)庫(kù)
Dim dr As OleDbDataReader
'初始化con的連接屬性,使用OLEDB模式,數(shù)據(jù)源為:你指定下路徑,我的是在D盤
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\dataSample.mdb"
'打開OLEDB數(shù)據(jù)連接
con.Open()
'初始化OLEDB命令的連接屬性為con,這個(gè)需要你理解下
cmd.Connection = con
'初始化OLEDB命令的語(yǔ)句 就是查詢 什么字段從什么表 條件是ID等于你在t1中輸入的內(nèi)容
cmd.CommandText = "select keyss from table1 where ID=" t1.Text ""
'執(zhí)行OLEDB命令以ExecuteReader()方式,并返回一個(gè)OLEDBReader,賦值給dr
dr = cmd.ExecuteReader()
'判斷下dr中是否有數(shù)據(jù)。如果有就把第一個(gè)值賦值給t2的值
If dr.Read() Then
t2.Text = dr(0)
End If
'完成后關(guān)閉dr.con等釋放資源
dr.Close()
con.Close()
End Sub
End Class
步驟如下:
窗體上添加2個(gè)列表框,一個(gè)按鈕:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyDir As String = "C:\123"
'搜索并顯示子文件夾
ListBox1.Items.Clear()
For Each MySubDir As String In System.IO.Directory.GetDirectories(MyDir)
ListBox1.Items.Add(MySubDir)
Next
'搜索并顯示文件
ListBox2.Items.Clear()
For Each MyFile As String In System.IO.Directory.GetFiles(MyDir)
ListBox2.Items.Add(MyFile)
Next
End Sub
End Class
string sql = "select * from 表";
SqlDataAdapter sqladapter = new SqlDataAdapter(sql, con);
DataSet ds = new DataSet();
sqladapter.Fill(ds, "表");
GridView1.DataSource = ds;
GridView1.DataBind();
Dim strSQL1 = "select id from userlist where password=1234"
Cmd.CommandText = strSQL1
dim MyReader As SqlDataReader = Cmd.ExecuteReader
If MyReader.HasRows Then
While MyReader.Read
TextBox1.Text=MyReader("ID")
End While
End If
MyReader.Close()
不詳細(xì)寫了,給個(gè)思路吧。
通過DataTable的方式綁定DataGridView,然后模糊查詢也是操作DataTable,將查詢的結(jié)果放到另外一個(gè)Datatable里,然后ListView綁定這個(gè)新的Datatable.
剩下的你自己網(wǎng)上找的,很多。
你這個(gè)程序兩個(gè)問題
不顯示數(shù)據(jù)的原因,TextBox1.DataBindings.Add("Text", mydataset, "WorkTime"),第二個(gè)參數(shù)不能是dataset應(yīng)該是datatable,所以應(yīng)該寫成TextBox1.DataBindings.Add("Text", mydataset.Tables("WorkTime"), "WorkTime")
myconn.Open()的打開與關(guān)閉沒必要再寫了
名稱欄目:vb.net查詢并顯示的簡(jiǎn)單介紹
本文來(lái)源:http://chinadenli.net/article4/dsgsooe.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供品牌網(wǎng)站設(shè)計(jì)、商城網(wǎng)站、定制開發(fā)、關(guān)鍵詞優(yōu)化、網(wǎng)站導(dǎo)航、軟件開發(fā)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)