如何连接上数据库(数据库是Access,用ADO连接数据库)再如何显示出我要求的数据呢?

Question

数据库名称为temp.
   数据库(Access学生信息)字段为:学生姓名,学号,性别,年龄,班级
   例子:韩一,200108201214,男,21,B01082012
   要求:
        1.在一个text控件中输入我要查询的学生学号.
        例如:我输入"200108201214"
        2.按下确定键在另一个控件中如text或以其他的方式显示我需要的数据集.
        就出现下面一条信息 :韩一,200108201214,男,21,B01082012   小弟水平有限,各位大侠帮帮忙!!急 
                                       可怜的BOY

Answer 1

数据库查询？网上例子很多阿。你自己找一下就可以了。
http://host.bluexp.net/vbgood/codefull/index.asp?action=read&id=1259

Answer 2

绑定个网格控件如DATAGIRD等就能显示啊
把数据集绑到DATAGIRD的数据源上就能显示了!

Answer 3

会连接数据库吗？会SELECT语句吗？如果都不会，还是在做前看看数据库ADO应用方面的书吧，磨刀不误砍柴功。

Answer 4

按下确定按钮后你就生成一个简单的SELECT * FROM 表 WHERE 学号='内容'通过它产生一个记录集，把记录集的各字段内容&起来放到另一个TEXTBOX里就可以。

Answer 5

数据库：d:\temp.mdb
数据表：stu
数据表字段：学生姓名,学号,性别,年龄,班级
在text1输入“学号”，按command1后，在text2显示记录内容。
代码如下：Private Sub Command1_Click()
'引用ado
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\temp.mdb;Persist Security Info=False"
cnn.Open
SQL = "select * from stu where 学号='" & Text1.Text & "'"
rst.Open SQL, cnn, 3, 2
Text2.Text = rst("学生姓名") & "," & rst("学号") & "," & rst("性别") & "," & rst("年龄") & "," & rst("班级")
End Sub

Answer 6

Private Sub Command1_Click()
    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.path & "\Test.mdb;Jet OLEDB:DataBase password=12345;"
    cn.Open
    SQL = "select * from stu where 学号='" & Text1.Text & "'"
    rs.Open SQL, cn, 3, 2
    If Not (rs.BOF And rs.EOF) Then Set DataGrid1.DataSource=rs ' 把得到的数据显示到DataGrid去
End Sub

Answer 7

将你用来显示数据的Textbox控件(我建议用label)与数据源绑定,你需要它显示哪个字段的数据,就绑定哪个地段就可以了.最方便的是在textbox(label)控件的属性里设置.如下:
   Text1.DataSource = ADODC1
   Text1.DataField = "字段名"
  
   上面是用ADODC控件连接数据库,你也可以引用ADO来实现,都一样.