数据库链接！

[xinqing1205]

下面的这个数据库链接过程有错吗？
Function GetConn(Param)
Dim Conn
Set Getconn = Nothing
Set conn = Server.CreateObject("ADODB.Connection")
'Conn.Open Param
conn.open "syjc","sa","xh"
Set getConn = Conn
End Function
请指教！

[cpp2017]

conn.open "DSN=syjc","sa","xh"

[xinqing1205]

如果不用DSN呢？也应该能实现呢？

[tigerwen01]

不用数据源，直接连接Access数据库：
<%'---------------------------打开数据库及表
set conn=server.createobject("ADODB.Connection")
filepath=server.mappath("abc.mdb") '-------假设数据库文件是"abc.mdb"
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & filepath
set rs=server.createobject("ADODB.Recordset")
rs.open "main",conn,3,2 '-------假设表的名字是"main"
%>

[tigerwen01]

Function GetConn(Param)
Dim Conn

Set conn = Server.CreateObject("ADODB.Connection")
'Conn.Open Param
conn.open "syjc","sa","xh"
Set getConn = Conn
Set Getconn = Nothing
End Function

[xinqing1205]

好像不行呀？

[lbIlj]

Str="dsn=syjc;name=sa;password=;"
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open Str

注意dsn中syjc为系统dsn并且为混合验证模式。没问题的。

[xinqing1205]

用DSN必须得在ODBC里设置数据源吧？

[xinqing1205]

在线等待！