求有关学生和老师的控件和源代码

Question

在窗体上有一个文本框text1,一个CmdSearch命令按钮,当文本框内容等于某个老师或学生的值时,在控件中显示该字段的学生和老师;同时当点击控件中的某位学生或老师的值时,将该值传给text1,表table
老师(teacher)    学生(student)张三               周文
张三               龙汉 
张三               吴九
李四               王力
李四               张三
王五               张三
赵六               李四
钱七               李四
周文               孙八         
周文               陈明
刘圭               郑三
吴朋               周文         
李再薰             洪七
檀作文             孙八比如,张三的学生有周文,龙汉,吴九...周文的学生是孙八,陈明,老师是吴朋,张三....
     张三的老师是李四,王五,
     李四的老师是赵六,钱七...
    希望能用结构图的形式显示出来

Answer 1

不知道用什么控件,不知道用SQL语句如何取值...总之不知道怎么做,请各位兄长帮帮忙,谢谢了!

Answer 2

在工程中引用 Microsoft ActiveX Data Objects 2.5 Library，使用其 Connection 和 RecordSet，看 MSDN。
如果基本的 SQL 都不会，那就没法了。

Answer 3

是太简单还是太难?没人能帮我吗?要求是在ACCESS的窗体中写.类似于族谱图结构,本人菜鸟一个,实在写不出,郁闷!

Answer 4

我是个新手.我写了一段代码,不知道对你有没有用
Private Sub CmdSearch()
Dim cnn As ADODB.Connection
Dim rs As ADODB.RecordsetSet cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
 cnn.ConnectionString = "Persist Security Info=False;User ID=登录数据用户名;Data Source=服务器; Initial Catalog=数据库"
 rs.Open "select * from table where teacher='" & Trim(text1.Text) & "' or student = '" & Trim(text1.Text) & "'", cnn, 1, 1
  If Not rs.EOF Then
      text1.Text = rs!teacher & rs!student
  Else
      MsgBox "无此记录!", vbCritical
  End If
  cnn.Close
End Sub