表1:
ID | 类型
1  | 正方形表2:
ID | 类型 | 描述 | 说明
1  |  1   |  方  |  倒萨表1.ID=表2类型问题是这样的。让表2的数据显示在4个TEXT文本框内,但是怎么让表2的类型显示成表1的类型的数据呢??
请大家帮帮忙~~~~
谢谢了。

解决方案 »

  1.   

    假设text2为你要显示的地方
    首先从表2中读取类型的编号,再写一个过程来从表1中获取类型的名称来替换,应该就可以了。
    sql="select * from 表1"+ " " +"where"+ " " +"id='"+ trim(text2.text)+"'"
    adodc1.recordsource=sql
    adodc1.refresh
    text2.text=adodc1.recordset.fields("类型")
    如果表1的ID是数字,就去掉单引号"'"我刚学VB一个月,仅供参考
    我喜欢把SQL单独写,因为我正在学写一个通用的数据库查询软件,可查询任何一个ACCESS或EXCEL文件,感觉必须这样写才有通用的可能性
      

  2.   

    SQL = "Select A.ID,(Select 类型 From 表1 Where ID=A.类型) As 类型名,A.描述,A.说明 From 表2 A"
    返回结果:
    字段: ID  类型名  描述 说明
    值:   1   正方形  方   倒萨
      

  3.   

    如果是SQL server
    select a.ID,b.类型,a.描述,a.说明
    from 表2 a left outer join 表1 b on a.类型=b.ID
    Access
    SELECT 表2.ID,表1.类型,表2.描述,表2.说明
    FROM 表2 LEFT JOIN 表1 ON 表2.类型 = 表1.ID;