將db資料庫欄位名select出後給checkbx做值的用法

cks1203 · 发表于 2011-9-9 12:15:06

請問大大:
小弟新學可否將db資料庫欄位名select出後給checkbx做值的用法
謝謝

gzh888666 · 发表于 2011-9-9 12:45:31

台湾有AU3论坛吗？兄弟说的这个真没听懂！

cks1203 · 发表于 2011-9-9 13:37:43

代碼如下,將db資料庫欄位名稱如11,22,33,讀出再寫入多個checkbox的值,謝謝大大幫忙

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
 
$Form1 = GUICreate("test", 260, 280)
Dim $Checkbox[10]
$Checkbox[1] = GUICtrlCreateCheckbox("11", 50, 50, 25, 17)
$Checkbox[2] = GUICtrlCreateCheckbox("22", 120, 50)
$Checkbox[3] = GUICtrlCreateCheckbox("33", 190, 50)
$Button1 = GUICtrlCreateButton("確認", 50, 240, 170, 25, $WS_GROUP)

GUISetState()
 
While 1
        $nMsg = GUIGetMsg()
         Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button1
             EndSwitch
WEnd

auto · 发表于 2011-9-9 21:35:59

可以，将数据库的值读出来，yes或NO的设置$Checkbox的状态就可以了

kk_lee69 · 发表于 2011-9-13 23:41:59

可以呀 ...你先連線資料庫....把資料庫欄位名讀出來...然後寫入就可以呀......

我寫個示意的程式邏輯您參考看看

$conn = ObjCreate("ADODB.Connection")
$RS = ObjCreate("ADODB.Recordset")
$conn.Open ("driver={SQL Server};server=127.0.0.1;uid=sa;pwd=123;database=CHIComp");主機名IP127.0.0.1，UID=用戶，PWD=密碼，database=資料庫名   ※
$RS.ActiveConnection = $conn




$RS.open ("這裡放讀取欄位值的SQL 語法")
While (Not $RS.eof And Not $RS.bof);迴圈讀表

;讀取到的第一個 欄位的值 為.......$RS.Fields (0).value

$Checkbox[1] = GUICtrlCreateCheckbox($RS.Fields (0).value, 50, 50, 25, 17)
;這邊放 增加的CHECKBOX 的位置......當然 XY軸位置問題....要寫成變數  


        
    $RS.movenext;跳出迴圈
WEnd;結束迴圈讀表
$RS.close;關閉數據分表

		自动登录	找回密码
密码			加入

[系统综合] 將db資料庫欄位名select出後給checkbx做值的用法