在发一贴,请老大们,版主们都进来看看,帮帮小弟吧,今天发4个了!
我真的真的就想知道一点:如何直接用脚本连接到数据库,然后把数据库里的内容显示到网页中,不要设置iis就能完成的,为什么就没有人理解我呢????
天哪!!!!!!!!!!!!!!!
这个是multiple1902版主 提供的代码,虽然意义雷同,但是我想要的还不是这个啊!!
Function ConnectDatabase
'连接数据库
On Error Resume Next
Dim Connstr,SqlDataBase,SqlProvider
SqlDataBase = WScript.ScriptFullName
SqlDataBase = Left(SqlDataBase,InstrRev(SqlDataBase,"\"))
SqlDataBase = SqlDataBase & "db1.mdb"
'Msgbox SqlDataBase
SqlProvider = "Microsoft.Jet.OLEDB.4.0" '驱动程序[ Microsoft.Jet.OLEDB.4.0 Microsoft.ACE.OLEDB.12.0 ]
Connstr="Provider="&SqlProvider&";Data Source=" & SqlDataBase
Set Conn=CreateObject("ADODB.Connection")
ConnectDatabase=True
If Not Err Then
Conn.Open ConnStr
If Err Then
Msgbox "数据库连接出错,请检查连接字串。" & vbCrLf &Err.Source&" ("&Err.Number&")"
Set Conn = Nothing
Err.Clear
ConnectDatabase=False
End If
Else
Err.Clear
ConnectDatabase=False
End If
End Function
我就需要连接数据库方面的语句,其他的一些vb的东西我可以慢慢弄!!
谁能明白我表达的意思啊???天哪......... 神一样的你,请快快现身吧!!
.
.
.
.
.
.
.
.