如何用处理数据库表的更新？

[cfjly]

表B

记录号 年级 班级 书名 册数 单价 金额
1 93 1 FoxBase 40 8.5 340
2 93 1 操作系统 40 9.5 380
3 93 2 操作系统 45 9.5 427
4 93 2 会计原理 45 10.5 472.5
5 94 1 BASIC 42 7.5 315
6 94 1 信息论 42 11.5 483
7 94 2 PASCAL 40 8.7 348
8 94 2 信息论 40 11.5 460


表A

记录号 书名 单价
1 BASIC 8.5
2 PASCAL 9
3 FoxBase 12.5
4 操作系统 11.5
5 会计原理 13.5
6 企业管理 15.6
7 会计原理 15.4

问1. 平时都是在库结构里一一设置，如何用命令同时设置两表相同的字段类型和宽度？
问2. 以上两表是从EXCEL中导入的，命令 impro from 表A type xl8
导入后字段显示的分别是A B　Ｃ各字段， 第一行是原EXCEL字段名，如何用命令复制第一行到VF的字段上？
问3. 表都按照 书名 字段建立索引后，建立关联更新操作
书上说是：如果别名库中若存在关键值相同的记录，则将多次更新当前库记录
别表A的会计原理就可以多次更新表B的会计原理，但是结果不可以，命令如下：
upda on 书名 from 表A repl 单价 with A->单价

[sdta2012]

upda on 书名 from 表A repl 单价 with A->单价 上面的命令是FOXPRO时期的命令，前提是必须对关键字段先进行索引，否则结果会不正确。

• 打赏
• 举报

回复 赞

[cfjly]

楼上，程序在vf6•0中运行，两表都按书名索引过的

• 打赏
• 举报

回复 赞

[sdta2012]

学习VFP要循序渐进，按部就班。

• 打赏
• 举报

回复 赞

[十豆三]

答1：参考 VFP 自带帮助文件中的 ALTER TABLE 命令。 答2：通过第一行记录内容，多次执行 ALTER TABLE 命令。或者选建立好表，然后用 APPEND FROM Excel名.XLS TYPE XL5 导入。 答3： VFP9.0: Update 表A Set 表A.字段2=表B.字段2 From 表B Where 表A.字段1=表B.字段1 VFP9.0以下： Use 表B Scan Update 表A Set 表A.字段2=表B.字段2 Where 表A.字段1=表B.字段1 Endscan

• 打赏
• 举报

回复 赞

[awie_peng]

VFP 9.0 SP2汉化版似乎不支持在IMPORT/EXPORT,APPEN FROM/COPY TO 中使用 XL8关键字.虽然在帮助文件里有说明,实际运行时,会提示不能识别... 用UPDATE -SQL语句吧,简洁,快速.

• 打赏
• 举报

回复 赞

[cfjly]

USE e:\cs\book.dbf EXCLUSIVE scan upda e:\cs\tjd.dbf set e:\cs\tjd.dbf .单价=e:\cs\book.dbf.单价 wher e:\cs\tjd.dbf.书名=e:\cs\book.dbf.书名 endscan 写到PRG后，红色部分提示语法错误，是不是要先索引？

• 打赏
• 举报

回复 赞

[cfjly]

是不是关联不成立呀？／因为关联字段值不完全匹配

• 打赏
• 举报

回复 赞

[cfjly]

引用 1 楼 apple_8180 的回复:

答1：参考 VFP 自带帮助文件中的 ALTER TABLE 命令。 答2：通过第一行记录内容，多次执行 ALTER TABLE 命令。或者选建立好表，然后用 APPEND FROM Excel名.XLS TYPE XL5 导入。 答3： VFP9.0: Update 表A Set 表A.字段2=表B.字段2 From 表B Where 表A.字段1=表B.字段1 VFP9.0以下：……

在VF6下测试时，提示： scan 在交互方式下不能使用此语句 字段一和字段二，具体到两表分别指的是哪个字段？ 有upda on 行吗？但为什么达不到理想的结果？

• 打赏
• 举报

回复 赞

[十豆三]

把 Scan 写到 PRG 中。
在 Command 运行也可以，但必须选中 SCAN 。。。 ENDSCAN

字段1 是2个表的关联字段，字段2 是你替换的字段。

• 打赏
• 举报

回复 赞

[十豆三]

vfp9.0 ：

Update e:\cs\tjd.Dbf Set tjd.单价=book.单价 From e:\cs\book.Dbf Where tjd.书名=book.书名

vfp9.0 以下：

Use e:\cs\book.Dbf
Scan
	Update e:\cs\tjd.Dbf Set tjd.单价=book.单价 Where tjd.书名=book.书名
Endscan

这些基本语句，建议多看看vfp自带的帮助文件，而且还有示例，比在这里等回复快N倍。

• 打赏
• 举报

回复 赞