|
End Sub
Private Sub Class_Terminate()
End Sub
''''************************************
''''属性
''''************************************
‘设置表名的属性
Public Property Let TableName(value)
sTableName=value
End Property
‘设置条件
Public Property Let Where(value)
sWhere=value
End Property
‘设置排序方式
Public Property Let Order(value)
sOrder=value
End Property
‘设置查询语句的类型
Public property Let SQLType(value)
iSQLType=value
select case iSQLType
case 0
sSQL="insert into #0 (#1) values (#2)"
case 1
sSQL="update #0 set #1=#2"
case 2
sSQL="delete from #0 "
case 3
sSQL="select #1 from #0 " 上一页 [1] [2] [3] [4] 下一页 | 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 