您好,你想要先定义数据库连接实例,以默认 sqlca 为例
sqlca .ServerName = ls_server_name
sqlca .DBMS = "MSS Microsoft SQL Server 6.x"
sqlca .Database = "数据库名称" //数据库名称
sqlca .LogPass = "123456"
sqlca .LogId = "sa"
sqlca .AutoCommit = true
sqlca .DBParm = ""
CONNECT USING sqlca ;
IF sqlca .SQLCode<>0 THEN
messagebox("连接数据库失败",sqlca .sqlerrtext)
END IF
以上代码,一般写在app的open事件里
然后你在需要连接数据库的地方,设置连接就可以了
例 刷新 dw_1数据
dw_1.settransobject(sqlca)
dw_1.retrieve()