vb点虐 语句整理 vbnet implements
vB.Net if 语句
DT.Rows.ToString未必是指结果集中的所有数据肆携,也许只是裂正伏一行中所有清族的,或是一列中所有的
专注于为中小企业提供成都网站制作、成都做网站服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业日土免费做网站提供优质的服务。我们立足成都,凝聚了一批互联网行业人才,有力地推动了成百上千企业的稳健成长,帮助中小企业通过网站建设实现规模扩充和转变。
保险起见,可以一格格枚举
dim a as boolean=true
Dim row As DataRow
For Each row In DT.Rows
Dim column As DataColumn
For Each column In DT.Columns
if row(column).contains("Agree") then a=false
Next column
Next row
if a then
Me.rblAgReject.Items(0).Enabled = False
else
Me.rblAgReject.Items(0).Enabled = True
end if
visual basic点虐 中,存在哪几种选择语句
经过长时间学习VB.NET条件语句,于是和大家分享一下,看完本文你肯定有不少收获,希望本文能教会你更多东西。在程序设计中,VB.NET条敏激件语句能够根据表达式的值来决定代码的执行察拿巧流程。在VB.NET中,条件分支语句有两种:If/Then/Else语句和Select/Case语句。
1. If/Then/Else语句
If/Then/Else语句是最常用的VB.NET条件语句。它的基本形式是:
If condition Then statements1 [Else statements2 ]
它表示:如果condition为True,那么就执行statements1;否则执行statements2。根据时间显示问候信息。
%
If Hour(Now)12 Then Response.Write ("Good morning! Cindy!")
If Hour(Now)=12 Then Response.Write ("Good noon! Cindy!")
If (Hour(Now)12 And Hour(Now)18) Then Response.Write ("Good afternoon! Cindy!")
If Hour(Now)=18 Then Response.Write ("Good evening! Cindy!")
%
在上面的例子中,函数Hour()是对给出的日期时间求它的小时数,Now函数用于返回当前的日期和时间。程序根据当时的时间判定是上午、中午还是下午,分别给出问候信息。我们看到,这个写法很简单,但是这个程序为了显示一条问候信息,要对Hour(Now)取值4次并且执行4次比较才能完成,从效率上考虑并不好。If/Then/Else语句还可以写成比较复杂的形式:
If condition_1 Then
statements_1
[ElseIf condition_m Then statements_m
[ElseIf condition_n Then…]]
[Else statements_2]
End If
这个语句可以检测多个条件。第一种写法要求语句在写的时候要在一行中写完,例如例2.4 的第2行的If语句。这条语句也可以采用第二种方法来写,方法如下:
If Hour(Now)12 Then
Response.Write ("Good Morning!Cindy!")
End If
建议用户采用后一种写法,因为这种方法更结构化,可读性好。当用户在调试大型软件的代码时,会发现,虽然看起来多写了几行语句,但好处却是很大的。根据时间显示问候信息。请注意这个例子的写法与上个例子中的写法在执行效率上的区别。
%
If Hour(Now)12 Then
Response.Write ("Good morning! Cindy!")
ElseIf Hour(Now)=12 Then
Response.Write ("Good noon! Cindy!")
ElseIf Hour(Now)=18 Then
Response.Write ("Good evening! Cindy!")
Else
Response.Write ("Good afternoon! Cindy!")
End If
%
上面的例子在执行的过程中,对于当前不同的时间,为了显示问候信息,执行的Hour(Now)的取值和比较的次数是不一样的:最少只要1次,最多需要3次。
2. Select/Case结构
当程序中的条件比较复杂,而且是根据同一个表达式的不同值执行不同操作的时候,用If/Then/Else语句来写就显得十分烦琐。这时可以考虑采用Select/Case结构来完成VB.NET条件语句。
Select/Case结构为:
Select Case testexpression
Case condition_1
statements_1
[… Case Else statements_n]
End Select
它表败键示:如果testexpression的值是Condition_1,就执行statements_1,以此类推,如果都不符合,就执行Statements_n。用Select/Case语句来实现问候信息的显示。
%
Select Case Hour(Now)
Case 0,1,2,3,4,5,6,7,8,9,10,11
Response.Write ("Good morning! Cindy!")
Case 12
Response.Write ("Good noon! Cindy!")
Case 13,14,15,16,17
Response.Write ("Good afternoon! Cindy!")
Case Else
Response.Write ("Good evening! Cindy!")
End Select
%
很明显,用这种方法来显示问候信息要比用If/Then/Else语句清楚得多。因此,在选择VB.NET条件语句的时候要考虑好采用什么方式,并认真设置好条件。
VB.NET的 把重点的语句注释下就行了
'''两段程序就是利用点虐 的连接对象的功碰猛能来完瞎晌成登录的实例
Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click 'start按钮触发的函数
Dim schclass As String = Trim(txtClass.Text) ‘将txtClass里文本赋值给变量schclass
Dim selestr As String
’提示用户txtClass文本框不能为空
If schclass "磨吵锋" Then
selestr = "班级='" schclass "'"
Else
MsgBox("请输入班级名称", 64, "提示") ‘ 显示保存成功提示信息
End If
‘创建一个DataView对象,即将数据集DataSet11里的学生成绩表的DefaultView实例化
Dim dvresult As DataView = DataSet11.学生成绩.DefaultView
’按学号字段排序
dvresult.Sort = "学号"
‘按刚才txtClass里输入的班级查询
dvresult.RowFilter = selestr
dvresult.RowStateFilter = DataViewRowState.CurrentRows
’然后将筛选的结果输入到datagrid上
DataGrid1.DataSource = dvresult
End Sub
Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click ‘ok按钮触发的函数
’如果txtUserName或txtPass文本框为空,提示并中断函数
If txtUserName.Text = "" Or txtPass.Text = "" Then
Response.Write("script language=vbscriptalert""用户名或密码不能为空!""/script")
Exit Sub
End If
‘定义链接、执行、阅读 对象
Dim mycon As New OleDbConnection
Dim mycmd As New OleDbCommand
Dim reader As OleDbDataReader
’给连接对象赋值连接字符串,access类型的。
mycon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
Server.MapPath("Msg.mdb")
‘打开连接对象
mycon.Open()
’将连接对象复制到执行对象上
mycmd.Connection = mycon
‘然后就给执行对象赋值执行类型和执行语句
mycmd.CommandType = CommandType.Text
mycmd.CommandText = "Select * from myuser Where 用户名='" txtUserName.Text "'" " and 密码='" txtPass.Text "'"
’然后将执行对象的监听实例化
reader = mycmd.ExecuteReader()
‘如果执行不成功,即没有得到结果集就提示否则将结果集的用户名赋值给一个session以供其他页面使用
If reader.Read = False Then
Response.Write("script language=vbscriptalert""用户名或密码错,你不能登录!""/script")
Else
Session("username") = reader("用户名")
Response.Redirect("lwmsg.aspx")
End If
’关闭监听
reader.Close()
‘关闭连接
mycon.Close()
End Sub
VB.Net连接SQL数据库的语句理解
问题:
1,字符串前面的“_”符号,是VB的语法格式,表示下一行语句是与本行语兆搏孙句连接在一起的同一行语句。主要是考虑屏幕宽度有限,有的语句太长,所以采用此格式;
例如:银升a = 12 + 18
可以写成:a = 12 + _
18
2,ConnectString是一个变量的名称;
VB.NET允许,在声明变量的同时给它赋值
例如:Dim a as integer
a = 12
可以写成:Dim a as integer = 12
你的例子的使用相当于:
dim ConnectString as string
ConnectString = ""Data Source = 。族链。。。。。。。。“
关于如何操作数据库,这个真一两句话说不清楚,最好你找书或者、网上搜索。
分享名称:vb点虐 语句整理 vbnet implements
链接分享:http://pwwzsj.com/article/ddpscih.html