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

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

請問大大:
小弟新學可否將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
$Checkbox = GUICtrlCreateCheckbox("11", 50, 50, 25, 17)
$Checkbox = GUICtrlCreateCheckbox("22", 120, 50)
$Checkbox = 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 = GUICtrlCreateCheckbox($RS.Fields (0).value, 50, 50, 25, 17)
;這邊放 增加的CHECKBOX 的位置......當然 XY軸位置問題....要寫成變數


       
    $RS.movenext;跳出迴圈
WEnd;結束迴圈讀表
$RS.close;關閉數據分表
页: [1]
查看完整版本: 將db資料庫欄位名select出後給checkbx做值的用法