您的位置：程序门 -> vb -> 数据库（包含打印，安装，报表)

？？datagrid的读取和写入

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

？？datagrid的读取和写入

发表于：2008-01-08 18:05:50 楼主

我要做一个选课的窗口，想用一个datagrid1表示出access数据库"db5"中“课程”表中的数据（通过adodc1），选中datagrid中的一个记录，如果按下command1则将其添加到datagrid2中，而datagrid2是与数据库"db5"中“学生与课程”表相联系（通过adodc2）；按下command2，则将选中的项删除，求高手指教，给我源码及讲解。谢谢！！！！

发表于：2008-01-11 09:46:221楼得分:0

这里只能帮你解决遇到的技术问题,不能代你写代码

发表于：2008-01-11 10:29:372楼得分:0

大概是这样（因为你没有给表的具体结构）

dim cn as adodb.connection, rs1 as adodb.recordset, rs2 as adodb.recordset

private sub form_load（)
set cn = new adodb.connection
cn.open "provider=microsoft.oledb.jet.4.0;data source=db5.mdb"
set rs1 = new adodb.recordset
rs1.open "select * from 课程", cn

set datagrid1.datasource = rs1

set rs2 = new adodb.recordset
rs2.open "select * from 学生与课程 where 学生与课程.学号='" & txtstudendid & "'", cn

set datagrid2.datasource = rs2
end sub

private sub command1_click（)
cn.ＥＸＥＣute "insert into 学生与课程（学号,课号) values（'" & txtstudendid & "','" & rs1!课号 & "')"

rs2.open "select * from 学生与课程 where 学生与课程.学号='" & txtstudendid & "'", cn
set datagrid2.datasource = rs2
end sub

private sub command1_click（)
rs2.delete
end sub

其他资讯