我的程序使用的是加密的ACCESSS2000数据库:
1、我想使用DATAGRID控件显示表1的内容,并能在DATAGRID中直接对表1进行添加、删除、修改记录等操作,不知该怎么实现?
2、数据库中表2和表3的记录通过主键ID关联,怎样实现:在DATAGRID1中显示表2的内容(不显示ID字段),当鼠标点击DATAGRID1中的某行记录时,在DATAGRID2中显示表3中与该行记录ID相同的记录?
1、我想使用DATAGRID控件显示表1的内容,并能在DATAGRID中直接对表1进行添加、删除、修改记录等操作,不知该怎么实现?
2、数据库中表2和表3的记录通过主键ID关联,怎样实现:在DATAGRID1中显示表2的内容(不显示ID字段),当鼠标点击DATAGRID1中的某行记录时,在DATAGRID2中显示表3中与该行记录ID相同的记录?
解决方案 »
- 如何用VB建立文本文件?
- 请问SQL2000远程错误信息处理的一个问题
- 用过qcard32.dll写过纸牌游戏的请进
- 欢迎高手进入,解答.(非高手莫入)
- 前两天还能用 突然有问题了 请大家分析一下一部分代码 不是很麻烦
- vb连oracle问题?
- 怎么监视数据库是否改变,用access数据库,不是sql可以吗 ?
- 急!!!!怎么在ASP页面中用DBGRID控件?
- 请回答过http://www.csdn.net/expert/topic/542/542538.xml?temp=.2675897的朋友来领分
- 急!!如何在程序中在TabStrip中添加选项卡并设置标题??
- 请问如何才能使程序接受参数?
- 高分请教,怎么样对dbase III文件库进行操作,望各位能人帮忙,这个问题我在这里已经有一个月没有得到解答了.望各位朋友共同参与!
dim cn as new ado.connection
dim rs as new ado.recordset
cn.open "provider=microsoft.jet.oledb.3.51;persist security info=false;data source=db;user id=username;password=pws"
rs.open table2name
set datagrid1.datasource=rs
datagrid1.column(idpos).visible=false 'idpos为id在表2中的字段位置(从0开始)
在datagrid1的RowColChange事件中加入以下语句
rs.move datagrid1.row+1,adBookFirst
dim rs2 as new ado.recordset
set rs2=cn.execute("select * from table3name where table3name.id='" & rs!id & "'"
datagrid2.datasource=rs2
datagrid2.refresh
Public CN As ADODB.Connection
Public RS As New ADODB.Recordset
Set CN = New Connection
CN.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=数据库名.mdb;" & _
"DefaultDir=" & App.Path & ";" & _
"UID=admin;PWD=密码;"
CN.CursorLocation = adUseClient
RS.Open "select * from 表 where 条件 ", CN, adOpenStatic, adLockReadOnly
Set mshflexGrid1.DataSource = RS
rs.close
要有连接数据库的代码。
要有增加,修改,删除按钮。
2:
对于第二问
dim cn as new ado.connection
dim rs as new ado.recordset
cn.CursorLocation =adUseClient '一定要加这句
cn.open "provider=microsoft.jet.oledb.3.51;persist security info=false;data source=db;user id=username;password=pws"
rs.open table2name
set datagrid1.datasource=rs
datagrid1.column(idpos).visible=false 'idpos为id在表2中的字段位置(从0开始)
在datagrid1的RowColChange事件中加入以下语句
rs.move datagrid1.row+1,adBookFirst
dim rs2 as new ado.recordset
set rs2=cn.execute("select * from table3name where table3name.id='" & rs!id & "'"
datagrid2.datasource=rs2
datagrid2.refresh
cn.open "provider=microsoft.jet.oledb.3.51;Data source=" & app.path & "yourdbname.mdb" & ";Jet OLEDB:Database password=your PWD”
access 2000以上版本用oledb.4.0
set datagrid1.datasource=rs
no 2:
根据ID识别.
在dg1_dbclick事件中输入:
dim rs as new adodb.recordset
dim strSql as string
strSql="select * from yourtable where id='" & dg1.columns(0).value & "'"
rs.open strSql,cn,4,2
set dg2.datasource=rs给分吧!!!