laomao127 发表于 2010-11-29 11:07:16

[已解决]数据库问题，access

本帖最后由 laomao127 于 2010-11-29 11:29 编辑


#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
$mdb_data_path="bbs_sysdb.mdb"
$mdb_data_pwd=""
$T="*"
$tblname="bbs"

du()

Func du()
                $addfld = ObjCreate("ADODB.Connection")
                $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $mdb_data_path)
                $RS =ObjCreate("ADODB.Recordset")
                $RS.ActiveConnection = $addfld
                $RS.Open ("Select "&$T & " From " & $tblname )
                while Not $RS.eof And Not $RS.bof
         if @error =1 Then ExitLoop
            ;GUICtrlCreateListViewItem ( $RS.Fields (0).value&"|"& $RS.Fields (1).value&"|"& $RS.Fields (2).value&"|"& $RS.Fields (3).value&"|"& $RS.Fields (4).value,$ListView1 )

                        MsgBox(0, "", $RS.Fields (1).value);显示表第一个数据
             $rs.movenext
            WEnd
               $rs.close
            $addfld.Close
EndFunc
大家帮忙看一下这个代码 老提示14行错误，请高手帮忙

答案：没有安装ACCESS ，因为我用的是绿色版的 呵呵

laomao127 发表于 2010-11-29 11:18:06

斑竹和各位高手有人在吗？

laomao127 发表于 2010-11-29 11:20:40

我用的是绿色版的 Access 是因为没有装，安装版的原因吗？
页: [1]
查看完整版本: [已解决]数据库问题，access