数据录入窗口有12个TEXTBOX控件用来接收录入的数据,现在不想直接将录入的数据写入数据库,也就是说不直接绑定数据库,而是将12个从TEXTBOX录入的数据先存入变量,在写入数据库。
请问各位大师,该怎么做比较好?需要注意哪些问题?

解决方案 »

  1.   

    Private Sub Command1_Click()
        Dim strValue1 As String
        
        strValue1 = Text1
        
        Dim strSql As String
        strSql = "INSERT INTO YourTable (FieldName,...) VALUES ('" & strValue1 & "',...)"
    End Sub
      

  2.   

    最好将textbox设成数组,只要将数组的顺序与 open 中 各field的顺序对应就行了~~~
    dim rs as new adodb.recordset
    rs.open "select field1,field2,... from tablename where file1=条件",conn,1,3
    '以上是修改的做法,如果是新增的话再加上 rs.addnew
    for i=0 to textbox.count-1
       rs.field(i)=textbox(i).text
    next i
    rs.update
      

  3.   

    其实不用把数据放在变量里,直接用文本框里的值就行了。
    我的做法是:1、把文本框中数据的多余空格去掉。[Text1=Trim$(Text1.Text)]
                2、进行有效性规格判断,比如姓名不能为空或者出生日期不能大于当前日期等。
                3、将数据插入到数据库表。
                4、如果插入成功,则显示在下面的网格里。(界面是这样的:上面是文本框,下面是网格。)