在datagrid控件里,如何把其中的所有的数据插入到同一数据库的另一张有数据的表中?并把控件(实际也为一张表)里的数据清除掉

潇风逸雨 2004-08-27 03:53:25
在datagrid控件里,如何把其中的所有的数据插入到同一数据库的另一张有数据的表中?并把控件(实际也为一张表)里的数据清除掉
...全文
69 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
badboy168 2004-08-27
  • 打赏
  • 举报
回复
用一个循环来判断每一行的列数,套用下面的代码
If Adodc1.Recordset.RecordCount > 0 Then '总记录数
For Rowjs = 0 To Adodc1.Recordset.RecordCount - 1 '行列数
Data1.Recordset.AddNew '向目标表中写记录
For Coljs = 0 To 7 'DataGrid中有8字段
Data1.Recordset.Fields(Coljs) = DataGrid1.Text '向目标表中写数据
If Coljs < 7 Then DataGrid1.Col = DataGrid1.Col + 1 '向后走一列
Next
DataGrid1.Col = 0 '重新置0
Data1.Recordset.Update '更新目标表中的记录
If Rowjs < Adodc1.Recordset.RecordCount - 1 Then DataGrid1.Row = DataGrid1.Row + 1 '向后走一行
Next
End If
haohaohappy 2004-08-27
  • 打赏
  • 举报
回复
或者你把datagrid控件的数据源关掉就行了
haohaohappy 2004-08-27
  • 打赏
  • 举报
回复
实际就是把你的DATAGRID控件的数据源的记录集输出,用SQL语句就行,清空控件用CLEAR

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧