我是一个非常大的菜鸟!!最近自己试着写一"日记系统",基本的问题都解决了,现在数据库方面出了点麻烦.
在form2上有text1,text2,command1和data1,我建的access数据库叫做"日记",上有两个字段"日期"和"内容".
界面设计大体是这样的,我在text1上输入日期后,点击command1(查询),在 text2中就可显示与text1中日期相符的日记内容.
现向非菜鸟同志求助一段command1的代码???
谢瓜了

解决方案 »

  1.   

    晕.你这样也叫"基本的问题都解决了"???
    自己找找连数据库的例子看看.
    使用ADO好些.
      

  2.   

    command1:
    '判断text1中是不是有输入日期
    if text1.text="" then
    msgbox "请输入您要查询的日记的日期"
    text1.setfocus'以下为数据库连接字符串,其中"c:\aaa\aa.mdb"为你的数据库所在路径及数据库名字
    Dim ConnString As String
    Set conn = CreateObject("ADODB.Connection")
    ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="c:\aaa\aa.mdb;Jet OLEDB:Database Password=databasepw;Persist Security Info=False"
    conn.Open ConnString'以下是从数据库中取数据,假设内容与日期字段都是文本格式的
    dairyDate=trim(text1.text)
    SqlQuery="select 内容 from 日记 where 日期='"+dairyDate+"'"
    set rs=conn.execute(SqlQuery)
    text2.text=rs("内容")'关闭数据库连接
    conn.close因为小弟也是菜鸟,请大家不要见笑,另外,为了避免日期格式的混乱,最好能采用下拉框,而不要用文本框