我想用VB做一个查询软件

Question

我想用VB做一个查询软件，access为数据库，VB中用的控件不多，就几个按钮就行，包括姓名，年龄，等简单的条件就可以。请大侠告诉我方法，如有具体步骤最好，急求！
我建了个ACCESS表,字段有姓名,年龄,性别,数据分别为:"张三,10,男", "李四,11,女", "王五,12,男".有了这些条件,可以在VB中编程做出一个软件并查询这个数据库吗?

Answer 1

把access表建好，给个数据表名称、字段结构及一两条记录的示例，要实现什么也说得清楚一点，别人才好告诉你怎么做

其实怎么做数据库编程的话，问是没法问的，要先看书，既然问了，就根据你提供的信息，给你一个示例吧：

先在菜单“工程”中“引用” MicroSoft ActiveX Data Object x.x Library（用最新版本）
再选择“工程”中的“部件”，加载两个控件，DataGrid1是MicroSoft DataGrid。。。，，Adodc1是MicroSoft ADO Data。。。，然后在窗体中添加这两个控件

再根据以下添加按钮和文本框
Rem 文本框text11、text12、text13，专门用来输入姓名、性别、年龄的
Rem 文本框text21、text22、text23，专门用来输出姓名、性别、年龄有关的查询结果

Rem 在datagrid中显示满足条件的查询结果
Private Sub Command1_Click()
'模糊查询示例
sqlstr = "Select * from 学生查询 where 姓名 like '%" & Text11.Text & "%'"

'精确查询示例
sqlstr = "Select * from 学生查询 where 性别 =" & Text12.Text

'区间查询示例
sqlstr = "Select * from 学生查询 where 年龄 >" & Text13.Text

Adodc1.RecordSource = sqlstr
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub

Rem 在vb的文本框中显示查询结果
Private Sub Command2_Click()
Dim sConnString As String
Dim rs As ADODB.Recordset
Dim cn As ADODB.Connection

sConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=f:\db1.mdb" '换成你的数据库文件名称
Set cn = New ADODB.Connection
cn.Open sConnString
Set rs = New ADODB.Recordset

'查询指定性别的人数
rs.Open "select count(性别) as 性别 from 学生查询 where 性别 ='" & Text12.Text & "'", cn, 3, 3
Text22.Text = rs("性别").Value
rs.Close

End Sub

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=f:\db1.mdb" '把f:\db1.mdb换成你自己的数据库文件名称
Adodc1.RecordSource = "学生查询" '这是数据库中表的名称
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub

Answer 2

www.tffch.com/bak/liutuo.rar

给你下载下来回去慢慢研究，稍微修改一下就可以啦！

百度群飞度编程学社&1195277