作业帮 > 综合 > 作业

我只用ACCESS数据库,如何让下面这句不进行判断,直接进入ACCESS?

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/04/28 09:16:40
我只用ACCESS数据库,如何让下面这句不进行判断,直接进入ACCESS?
'
Dim ItemRecT,ItemRecF
If DbType = 1 Then
'--------------------------------------------
ItemRecT = "ItemRec = 1"
ItemRecF = "ItemRec = 0"
'--------------------------------------------
ElseIf DbType = 0 Then
'--------------------------------------------
ItemRecT = "ItemRec = True"
ItemRecF = "ItemRec = False"
'--------------------------------------------
数据库类型,1为SQL SERVER,0为ACCESS
不知道你的DbType为0,1分别指的什么数据库啊.
加入access的DbType=0的话,语句改为:
Dim ItemRecT,ItemRecF
ItemRecT = "ItemRec = True"
ItemRecF = "ItemRec = False"
'--------------------------------------------
如果access的DbType为1的话 ,语句改为:
Dim ItemRecT,ItemRecF
ItemRecT = "ItemRec = 1"
ItemRecF = "ItemRec = 0"
'--------------------------------------------