// Profile newhospital
SQLCA.DBMS = "O90 Oracle9i (9.0.1)"
SQLCA.LogPass = <***>
SQLCA.ServerName = " "
SQLCA.LogId = " "
SQLCA.AutoCommit = False
SQLCA.DBParm = "PBCatalogOwner= "
connect;
IF SQLCODE<>0 THEN
MessageBox("数据库错误",SQLErrText, Exclamation!);
ELSE
MessageBox("数据库连接成功!");
END IF
看看connect之前的内容对不对,然后测试一下.