| 发表于：2007-05-29 14:34:00 楼主 |
private sub form_load（)
dtp1.value = date '默认当天日期
set cn = new adodb.connection
cn.cursorlocation = aduseclient
cn.open "driver={sql server};server=192.168.0.1;database=new;uid=jean;pwd=jean "
set rs = new adodb.recordset
set rs.activeconnection = cn
rs.locktype = adlockoptimistic
rs.cursortype = adopendynamic
rs.open "select 产品代码 from 物料基本资料 ", cn, adopenforwardonly, adlockreadonly
combo1.clear
do while not rs.eof
combo1.additem rs.fields（0)
combo1.itemdata（combo1.listcount - 1) = rs.fields（0)
rs.movenext
loop
combo1.listindex = -1
end sub
--------------------------------------------------------------
private sub combo1_click（)
'-----赋值
dim strsql as string
dim rst as recordset
strsql = "select * from 物料基本资料 where 产品代码 = ' " & replace（combo1.text, " ' ", " ' ' ") & " ' "
set rst = getrecordset（strsql) ' 执行sql并返回结果集
if rst.recordcount > 0 then
text2.text = rst.fields（ "产品编码 ").value & vbnullstring
text3.text = rst.fields（ "产品名称 ").value & vbnullstring
text4.text = rst.fields（ "零件名称 ").value & vbnullstring
end if
end sub
保存按钮-----------------------------------------------
private sub cmd_add_click（)
on error resume next
rs.open "select * from 装配入数 ", cn, 1,
rs.addnew
rs.fields（1).value = trim（combo1.text)
rs.fields（2).value = trim（text2.text)
rs.fields（3).value = trim（text3.text)
rs.fields（4).value = trim（text4.text)
rs.fields（5).value = trim（text5.text)
rs.fields（6).value = trim（combo2.text)
rs.fields（7).value = trim（text7.text)
rs.fields（8).value = cdate（trim（dtp1.value))
rs.fields（9).value = trim（text9.text)
rs.fields（10).value = trim（text10.text)
rs.fields（11).value = trim（text11.text)
rs.update
set rs = nothing
msgbox "数据已保存! "
unload me
end sub
给text2、text3、text4赋值后无法保存记录
请问?
|
|
|
|
|
