连接数据库.prg

来自「苏付军的CS系统例子」· PRG 代码 · 共 25 行

sqlsetprop(0,"displogin",3) &&设置环境为：从不显示ODBC登陆对话框
IF USED("vt_conn")
    SELECT vt_conn
ELSE
    USE vt_conn IN 0
ENDIF
driver_temp=ALLTRIM(vt_conn.conn_fs)
server_temp=ALLTRIM(vt_conn.SERVER)
uid_temp=ALLTRIM(vt_conn.USER)
pwd_temp=ALLTRIM(vt_conn.PASSWORD)
database_temp=ALLTRIM(vt_conn.DATABASE)
USE IN vt_conn
connect_temp="driver="+driver_temp+";server="+server_temp+";uid="+uid_temp+";pwd="+pwd_temp+";database="+database_temp
con=SQLSTRINGCONNECT(connect_temp)
begin_connect.RELEASE &&关闭显示连接的表单
IF con<=0
    MESSAGEBOX( "连接数据失败！请重新设置！",0+16,"提示信息",0.5)
    DO FORM CONNECT
    READ EVENT
ELSE
ENDIF
*!*	STORE 'abracadabra' TO gcString
*!*	? STRTRAN(gcString, 'a', 'z')  && 显示 zbrzczdzbrz
*!*	? STRTRAN(gcString, 'a', 'q', 2, 3)  && 显示 abrqcqdqbra