您是否曾經(jīng)希望了解如何檢索要在您自己的應(yīng)用程序中使用的特定文件的屬性?如果您要在 VB NET 中開(kāi)發(fā)的應(yīng)用程序依賴(lài)于特定的環(huán)境 那么在執(zhí)行程序中的代碼之前 您需要檢查文件的屬性 例如 您可能需要了解特定文件隨之發(fā)行的產(chǎn)品 或者是文件的版本號(hào) 在 VB NET 中 借助 GetVersionInfo 方法和 FileVersionInfo 類(lèi) 要獲得這些信息簡(jiǎn)直易如反掌 如果啟動(dòng) Windows 資源管理器 右擊一個(gè)文件名 然后從彈出式菜單中選擇 屬性 則會(huì)看到該文件的 屬性 窗口 屬性 窗口顯示了選定文件的有關(guān)信息 假設(shè)您在任務(wù)管理器的 TASKMAN EXE 文件名上右擊 圖 顯示了該文件的 屬性 對(duì)話(huà)框
讓客戶(hù)滿(mǎn)意是我們工作的目標(biāo),不斷超越客戶(hù)的期望值來(lái)自于我們對(duì)這個(gè)行業(yè)的熱愛(ài)。我們立志把好的技術(shù)通過(guò)有效、簡(jiǎn)單的方式提供給客戶(hù),將通過(guò)不懈努力成為客戶(hù)在信息化領(lǐng)域值得信任、有價(jià)值的長(zhǎng)期合作伙伴,公司提供的服務(wù)項(xiàng)目有:國(guó)際域名空間、雅安服務(wù)器托管、營(yíng)銷(xiāo)軟件、網(wǎng)站建設(shè)、東寧網(wǎng)站維護(hù)、網(wǎng)站推廣。
)this style width= ;
通過(guò)使用 FileVersionInfo 類(lèi) 您可以在 VB NET 應(yīng)用程序中提供相同的功能 根據(jù)應(yīng)用程序的需要 您可以復(fù)制 屬性 對(duì)話(huà)框中顯示的全部信息 也可以復(fù)制其中的一部分 圖 顯示了我們將要?jiǎng)?chuàng)建的應(yīng)用程序 它將用來(lái)復(fù)制 屬性 對(duì)話(huà)框中顯示的部分信息
image javascript:return big(this) src= //img educity cn/img_ / / / jpg javascript:if(this width )this style width= ;
要?jiǎng)?chuàng)建演示程序 請(qǐng)啟動(dòng) VB NET 并開(kāi)始一個(gè)名為 Retrieving File Properties(檢索文件屬性)的新項(xiàng)目 按照?qǐng)D 所示 向 Form 添加七個(gè)文本框控件 七個(gè)標(biāo)簽控件和一個(gè)按鈕控件 接下來(lái) 將以下代碼添加到 Get Properties(獲取屬性)按鈕的 Click 事件
borderColorDark=#ffffff cellPadding= width= align=center borderColorLight=black border= e e
Private Sub Button _Click(ByVal sender _As System Object ByVal e As System EventArgs) _Handles Button Click 獲取記事本的文件版本Dim FileProperties As FileVersionInfo = FileVersionInfo GetVersionInfo( C:\WINNT\taskman exe ) 檢索文件說(shuō)明(名稱(chēng))TextBox Text = FileProperties FileDescription 檢索文件版本TextBox Text = FileProperties FileVersion 檢索文件的內(nèi)部名稱(chēng)TextBox Text = FileProperties InternalName 檢索文件的舊名稱(chēng)TextBox Text = FileProperties OriginalFilename 檢索產(chǎn)品名稱(chēng)TextBox Text = FileProperties ProductName 檢索產(chǎn)品版本TextBox Text = FileProperties ProductVersion 檢索語(yǔ)言TextBox Text = FileProperties LanguageEnd Sub
現(xiàn)在 按 F 鍵執(zhí)行該應(yīng)用程序 當(dāng)您單擊 Get Properties(獲取屬性)按鈕時(shí) 程序?qū)@示 TASKMAN EXE 文件的有關(guān)信息 如圖 中所示
Get Properties(獲取屬性)按鈕的 Click 事件代碼調(diào)用 GetVersionInfo 方法 該方法返回一個(gè) FileVersionInfo 類(lèi) 其中包括您所指定的文件的所有版本信息 您需要向 GetVersionInfo 方法提供一個(gè)完全限定的文件 如果沒(méi)有指定正確的路徑名 則該方法僅返回文件名本身 而不返回文件信息 調(diào)用 GetVersionInfo 后 就像我們?cè)谘菔境绦蛑兴龅囊粯?只需通過(guò)類(lèi)就可以檢索特定的屬性 FileVersionInfo 類(lèi)包含很多屬性 您可以通過(guò)查詢(xún)這些屬性來(lái)檢索文件信息 表 僅顯示了我們?cè)谘菔境绦蛑胁樵?xún)的屬性 但是可以在 MSDN 中通過(guò)搜索 FileVersionInfo 類(lèi)說(shuō)明找到完整的列表 表 FileVersionInfo 類(lèi)可以使用的屬性
cellSpacing= cellPadding= width= border= %
屬性
%
說(shuō)明
%
FileDescription
%
檢索指定文件的說(shuō)明
%
FileVersion
%
檢索指定文件的版本號(hào)
%
InternalName
%
檢索指定文件的內(nèi)部名稱(chēng) (并不是所有的文件都關(guān)聯(lián)有內(nèi)部名稱(chēng) )
%
OriginalFilename
%
檢索指定文件在首次創(chuàng)建時(shí)最初被賦予的名稱(chēng)
%
ProductName
%
檢索指定文件的產(chǎn)品名稱(chēng) 它是此文件隨之發(fā)行的產(chǎn)品的名稱(chēng) (并不是所有的文件都關(guān)聯(lián)有產(chǎn)品名稱(chēng) )
%
ProductVersion
%
檢索指定文件的產(chǎn)品版本 它是 ProductName 屬性的版本
%
Language
%
檢索指定文件的版本資源中的 Microsoft 語(yǔ)言標(biāo)識(shí)符(顯示為字符串)
lishixinzhi/Article/program/net/201311/12277
實(shí)在看不下去了,
Const sql As String = "select * from 學(xué)生基本信息表 where 學(xué)號(hào)='" textbox1.Text "'"
Const searchsql As String = "insert into 學(xué)生基本信息表 values('"
Dim xh As String , name As String , sex As String , id As String , tel As String , address As String
Dim time As DateTime
Dim conn as new adodb.connection
dim ConnectionString as string
If textbox1.Text = "" Or textbox2.Text = "" Then
MsgBox "該生信息不完整"
Else
ConnectionString = "Data Source=ZX\SQLEXPRESS;Initial Catalog=studentMIS;Integrated Security=True"
conn.Open(ConnectionString)
cmd.CommandText = sql
cmd.Connection = conn
sqlda.SelectCommand = cmd
Try
dr = cmd.ExecuteReader()
Do While dr.Read()
MsgBox("該生信息已存在")
Loop
If dr.Read = False Then
xh = textbox1.Text
name = textbox2.Text
sex = cb1.SelectedItem
time = textbox3.Text
id = textbox4.Text
tel = textbox5.Text
address = textbox6.Text
searchsql = searchsql xh "','" name "','" sex "','" time "','" id "','" tel "','" address "')"
cmd.CommandText = searchsql
sqlda.SelectCommand = cmd
sqlda.Fill(ds, "學(xué)生基本信息表")
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
按F8一句句調(diào)試看那句不對(duì)
dim
myselectquery
as
string
=
"select
*
from
表1
where
姓名='小強(qiáng)'"
dim
mycommand
as
new
sqlcommand
(myselectquery,
conn)
'建立一個(gè)command控件,conn是你的sqlconnection對(duì)象
conn.open()'打開(kāi)數(shù)據(jù)連接
dim
myreader
as
sqldatareader'定義一個(gè)reader用來(lái)讀數(shù)據(jù)
myreader
=
mycommand.executereader()'運(yùn)行你的查詢(xún),結(jié)果到myreader
if
myreader.read()
then
'如果查到了數(shù)據(jù)
msgbox(myreader.getstring(0))
'顯示第一個(gè)字段
end
if
select * from 表 where
(case when 條件 then 1 else 0 end+
case when 條件 then 1 else 0 end+
case when 條件 then 1 else 0 end+
case when 條件 then 1 else 0 end+
case when 條件 then 1 else 0 end) BETWEEN 2 and 5
N=length(R);
scatter(C(:,1),C(:,2));
hold on
plot([C(R(1),1),C(R(N),1)],[C(R(1),2),C(R(N),2)])
hold on
for ii=2:N
plot([C(R(ii-1),1),C(R(ii),1)],[C(R(ii-1),2),C(R(ii),2)])
hold on
end
1、首先打開(kāi)Visual Studio 2008代碼窗口,添加引用。
2、輸入以下代碼:Public conn1 ?As SqlConnection = New SqlConnection 。
3、聲明關(guān)鍵字 Public;(因?yàn)槭侨肿兞?,所以用Public 來(lái)聲明)。
4、如果SQL 數(shù)據(jù)庫(kù)就在本機(jī),則用以下代碼連接。
5、如果代碼太長(zhǎng),影響可讀性,可以用空格加"_"后,回車(chē)換行即可。
當(dāng)前標(biāo)題:vb.net做查詢(xún) vb net
文章路徑:http://muchs.cn/article0/hjddio.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供Google、、網(wǎng)站導(dǎo)航、定制網(wǎng)站、網(wǎng)站營(yíng)銷(xiāo)、網(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)