有一个数据库有二十几个字段,如name,addr,card_no...........
vb的窗体对应又有二十几个text控件,名称也一样,name,addr,card_no.....
数据库里有部分字段可不填,
请问怎样把填有值的text控件的值添加到数据库中?

解决方案 »

  1.   

    '要引用ADO对象库private sub cmd_save_click()
    rs.open "select * from XXX表",cn   'rs 为记录集对象,cn连接对象
    with rs
         .addnew
         !字段名1=text1.text
         !字段名2=text2.text
           .......
         !字段名n=textn.text
        .update
    end with
    end sub
      

  2.   

    如果按楼上所说,这样每一个字段都必须都会添加一个值,但可不可以这样,就是我text1有值,text3有值,其它text控件都无,那么我就只产两个update,即update  ”字段1“,值1 
     update  ”字段3“,值3,这样可以吗?
      

  3.   

    楼上写的很详细了.
    用insert into 也行.
      

  4.   

    我的经验
     你必须要知道哪些值是肯定有输入的,其他可能无输入字段也要初始化默认值
    null插入会出错误(除非你插入时能动态筛选掉空输入字段)
      

  5.   

    用IF语句或者IIF判断一下:
    with rs
        .addnew
        if trim(text1.text)<>"" then !字段名1=text1.text
        if trim(text2.text)<>"" then !字段名2=text2.text
           .......
        if trim(text3.text)<>"" then !字段名n=textn.text
        .update
    end with