如何批量修改数据库的某一字段值
下面是数据库中已有的数据...已经显示在LISTVIEW上了单位金额货款备注
医院10 未付无
医院20 未付无
医院30 未付无
医院40 未付无
医院50 未付无
医院60 未付无
医院70 未付无
医院80 未付无
如何批量修改: 货款=未付,修改为货款=已付Func sg()
$okoki = MsgBox(1 + 32 + 256 + 262144, "提示", "是否真的要修改此数据")
If $okoki = 1 Then
;Global $_Quantity, $_File_INI, $_ID
$Strn = GUICtrlRead(GUICtrlRead($ListView1))
$Strnspin = StringSplit($Strn, "|")
;MsgBox(0+262144,"",$strn)
;$_FileId = FileOpenDialog('选择客户数据,不得超过100个文件',@DesktopDir & '/客户信息',"配置文件 (*.Ini;*.Txt)",1,"",$Form1)
$a = GUICtrlRead($name1)
$b = GUICtrlRead($tipe1)
$c = GUICtrlRead($cdkey1)
$d = GUICtrlRead($time1)
$e = GUICtrlRead($gmdate1)
$f = GUICtrlRead($fxdate1)
$g = GUICtrlRead($fxs1)
$h = GUICtrlRead($pc1)
$I = GUICtrlRead($gz1)
$n = GUICtrlRead($fh1)
$k = GUICtrlRead($cpu1)
$_SQL = "品名 = '" & $a & "',类型 = '" & $b & "' ,产品序列号 = '" & $c & "',保修期 = '" & $d & "',购买日期 = '" & $e & "',返修日期 = '" & $f & "',返修商 = '" & $g & "',客户 = '" & $h & "',故障 = '" & $I & "',状态 = '" & $n & "',处理方法 = '" & $k
;MsgBox(0 + 262144, "", $Strn & @CRLF & $_SQL)
$addfld = ObjCreate("ADODB.Connection")
$addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $mdb)
$sQuery = "update " & $Table & " set " & $_SQL & "' WHERE ID" & " = " & $Strnspin
;MsgBox(0,"",$sQuery)
$addfld.execute($sQuery)
$addfld.close
;MsgBox(4096, "提示:",$Strnspin&" 更新成功!!!")
MsgBox(0 + 262144, "完成", "修改数据成功")
dumdb()
;udb()
enid()
Else
GUISwitch($Form1)
enid()
EndIf
EndFunc ;==>sg这是单个修改的.......如果是1000条一样的数据要修改.不点死了呀...... 那不是要用SQL的语句修改吗？或是用一个FOR语句，批量的修改 个人觉得用脚本模拟操作比较天然{:1_498:}
页:
[1]