189 8069 5689
您是否曾经希望了解如何检索要在您自己的应用程序中使用的特定文件的属性？如果您要在 VB NET 中开发的应用程序依赖于特定的环境 那么在执行程序中的代码之前 您需要检查文件的属性 例如 您可能需要了解特定文件随之发行的产品 或者是文件的版本号 在 VB NET 中 借助 GetVersionInfo 方法和 FileVersionInfo 类 要获得这些信息简直易如反掌 如果启动 Windows 资源管理器 右击一个文件名 然后从弹出式菜单中选择 属性 则会看到该文件的 属性 窗口 属性 窗口显示了选定文件的有关信息 假设您在任务管理器的 TASKMAN EXE 文件名上右击 图 显示了该文件的 属性 对话框
让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：国际域名空间、雅安服务器托管、营销软件、网站建设、东宁网站维护、网站推广。
)this style width= ;
通过使用 FileVersionInfo 类 您可以在 VB NET 应用程序中提供相同的功能 根据应用程序的需要 您可以复制 属性 对话框中显示的全部信息 也可以复制其中的一部分 图 显示了我们将要创建的应用程序 它将用来复制 属性 对话框中显示的部分信息
image javascript:return big(this) src= //img educity cn/img_ / / / jpg javascript:if(this width )this style width= ;
要创建演示程序 请启动 VB NET 并开始一个名为 Retrieving File Properties（检索文件属性）的新项目 按照图 所示 向 Form 添加七个文本框控件 七个标签控件和一个按钮控件 接下来 将以下代码添加到 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 ) 检索文件说明（名称）TextBox Text = FileProperties FileDescription 检索文件版本TextBox Text = FileProperties FileVersion 检索文件的内部名称TextBox Text = FileProperties InternalName 检索文件的旧名称TextBox Text = FileProperties OriginalFilename 检索产品名称TextBox Text = FileProperties ProductName 检索产品版本TextBox Text = FileProperties ProductVersion 检索语言TextBox Text = FileProperties LanguageEnd Sub
现在 按 F 键执行该应用程序 当您单击 Get Properties（获取属性）按钮时 程序将显示 TASKMAN EXE 文件的有关信息 如图 中所示
Get Properties（获取属性）按钮的 Click 事件代码调用 GetVersionInfo 方法 该方法返回一个 FileVersionInfo 类 其中包括您所指定的文件的所有版本信息 您需要向 GetVersionInfo 方法提供一个完全限定的文件 如果没有指定正确的路径名 则该方法仅返回文件名本身 而不返回文件信息 调用 GetVersionInfo 后 就像我们在演示程序中所做的一样 只需通过类就可以检索特定的属性 FileVersionInfo 类包含很多属性 您可以通过查询这些属性来检索文件信息 表 仅显示了我们在演示程序中查询的属性 但是可以在 MSDN 中通过搜索 FileVersionInfo 类说明找到完整的列表 表 FileVersionInfo 类可以使用的属性
cellSpacing= cellPadding= width= border= %
属性
%
说明
%
FileDescription
%
检索指定文件的说明
%
FileVersion
%
检索指定文件的版本号
%
InternalName
%
检索指定文件的内部名称 （并不是所有的文件都关联有内部名称 ）
%
OriginalFilename
%
检索指定文件在首次创建时最初被赋予的名称
%
ProductName
%
检索指定文件的产品名称 它是此文件随之发行的产品的名称 （并不是所有的文件都关联有产品名称 ）
%
ProductVersion
%
检索指定文件的产品版本 它是 ProductName 属性的版本
%
Language
%
检索指定文件的版本资源中的 Microsoft 语言标识符（显示为字符串）
lishixinzhi/Article/program/net/201311/12277
实在看不下去了，
Const sql As String = "select * from 学生基本信息表 where 学号='" textbox1.Text "'"
Const searchsql As String = "insert into 学生基本信息表 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, "学生基本信息表")
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
按F8一句句调试看那句不对
dim
myselectquery
as
string
=
"select
*
from
表1
where
姓名='小强'"
dim
mycommand
as
new
sqlcommand
(myselectquery,
conn)
'建立一个command控件，conn是你的sqlconnection对象
conn.open()'打开数据连接
dim
myreader
as
sqldatareader'定义一个reader用来读数据
myreader
=
mycommand.executereader()'运行你的查询，结果到myreader
if
myreader.read()
then
'如果查到了数据
msgbox(myreader.getstring(0))
'显示第一个字段
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、首先打开Visual Studio 2008代码窗口，添加引用。
2、输入以下代码：Public conn1 As SqlConnection = New SqlConnection 。
3、声明关键字 Public；（因为是全局变量，所以用Public 来声明）。
4、如果SQL 数据库就在本机，则用以下代码连接。
5、如果代码太长，影响可读性，可以用空格加"_"后，回车换行即可。