adoquery+dbgrid一次性保存所有記錄 ( 积分: 100 )

SQL數據庫<br>用dbgrid做錄入。<br>edit1.跟edit2分別是單別，單號，但不在dbgrid裡錄入,dbgrid只錄入CE003,CE004,CE005.如何一次性保存所有dbgrid裡的內容<br>CE001&nbsp;&nbsp;CE002&nbsp;&nbsp;CE003&nbsp;&nbsp;CE004&nbsp;&nbsp;CE005<br>101&nbsp;&nbsp;&nbsp;&nbsp;070801&nbsp;&nbsp;0001&nbsp;&nbsp;&nbsp;&nbsp;A&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;12<br>101&nbsp;&nbsp;&nbsp;&nbsp;070801&nbsp;&nbsp;0002&nbsp;&nbsp;&nbsp;&nbsp;B&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;12<br>101&nbsp;&nbsp;&nbsp;&nbsp;070801&nbsp;&nbsp;0003&nbsp;&nbsp;&nbsp;&nbsp;A&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;12<br><br>下面是的語句只能保存dbgrid選擇的數據，多條記錄不能同時保存<br><br>procedure&nbsp;TForm1.BitBtn1Click(Sender:&nbsp;TObject);<br>begin<br>with&nbsp;adoquery1&nbsp;do<br>begin<br>&nbsp;&nbsp;close;<br>&nbsp;&nbsp;sql.clear;<br>&nbsp;&nbsp;sql.add('insert&nbsp;into&nbsp;XDSCE&nbsp;(CE001,CE002,CE003,CE004,CE005)&nbsp;values(&nbsp;'''+Edit1.text+''','''+edit2.text+''','''+DBGridEH1.DataSource.DataSet.FieldByName('CE003').Text+''',&nbsp;');<br>&nbsp;&nbsp;sql.add('&nbsp;'''+DBGridEH1.DataSource.DataSet.FieldByName('CE004').Text+''','''+DBGridEH1.DataSource.DataSet.FieldByName('CE005').Text+''')');<br>&nbsp;&nbsp;execsql;<br>end;<br>end;

怎麼沒人會嗎

自己做出來了<br>procedure&nbsp;TForm1.BitBtn1Click(Sender:&nbsp;TObject);<br>var<br>&nbsp;&nbsp;I:&nbsp;Integer;<br>begin<br>&nbsp;&nbsp;dbgridEH1.DataSource.DataSet.First;<br>&nbsp;&nbsp;while&nbsp;not&nbsp;dbgridEH1.DataSource.DataSet.Eof&nbsp;do<br>&nbsp;&nbsp;begin<br>with&nbsp;Qry1&nbsp;do<br>begin<br>&nbsp;&nbsp;close;<br>&nbsp;&nbsp;sql.clear;<br>&nbsp;&nbsp;sql.add('insert&nbsp;into&nbsp;XDSCE&nbsp;(CE001,CE002,CE003,CE004,CE005)&nbsp;values(&nbsp;');<br>&nbsp;&nbsp;sql.add(''''+Edit1.text+''','''+edit2.text+''','''+DBGridEH1.DataSource.DataSet.FieldByName('CE003').Text+''',&nbsp;');<br>&nbsp;&nbsp;sql.add(''''+DBGridEH1.DataSource.DataSet.FieldByName('CE004').Text+''','''+DBGridEH1.DataSource.DataSet.FieldByName('CE005').Text+''')');<br>&nbsp;&nbsp;execsql;<br>end;<br>dbgridEH1.DataSource.DataSet.Next;<br>end;<br>end;