我用yk.ini文件来做连接,如下:
sqlca.dbms=ProfileString("yk.ini", "yk", "DBMS", "none")
sqlca.database=ProfileString("yk.ini", "yk", "Database", "none")
sqlca.servername=ProfileString("yk.ini", "yk", "ServerName", "none")
sqlca.servername=trim(ddlb_1.text)
sqlca.logid=ProfileString("yk.ini", "yk", "LogId", "none")
sqlca.logpass=ProfileString("yk.ini", "yk", "Logpass", "none")
SQLCA.DBParm = ""
SQLCA.AutoCommit = False
connect;
if sqlca.sqlcode<0 then
messagebox("错误提示","数据库连接错误!",stopsign!)
halt
end if
if ls_name1='' then
messagebox("错误提示","用户名不能为空!",stopsign!)
sle_1.setfocus()
else
select "user_pt"."name"
into :ls_name
from "user_pt"
where "user_pt"."name" = :ls_name1;
if ls_name='' then
messagebox("错误提示","该用户名不存在!",stopsign!)
sle_1.setfocus()
else
select "user_pt"."pwd"
into :ls_pwd
from "user_pt"
where "user_pt"."name"= :ls_name;
if ls_pwd=ls_pwd1 then
messagebox("信息提示","用户登录成功!",stopsign!)
else
messagebox("错误提示","密码输入错误,是否错按了Caps lock键!",stopsign!)
sle_2.setfocus()
end if
end if
end if

数据库连接可以成功,可是以上SQL语言执行后没有数据,我用以下连接就可以:

SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN=wlpt1;UID=xjp;PWD=990114'"
请高手指点,不胜感激!!!