我用下面的代码做了试验
disconnect using sqlca;
disconnect using sqldbf;
connect using sqldbf2;
If sqldbf2.Sqlcode <> 0 Then
Messagebox('info',sqldbf2.sqlerrtext)
Else
Messagebox('info','ok')
End If
显示Transaction aleady connected!
disconnect using sqlca;
connect using sqldbf;
然后,用下面代码看看什么错误
If sqldbf.Sqlcode <> 0 Then
Messagebox('info',sqldbf.sqlerrtext)
Else
Messagebox('info','ok')
End If
disconnect using sqlca;
If Sqlca.Sqlcode = 0 Then
disconnect using sqldbf;
If Sqldbf.Sqlcode = 0 Then
disconnect using sqldbf2;
If Sqldbf2.sqlcode = 0 Then
connect using sqldbf2;
Else
Messagebox('info',sqldbf2.sqlerrtext)
....
End If
检查是那个动作出错。