Code
            'OLEDB 连接字符串
            cns = "Provider=Microsoft.Jet.Oledb.4.0; Data Source=" + Server.MapPath("App_Data\Db.mdb")
            
Dim da As New OleDbDataAdapter(sql, cns)
            da.Fill(ds, 
"vView")

            
'ODBC 连接字符串
            cns = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" + Server.MapPath("App_Data\Db.mdb")
            
Dim da As New OdbcDataAdapter(sql, cns)
            da.Fill(ds, 
"vView")

posted on 2008-11-22 11:29  jarod99  阅读(236)  评论(0编辑  收藏  举报