请将我把下面的代码改正确，送分拉

xiaoziqiu 2004-06-13 09:15:58

Dim ConnectString As Database
Dim rs As Recordset
Dim dbfilename As String
dbfilename = App.Path & "\design parameter.mdb"
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbfilename & ";Persist Security Info=False;"
Set rs = dbase.OpenRecordset(" select * from shangliang_qb0_* ")
rs.Open ConnectString
rs("zjsl_qb0_1") = zh_qb0(0).Text '令其改变值为sl_qb0_1的装配尺寸
rs("zjsl_qb0_2") = zh_qb0(1).Text '令其改变值为sl_qb0_2的装配尺寸
rs("zjsl_qb0_3") = zh_qb0(2).Text '令其改变值为sl_qb0_3的装配尺寸
rs("zjsl_qb0_4") = zh_qb0(3).Text '令其改变值为sl_qb0_4的装配尺寸
rs("zjsl_qb0_n") = zh_qb0(4).Text '令其改变值为sl_qb0_n的装配尺寸
rs("zjsl_qb_out") = zh_qb0(5).Text '令其改变值为sl_qb_out的装配尺
rs.Update
rs.Close

...全文

91 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

weaest 2004-06-14

打赏
举报

使用ADO对象
引用Microsoft ActiveX Data Objects2.5 Library

Dim Conn As new connection
Dim rs As new Recordset
Dim dbfilename As String
dbfilename = App.Path & "\design parameter.mdb"
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbfilename & ";Persist Security Info=False;"
Set rs = dbase.OpenRecordset(" select * from shangliang_qb0_* ")
rs.Open " select * from shangliang_qb0_* ", conn, adOpenKeyset, adLockOptimistic
'如果是修改，应该让查询语句只对应一条记录
'如果是增加，要用rs.addnew
rs("zjsl_qb0_1") = zh_qb0(0).Text '令其改变值为sl_qb0_1的装配尺寸
rs("zjsl_qb0_2") = zh_qb0(1).Text '令其改变值为sl_qb0_2的装配尺寸
rs("zjsl_qb0_3") = zh_qb0(2).Text '令其改变值为sl_qb0_3的装配尺寸
rs("zjsl_qb0_4") = zh_qb0(3).Text '令其改变值为sl_qb0_4的装配尺寸
rs("zjsl_qb0_n") = zh_qb0(4).Text '令其改变值为sl_qb0_n的装配尺寸
rs("zjsl_qb_out") = zh_qb0(5).Text '令其改变值为sl_qb_out的装配尺
rs.Update
rs.Close

flyingZFX 2004-06-14

打赏
举报

????

yinweihong 2004-06-13

打赏
举报

ado方便灵活，实乃家庭必备良药~

northwolves 2004-06-13

打赏
举报

Set rs = dbase.OpenRecordset(" select * from shangliang_qb0_* ")
dbase 没有定义吧？

goodname008 2004-06-13

打赏
举报

建议用ADO加SQL实现。

goodname008 2004-06-13

打赏
举报

' 没用VB调试，感觉应该是这样。

Dim ConnectString As Database
Dim rs As Recordset
Dim dbfilename As String
dbfilename = App.Path & "\design parameter.mdb"
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbfilename & ";Persist Security Info=False;"
Set rs = dbase.OpenRecordset(" select * from shangliang_qb0_* ")
rs.Open ConnectString
rs.AddNew ' 加的这句
rs("zjsl_qb0_1") = zh_qb0(0).Text '令其改变值为sl_qb0_1的装配尺寸
rs("zjsl_qb0_2") = zh_qb0(1).Text '令其改变值为sl_qb0_2的装配尺寸
rs("zjsl_qb0_3") = zh_qb0(2).Text '令其改变值为sl_qb0_3的装配尺寸
rs("zjsl_qb0_4") = zh_qb0(3).Text '令其改变值为sl_qb0_4的装配尺寸
rs("zjsl_qb0_n") = zh_qb0(4).Text '令其改变值为sl_qb0_n的装配尺寸
rs("zjsl_qb_out") = zh_qb0(5).Text '令其改变值为sl_qb_out的装配尺
rs.Update
rs.Close