我是新手,学VB没 几天,上头要做个程序,实在不会,请帮忙。
我的程序有2个窗体,在窗体1中是一个输入框,要求输入一个拼音,
在窗体2上有10个LABEL。是一个数组  LABEL(0) 到 LABEL(9)。2个按钮,COMMAND1,COMMAND2,有一个数据库  字.mdb ,里面有一个表 PY  , 2个字段:字,拼音,里面包含了所有汉字和与之对应的拼音在窗体1中输入的拼音付给一个变量:PY,程序就在上面的库中搜索和变量一样的拼音,并把和拼音对的字拣出来。所有被选出的字按库里的顺序每10个一组,显示在窗体2的LABEL(0)到LABEL(9)上。按下COMMAND2后,显示后一组,按下COMMAND1后,显示前1组。要求就是这样,请高手帮我写下具体的程序并告诉我每段程序的作用(我要象老板交差呀),和几个控件怎么设置,要调用那些函数,谢谢拉。只要能用。一定给分

解决方案 »

  1.   

    label(0)到label(9)是标题栏~~~~~~~~~~~~~~~~~~~~~!!!!!!!!!!!!!
      

  2.   

    我不太明白你的意思,不过你要以用adodb来实现,我不太明白你的变量做什么用的,你看一下msdn的帮助,可以把信息直接显示出来。
      

  3.   

    我的信箱 [email protected]  谢谢拉
      

  4.   

    access用dao
    sql用ado"select * from 字 where py='" & 变量中的值 & "'"得到记录集,循环记录集。做10次循环就暂停,当点击command2则继续循环下10个,当点击command1则做反向继续循环前10个。
      

  5.   

    SXS 谢谢你发的程序 我运行的时候在这里出现找不到工程或库,是什么问题??Private Sub Command1_Click()
        cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security Info=False"
        cn.Open
        Dim sql As String
        sql = "select * From HanZi where py = '" & Text1.Text & "'"
        rs.Open sql, cn, adOpenKeyset,