2.怎么用vbscript链接数据库啊?作者: sterson 时间: 2009-3-27 13:09
Dim conStr,myCon
conStr = "Provider=Sqloledb;User ID=用户名; Password=密码; Initial CataLog =数据库名; Data Source=服务器名或IP;"
Set myCon = createobject("adodb.connection")
myCon.open conStr '链接数据库
Dim myRS,mySql
mySql="select * from 新闻表 where 主题='今天的天气'"
Set myRS = createobject("ADODB.RecordSet")
myRS.Open mySql, myCon, 1, 1
if not myRs.eof then
msgbox 'OK"
else
msgbox "Error"
end if作者: moguikumogui 时间: 2009-3-27 16:46 标题: 回复 4# 的帖子 感谢,太感谢了!