sql="UpdatefylbSet地区='"&(Text(1).Text)&"',片区='"&(Text(2).Text)&"',物业地址='"&(Text(3).Text)&"',栋数='"&(Text(4).Text)&"',房号='"&(Text(5).Text)&"',_层高='"&(Text(6)....
sql = "Update fylb Set 地区='" & (Text(1).Text) & "', 片区='" & (Text(2).Text) & "', 物业地址='" & (Text(3).Text) & "', 栋数='" & (Text(4).Text) & "', 房号='" & (Text(5).Text) & "', _
层高='" & (Text(6).Text) & "', 房屋地址='" & (Text(7).Text) & "', 现状='" & (Text(9).Text) & "', 来源='" & (Text(10).Text) & "', 状态='" & (Text(11).Text) & "', 用途='" & (Text(12).Text) & "', _
房型1='" & (Text1(1).Text) & "', 房型2='" & (Text1(2).Text) & "', 房型3='" & (Text1(3).Text) & "', 房型4='" & (Text1(4).Text) & "', 面积='" & (Text1(5).Text) & "', 朝向='" & (Text1(6).Text) & "', _
售价='" & (Text1(7).Text) & "', 售单价='" & (Text1(8).Text) & "', 租价='" & (Text1(9).Text) & "', 年='" & (Text1(10).Text) & "', 原价='" & (Text1(11).Text) & "', 售单价='" & (Text1(12).Text) & "', _
楼层='" & (Text1(13).Text) & "', 类型='" & (Text1(14).Text) & "', 产权='" & (Text1(15).Text) & "', 产权年限='" & (Text1(16).Text) & "', 装修='" & (Text1(17).Text) & "', 管理费='" & (Text1(18).Text) & "', _
看房方式='" & (Text1(19).Text) & "', 钥匙='" & (Text1(20).Text) & "', 结构='" & (Text1(21).Text) & "', 委托方式='" & (Text1(22).Text) & "', 分类='" & (Text1(23).Text) & "', 到期提示='" & (Text1(24).Text) & "', _
跟进='" & (Text1(25).Text) & "', 租部门='" & (Text2(1).Text) & "', 租经纪='" & (Text2(2).Text) & "', 售部门='" & (Text2(3).Text) & "', 售经纪='" & (Text2(4).Text) & "', 钥匙部门='" & (Text2(5).Text) & "', _
钥匙经纪人='" & (Text2(6).Text) & "', 独家部门='" & (Text2(7).Text) & "', 独家经纪人='" & (Text2(8).Text) & "', 租委托='" & (Text2(9).Text) & "', 售委托='" & (Text2(10).Text) & "', _
登记日期='" & (Text2(11).Text) & "', 备注='" & (Text2(12).Text) & "' where 编号=" & (jssj) & ""
Conn.Execute sql
这样读取代码错误,换换又不行,该如何编写啊,VB6.0
展开