关于制作ACCESS查询的问题
本帖最后由 pizigao 于 2009-9-9 16:08 编辑主要目的就是查询SBZB里面的SBZZ的值~然后再修改这个值！
效果如图：
查询代码如下~更新代码还不知道怎么写！:face (2):#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$dkdjkey="HKEY_CURRENT_USER\Software\jdlssoft\EPPortal"
$dkdjpath=RegRead($dkdjkey,"InstalledPath")
$dbdir = $dkdjpath &"\AppModules\GRSDS\Data.mdb"
$dbpwd = "GSDKDJV1200Jdls2008"
#Region ### START Koda GUI section ### Form=dkdj1.kxf
$Form1_1 = GUICreate("申报标志修改工具 for1.1", 327, 152, 329, 260)
$Label1 = GUICtrlCreateLabel("申报状态查询", 45, 28, 76, 20)
$Button1 = GUICtrlCreateButton("查 询", 200, 24, 75, 25, 0)
$Button2 = GUICtrlCreateButton("修 改", 200, 82, 75, 25, 0)
$Label2 = GUICtrlCreateLabel("申报标志修改", 45, 85, 76, 20)
$Group1 = GUICtrlCreateGroup("", 32, 5, 265, 113)
$cxrs=GUICtrlCreateInput("", 138, 27, 41, 21)
GUICtrlSetLimit(-1, 1)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label3 = GUICtrlCreateLabel("申报标志：0 可编辑；1 已发送,已导出,已打印", 38, 128, 256, 16)
$xgrs = GUICtrlCreateInput("", 138, 84, 40, 21)
GUICtrlSetLimit(-1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
cx()
Case $Button2
xg()
EndSwitch
WEnd
Func cx()
$Strn = GUICtrlRead($cxrs)
$addfld = ObjCreate("ADODB.Connection")
$RS = ObjCreate("ADODB.Recordset")
$addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & $dbdir & ";Jet Oledb:Database Password=" & $dbpwd)
$RS.ActiveConnection = $addfld
$jy = "select * from sbzb where sbbz= '" & $Strn & "'"
$RS.Open($jy)
EndFunc ;==>cx今天刚开始学AUTOIT~有问题问各位大侠！ 怎么报这个错误啊~另外我写的数据库路径的变量语法正确么？ 数据库传上来~谢谢大家了~
密码：GSDKDJV1200Jdls2008 :face (9):没人知道么？ 你的语法没问题，应该是路径指的地方不对。
查一下，我将路径直接指到数据库上，是可以的。
xg() 代码没有给出啊 你的语法没问题，应该是路径指的地方不对。
查一下，我将路径直接指到数据库上，是可以的。
xg() 代码没有给出啊
nxbigdaddy 发表于 2009-9-3 09:09 http://www.autoitx.com/images/common/back.gif
为什么查询不到数据呢？查询后面的窗口是空的！ 要不得。有能用:face (38):
页:
[1]