求助，VB中用data控件访问access数据库，并通过条件查找数据库中表中的信息
本人想设计一个查询程序，用来查询邮编，程序的框架已经显示出来了，两个窗体，用data连接数据库（因为电脑里VB是精简版的，没有ado控件），点击左边窗体中的查询，弹出右边窗体，右边窗体中有两个单选按钮，是两种查询条件，安地区查邮编和按邮编查地区，然后将查询条件（地名或邮编）输入到右边窗体的text中，单击确定，如果在数据库表中有，则将数据库表中符合该条件的信息显示在左边窗体对应的text中，如果没有弹出一个msgbox（补充一下，access数据库的表中有三个字段，分别是省份，地区，和邮编），十万火急，请高手速回，先谢谢了
第1个回答 2013-11-28
Form1：Private Sub Command1_Click() Form2.Show 1End Sub Private Sub Command3_Click() EndEnd Sub Private Sub Form_Load() Data1.DatabaseName = App.Path + "\db1.mdb"End Sub Form2：Private mode As Integer Private Sub Command1_Click() If mode = 1 Then Form1.Data1.RecordSource = "select * from 表1 where 地区='" & Trim(Text1.Text)& "'" ElseIf mode = 2 Then Form1.Data1.RecordSource = "select * from 表1 where 邮编='" & Trim(Text1.Text)& "'" End If Form1.Data1.Refresh If Form1.Data1.Recordset.RecordCount = 0 Then MsgBox "没有查询到数据" Exit Sub End If Form1.Text2.Text = Form1.Data1.Recordset.Fields(0) Form1.Text3.Text = Form1.Data1.Recordset.Fields(1) Form1.Text4.Text = Form1.Data1.Recordset.Fields(2) Unload MeEnd Sub Private Sub Command2_Click() Unload MeEnd Sub Private Sub Form_Load() Call Option1_ClickEnd Sub Private Sub Option1_Click() mode = 1End Sub Private Sub Option2_Click() mode = 2End Sub
相似回答
