给个vb+access的例子

[start9]

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

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

[碧海情天-赵亮]

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

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

[碧海情天-赵亮]

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

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

[DengXingJie]

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

[Hotus]

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

没测试，应该可以

[whywang84]

关注

[czszwh]

关注

[aswq1314]

谢谢~~~我来试一试

[clear_zero]

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

[Solidwo]

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

[UltraBejing]

不会,帮顶

[mylpc]

http://topic.csdn.net/u/20080818/20/c370d5af-74e4-4eac-a444-4838b43fdaf4.html

下载上面文件中的第一个压缩包，里面有完整的代码和注释。

[mokton]

SQL 语句执行 Access数据库