Office中国论坛/Access中国论坛

标题: 请问在ACCESS代码编辑器中怎样应用SELECT语句啊? [打印本页]

作者: lovesun 时间: 2003-12-19 17:30
标题: 请问在ACCESS代码编辑器中怎样应用SELECT语句啊?
我想用SELECT语句到一个表中查询符合条件记录,然后把返回的字段值插入到另一个表中,简单的SQL语句我会写,但是不知道怎么在代码编辑器中写入VBA代码.下面是我的简单需求:我的需求如下:
1. 创建新的数据库（在acess中）

2. 建立三个表（stu、scores、course）

3. 写出每个表的字段（属性、数据类型、长度、约束）

4. 建立三个窗体，分别输入三个表的内容，stu和course是直接输入，而scores表则是通过选择学号、课程名称和输入成绩来完成输入的

5. 建立一个查询

其中stu是学生关系

ID 学号姓名年龄性别所在系名

1 66601 张红 20 女计算机

2 66602 李军 18 男计算机

3 66603 王洁 20 男计算机

4 66604 赵文 21 男计算机

Course为课程

ID 课程号课程名任课教员学时数

1 C601 高等数学李一 100

2 C603 操作系统唐二 78

3 C604 数据库任三 60

4 C602 数据结构刘四 70

Score是成绩关系

ID 学号课程号成绩

1 66601 C601 100

3 66602 C603 100

4 66603 C603 80

5 66604 C603 11

7 66601 C601 80

[attach]2831[/attach]

作者: lovesun 时间: 2003-12-19 17:41
我是想在成绩输入窗体中,点击添加记录时进行上述操作的.score表中的课程名应为课程号

作者: lovesun 时间: 2003-12-19 21:31
版主救命啊.

作者: lovesun 时间: 2003-12-20 01:03
这个论坛有版主吗?

作者: kcul 时间: 2003-12-20 02:18
Dim db as Database
Dim rst as RecordSet
Set db=currentDb()
sqlString="INSERT INTO STU VALUES(' ',' ',' ')"
Set rst = db.OpenRecordset(sqlString)

作者: lovesun 时间: 2003-12-20 02:33
Dim db as Database
如果上面这句话,不能通过,报告Database没有定义

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)