Set 是用来给对象赋值的 For exampledim pic as stdpicture Set pic=picture1.picture
将对象引用赋给变量或属性。Set MyObject = Nothing '释放该对象。
创建类的一个实例,为对象赋值。'定义数据库对象变量 dim MyDataBaseObj as DataBase '定义记录集对象变量 dim MyRecordSetObj as RecordSet '创建数据库应用 set MyDataBaseObj=Dbengine.OpenDataBase(filename) '创建记录集 set MyRecordSetObj=MyDataBaseObj.OpenRecordSet _(TableName,dbopendynaset)
For exampledim pic as stdpicture
Set pic=picture1.picture
dim MyDataBaseObj as DataBase
'定义记录集对象变量
dim MyRecordSetObj as RecordSet
'创建数据库应用
set MyDataBaseObj=Dbengine.OpenDataBase(filename)
'创建记录集
set MyRecordSetObj=MyDataBaseObj.OpenRecordSet _(TableName,dbopendynaset)