1.调用函数程序

name = findname()  //函数名为findname

or

msgbox "Your name is " & findname()

2.调用子程序

Call MyProc(argument)

or

MyProc argument

3.if then else

4.

For i = 2 To 10 Step 2

some code

Next

退出For...Next语句，可以使用Exit关键词

5.'作为注释符号

6.①On Error Resume Next，②On Error Goto 0，③Err三者

①出现错误继续执行；On Error Resume Next语句只作用于本级别的后续语句。不会作用于被调用的函数或子程序，同样也不会作用   于父级别的程序段，On

Error Resume Next语句如果出现在某个函数中，则只对本函数产生影响。对“主调函

数”和“被调函数”均没有影响

②出现错误停止执行；

③Err是一个对象，属性有三个，Number(错误号),Source(错误来源),Description(错误描述).

而且If Err then这样的写法等价于If Err.Number then

加上On Error Resume Next语句后，使用Err对象来得到错误信息。

7.对于sql数据库的连接，访问，读写

示例+解释

Function test_exStoreSql

On Error Resume Next

Dim test_GetTime, test_GetDate, test_GetReason '定义三个临时变量，存储在表单中采集到的信息

Dim rec

'定义记录集，

Dim conn '定义连接对象

test_GetTime = ex_GetPropValue("时间")'ex_GetPropValue获得“时间，日期和事由的属性名称”,分配给三个变量

test_GetDate = ex_GetPropValue("日期")

test_GetReason = ex_GetPropValue("事由")

If test_GetReason="" Then'判断事由是否为空

CurrentPI.ErrorInfo="请填写事由"

exit Function

else

CurrentPI.ErrorInfo="发送正确"

End If

Set conn = CreateObject("ADODB.CONNECTION")'设置连接，记录集

Set rec = CreateObject("ADODB.RECORDSET")

conn.open ConnectString'连接

rec.open "SELECT * FROM Test_StoreCar",CONN ,1,3'打开所需的表

rec.addnew

'添加新纪录

rec("Date") = test_GetDate

rec("Time") = test_GetTime

rec("Reason") = test_GetReason

rec.update

'更新

rec.close

'关闭数据库

End Function

或者

是建立一个数据集

前面应该先定义此数据集

dim rs as adodb.recordset

然后就可以用

set rs=server.CreateObject("adodb.recordset")

来建立一个数据集的实例，当然此时数据集中是没有数据的

rs.open ......

来打开一个记录集

rs.append或者rs.insert来添加记录

rs.edit来修改记录

对于添加或修改的记录，可以用

rs.fields("字段名")=xxx

来进行赋值

rs.update

把更改过的值更新回数据库

当你添加一个数据(rs1)进数据库时：

rs.addnew

rs("rs1")="添加的数据"

rs.update

rs.close

set rs=nothing

下面我们来个实例：

Set mRs= Server.CreateObject("adodb.recordSet")

mRs.open "Select * from book", conn, 1, 3

mRs.addnew

mRs("Name") = Name

mRs("Mail") = Mail

mRs("Qq") = Qq

mRs("Info") = Info

mRs("time") = now()

mRs.update

mRs.close

Set mRs = nothing