您的位置：程序门 -> vb -> 资源

给个vb+access的例子

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

给个vb+access的例子

发表于：2007-04-11 14:26:39 楼主

现在需要用vb6做个单机版的例子能实现增删添保存等功能就行.另外问一下在vb中能否实现此种功能
页面的上部分出现一个框,显示比如各个学校的名称如
学校名称
第一中学
第二中学
第三中学
此页面的下部分为
各个学校的人员信息跟上面的学校名称相对应（根据点中学校的不同面列出不同学校的人员信息)
王一第一中学
王二第一中学

最好详细点我以前没用过vb

发表于：2007-04-11 15:22:571楼得分:0

该回复于2007-12-28 18:00:25被管理员或版主删除

发表于：2007-04-12 13:35:462楼得分:0

随便找本vb的书都可能看到。就五六行代码。

别以为vb容易到随便问两句就ok了，不系统看看书是不行的。

发表于：2007-04-12 13:38:513楼得分:0

上面说的话，似乎矛盾了点。

其实并不矛盾，如果你有了周边的基础知识，那就是五六行代码的问题。
但如果你对vb没有好好啃过至少一本书的话，说什么也都没用。这就是没法给你详细讲的原因。

发表于：2007-04-14 00:45:374楼得分:0

当然是可以的
此类资料网上大把

发表于：2007-04-17 23:13:425楼得分:0

vb中引用：microsoft activex data objects 2.0 library
数据库中：2个表 school 和 student
school表中 id,name student表中 id,name

模块

public strconnection as string
public conn as adodb.connection
public rs as recordset
public strqry as string

'启动过程
sub main（)
dim strapppath as string
strapppath = "c:\data.mdb "
strconnection = "driver=microsoft access driver （*.mdb);dbq= " & strapppath & "; "
'打开连接
set conn = new connection
set rs = new recordset
with conn
.connectionstring = strconnection
.cursorlocation = aduseclient
.commandtimeout = 30
.open
end with
form1.show
exit sub
end sub

form1:

显示学校

strqry = "select * from school order by id "
set rs = getrecordset（conn, strqry)
list1.clear
while not rs.eof
list1.additem rs!name
rs.movenext
wend

list1_click

strqry = "select * from student where name= ' " & list1.text & " ' order by id "
set rs = getrecordset（conn, strqry)
list2.clear
while not rs.eof
list2.additem rs!name
rs.movenext
wend

没测试，应该可以

发表于：2007-04-22 17:55:036楼得分:0

关注

发表于：2007-05-07 11:33:327楼得分:0

关注

发表于：2007-05-09 16:54:538楼得分:0

谢谢~~~我来试一试

发表于：2007-05-09 17:13:199楼得分:0

很多资料的
在csdn也可以找到

发表于：2007-05-12 15:38:2810楼得分:0

该回复于2007-12-28 18:00:25被管理员或版主删除

发表于：2007-06-13 16:34:3911楼得分:0

关注!!!!!!!!!!!

下一篇：vb ftp服务端源代码
上一篇：求助:关于vb画动态曲线图问题!!!!

其他资讯