文档库 最新最全的文档下载
当前位置:文档库 › vb神童教程

vb神童教程

vb神童教程
vb神童教程

vb神童教程(续)

vb数据库操作是初学者普遍感到头疼的地方,因为现有的vb教材和资料中的数据库操作这部分,多是泛泛而谈或是一带而过。因此就想组织一个包括添加、修改、删除这些基本功能的数据库操作实例供大家参考。

久已未用vb6,机器里已经装上了VS 2008,再改回vb6,感觉实在是怪怪的。还好有朋友帮忙,感谢“小二黑”网友供稿!

也许有朋友觉得vb6版本已经很低了,做这个事还有意义吗?其实对微软来说,vb5是vb,vb6是vb,https://www.wendangku.net/doc/f718661245.html,中的https://www.wendangku.net/doc/f718661245.html,也是vb;而对于许多初学者来说,vb只是vb6,为什么这么说呢?因为对于许多不了解编程的朋友来说,似乎vb就是编程的代名词,学编程的第一反应就是学vb,而民间的电脑培训学校开设的多数都是vb6课程,那么他们学到的都是vb6;同时计算机等级考试也可以用vb6来过级,有相当部分的朋友是为了考证而学编程的,你相信他会放着简单易学的vb6不学,而去研究庞大的.NET吗?

因此我觉得这个事还是值得去做的,所以就有了下面这几篇文章。

祝朋友们学习愉快!

第一部分:vb数据库操作实例

vb神童教程(续)--编写一个小型的信息管理系统

vb神童教程(续)--准备数据库

vb神童教程(续)--设计系统的界面及对象的属性

vb神童教程(续)--为对象添加事件代码

第二部分:补充内容

vb神童教程(续)--ODBC数据源简介

vb神童教程(续)--配置Access数据源

vb神童教程(续)---配置SQL Server数据源

vb神童教程(续)--VB的ADO对象

vb神童教程(续)--vb adodb Connection对象简介

vb神童教程(续)--vb连接Access数据库实例

vb神童教程(续)--使用ADO Data控件连接Access的简单实例

vb神童教程(续)--编写一个小型的信息管理系统

受委托为编程入门网做一个简单的vb操作数据库的实例,来演示一下如何用vb向数据库中添加、修改、删除记录这些操作。我觉得自己是比较菜的,几年来别人都在进步,只有我还在原地踏步。不过没有办法,我们这一圈人里现在只有我机器上还有vb6,勉为其难,只有尝试一下了。如果我写的这点幼稚的东西能为想要了解vb数据库操作的朋友提供哪怕是一丁点儿的参考和帮助,将是我最为高兴的事情,同时也希望高手不要见笑。

我做的这个实例名为“编程入门网网址管理系统”,算是一个小型的信息管理系统吧。该系统后台使用的是Access数据库,程序中使用ADO代码链接的形式连接Access。该系统具有向数据库中添加、修改、删除记录的功能,进行某项操作后能够实时刷新显示数据。并在程序中加了相应的代码对输入的数据进行合法性校验,以避免输入错误的数据造成程序运行不正常,程序运行时各个操作及退出系统时均有友好的提示框请用户确认。所有代码均

在Windows 2003+Vusual Basic 6.0环境下调试通过。

系统运行时如下图:

vb神童教程(续)--准备数据库

我用的是Access 2003,因为需要讲解的仅仅是数据的添加、修改及删除,因此单数据库、单表就够了。如果以后您要编写更复杂一些的信息管理系统而涉及到多表操作,则您还需要补充一些关系数据库方面的知识,比如实体、一对一联系、一对多联系等等;此外,对sql语言也需要有所了解。具体您可以参考:数据库基础知识ABC。

首先,在“我的电脑”的e盘新建一个名为vb文件夹,先打开Access,新建一个名为Access_db的数据库(Access数据库文件的扩展名是.mdb),保存到刚才建立的文件夹中,则以后在程序中调用数据源的位置为E:\vb\Access_db.mdb。

然后在Access_db.mdb中建立一个名为wzdz的表(wzdz是“网站地址”的首字母缩写), 然后在wzdz表中添加网站名称、网站地址及网站描述三个字段,三个字段的属性是相同的,如下:

▲数据类型:文本。

▲字段大小:50

▲有效性规则:无。

▲必填字段:否

▲允许空字符串:否

▲索引:无

“编号”这个字段使用的是Access的自动编号,并将其作为主键。也就是说,您在表中设置以上三个字段即可,设置完毕保存表时,按Access的提示添加主键,Access会自动为您搞定。具体操作您可以参考:vb神童教程(续)--vb连接Access数据库实例这样在建立了数据库及表结构之后,即使是调用没有记录的空库,系统也可以无差错运行,可以在运行时通过“添加记录”按钮向数据库中添加记录。不过由于数据库是空的,系统第一次运行时数据显示控件没有数据可显示,显得空荡荡的,不太美观哦。为了方便起见,

添加的方法很简单:在Access的设计器中直接双击wzdz表名,在出来的窗口中添加即可。添加时注意:因为我们使用的是Access的自动编号做主键,所以在添加时不用理“编号”这个字段,直接添加后三个字段即可。

下一步的工作,是设计系统的界面及设置各个对象的属性。

vb神童教程(续)--设计系统的界面及对象的属性

本系统是一个很简单的数据库操作实例,能够对数据库的添加、修改及删除记录这几个基本的操作。系统使用数据显示控件MSHFlexGrid显示数据库中的记录,使用数据链接控件Adodc链接数据库作为MSHFlexGrid的数据源,使用文本框来接收系统运行时用户输入的数据。

步骤如下:

一、启动vb6,新建一个标准exe工程,并将工程中的form1的caption属性设置为“编程入门网网址管理系统”,width属性值设为7950,height属性值设为4620。

二、向窗体中添加一个Adodc控件。如果在工具箱中找不到Adodc控件,可以右击工具箱,选择“部件...”菜单项,然后在“部件”窗口的“控件”选项卡中选中“Microsoft ADO Data Control6.0(OLEDB)”。

在VB的属性窗口我们对Adodc控件的三个个属性值进行编辑,其余属性值使用默认的即可:

1、ConnectionString属性值设为:Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\vb\Access_db.mdb;Persist Security Info=False

这个属性设置了连接Access_db.mdb这个数据库。

2、RecordSourc属性值设为:select * from wzdz

这个属性值中的sql语句的作用是查询出wzdz表中的所有记录。

3、Visible属性值设为False,作用是使其在运行时不可见。

三、向窗体添加一个MSHFlexGrid控件,如果工具箱中没有MSHFlexGrid控件,可以右击工具箱,选择“部件...”菜单项,然后在“部件”窗口的“控件”选项卡中选中“Microsoft Hierarchical FlexGrid Control 6.0 ”。然后在vb的属性窗口中将MSHFlexGrid控件的名称修改为MS1,如下图:

然后对MSHFlexGrid控件进行如下设置:

1、DataSource属性:在vb的属性窗口中将其值设为Adodc1,即使用Adodc控件作为其数据源。

2、BackColorBkg属性:在vb的属性窗口中将其值设为&H00FFE0E0&,这是设置的MSHFlexGrid控件的底色。

3、BackColorFixed属性:在vb的属性窗口中将其值设为&H00C0FFFF&,这是设置的MSHFlexGrid控件的显示标题的底色。

4、width属性:在vb的属性窗口中将其值设为7695.

5、Height属性:在vb的属性窗口中将其值设为2175.

6、右击MSHFlexGrid控件,在弹出的菜单中选“属性”,在弹出的“属性页”对话框的在“通用”选项卡中修改行为4,修改列为4,修改固定行为0,修改固定列为0。如果数据链接正常,在“属性页”对话框的“带区”选项卡中可以看到列标题和列名称已经设置了,这里注意应该将“带区”选项卡中的“列标头”选项勾选上,否则运行时无法显示列标题,如下图。“属性页”对话框的其它部分使用默认值即可。

四、向窗体中添加4个Label控件(标签),在vb的属性窗口为它们设置以下属性:

1、caption属性:分别设置为网站名称、网站地址、网站描述及编号。

2、Alignment属性:均设为“2-Center”。

3、AutoSize属性:均设为True。

五、向窗体中添加4个TextBox控件(文本框),并调整它们的位置成一排与4个标签相对应,即:网站名称→Text1,网站地址→Text2,网站描述→Text3,编号→Text4。

六、向窗体中添加4个CommandButton控件(命令按钮),将它们的caption属性分别设置为“添加记录”、“修改记录”、“删除记录”和“退出系统”,并调整它们的位置成一排,放在文本框的下方。

七、在两排文本框和命令按钮中间,添加一个Line控件,适当拖动其两端的控制点将长短调整至适当,并将其BorderColor属性性设为&H00C00000&,作用是把文本框和命令按钮隔开,这样在视觉上似乎能好看些。

八、所有控件设置完毕后,界面如下图所示:

下一步的工作,是为对象添加事件代码。

vb神童教程(续)--为对象添加事件代码

一、form1的load事件代码:

Private Sub Form_Load()

Form1.MS1.ColWidth(0) = 600

Form1.MS1.ColWidth(1) = 1000

Form1.MS1.ColWidth(2) = 2300

Form1.MS1.ColWidth(3) = 4000

Form1.Text1.Text = ""

Form1.Text2.Text = ""

Form1.Text3.Text = ""

Form1.Text4.Text = ""

End Sub主要是在系统初始化时设置MSHFlexGrid控件的列宽,并将文本框置空。

二、“添加记录”按钮(command1)的click事件代码:

Private Sub Command1_Click()

Dim sc As Integer

If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then

'即网站名称、网站地址和网站描述的内容必须填全了才打开数据库连接写入数据'由于系统数据库设计为“编号”字段采用的是Access的自动编号

'因此在添加记录时不接收编号的数据,由Access自动加编号

MsgBox ("请输入完整的网站信息")

Else

sc = MsgBox("确实要添加这条记录吗?", vbOKCancel, "提示信息") If sc = 1 Then

'运行时如果用户点击的是MsgBox提示框的“确定”按钮,返回值是1 Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim Str1 As String

Dim Str2 As String

Dim Str3 As String

Str1 = "Provider=Microsoft.Jet.OLEDB.4.0;"

Str2 = "Data Source=E:\vb\Access_db.mdb;"

Str3 = "Jet OLEDB:Database Password="

conn.Open Str1 & Str2 & Str3

strSQL = "select * from wzdz"

rs.Open strSQL, conn, 3, 3

rs.AddNew

rs!网站名称= Text1.Text

rs!网站地址= Text2.Text

rs!网站描述= Text3.Text

rs.Update

rs.Close

conn.Close

MsgBox ("添加记录成功!")

Adodc1.Refresh

'刷新数据源,MSHFlexGrid控件会实时刷新显示数据

End If

'以下四条语句的作用是在操作完成后将文本框置空

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

End If

End Sub

三、“修改记录”按钮(command2)的click事件代码:

Private Sub Command2_Click()

If Not IsNumeric(Text4.Text) Or Val(Text4.Text) = 0 Then

'编号字段是Access的自动编号,为自然数

'因此对text4的内容进行校验,如果不是数值或为0则跳出sub过程

MsgBox "记录号是大于0的自然数,请输入正确的编号!"

Exit Sub

End If

If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then

'对三个文本框的内容进行校验,不接收空值

MsgBox "请输入完整的网站信息!"

Exit Sub

End If

Dim sc As Integer

sc = MsgBox("确实修改这条记录吗?", vbOKCancel, "提示信息")

If sc = 1 Then

'运行时如果用户点击的是MsgBox提示框的“确定”按钮,返回值是1

Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim Str1 As String

Dim Str2 As String

Dim Str3 As String

Str1 = "Provider=Microsoft.Jet.OLEDB.4.0;"

Str2 = "Data Source=E:\vb\Access_db.mdb;"

Str3 = "Jet OLEDB:Database Password="

conn.Open Str1 & Str2 & Str3

strSQL = "select * from wzdz where 编号=" & Val(Text4.Text) & ""

rs.Open strSQL, conn, 3, 3

If rs!编号= Val(Text4.Text) Then

'由于系统数据库使用的是自动编号作为主键,'因此以编号字段的内容作为判断的依据。

'如果rs!编号= Val(Text4.Text)说明数据库中有此记录,才会修改其它三个字段的内容,

'否则给出“不存在此记录”的提示信息并关闭数据连接

rs!网站名称= Text1.Text

rs!网站地址= Text2.Text

rs!网站描述= Text3.Text

rs.Update

rs.Close

conn.Close

MsgBox ("修改记录成功!")

Adodc1.Refresh '刷新数据源,MSHFlexGrid控件会实时刷新显示数据Else

MsgBox ("不存在此记录!")

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

rs.Close

conn.Close

Exit Sub

End If

End If

'以下四条语句的作用是在操作完成后将文本框置空

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

End Sub

四、“删除记录”按钮(command3)的click事件代码:

Private Sub Command3_Click()

If Not IsNumeric(Text4.Text) Or Val(Text4.Text) = 0 Then

'编号字段是Access的自动编号,为自然数

'因此对text4的内容进行校验,如果不是数值或为0则跳出sub过程MsgBox "编号是大于0的自然数,请输入正确的编号!"

Exit Sub

End If

Dim sc As Integer

sc = MsgBox("确实要删除这个记录吗?", vbOKCancel, "删除确认!")

If sc = 1 Then

'运行时如果用户点击的是MsgBox提示框的“确定”按钮,返回值是1 Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim Str1 As String

Dim Str2 As String

Dim Str3 As String

Str1 = "Provider=Microsoft.Jet.OLEDB.4.0;"

Str2 = "Data Source=E:\vb\Access_db.mdb;"

Str3 = "Jet OLEDB:Database Password="

conn.Open Str1 & Str2 & Str3

strSQL = "select * from wzdz where 编号=" & Val(Text4.Text) & ""

rs.Open strSQL, conn, 3, 3

If rs!编号= Val(Text4.Text) Then

'由于系统数据库使用的是自动编号作为主键

'因此以编号字段的内容作为判断的依据

'如果rs!编号= Val(Text4.Text)说明数据库中有此记录并进行删除操作'否则给“不存在此记录”的提示信息并关闭数据连接

rs.Delete

rs.Close

conn.Close

MsgBox ("删除记录成功!")

Adodc1.Refresh '刷新数据源,MSHFlexGrid控件会实时刷新显示数据Else

MsgBox ("不存在此记录!")

Text4.Text = ""

rs.Close

conn.Close

Exit Sub

End If

End If

'以下四条语句的作用是在操作完成后将文本框置空

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

End Sub

五、“退出系统”按钮(command4)的click事件代码:

Private Sub Command4_Click()

Dim sc As Integer

sc = MsgBox("确实要退出系统吗?", vbOKCancel, "提示信息")

If sc = 1 Then

'运行时如果用户点击的是MsgBox提示框的“确定”按钮,返回值是1

End

End If

End Sub

六、添加完事件代码之后,我们这个实例至此完成,运行一下吧!

vb神童教程(续)--ODBC数据源简介

ODBC(开放式数据库连接)是一种应用程序的接口(API)。这种接口提供了独立于任何的数据管理系统编写应用程序的能力。OCBC通过ODBC驱动程序提供了对不同的数据库供应商的一组应用程序接口来给特殊的数据库管理系统(DBMS)。用户的应用程序使用这组API来调度ODBC驱动程序。然后驱动程序通过SQL语句同DBMS发生联系。

下面我们开始介绍ODBC数据源。在“我的电脑”中打开“控制面板”中的“管理工具”,在窗口中即可见ODBC数据源图标。

双击打开ODBC数据源管理器,如下图所示:

ODBC数据源管理器为配置、添加、删除各种不同的数据源名称提供了最为简洁的方法。它使得用户可以轻松地完成数据源的配置工作,用户也可以删除原有的DSN(数据源名称),

或对先前配置的数据源进行修改。ODBC数据源管理器的具体功能如下:

▲用户DSN:ODBC用户数据源存储了如何与指定数据提供者连接的信息。用户数据源只对当前的用户可见,而且只能应用在本机上。

▲系统DSN:ODBC系统数据源存储了如何与指定数据提供者连接的信息。系统数据源对当前机器上的所有用户可见。

▲文件DSN:ODBC文件数据源允许用户连接数据提供者。文件DSN可以由安装了相同驱动程序的用户共享。

▲驱动程序:ODBC驱动程序允许那些支持ODBC的程序通过ODBC数据源获取信息。如果安装新的驱动程序,要使用其安装程序。

▲跟踪:ODBC跟踪允许创建调用ODBC驱动程序的日志,以供技术人员查看;也可以辅助调试应用程序。Visual Studio跟踪启动Microsoft Visual Studio的ODBC跟踪。

▲连接池:连接池允许应用程序重新打开连接句柄,此操作将往返过程存入服务器。

vb神童教程(续)--配置Access数据源

(1)打开控制面板中的ODBC数据源管理器,在“用户DSN”(即“用户数据源”)中选择“MS Access Database”选项,可心删除或配置一个已有的用户数据,这里我们将要添加一个数据源。

(2)单击添加按钮,系统将准备在MS Access Database下添加一个用户数据源,为了安装数据源,会弹出创建新数据源窗口,如下图:

(3)在创建新数据源窗口中,选择"Microsoft Access Driver"来安装数据源。

(4)单击“完成”按钮,进入ODBC Microsoft Access安装窗口,如下图:

▲在“数据源名”项中键入数据源的名称,这里我们键入“Access_db”作为数据源名。

▲在“描述”项中键入对数据源的描述,此处内容可选,这里我们键入“This is Access database temp”。

▲在“数据库”项中可以选取、创建、修复或者压缩数据库。这里我们选择“选取”按钮来选取相应的Access数据库。如果用户没有自己建立的Access数据库,那么用户可以到安装Access的目录下面选取Access自带的数据库。注意:Access数据库文件的扩展名是.mdb。

▲最后,单击“确定”按钮。至此一个新的Access数据源已经添加完成,如下图:

说明:如果用户希望所创建的数据源名被本机中的多个用户所使用,请用户添加系统DSN。在实际情况中,开发一个单机单用户的系统没有什么意义,所以一般都需要对系统DSN进行配置。系统DSN的添加过程同用户DSN添加过程类似。

vb神童教程(续)---配置SQL Server数据源

配置SQL Server数据源的步骤:

(1) 打开控制面板中的ODBC数据源管理器,单击“添加”按钮来添加一个数据源。

(2)单击添加按钮后,系统将准备添加一个用户数据源。为了安装数据源,会弹出创建新数据源窗口,如下图所示。由于VB和SQL Server的系列性,所以即使用户没有安装SQL Server,在创建新数据源窗口中也列有SQL Server这一项。当然,这里的列表项只是起了一个标识作用,如果用户尚未安装SQL Server,请先安装后再进行以下的步骤。

(3)在上图选择“SQL Server”后,单击“完成”按钮,进入“创建新的数据源到SQL Server”窗口,如下图所示:

▲在“名称”项中键入新的数据源名,这里我们键入SQL Server1作为新数据源名称。

▲在“描述”项中键入对数据源的描述,此处可以不填。

▲在“服务器”项中键入想连接的SQL Server服务器。如果要连接的SQL Server是安装在本机上,那么就从下拉框中选择“Local”,local表示的是连接到本地的服务器。如果要连接的SQL Server是安装在其它的服务器上,那么就应从下拉框中选取相应的选项。如果从列表中选择服务器名称,则不需要更多的配置。如果输入一个不存在的服务器的名字作为SQL Client Configuration Utility中的一项,可在向导的下一个屏幕上为新名字创建一个服务器别名。

▲单击“完成”按钮完成新数据源的配置。单击“下一步”按钮进行下一步的配置工作。

▲在“SQL Server”应该如何验证登录标识号的真伪?”下面有两个单选项供用户选择。

▲如果选定“使用用户输入登录标识号和密码的SQL Server验证”,请指定连接到SQL Server时SQL Server驱动程序使用的登录标识号。这仅适用于确定服务器默认配置的连接,而不适用于使用已创建数据源进行的后续连接。

▲如果选定“使用用户输入登录标识号和密码的SQL Server验证“,请指定连接到SQL Server时SQL Server使用的密码。这只适用于确定服务器默认配置的连接,而不适用于使用新数据源进行的后续连接。

(5)单击“下一步”按钮将进行连接的验证。如果正确,则连接成功;否则,系统会指出具体的错误,用户应该重新验证输入的正确性。

vb神童教程(续)--VB的ADO对象

ADO简介

参考资料:

ADO简介:https://www.wendangku.net/doc/f718661245.html,/VBjc/sjcz/sj2.htm

ado对象模型:https://www.wendangku.net/doc/f718661245.html,/Programming/VB_NET/200705/1201.htm

ADO是另一种用于开发访问OLE DB数据源应用程序的API。有多种程序设计语言都支持ADO,如VB,VC++,VJ++等。ADO提供了较为高级并容易被理解的访问OLE DB 数据源的机制,它结合了DAO和RDO的优点。并提供了OLE DB数据源的入口。OLE DB 是一种数据库体系结构,它为企业网络提供了普遍的数据综合能力(从大型机到桌面上的数据,而不管数据的具体类型是什么),与ODBC相比,OLE DB在数据通道方面更具有普遍性和有效性,这是因为它允许同建立在COM基础上的更多的数据类型联系和由于ADO是为开发客户机/服务器程序而专门设计的。下图是典型的ADO应用程序的结构。

ADO的特征如下:

▲支持成批更新.即对更新的多个记录进行缓冲,并同步传输到服务器。

▲支持所有类型的光标。包括只能前移型,关键值型以及动态和静态型。

▲支持服务器端的存储过程。这些过程可以大大提高应用程序的通用性。

▲支持返回多个记录集的查询。

▲支持查询目的。包括限制返回的记录的个数,激活返回记录的过滤和预先语句。

ADO是由以下对象组成的:Command,Connect,Error,Field,Parameter和RecordSet。下图给出了ADO对象的层次结构。除了Error和Field之外的所有ADO对象都是可以单独创建的,而Command,Error和Parameter对象是可选的。

ADO对象介绍

1.Connection对象

详见vb神童教程(续)--vb adodb Connection对象简介

Connection对象封装了到数据源的连接而且允许使用Execute()方法来执行SQL命令,Execute()命令返回一个RecordSet对象。可使用Connection对象配置一个数据库的链接、定义脱机等级、执行SQL命令并对SQL语句的执行进行控制和管理。下图显示了Connection

对象同其它对象的关系。

https://www.wendangku.net/doc/f718661245.html,mand对象

Command对象定义了将对数据源执行的指定命令。使用Command对象查询数据库并将查询所得到的记录集返回给RecordSet对象,以便执行大量操作或处理数据库结构。Command对象的主要功能主要有:

▲使用数据管理命令创建RecordSet对象,完成成批更新和使用数据定义命令修改数据源结构。

▲打开到数据源的连接,指明一个命令,执行存储过程和创建语句。

▲与Parameter对象联合创建参数化的命令。应用程序可以往各参数集中添加参数,而不需要数据提供者预先填充参数集。

3.Error对象

Error对象封装了从数据源返回的错误。如果Error对象可用,可使用它来获得错误描述、错误代码、创建错误的对象、参考帮助文件和当前的SQL状态。Errors集合中包含了为响应涉及提供者的单个错误而创建的所有Error对象。任何涉及ADO对象的操作都可能产生一个或多个提供者错误。产生错误时,可以将一个或多个Error对象置于Connection对象的Errors集合中。其他ADO操作产生错误时,将会自动清空Errors集合,并且将新的Error 对象置于Errors集合中。

4.Field对象

Field对象封装了RecordSet对象中的一列。可以这样说,一个RecordSet对象是由一组Field对象组成的。可以使用Field对象来访问列的名称、列值、类型、精度、范围和列的大小。Field对象只能从RecordSet对象中来访问。

5.Parameter对象

Parameter对象封装了一个命令参数,此参数可以是输入型、输出型或者输入/输出型。许多数据源提供者都支持参数化的命令。需要进行的操作在这些命令中只定义一次,但可以使用变量(或参数)来改变命令的某些细节。例如,SQL SELECT语句可以使用某个参数定义WHERE子句的匹配条件,而使用另一个参数来定义SORT BY子句的列的名称。

6.RecordSet对象

RecordSet对象是ADO的核心,可以单独地创建。RecordSet对象表示的是来自基本表或命令执行结果的记录全集。任何时候,RecordSet对象所指的当前记录均为集合内的单个

记录。在RecordSet对象中有一个默认的指针,用户程序可以通过这个默认指针的移动来访问记录集中的单个记录。RecordSet对象封装了一组可以访问列级数据的Field对象。

RecordSet对象的方法:

1.AddNew方法

AddNew方法为可更新的Recordset对象创建一个新记录.AddNew方法将添加一条新的空记录,并且定位在该记录上,用户可以在被绑定的数据感知控件中输入修改数据.新增加的记录的值为指定的默认值,如果没有指定值,则为Null.例如: 输入完新记录后,要使用I.1pdate 方法才能将数据保存到数据库中,在使用Update方法前,数据库中的数据不会发生改变,只有执行Update方法或通过Data控件移动当前记录时,记录才从缓冲区存储到数据库文件中.使用Update方法后,新记录仍保持为当前记录.

Data1.Recordset.AddNew

2.Delete方法

Delete方法可将当前记录从记录集中删除.

3.Edit方法

要编辑修改数据库的记录,首先使要编辑的记录成为当前记录,然后使用Edit方法修改记录内容,使用Edit方法后,移动记录或者使用Update方法把数据存入到数据库中.

4.Move方法

可以使用各种:Move方法移动记录,使不同的记录成为当前记录.有5种方法:

MoveFirst.移动到记录集的第一条记录.

Move[,ash移动到记录集的最好一条记录.

MoveNext:移动到记录集的下一条记录.

MovePrevious:移动到记录集的上一条记录.

Move:可以使用Move方法向前或向后移动若干条记录.语法为:

Recordset.MoveNumRecords.Start

其中NumRecords设置向前或向后移动记录的行数,正数表示向后移动NumRecords行,负数表示向前移动NumRecords行.Start参数为可选,表示基准位置,缺省时为当前记录的位置.可以把当前记录集的Bookmark作为基准位置.

5.Find和Seek方法

要查找一个符合条件的记录,在Table型的记录集中可以使用Seek方法,在其他类型的记录集中可以使用Find方法.

共有4种Find方法:FindFirst,Find[,ast,FindNext和:FindPrevious方法.使用Seek方法要用到索引,而且只能用于Table类型的记录集.

6.I_Ipdate和CancelIJpdate方法

Update方法保存对Recordset对象的当前记录所做的更改.使用IJpdate方法可以保存自从调用.AddNew方法,或自从现有记录的任何字段值发生更改(使用Edit方法)之后,对Recordset对象的当前记录所作的所有更改.调用LIpdate方法后当前记录仍为当前状态.

如果希望取消对当前记录所做的所有更改或者放弃新添加的记录,则必须调用CancelUpdate方法.调用CanceltJpdate时,更改缓存被重置为空,并使用原来的数据对被绑定的数据感知控件进行刷新.

它们的语法为:

7.Close方法

使用Close方法可以关闭:Recordset对象以便释放所有关联的系统资源.关闭对象并非是将它从内存中删除,可以更改它的属性设置并且在此之后再次打开.

vb神童教程(续)--vb adodb Connection对象简介

Connection对象介绍

Connection对象支持许多属性,可以利用这些属性来操作当前的连接状态或者获取一些基本的Connection对象的信息.有一些属性是只读的,而另一些属性是可读写的.

1.Attributes属性

Attributes属性设置或返回一个整型值,它用来指示对象的一项或多项特性.对于Connection对象,Attributes属性为读/写,并且其值可能为以下任意一个或多个XactAttributeEnum值的和(默认为零).

▲AdXactCommitRetaining:执行保留的提交,即通过自动调用CommitTrans启动新事务。并非所有提供者都支持该常量。

▲AdXactAbortRetaining:执行保留的中上,即通过自动调用RollbackTrans启动新事务。并非所有提供者都支持该常量。

https://www.wendangku.net/doc/f718661245.html,mandTimeout属性

CommandTimeout属性设置或返回长整型值,该值指示等待命令执行的时间(单位为秒)。默许值为30,指示在终止尝试和产生错误之前执行命令期间需要等待的时间。使用Connection对象或Command上的CommandTimeout属性,允许由于网络拥塞或服务器负载过重产生的延迟而取消Execute方法调用。如果在CommandTimeout属性中设置的时间间隔内没有完成命令执行,将产生错误,然后ADO将取消该命令。如果将该属性设置为零,ADO 将无限期等待直到命令执行完毕。

3.ConnectionString属性

ConnectionString属性设置或返回字符串值,这个字符串值包含用来建立到数据源的连接的信息.使用ConnectionString属性,通过传递包含一系列由分号分隔的argument=value语句的详细连接字符串可指定数据源。ADO支持ConnectionString属性的四个参数,任何其他参数将直接传递到提供者而不经过ADO处理。

▲Provider参数:指定用来连接的提供者名称。

▲File Name参数:指定包含预先设置连接信息的特定提供者的文件名称。

▲Remote Provider参数:指定打开客户端连接时使用的提供者名称。

▲Remote Server参数:指定打开客户端连接时使用的服务器的路径名称。

例:使用Connection对象的ConnectionString属性的示例代码

Public Sub ConnectionString_Example()

Dim connection1 As ADODB.Connection

Dim connection2 As ADODB.Connection

Dim connection3 As ADODB.connection

Dim connection4 As ADODB.Connection

'不使用数据源名(DSN)打开连接

Set connection1=New ADODB.Connection

connection1.ConnectionString="driver={SQL Server};"&_

"server=Myserver;uid=sa;pwd=password;database=pubs"

connection1.ConnectionTimeout=30

connection1.Open

'使用DSN和ODBC标记打开连接。

Set connection2=New ADODB.Connection

connection2.ConnectionString="DSN=Pubs;UID=sa;PWD=password;"

connection2.Open

'使用DSN和OLE DB标记打开连接。

Set connection3=New ADODB.Connection

connection3.ConnectionString="Data Source=Pubs;User ID=sa;Password=password;"

connection3.Open

'使用DSN和单个参数而非连接字符串打开连接。

Set connection4=New ADODB.Connection

connection4.Open "Pubs","sa","pwd"

End Sub

注意:如果没有复选“引用”对话框中的Data Access Object,程序会出错。在上面的程序段中,先定义了4个Connection对象的变量。这4个变量分别对应于4种不同的连接方式。语句Set connection1=New ADODB.Connection是创建一个新的Connection对象,然后再调用Connection对象的Open方法来打开数据库连接。

4.ConnectionTimeout属性

ConnectionTimeout属性设置或返回指示等待连接打开的时间的长整型值(单位为秒)。其默认值为15,指示在终止尝试和产生错误前建立连接期间所等待的时间。如果由于网络拥塞或服务器负载过重导致的延迟使得必须放弃连接尝试时,请使用Connection对象的ConnectionTimeout属性。如果打开连接前所经过的时间超过ConnectionTimeout属性上设置的时间,将产生错误并且ADO将取消该尝试。如果将该属性设置为零,ADO将无限等待直到连接打开。

5.DefaultDatabase属性

DefaultDatabase属性可设置或返回指定Connection对象上默认数据库的名称。

例:使用Connection对象的DefaultDababase属性的示例代码。

Public Sub DefaultDatabase_Example()

Dim connection1 As ADODB.Connection

Set connection1=New ADODB.Connection

connection1.ConnectionString="driver={SQL Server};"&_

"server=Myserver;uid=sa;pwd=password"

cnn1.Open

cnn1.DefaultDatabase="pubs"

End Sub

6.IsolationLevel属性

IsolationLevel属性指出Connection对象如何处理对象。

7.Mode属性

Mode属性设置或返回以下某个ConnectModeEnum的值,指示用于更改在Connection 中的数据的可用权限。

▲AdModeUnknown:默认值。表明权限尚未设置或无法确定。

▲AdModeRead:表明权限为只读。

▲AdModeWrite:表明权限为只写。

▲AdModeReadWrite:表明权限为读/写。

▲AdModeShareDenyRead:防止其他用户使用读权限打开连接。

▲AdModeShareDenyWrite:防止其他用户使用写权限打开连接。

▲AdModeShareExclusive:防止其他用户打开连接。

▲AdModeShareDenyNone:防止其他用户使用任何权限打开连接。

8.Provider属性

Provider属性指出当前数据提供者的名字,或者是使用Open()方法时没有指定名字的情况下所使用的提供者名。但是,调用Open方法时如果在多处指定提供者可能会产生无法预料的后果。如果没有指定提供者,该属性将默认为MSDASQL(Microsoft OLE DB Provider for ODBC)。

例:使用Connection对象的Provider属性的示例代码。

Public Sub Provider_Example()

Dim connection1 As ADODB.Connection

Set connection1=New ADODB.Connection

connection1.Provider="Microsoft.Jet.OLEDB.3.51"

connection1.Open"C:\samples\northwind.mdb","admin",""

End Sub

9.State属性

State属性对所有可应用对象都可用,它用来说明其对象状态是打开或关闭的。可以随时使用State属性来确定指定对象的当前状态。该属性是只读的,并返回下列常量之一的长整型值。

▲AdStateClosed:默认值,指示对象是关闭的。

▲AdStateOpen:指示对象是打开的。

▲AdStateConnecting:指示Recordset对象正在连接。

▲AdStateExecuting:指示Recordset对象正在执行命令。

▲AdStateFetching:指示Recordset对象的行正在被读取。

例:使用Connection对象的State属性的示例代码。

Public Sub State_Example()

Dim connection1 As ADODB.Connection

Dim statestring AS String

Set connection1=New ADODB.Connection

connection1.ConnectionString="DSN=Pubs;UID=sa;PWD=password;"

connection1.Open

Select Case connection1.State

case adStateClosed

statestring="adStateClosed"

case adStateOpen

statestring="adStateOpen"

End Select

'显示连接的状态。

MsgBox "connection1.State:",,statestring

End Sub

Connection对象的方法

Connection对象的方法用来管理事务、执行命令、打开和关闭连接。需注意的是,ADO 对象所支持的方法是独立于当前所使用的数据源的。例如一个OLE DB数据源不必支持OLE DB规范的全部功能。

1.BeginTrans方法

BeginTrans方法开始一个连接到数据源的新事务,即启动一个新的事务。与之相应的还

有CommitTrans和RollbackTrans方法。CommitTrans保存所有的更改并结束当前事务,它也可以用来启动一个新的事务。RollbackTrans取消当前事务中所做的任何更改并结束事务,同CommitTrans类似,它也可以用来启动一个新的事务。它们的语法为:

Object.BeginTrans

https://www.wendangku.net/doc/f718661245.html,mitTrans

Object.RollbackTrans

需注意,并非所有提供者都支持事务。需验证提供者定义的属性Transaction DDL是否出现在Connection对象的Properties集合中,如果在则表示提供者支持事务。如果提供者不支持事务,调用其中的某个方法将返回错误。一旦调用了BeginTrans方法,在调用CommitTrans或RollbackTrans结束事务之前提供者将不再立即提交所做的任何更改。

例:使用Connection对象的BeginTrans、CommitTrans和RollbackTrans方法的示例代码。

Public Sub BegiTrans_Example()

Dim cnn1 As ADODB.Connection

Dim rstTitles As ADODB.Recordset

Dim strCnn As String

Dim strTitle As String

Dim strMessage As String

'打开连接。

strCnn="Provider=sqloledb;Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=;"

Set cnn1=New ADODB.Connection

cnn1.Open strCnn

'打开Titles表

Set rstTitles=New ADODB.Recordset

rstTitles.CursorType=adOpenDynamic

rstTitles.LockType=adLockPessimistic

rstTitles.Open "titles",cnn1,,,adCmdTable

rstTitles.MoveFirst

cnn1.BeginTrans

'在记录集中循环并询问是否想要更改指定标题的类型.

Do Until rstTitles.EOF

If Trim(rstTitles!Type)="psychology" Then

strTitle=rstTitles!Title

strMessage="Title:"&strTitle&vbCr&"Change type to self help?"

'更改指定雇员的标题

If MsgBox(strMessage,vbYesNo)=vbYes Then

rsttitles!Type="self_help"

rstTitles.Update

End If

Enf If

rstTitles.MoveNext

Loop

'询问用户是否想提交以上所做的全部更改

If MsgBox("Save all changes?",vbYesNo)=vbYes Then

VBProject代码操作代码之常用语句

一、增加模块 1.增加一个模块,命名为“我的模块” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule).Name = "我的模块" 系统常量vbext_ct_StdModule=1 2.增加一个类模块,命名为“我的类” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_ClassModule).Name = "我的类" vbext_ct_ClassModule=2 3.增加一个窗体,命名为“我的窗体” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm).Name = "我的窗体" vbext_ct_MSForm=3 二、删除模块 1.删除“模块1” ThisWorkbook.VBProject.VBComponents.Remove hisWorkbook.VBProject.VBComponents("模块1") 2.删除窗体“UserForm1” ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("UserForm1") 3.删除类模块“类1” ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("类1") 4.删除所有的窗体 Sub RmvForms() Dim vbCmp As VBComponent For Each vbCmp In ThisWorkbook.VBProject.VBComponents If vbCmp.Type = vbext_ct_MSForm Then ThisWorkbook.VBProject.VBComponents.Remove vbCmp Next vbCmp End Sub 相关: 工作表和ThisWorkbook的模块类型为vbext_ct_Document=100 三、增加代码 1.在“模块1”中插入代码 如果需要在“Sheet1”、“Thisworkbook”、或“Userform1”中操作,用只需将下面的“模块1”换成相应的名称即可。 方法1: 在模块的开始增加代码,增加的代码放在公共声明option,全局变量等后面。 Sub AddCode1() ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.AddFromString _ "sub aTest()" & Chr(10) & _ "msgbox ""Hello""" & Chr(10) & _ "end sub" End Sub

21世纪互联网金文老师的电子讲义第一章VB的基本操作

第一章VB的基本操作 第一节VB的启动与退出 一、启动VB的四种方法 1.使用“开始“菜单中的“程序” 2.使用“我的电脑” 3.使用“开始”菜单的“运行“命令 4.使用桌面快捷方式 二、VB启动后的简单设置 1.新建工程……标准EXE 2.单文档界面和多文档界面(“工具”——“高级”——“SDI开发环境”) 3.退出VB(ALT+Q) 第二节主窗口的组成 一、标题栏:设计模式,运行模式,中断模式 二、菜单栏(13个) 1.键盘激活菜单的方法 ①ALT或F10激活菜单后光标键选择 ②ALT+激活键 2.常用快捷键 新建工程:CTRL+N 打开工程:CTRL+O 保存工程:CTRL+S 三、工具栏 1.工具栏的分类:编辑、标准、窗体编辑器和调试 2.工具拦的形式:固定和浮动 3.标准工具栏图标及作用 第三节其他窗口 一、窗体设计器和工程资源管理器 1.窗体设计器窗口 ①窗体设计器窗口简称窗体(FORM),是应用程序最终面向用户的窗口,它对应 于应用程序的运行结果。 ②如果想清除这些小点或改变点与点之间的距离,则可通过执行“工具”菜单 中的“选项”命令(“通用”选项卡)来调整。 2.工程资源管理器窗口 在工程资源管理器窗口中,含有建立一个应用程序所需要的文件的清单。工程资源管理器窗口中的文件可以分为6类即窗体文件(.frm),程序模块文件 (.bas),类模块文件(.cls),工程文件(.vbp),工程组文件(.vbg)和资源文 件(.res) 3.选项卡的切换 在工程资源管理器窗口的顶部还有3个按钮,分别为“查看代码”、“查看对象”、“切换文件夹”。 二、属性窗口和工具箱窗口 1.属性窗口

VB函数大全_基本函数大全

VB函数大全_基本函数大全 Abs 函数返回数的绝对值。 And 运算符执行两个表达式的逻辑连接。 Array 函数返回含一数组的变体。 Asc 函数返回字符串首字母的ANSI 字符代码。 赋值运算符(=) 给变量或属性赋值。 Atn 函数返回数的反正切值。 调用语句将控制移交Sub 或Function 过程。 CBool 函数返回已被转换为Boolean 子类型的变体的表达式。 CByte 函数返回已被转换为字节子类型的变体的表达式。 CCur 函数返回已被转换为货币子类型的变体的表达式。 CDate 函数返回已被转换为日期子类型的变体的表达式。 CDbl 函数返回已被转换为双精度子类型的变体的表达式。 Chr 函数返回指定ANSI 字符码的字符。 CInt 函数返回已被转换为整数子类型的变体的表达式。 Class 对象提供对已创建的类的事件的访问。 Class 语句声明类名 Clear 方法清除Err 对象的所有属性设置。 CLng 函数返回已被转换为Long 子类型的变体的表达式。 颜色常数颜色常数列表。 比较常数用于比较运算的常数列表。 连接运算符(&) 强制两个表达式的字符串连接。 Const 语句声明用于字母值的常数。 Cos 函数返回角度的余弦值。 CreateObject 函数创建并返回对“自动”对象的引用。 CSng 函数返回已被转换为单精度子类型的变体的表达式。 CStr 函数返回已被转换为字符串子类型的变体的表达式。 日期和时间常数在日期和时间运算中用来定义星期几和其他常数的常数列表。日期格式常数用于日期和时间格式的常数列表。 Date 函数返回当前系统日期。 DateAdd 函数返回加上了指定的时间间隔的日期。 DateDiff 函数返回两个日期之间的间隔。 DatePart 函数返回给定日期的指定部分。 DateSerial 函数返回指定年月日的日期子类型的变体。 DateValue 函数返回日期子类型的变体。 Day 函数返回日期,取值范围为1 至31。 Description 属性返回或者设置说明某个错误的字符串。 Dictionary 对象存储数据键、项目对的对象。 Dim 语句声明变量并分配存储空间。 除法运算符(/) 两数相除并以浮点数格式返回商。 Do...Loop 语句当条件为True 或者当条件变为True 时,重复一语句块。Empty 表示尚未初始化的变量值。 Eqv 运算符使两个表达式相等。 Erase 语句重新初始化固定数组的元素并重新分配动态数组的存储空间。 Err 对象含有关于运行时错误的信息。 Eval 函数计算并返回表达式的值。 Execute 方法根据指定的字符串,执行正则表达式的搜索。 Execute 语句执行单个或更多的指定语句。 Exit 语句退出Do...Loop、For...Next、Function 或Sub 代码块。 Exp 函数返回e (自然对数的底)的多少次方。 自乘运算符(^) 指数函数,幂为自变量。 False 关键字,其值为零。

金文vb教程word文档

第一章vasual basic 程序开发环境 第一节visual basic 的启动与退出 一.启动vb的四种方法: 1.使用“开始”菜单中的“程序”命令 2.使用“我的电脑” 3.使用“开始”菜单中的“运行”命令 4.建立启动visual basic6.0的快捷方式 二.vb启动后的简单设置 1.新建工程···标准exe 2.(1)SDI但文档界面 (2)MDI多文档界面 “工具”—>“选项”—>“高级”—>“SDI开发环境” 3.退出vb:ALT+Q 第二节主窗体的组成 1.标题栏:设计模式运行模式中断模式 2.菜单栏:(12个) (1)菜单的分类:直接执行弹出对话框下一级菜单 (2)进入菜单栏的方法: <1>ALT或F10激活菜单后光标健选择 <2>ALT+激活键 注:如果打开了不适当或不需要的菜单,或者执行菜单命令时打开了不需要的对话框,可以用esc健关闭 <3>快捷键:新建工程ctrl+n 打开工程ctrl+o 保存工程ctrl+s 3.工具栏 (1)工具栏的分类:编辑、标准、窗体编辑器和调试 (2)工具栏的形式:固定、浮动 (3)标准工具栏图标及作用 第三节其他窗体 一.窗体设计器和工程资源管理器 (一)窗体设计器窗口

1.窗体设计器窗口简称窗体()from,是应用程序最终面向用户的窗口,它对 应于应用程序的运行结果。 2.如果想清楚这些小点或者改变点与点间的距离,则可通过执行“工具”菜单 中的“选项”命令(“通用”选项卡)来调整。 (二)工程资源管理器窗口 1.在工程支援管理器窗口中,含有建立一个应用程序所需要的文件的清单。工程支援管理器窗口中的文件可以分为6类, <1>窗体文件(.frm) <2>程序模块文件(.bas) <3>类模块文件(.cls) <4>工程文件(.vbp) <5>工程组文件(.vbg) <6>资源文件(.res) 2.工程支援管理器窗口中文件的分类: (1)工程文件和工程组文件 工程文件的扩展名为.vbp,每个工程对应一个工程文件。当一个程序包括两个以上的工程时,这些工程构成一个工程组,工程组文件的扩展名为.vbg 用“文件”菜单中的“新建工程”命令可以建立一个新的工程,用“打开工程”命令可以打开一个已有的工程,而用“添加工程”命令可以添加一个工程。(2)窗体文件 窗体文件的扩展名为.frm,每个窗体对应一个窗体文件,窗体及其控件的属性和其他信息(包括代码)都存放在窗体文件中。一个应用程序可以有多个窗体(最多可达255个),因此就可以有多个以.frm为扩展名的窗体文件。 执行“工程”菜单中的“添加窗体”命令或单击工具栏中的“添加窗体”按钮可以增加一个窗体,而执行“工程”菜单中的“移除窗体”命令可删除当前的窗体。每建立一个窗体,工程资源管理器窗口中就增加一个窗体文件,每个窗体都有一个不同的名字,可以通过属性窗口设置(name属性),其默认名字formx (x为1,2,3…..),相应的默认文件名为formx。 (3)标准模块文件 标准模块文件也称程序文件,其扩展名为.bas,它是为合理组织程序而设计的。标准模块是一个纯代码性质的文件,它不属于任何一个窗体,主要在大型应用程序中使用。 标准模块由程序代码组成,主要用来声明全局变量和定义一些通用的过程,可以被不同窗体的程序调用。标准模块通过“工程”菜单中的“添加模块”命令来建立。 (4)类模块 Visual basic 提供了大量预定义的类,同时也允许用户根据需要定义自己 的类,用户通过类模块来定义自己的类,每个类都用一个文件来保存,其扩展名为.cls (5)资源文件 资源文件中存放的是各种“资源”,是一种可以同时存放文本,图片,声 音等多种资源的文件。资源文件由一系列独立的字符串,位图及声音文件(.wav .mid)组成,其扩展名为.res,资源文件是一个纯文本文件,可 以用简单的文字编辑器编辑。

VB常用字符串操作函数解读

VB常用字符串操作函数2009/11/25 18:321. ASC(X,Chr(X:转换字符字符码[格式]: P=Asc(X 返回字符串X的第一个字符的字符码 P=Chr(X 返回字符码等于X的字符 [范例]:(1P=Chr(65 ‘ 输出字符A,因为A的ASCII码等于65 (2P=Asc(“A” ‘ 输出65 2. Len(X:计算字符串X的长度 [格式]: P=Len(X [说明]:空字符串长度为0,空格符也算一个字符,一个中文字虽然占用2 Bytes,但也算 一个字符。 [范例]: (1 令X=”” (空字符串 Len(X 输出结果为0 (2 令X=”abcd” Len(X 输出结果为4 (3 令X=”VB教程” Len(X 输出结果为4 3. Mid(X函数:读取字符串X中间的字符 [格式]: P=Mid(X,n 由X的第n个字符读起,读取后面的所有字符。 P=Mid(X,n,m 由X的第n个字符读起,读取后面的m个字符。 [范例]: (1 X=”abcdefg” P=Mid(X,5 结果为:P=”efg” (2 X=”abcdefg” P=Mid(X,2,4 结果为 P=”bcde” 4. R eplace: 将字符串中的某些特定字符串替换为其他字符串 [格式]: P=Replace(X,S,R [说明]:将字符串X中的字符串S替换为字符串R,然后返回。[范例]:X=”VB is very good” P=Replace(X,good,nice 输出结果为:P=”VB is very nice” 5. StrReverse:反转字符串 [格式]: P=StrReverse(X [说明]:返回X参数反转后的字符串 [范例]:(1)X=”abc” P=StrReverse(X 输出结果:P=”cba” 6. Ucase(X,Lcase(X:转换英文字母的大小写 [格式]:P=Lcase(X ‘ 将X字符串中的大写字母转换成小写P=Ucase(X ‘ 将X字符串中的小写字母转换成大写 [说明]:除了英文字母外,其他字符或中文字都不会受到影响。 [范例]:(1)令X=”VB and VC” 则Lcase(X的结果为”vb and vc”,Ucase(X的结果为”VB AND VC” 7. InStr函数:寻找字符串 [格式]: P=InStr(X,Y 从X第一个字符起找出Y出现的位置 P=InStr(n,X,Y 从X第n个字符起找出Y出现的位置 [说明]:(1)若在X中找到Y,则返回值是Y第一个字符出现在X中的位置。(2) InStr(X,Y相当于 InStr(1,X,Y。(3)若字符串长度,或X为空字符串,或在X中找不到Y,则都 返回0。(4)若Y为空字符串,则返回0。 ---------------------------------------------------------------------------------------------- mid(字符串,从第几个开始,长度 ByRef 在[字符串]中[从第几个开始]取出[长度个字符串] 例如 mid("小欣无敌",1,3 则返回 "小欣无" instr(从第几个开始,字符串1,字符串2 ByVal 从规定的位置开始查找,返回字符

金文老师的VB笔记

第一章VB程序开发环境 第一节 VB的启动与退出 一、启动VB的四种方法 1、“开始”——“程序” 2、“我的电脑”。 3、“开始”——“运行” 4、建立启动VB6.0的快捷方式。 二、VB启动后的简单设置 1、新建工程——标准EXE 2、(1)SDI单文档界面(2)MDI多文档界面 切换:“工具”——“选项”——“高级”——“SDI开发环境” 3、退出VB: 1. ALT+Q 2.“文件”——“退出” 3. 右上角× 第二节主窗口的组成 1、标题栏:3种模式(设计模式、运行模式、中断模式) Alt+空格 2、菜单栏:(13个) (1)菜单的分类 1.直接执行:菜单后没有任何标志 2.弹出对话框:有省略号,单击可以弹出一个对话框 3.下一级菜单:后面有小三角,有下一级菜单 2)进入菜单栏的方法 1.用鼠标 2.用键盘①用alt或F10键先激活菜单栏,然后用光标选择 ②alt+激活键 注:如果打开不需要的菜单,或者执行菜单命令时打开了不需要的对话框,可用esc键关闭。 3)快捷键:新建工程:ctrl+N 打开工程:ctrl+O 保存工程:ctrl+S 3、工具栏 (1)工具栏的分类:4种。编辑、标准、窗体编辑器和调试 菜单栏下的为标准工具栏 (2)工具栏的形式:固定,浮动 4.快捷键:ctrl+x 剪切 Ctrl+c 复制 Ctrl+v 粘贴 第三节其他窗口 (一)窗体设计器窗口 1、简称窗体(From),是应用程序最终面向用户的窗口,他对应于应用程序的运行结果。 2、清除或者改变窗体中像素点的距离:“工具”——“选项”——“通用” (二)工程资源管理器窗口 1、在工程资源管理器窗口中,含有建立一个应用程序所需要的文件的清单。工程资源管理器窗口中的文件可以分为6类,即窗体文件(.frm)、程序模块文件/标准模块文件(.bas)、类模块文件(.cls)、工程文件(.vbp)、工程组文件(.vbg)和资源文件(.res)。其中工程文件最常用,窗体,程序较常用 2、工程资源管理其中的文件的分类 (1)工程文件.vbp和工程组文件.vbg 每个工程对应一个工程文件。当一个工程包括两个以上的工程时,这些工程构成一个工程组。 “文件”——“新建工程”建立一个新的工程,“打开工程”打开一个已有的工程,“添加工程”添加一个工程。(2)窗体文件.frm 每个窗体对应一个窗体文件,窗体及其控件的属性和其他信息(包括代码)都放在窗体文件中,一个应用程序最多可

VB基本操作题

基本操作题,请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码) 1、(1)在名为Form1的窗体上绘制两个标签(名称分别为Label1和Label2,标题分别为“长”和“宽”)、两个文本框(名称分别为Text1和Text2,Text属性均为空白)和一个命令按钮(名称为Command1,标题为“输入”)。编写命令按钮的Click事件过程,使程序运行后,若单击命令按钮,则先后显示两个“输入”对话框,在两个“输入”对话框中分别输入长和宽,并分别在两个文本框中显示出来,运行后的窗体如图21-1所示。 注意:程序中不得使用任何变量;文件必须存放在考生文件夹中,工程文件名为sj1.vbp,窗体文件名为sj1.frm。 (2)在名为Form1的窗体上绘制一个标签(名称为Label1,标题为“输入”)、一个文本框(名称为Text1,Text属性为空白)和一个命令按钮(名称为Command1,标题为“显示”)。请编写命令按钮的Click事件过程,使程序运行后,在文本框中输入内容,然后单击命令按钮,则标签和文本框消失,并在窗体上显示文本框中的内容。运行后的窗体如图21-2和图21-3所示。 注意:要求程序中不得使用任何变量;文件必须存放在考生文件夹中,工程文件名为Sj2.vbp,窗体文件名为sj2.frm。 2、(1)在窗体上添加通用对话框控件并编写适当的程序代码,要求程序运行时,双击窗口,可以弹出“颜色”对话框。程序运行时的窗体界面如图62-1所示。 注意:保存时必须存放在考生文件夹下,窗体文件名为sj1.frm,工程文件名为sj2.vbp。 (2)在窗体上绘制出3个文本框,名称分别为Text1、Text2和Text3。要求程序运行时,焦点

金文老师VB教程完整文档

第一章vasual basic程序开发环境 第一节visual basic的启动与退出 一.启动vb的四种方法: 1.使用“开始”菜单中的“程序”命令 2.使用“我的电脑” 3.使用“开始”菜单中的“运行”命令 4.建立启动visual basic6.0的快捷方式 二.vb启动后的简单设置· 1.新建工程··标准exe 2. (1)SDI但文档界面 (2)MDI多文档界面“工具”—>“选项”—>“高级”—>“SDI开发环境” 3.退出vb:ALT+Q 第二节主窗体的组成 1.标题栏:设计模式运行模式中断模式 2.菜单栏:(12个) (1)菜单的分类:直接执行弹出对话框下一级菜单 (2)进入菜单栏的方法: <1>ALT或F10激活菜单后光标健选择 <2>ALT+激活键注:如果打开了不适当或不需要的菜单,或者执行菜单命令时打开不需要的对话框,可以用esc健关闭 <3>快捷键:新建工程ctrl+n打开工程ctrl+o保存工程ctrl+s 3.工具栏 (1)工具栏的分类:编辑、标准、窗体编辑器和调试 (2)工具栏的形式:固定、浮动 (3)标准工具栏图标及作用 第三节其他窗体 一.窗体设计器和工程资源管理器 (一)窗体设计器窗口 1.窗体设计器窗口简称窗体()from,是应用程序最终面向用户的窗口,它对应于应用程序的运行结果。 2.如果想清楚这些小点或者改变点与点间的距离,则可通过执行“工具”菜单中的“选项”命令(“通用”选项卡)来调整。

(二)工程资源管理器窗口 1.在工程支援管理器窗口中,含有建立一个应用程序所需要的文件的清单。工程支援管理器窗口中的文件可以分为6类, <1>窗体文件(.frm) <2>程序模块文件(.bas) <3>类模块文件(.cls) <4>工程文件(.vbp) <5>工程组文件(.vbg) <6>资源文件(.res) 2.工程资源管理器窗口中文件的分类: (1)工程文件和工程组文件工程文件的扩展名为.vbp,每个工程对应一个工程文件。当一个程序包括两个以上的工程时,这些工程构成一个工程组,工程组文件的扩展名为.vbg 用“文件”菜单中的“新建工程”命令可以建立一个新的工程,用“打开工程”命令可以打开一个已有的工程,而用“添加工程”命令可以添加一个工程。 (2)窗体文件窗体文件的扩展名为.frm,每个窗体对应一个窗体文件,窗体及其控件的属性和其他信息(包括代码)都存放在窗体文件中。一个应用程序可以有多个窗体(最多可达255个),因此就可以有多个以.frm为扩展名的窗体文件。执行“工程”菜单中的“添加窗体”命令或单击工具栏中的“添加窗体”按钮可以增加一个窗体,而执行“工程”菜单中的“移除窗体”命令可删除当前的窗体。每建立一个窗体,工程资源管理器窗口中就增加一个窗体文件,每个窗体都有一个不同的名字,可以通过属性窗口设置(name属性),其默认名字formx(x为1,2,3…..),相应的默认文件名为formx。 (3)标准模块文件标准模块文件也称程序文件,其扩展名为.bas,它是为合理组织程序而设计的。标准模块是一个纯代码性质的文件,它不属于任何一个窗体,主要在大型应用程序中使用。标准模块由程序代码组成,主要用来声明全局变量和定义一些通用的过程,可以被不同窗体的程序调用。标准模块通过“工程”菜单中的“添加模块”命令来建立。 (4)类模块Visual basic提供了大量预定义的类,同时也允许用户根据需要定义自己的类,用户通过类模块来定义自己的类,每个类都用一个文件来保存,其扩展名为.cls (5)资源文件资源文件中存放的是各种“资源”,是一种可以同时存放文本,图片,声音等多种资源的文件。资源文件由一系列独立的字符串,位图及声音文件(.wav.mid)组成,其扩展名为.res,资源文件是一个纯文本文件,可以用简单的文字编辑器编辑。 3.选项卡的切换 在工程资源管理器窗口的顶部还有3个按钮,分别为“查看代码”“查看对象”“切换文件夹”,。 二.属性窗口和工具箱窗口 (一)属性窗口 1.属性的显示方式有两种,既按字母顺序和按分类顺序,分别通过单击相对应的按钮来实现。 2.每个visual basic对象都有其特定的属性,可以通过属性窗口来设置,对象的外观和对应的操作由所设置的值来确定。有些属性的取值是有一定限制的,例如对象的可见性只能设置为true或flase(既可见或不可见);而有些属性(如标题)可以为任何文本。

金文老师vb课程-笔记完整版

金文老师vb教程笔记

第一章vasual basic 程序开发环境 第一节visual basic 的启动与退出 一.启动vb的四种方法: 1.使用“开始”菜单中的“程序”命令 2.使用“我的电脑” 3.使用“开始”菜单中的“运行”命令 4.建立启动visual basic6.0的快捷方式 二.vb启动后的简单设置 1.新建工程···标准exe 2.(1)SDI但文档界面 (2)MDI多文档界面 “工具”—>“选项”—>“高级”—>“SDI开发环境” 3.退出vb:ALT+Q 第二节主窗体的组成 1.标题栏:设计模式、运行模式、中断模式 2.菜单栏:(13个) (1)菜单的分类:直接执行、弹出对话框、下一级菜单 (2)进入菜单栏的方法: <1>ALT或F10激活菜单后光标健选择 <2>ALT+激活键 注:如果打开了不适当或不需要的菜单,或者执行菜单命令时打开了不需要的对话框,可以用Esc健关闭 <3>快捷键:新建工程ctrl+n 打开工程ctrl+o 保存工程ctrl+s 3.工具栏 (1)工具栏的分类:编辑、标准、窗体编辑器和调试 (2)工具栏的形式:固定、浮动 (3)标准工具栏图标及作用 第三节其他窗体 一.窗体设计器和工程资源管理器 (一)窗体设计器窗口

1.窗体设计器窗口简称窗体()from,是应用程序最终面向用户的窗口,它对 应于应用程序的运行结果。 2.如果想清楚这些小点或者改变点与点间的距离,则可通过执行“工具”菜单 中的“选项”命令(“通用”选项卡)来调整。 (二)工程资源管理器窗口 1.在工程支援管理器窗口中,含有建立一个应用程序所需要的文件的清单。工程支援管理器窗口中的文件可以分为6类, ①窗体文件(.frm) ②程序模块文件(.bas) ③类模块文件(.cls) ④工程文件(.vbp) ⑤工程组文件(.vbg) ⑥资源文件(.res) 2.工程支援管理器窗口中文件的分类: (1)工程文件和工程组文件 工程文件的扩展名为.vbp,每个工程对应一个工程文件。当一个程序包括两个以上的工程时,这些工程构成一个工程组,工程组文件的扩展名为.vbg 用“文件”菜单中的“新建工程”命令可以建立一个新的工程,用“打开工程”命令可以打开一个已有的工程,而用“添加工程”命令可以添加一个工程。(2)窗体文件 窗体文件的扩展名为.frm,每个窗体对应一个窗体文件,窗体及其控件的属性和其他信息(包括代码)都存放在窗体文件中。一个应用程序可以有多个窗体(最多可达255个),因此就可以有多个以.frm为扩展名的窗体文件。 执行“工程”菜单中的“添加窗体”命令或单击工具栏中的“添加窗体”按钮可以增加一个窗体,而执行“工程”菜单中的“移除窗体”命令可删除当前的窗体。每建立一个窗体,工程资源管理器窗口中就增加一个窗体文件,每个窗体都有一个不同的名字,可以通过属性窗口设置(name属性),其默认名字formx (x为1,2,3…..),相应的默认文件名为formx。 (3)标准模块文件 标准模块文件也称程序文件,其扩展名为.bas,它是为合理组织程序而设计的。标准模块是一个纯代码性质的文件,它不属于任何一个窗体,主要在大型应用程序中使用。 标准模块由程序代码组成,主要用来声明全局变量和定义一些通用的过程,可以被不同窗体的程序调用。标准模块通过“工程”菜单中的“添加模块”命令来建立。 (4)类模块 Visual basic 提供了大量预定义的类,同时也允许用户根据需要定义自己的类,用户通过类模块来定义自己的类,每个类都用一个文件来保存,其扩展名为.cls (5)资源文件 资源文件中存放的是各种“资源”,是一种可以同时存放文本,图片,声音等多种资源的文件。资源文件由一系列独立的字符串,位图及声音文件(.wav .mid)组成,其扩展名为.res,资源文件是一个纯文本文件,可以用简单的文字编辑器编辑。

VB编程实例

一、导入到Xls文件并打印 Sub OnLButtonUp(ByVal Item, ByVal Flags, ByVal x, ByVal y) Dim a,fso a=HMIRuntime.Tags("fileName").Read Set fso = CreateObject("scripting.filesystemobject") If fso.FileExists("C:\Model.xls") Then Dim objExcelApp Set objExcelApp = CreateObject("Excel.Application") objExcelApp.Visible = False objExcelApp.Workbooks.Open "C:\Model.xls" objExcelApp.Cells(2, 3).Value = HMIRuntime.Tags("NewTag1_1").read objExcelApp.Cells(4, 5).Value = HMIRuntime.Tags("NewTag1_2").read objExcelApp.Cells(6, 7).Value = HMIRuntime.Tags("NewTag1_3").read objExcelApp.Cells(8, 9).Value = HMIRuntime.Tags("NewTag1_4").read objExcelApp.Cells(10, 11).Value = HMIRuntime.Tags("NewTag1_5").read objExcelApp.ActiveWorkbook.SaveAs("C:\Report\"&CStr(a)&".xls") objExcelApp.ActiveWorkbook.PrintOut

vb脚本

附录B.VBScript脚本函数简介 序号 内容 画面脚本全局脚本 页码 B01 运行数据库 33 3 B02 动态画面 337 B03 实时报表 337 B04 变量报警 337 B05 系统信息 339 B06 配方文件 339 B07 系统操作 3310 B08 当前时间 3311 B09 画面属性(1) 3°11 B10 线/矩形/圆形 3°13 B11 文本/变量 3°15 B12 多边形 3°16 B13 折线 3°19 B14 立体图形 3°20 B15 普通按钮 3°21 B16 圆形按钮 3°22 B17 三角按钮 3°23 B18 图标按钮 3°24 B19 定时器 3°25 B20 位图 3°25 B21 多选框 3°25 B22 单选框 3°26 B23 动画 3°26 B24 信息列表 3°26 B25 用户数据库 3327 B26 SQL命令 3329 B27 用户报表 3329 B28 流动管道 3°30 B29 子画面窗口 3°30 B30 转轮 3°31 B31 标签 3°31 B32 列表框 3°32 B33 数据库连接 3332 B34 配方操作按钮 3°32 B35 报表打印按钮 3°33

B36 报警状态按钮 3°33 B37 系统信息查询按钮 3°34 B38 报警信息查询按钮 3°34 B39 存档数据查询按钮 3°34 B40 存档曲线查询按钮 3°34 B41 用户管理 3334 B42 子窗口容器 3°35 B43 Gif图片 3°35 B44 实时曲线 3°35 B45 屏幕打印 3°36 B46 画面操作(2) 3°36 B47 行打印 3337 B48 INI文件 3338 B49 数据转换 3339 B50 数据库查询按钮 3°39 B51 串口操作 3340 B52 数据库列表 3°41 B53 报警状态列表 3°41 B54 表格控件 3°42 B55 保留 3°43 B56 数据选择 3°43 B57 选择框 3°44 B58 选择列表 °°44 B59 自定义菜单 3°44 B60 字符串 3°45 B61 时间间隔 3°46 B62 存储过程 3346 B63 曲线查询按钮 3°47 B64 窗口操作 3°48 B65 文件操作 3352 B66 文本文件 3353 B67 TCP通讯 3354 B68 UDP通讯 3355 B69 MSN信息 3°56

VB6.0基础入门教程

VB最简单入门教程

目录 (提示:按ctrl,并单击鼠标,可以跳到相应页) 1.1 1 我们需要什么 (3) 1.2 2 第二章:事件、属性及数据类型 (3) 1.3 3 第三章:VB语言 (6) 1.4 4-1第四章按钮(一) (12) 1.5 4- 第四章按钮(二) (199) 1.6 5 第五章菜单 (27) 1.7 6-1第六章输入(一) (34) 1.8 6-2第六章输入(二) (42) 1.9 6-3第六章输入(三) (52) 1.10 7第七章输出 (59) 附录 (63) 2.1 VB教程 (63)

1.1 1 我们需要什么 我们需要什么?当我们在一个精彩的游戏世界中游历了一番之后,或是惊叹于某一工具软件的小巧精致之余,多少总会产生些许编程的冲动。编程吗,在以前如果你对电脑还是一个门外汉,那实在是一件可望而不可及的事情。如果运用基于DOS下的编程语言,譬如C、Qbasic、Pascal等等,真不知何年何月才能有所成就。 编程是需要天赋的,你必须在大脑中对整个程序有一个清晰的轮廓,一个高效的流程,这并不是每个人都能做到的,你必须思之慎之,这也使编程变成一件最枯燥无味的事情。但在第四代计算机语言(可视化编程)出现后,可以确切的说它开发了人们的更多天赋,并不局限于那些头脑异常清晰的人,每一个人都可以发现自己也可以编出一些从前不敢问津的程序,想象力的充分发挥才是第四代语言的精粹。 Visual Basic(以下简称VB)可以说是可视化语言的先驱了,而且它也是可视化程度最高的一个,从几年前VB诞生之日起到现在,它已经经历了五个版本,而且现在微软正在紧张的进行着VB6.0的研制、测试,这么高的更新率,不外乎说明两个问题:用户对VB的热衷,微软对VB的重视。不可否认微软对市场的预测能力是极为高明的,而它强大的技术、财力支持也使它在许多以前未进入的领域,在不长的时间内有成为最有力的竞争对手,如IE之于浏览器领域,《帝国时代》之于游戏都是最好的例证。对于VB现在也有一个很强的竞争对手――Delphi,有人把它称作VB杀手,这显然有偏激之处,VB的确有它的不足之处,但Delphi 又何尝不是呢,而且以微软对VB的倾心,VB的功能必然会越来越强大。 VB的诞生 VB的出现可以说是Microsoft Windows的日渐成熟的必然产物。Microsoft Windows为程序员和最终用户提供了一个共同的人机界面。对用户,Windows提供了一个图形鼠标的操作环境,该环境对所有的应用程序都一样;对于程序员,Windows提供了一组预定义工具----称之为Microsoft Windows 的软件开发工具箱(SDK),该工具能使程序员建立一个与Windows界面相同的应用程序,而且,程序员不必关心最终用户的硬件配置情况。在这一开发环境中,程序员唯一困难的是Microsoft SDK提供了六百多个函数和与其一致的事件驱动(event-driven)编程技术。两种新方法的交叉使众多的程序员重新陷入困境,程序员不仅要掌握程序驱动编程技术和六百多个函数的功能,而且还得用C语言描述这些问题。因此一般情况下,程序员首先要掌握C程序设计技术,而后再开始学习SDK。这样的条件下就要求在Microsoft多任务环境下出现一种操作方便,使用简单的新工具----Visual Basic由此诞生。 何为可视 英文Visual的意思是“视觉的”,“可视的Baisc”这个名字可能抽象了点,但实际上它却是最直观的编程方法,之所以叫做“可视”,你只要看到VB的界面就会明白,实际上你无需编程,就可以完成许多步骤。在VB中引入了控件的概念,在Windows中控件的身影无处不在,各种各样的按钮、文本框、无线钮,都是控件的种类,VB把这些控件模式化,并且每个控件都有若干属性用来控制控件的外观,工作方法。这样你就可以象在画板上一样,随意点几下鼠标,一个按钮就完成了,这些在以前的编程语言下是要经过相当复杂的工作的。

计算机二级vb金文老师讲的视频教案

计算机二级vb金文老师讲的视频教案第一章vasual basic 程序开发环境第一节 visual basic 的启动与退出一. 启动 vb 的四种方法 1. 使用“开始”菜单中的“程序”命令 2. 使用“我的电脑” 3. 使用“开始”菜单中的“运行”命令 4. 建立启动 visual basic6.0 的快捷方式二. vb 启动后的简单设置 ? 1. 新建工程??标准 exe 2. 1SDI 但文档界面 2MDI 多文档界面“工具”—gt“选项”—gt“高级”—gt“SDI 开发环境” 3. 退出 vbALTQ 第二节主窗体的组成 1.标题栏设计模式运行模式中断模式 2.菜单栏12 个 1菜单的分类直接执行弹出对话框下一级菜单 2进入菜单栏的方法 lt1gtALT 或 F10 激活菜单后光标健选择 lt2gtALT激活键注如果打开了不适当或不需要的菜单或者执行菜单命令时打开了不需要的对话框可以用 esc 健关闭 lt3gt快捷键新建工程 ctrln 打开工程 ctrlo 保存工程 ctrls 3.工具栏 1工具栏的分类编辑、标准、窗体编辑器和调试 2工具栏的形式固定、浮动 3标准工具栏图标及作用第三节其他窗体一. 窗体设计器和工程资源管理器一窗体设计器窗口 1. 窗体设计器窗口简称窗体from是应用程序最终面向用户的窗口它对应于应用程序的运行结果。 2. 如果想清楚这些小点或 “选项”命令“通用”选项卡来者改变点与点间的距离则可通过执行“工具”菜单中的 调整。二工程资源管理器窗口 1.在工程支援管理器窗口中含有建立一个应用程序所需要的文件的清单。工程支援管理器窗口中的文件可以分为 6 类 lt1gt 窗体文件.frm lt2gt程序模块文件.bas lt3gt类模块文件.cls lt4gt工程文 件.vbp lt5gt工程组文件.vbg lt6gt资源文件.res 2.工程支援管理器窗口中文件的分类 1 工程文件和工程组文件工程文件的扩展名为.vbp每个工程对应一个工程文件。当一个程序包括两个以上的工程时这些工程构成一个工程组工程组文件

VBS脚本参考

VBS脚本参考之一——使用连字符2007年06月14日星期四下午08:35前言 这一章的前半部分介绍了VB 脚本最基本的概念,并且告诉你它可以完成的工作,尤其是VBS和其它的如WMI、ADSI 接合在一起的时候。后半部分主要介绍了VBS对系统管理员更有用的部分。 许多脚本和程序语言在向文本输入的时候并不严格的遵守文本的行。例如,尽管下面这个JS 脚本写了很多行,但是,JS 把它当做一行来处理。这是因为,在大部分的时候,JS 只有看到中止符的时候才认为使一个行的中止。在这个例子中,中止符就是“;”。在实际中敲入的行是和脚本本身不相关的。 var 作者:临汾市外事旅游局薛靖澜,转载请注明出处] objWMI =new Enumerator (GetObject("winmgmts:") . InstancesOf("Win32_process")) ; 正好相反,同样的一段代码,用VB 写的时候就会报一个语法错误。 Set objWMI = (GetObject("winmgmts:") . InstancesOf("Win32_process")) 这是因为,VBS用回车键来代替特定的中止符。为了中止一个VB脚本,你不需要来敲入一个分号或者其它的特殊的符号,你只需要敲回车键就好了。一般来讲,不用中止符的限制,使VBS 在编写的过程中变的简单,但是也有一点会有些复杂。为了增强程序的可读性,建

议每行的最大长度不超过80个字符。那么当你的一行代码中有100 个字符,怎么办呢?尽管看来好象有个很简单的解决办法,但是你不能用回车键来将一行代码分隔成很多行。例如如下的代码片断会返回一个VB 运行错误因为它用回车键来分隔脚本 strMessageToDisplay = strUserFirstName, strUserMiddleInitial, strUserLastName, strCurrentStatus Wscript.Echo strMessageToDisplay 你不能用回车建来换行,因为在VB 中它认为回车是代表一段代码的中止,在上面的代码中,它认为第一行是脚本的第一部分陈述内容。然后认为第二行是另外一部分陈述内容。这样因为strCurrentStatus 不是一个VBS的命令,所以就报错了。为了解决这个问题,VB 脚本用下划线来表示下面一行是上面一行的代替。在VB 的早期修订版本中,在第一行末尾加一个空格和一个下划线来表示第二行是第一行的继续。为更明确的表明这个意思,第二行前面要加四个空格。(这样作是为了可读,你其实不必在继续的行前作特定的标识──就是不用在第二行前加四个空格。)作者:临汾市外事旅游局薛靖澜,转载请注明出处] strMessageToDisplay = strUserFirstName, strUserMiddleInitial, strUserLastName, _ strCurrentStatus Wscript.Echo strMessageToDisplay 当继续的行又引号的时候,它就显的特别复杂。例如,架设你用下划线和空格来分隔一个WMI脚本: Set colServiceList = GetObject("winmgmts:").ExecQuery("SELECT * FROM _ Win32_Service WHERE State = 'Stopped' AND StartMode = 'Auto' ") 如果你运行这个脚本,它会弹出一个错误,因为继续换行符放在了引号中间了,这样它就认为换行符是字符串的一部分。为了分隔这个陈述: 1:在第一行用引号中止,然后插入空格和下划线 2:用and(&)符号来开始下一行,这表示第二行是第一行字符串的继续 3:在下一行开始之前加入引号这些引号表示这些陈述是包涵在上面的一行中的,没有了引号,它就VB就解释Win32_Service 是VB 的陈述语句,因为这个语句不是合法的,所以就产生了错误。修正的版本如下: Set colServiceList = GetObject("winmgmts:").ExecQuery("SELECT * FROM " _

金文老师VB教程完整

金文老师VB 教程完整 第一章VASUAL BASIC程序开发环 境 .................................... .................................... 1 第一节VISUAL BASIC 的启动与退出 ................................... .................................... 1 第二节主窗体的组成..................................... ........... 1第三节其他窗体 ................ 第 (1) 二章. 对象及其操 作 ................. 第三章. (3) 简单程序设 计 ................. 第一节VB (8) 中的语 句 ................. 第一节数 (8) 据类 型 ................ ..................... 10第四章(常用内部函

数 ................................... ......................................................... 16 符与表达式 .................................. ...................................................... 19 输入输 出 .................................. ------- 21 出................... PRINT 方 法 .................................. 21 第七章(常用标准控件 (25) 件 ................................... ............................................................. 25 (VB 控制结构 .................................. ......................................................... 36 择控制结构 .................................. (36) 组 ................................... 第五章(运算第六章(数据的第一节数据的输 第一节(文本控 第八章 第一节(选第九章(数

相关文档