private function openconnect() as boolean
dim sconnect aas string
if usedsn then
set mcon=rdoeenvironments(0).openconnection("pubs")
else
sconnect=_
"uid=sa;"&_
"pwd=;"&_
"database=pubs;"&_
"server=your server;"&_
"driver={sql server};"&_
"dsn='';"
set mcon=rdoenvironments(0).openconnection("",,,sconnect,)
end if
祝你好运
ip表示的也可以阿,
dim sconnect aas string
if usedsn then
set mcon=rdoeenvironments(0).openconnection("pubs")
else
sconnect=_
"uid=sa;"&_
"pwd=;"&_
"database=pubs;"&_
"server=your server;"&_
"driver={sql server};"&_
"dsn='';"
set mcon=rdoenvironments(0).openconnection("",,,sconnect,)
end if
祝你好运
ip表示的也可以阿,
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货