| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1911 人关注过本帖
标题:multiple1902版主能不能告诉我怎么用 vbs 读取 Access 数据库并在浏览器中显 ...
取消只看楼主 加入收藏
ladapt
Rank: 1
等 级:新手上路
帖 子:21
专家分:0
注 册:2007-7-21
收藏
 问题点数:0 回复次数:1 
multiple1902版主能不能告诉我怎么用 vbs 读取 Access 数据库并在浏览器中显示出来
multiple1902版主能不能告诉我怎么用 vbs 连接、读取 Access 数据库并在浏览器中显示出来。请明示,本人比较笨,希望代码详细点...

另外,access数据库 位置在:H:\SYSchange\DeskTop\最新测试数据\AB.mdb

可以吗?
搜索更多相关主题的帖子: 浏览器 数据库 multiple vbs Access 
2008-07-23 20:21
ladapt
Rank: 1
等 级:新手上路
帖 子:21
专家分:0
注 册:2007-7-21
收藏
得分:0 
首先,谢谢版主的提供的东西,我也详细的看了下,我现在就对数据库连接,如何连接,如何读取数据不理解,然后在网页显示不理解,老大提供的这个数据库是空的,数据库的位置怎么放置啊?是试了下怎么不可以啊!!哎.....
这个和我想要的还是完全不同,我真的真的就想知道一点:

如何直接用脚本连接到数据库,然后把数据库里的内容显示到网页中,不要设置iis就能完成的,为什么就没有人理解我呢????

天哪!!!!!!!!!!!!!!!


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的东西我可以慢慢弄!!
2008-07-23 23:21
快速回复:multiple1902版主能不能告诉我怎么用 vbs 读取 Access 数据库并在浏览 ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.033489 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved