连接数据库.bak

来自「自己花了五天用c/s做的一个小软件」· BAK 代码 · 共 45 行

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("driver=&driver_temp;server=&server_temp;uid=uid_temp;pwd=&pwd_temp;database=&database_temp")
con=sqlstringconnect(connect_temp)
*con=sqlstringconnect("driver=sql server;server=(local);uid=sa;pwd=;database=cw_yfgl")
begin_connect.release &&关闭显示连接的表单
IF con<=0
	messagebox( "连接数据失败！请重新设置！",0+16,"提示信息",0.5)
	DO FORM connect 
	READ event
ELSE
*messagebox( "连接数据成功！设置已经保存！",0+64,"提示信息",0.5)
ENDIF 
retu
*PUBLIC con
gcdsn='cw_yfgl'
gcuid='sa'
gcpwd=''
gcsqldatabase='cw_yfgl'
*设定不显示ODBC登录对话框
=sqlsetprop(0,'displogin',3)
*建立与数据库MASTER的连接
CON=SQLSTRINGCONNECT("dsn=&gcdsn;uid=&gcuid;pwd=&gcpwd;database=&gcsqldatabase")


IF con<=0
WAIT WINDOW "失败"
ELSE
ENDIF 
*retu
*!*	STORE 'abracadabra' TO gcString
*!*	? STRTRAN(gcString, 'a', 'z')  && 显示 zbrzczdzbrz
*!*	? STRTRAN(gcString, 'a', 'q', 2, 3)  && 显示 abrqcqdqbra