189 8069 5689
Namespace
成都创新互联专注于万年网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供万年营销型网站建设，万年网站制作、万年网页设计、万年网站官网定制、小程序制作服务，打造万年网络公司原创品牌,更为您提供万年网站排名全网营销落地服务。
包含类似或相关功能的类的集合
Class
用来定义一个对象，包含对象的属性（包括变量）、方法（包括过程sub和函数）
Sub
子过程，可以把要使用的数据以参数形式传入，但不返回值
Function
函数，同样可以传参数，但要求有返回值
Property
属性过程，设置或返回对象的属性值
Return
结束当前sub或function，若是函数则返回一个函数值
Dim
声明或定义一个变量
New
创建一个新的实例对象
Nothing
表示一个变量没有值，与其他语言或数据库中的null等价
Me
当前类的实例对象的引用
Console
.NET
用于访问和操作命令窗口的类，主要用于命令行应用程序
Module
模块，定义一个不是类的代码块，但它同样可以包含变量和方法
运算符
算术运算符：/（除），\（整除）,Mod（取模）
串联运算符：，+亦可
逻辑/按位运算符：Not、And、Or、Xor、AndAlso、OrElse
赋值运算符：= ，^= ，*= ，/= ，\= ，+= ，-= ，=，=，=
比较运算符： ，= ， ，= ，= ， ，Is ，IsNot ，Like
移位运算符： ，
其他运算符：AddressOf 运算符 ，GetType 运算符 ，函数表达式，If 运算符 ，TypeOf 运算符，Await 运算符
DirectCast 运算符
TryCast 运算符
New 运算符
*运算优先级：算术连接比较逻辑运算（用括号可改变优先级）
详细：
如果表达式中出现几种运算，将按照预先确定的称为“运算符优先级”的顺序计算和解析各个部分。
算术运算符和串联运算符
求幂 (^)
一元标识和非（+、–）
乘法和浮点除法（*、/）
整数除法 (\)
取模 (Mod)
加法和减法（+、–），字符串连接 (+)
字符串连接 ()
算术移位（、）
比较运算符
所有比较运算符（=、、、=、、=、Is、IsNot、Like、TypeOf...Is）
逻辑运算符和位运算符
非 (Not)
与 (And、AndAlso)
或 (Or、OrElse)
异或 (Xor)
在任意form类或模块中都可以创建类，跟建立函数和过程一样。
示例：
public class form1
‘创建一个属于form的子类，名称为【类名】。
public class 类名
’定义类成员text
public text as string
end class
‘定义一个【类名】类的公共变量。
dim 类名1 as 类名
’定义一个过程，使用【类名】类的text成员
public sub 过程
‘实例化【类名1】
类名1=new 类名
类名1.text=“赋值”
’定义一个【新类】类的私用变量，并实例化。
dim 新类1 as new 新类
新类1.name=“一个字符串”
新类1.age=12
end sub
end class
‘’‘创建一个与form同级的类，名称为【新类】
public class 新类
public sub new（）
end sub
public name as string
public age as integer
end class
在模块中使用：
public class module1
dim a as new form1.类名
end module
你得先补基础。
最好去学校，找计算机系的学生，抄下专业专业课程和对应的课本（说不定顺便能讨些旧课本），卖齐这些课本（一般学校里面就有书店）慢慢学。
（以下课程不全）
至少需要读一遍的：计算机导论、程序设计基础、软件工程、编译原理
重点学习的：算法与数据结构、面向对象程序设计
还有VB.Net需要一定的基础，建议先从 C++ 或 VB（版本6.0）入门
首先在项目的VB.NET界面，使用菜单【项目】--【添加引用】--【COM】
选择 Microsoft ADO Ext. 2.x for DDL and Security
然后单击【确定】，完成引用。
完整代码如下：
Imports ADOX
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'创建空的access数据库文件--数据库文件.mdb，密码为123
Dim Mycat As Catalog = New Catalog()
Mycat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source= 数据库文件.mdb;Jet OLEDB:Database Password=123")
'以下代码创建一个名为“实验数据表”
Dim MyTable As ADOX.Table = New ADOX.Table '定义新表
MyTable.Name = "实验数据表" '表命名
'给表“实验数据表” 创建一个字符串字段，字段名“姓名”
MyTable.Columns.Append("姓名", , ADOX.DataTypeEnum.adWChar)
'给表“实验数据表” 创建一个整数字段，字段名“学号”
MyTable.Columns.Append("学号", ADOX.DataTypeEnum.adInteger) '追加一个数字型字段
'给字段“学号”创建一个主键“PimaryKey_Field”
MyTable.Keys.Append("学号", ADOX.KeyTypeEnum.adKeyPrimary, "学号")
Mycat.Tables.Append(MyTable) '把所有的新字段追加到表
MyTable = Nothing
Mycat = Nothing
End Sub
End Class