我只用ACCESS数据库,如何让下面这句不进行判断,直接进入ACCESS?'Dim ItemRecT,ItemRecFIf DbType = 1 Then'--------------------------------------------ItemRecT = "ItemRec = 1"ItemRecF = "ItemRec = 0"'-----------------------------------
来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/18 18:47:44
我只用ACCESS数据库,如何让下面这句不进行判断,直接进入ACCESS?'Dim ItemRecT,ItemRecFIf DbType = 1 Then'--------------------------------------------ItemRecT = "ItemRec = 1"ItemRecF = "ItemRec = 0"'-----------------------------------
我只用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
我只用ACCESS数据库,如何让下面这句不进行判断,直接进入ACCESS?'Dim ItemRecT,ItemRecFIf DbType = 1 Then'--------------------------------------------ItemRecT = "ItemRec = 1"ItemRecF = "ItemRec = 0"'-----------------------------------
不知道你的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"
'--------------------------------------------