如何保存到数据库表

建立一个 Web Server Application 应用程序,然后在上面放入TTable控件,设置好Table1的各种属性,然后创建一个WebActionItem对象,把它的PathInfo属性设为/test,在OnAction事件建立一个事件处理过程.
procedure TWebModule1.WebModule1WebActionItem1Action(Sender:TObject;Request:TWebRequest;Response:TWebResponse;var Handled:Boolean);
begin
  try
    table1.Opne;
    table1.Append;
    table1.FieldByName('Name').Value:='JackSun';
    table1.FieldByName('Where').Value:='China';
    table1.Post;
  finally
    table1.Close;
  end;
end;
建立项目(项目名为project1),然后在浏览器中输入http://localhost/project1.dll/test 但总是不成功,不能把数据保存到数据库表(数据库为SQL Server 2000).

解决方案 »

  1.   

    table1.Append;->table1.insert; or table1.edit;
      

  2.   

    finally
       table1.Close;你都把表都关掉了当然看不到数据了，把table1.Close去掉。
      

  3.   

    把finally
       table1.Close;
    去掉
      

  4.   

    不是table1.Close的问题,如果能够追加数据的话在SQL SERVER 里面应该可以看到表中有没有增加数据,但在SQL SERVER 里面没有看到追加的数据.
      

  5.   

    将 'where' 改为''fwhere',这应当是保留字最好不要作为 字段名.
    将''fieldbyname().value 改为"asstring",value 有问题.table1.Opne  ->  open
      

  6.   

    table1.Opne;---> table1.open;where  ----> 'fwhere'  不要用 where 做字段名.
    .value  -----> asstring .
      

  7.   

    finally 在程序里肯定会执行到的，只有保持数据集常开才能看到记录
      

  8.   

    不关'where'或'name'的事，这只是我随便写上去的，可以把这两个段名换成另外的字段名，但还是不能把数据存到数据库表，如何才能把网页上的数据保存在数据库中？
      

  9.   

    procedure TWebModule1.WebModule1mmxreport1Action(Sender: TObject;
      Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
    Var
       dd,ff:string;
       i:integer;
    begin
      DecodeDate(now,FYear,FMonth,FDay);
      
      SYearHTML:='';
      SMonthHTML:='';
      SDayHTML:='';
      SYearHTML1:='';
      SMonthHTML1:='';
      SDayHTML1:='';  ff:= Request.QueryFields.values['User_ID'];
      dd := Request.QueryFields.values['User_Name'];  for i := FYear-10 to FYear do
      begin
        if i = FYear then SMTemp :=  'selected' else SMTemp :='';
        SYearHTML := SYearHTML + Format(' <option value="%d" %s>%d</option>',[i,SMTemp,i]);
      end;
      for i := 1 to 12 do
      begin
        if i = FMonth then SMTemp := 'selected' else SMTemp :='';
        SMonthHTML := SMonthHTML + Format(' <option value="%d" %s>%d</option>',[i,SMTemp,i]);
      end;
      for i := 1 to 31 do
      begin
        if i = FDay then SMTemp := 'selected' else SMTemp :='';
        SDayHTML := SDayHTML + Format(' <option value="%d" %s>%d</option>',[i,SMTemp,i]);
      end;  Response.ContentType:='text/html';  Response.Content:='<HTML>'+
    '          <head>'+
    '          <title>'+Request.QueryFields.values['User_Name']+'报表</title>'+
    //'          <meta http-equiv="Content-Type" content="text/html; charset=GB2312">'+
    '          </head>'+
    '         <body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" background="../image/rback1a.gif">'+'          <table width="95%" border="0" cellspacing="0" cellpadding="0" height="95%" align="center" background="../image/rback1a.gif">'+
    '            <tr>'+
    '              <td>'+
    '                <table width="600" border="0" cellspacing="0" cellpadding="0" align="center" height="441">'+
    '                  <tr> '+
    '                    <td valign="middle" height="68">'+
    '                      <div align="center"><img src="../image/index1.gif" width="540" height="56"></div> '+
    '                    </td>'+
    '                 </tr>'+
    '                  <tr>'+
    '                   <td valign="middle" height="1" bgcolor="#000000"><img src="image/bg.gif" width="1" height="1"></td>'+
    '                  </tr>'+
    '                  <tr>'+
    '                    <td valign="middle">'+
    '                      <table width="100%" border="0" cellspacing="0" cellpadding="0" height="361">'+
    '                        <tr>'+
    '                          <td valign="top" height="134">'+
    '                              <table border="1" cellspacing="0" cellpadding="5" bgcolor="#ececff"  bordercolordark=#ffffff  bordercolorlight=#000000 width="600" >'+
    '                                <tr bgcolor="#FFCC00">'+
    '                                  <td colspan="4">'+
    '                                    <div align="center">'+Request.QueryFields.values['User_Name']+'明细需量报表</div>'+
    '                                  </td>'+
    '                                </tr>'+
    '                                <tr>'+
    '                                  <td colspan="4" height="47">'+
    '                                    <div align="left">'+
    '                                     <form name="form1" method="post" action="mmxreport">'+
    '                                      <p> 查询时间：'+
    '                                        <select name="syear">'+
                                                  SYearHTML+
    '                                        </select>'+
    '                                        年'+
    '                                          <select name="smonth">'+
                                                  SMonthHTML+
    '                                          </select>'+
    '                                        月'+
    '                                        <select name="sday">'+
                                                   SdayHTML+
    '                                        </select>'+
    //'                                        ～'+
    //'                                        <select name="syear1">'+
    //                                              SYearHTML1+
    //'                                        </select>'+
    //'                                        年'+
    //'                                        <select name="smonth1">'+
    //                                               SmonthHTML1+
    //'                                        </select>'+
    //'                                        月'+
    //'                                        <select name="sday1">'+
    //                                               SdayHTML1+
    '                                        </select>'+
    '                                        <input type="submit" name="Submit" value="报表">'+
    '                                        <input type="hidden" name="user_id" value="'+ff+'">'+
    '                                        <input type="hidden" name="user_name" value="'+dd+'">'+
    '                                        　　　　　　　 </p>'+
    '                                    </div>'+
    '                                  </td>'+
    '                                </tr>'+
    '                              </table>'+
    '                          </td>'+
    '                        </tr>'+
    '                        <tr>'+
    '                          <td valign="top" height="134">&nbsp; </td>'+
    '                        </tr>'+
    '                      </table>'+
    '                    </td>'+
    '                  </tr>'+
    '                </table>'+
    '              </td>'+
    '            </tr>'+
    '          </table>'+
    '          <p>&nbsp;</p>'+
    '          </body>'+ 
    '          </html>';end;呵呵，我是这样做的