Question

vb6中如何将记录集全部插入数据库

我在一个数据库中用ADODC将查询结果全部显示到了DATAGRID中
现在想把显示出来的结果全部插入到另外一台机器的数据库中
表结构完全一样。不知道如何实现。
楼下的。我知道实现逻辑。我说的是语句。。。。。具体的方法。。。具体到字符。。。

Answer 1

另外重新建立的远程数据库连接，本地和远程的数据库连接同时有效，然后用ADO对象及方法遍历DATAGRID，将提取到的记录通过另一个远程连接写入另外一台电脑的数据库。

PS:

抱歉刚没注意到你在Hi上的提问。

我刚看了“vbroot”提供的代码,基本就是那个意思，你需要同时建立连接到另外一台电脑的连接，然后用遍历DataGrid表格或者查询结果集的方法逐条把数据通过另一个连接到远程的ADO连接添加到另外一台电脑，在那个代码中用你自己实际的数据库字段替换他所提供的字段。
另外一台机器的数据库远程如果是SQL-Server或者是Oracle的话，则很方便，如果是Access数据库，则需要将该数据库共享(vbroot的连接方式，但这样数据库安全性没有保障)，直接连接或者建立ODBC数据源连接。

另外提供一个思路：局域网内甚至互联网间的数据库同步其实有很多种方式，例如采用XML的数据传输方式，更加方便和便捷。

Answer 2

Private Sub Form_Load()

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db_ExpStu.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from tb_Stu"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1

Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\pc\share\db_ExpStu.mdb;Persist Security Info=False"
Adodc2.RecordSource = "select * from tb_Stu"
Adodc2.Refresh

Adodc1.Recordset.MoveFirst

For i = 1 To Adodc1.Recordset.Fields.Count - 1
Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields("学生姓名") = Adodc1.Recordset.Fields("学生姓名")
Adodc2.Recordset.Update
Adodc1.Recordset.MoveNext
Next i

End Sub

大概就是这样的。
数据库需共享（为安全考虑设置好访问权限）

Answer 3

步骤如下：
（1）、DataSet dsAdd = new DataSet();
DataTable dt = ds.Tables[0].Clone();
dt.ImportRow(ds.Tables[0].Rows[0]);
dt.Rows[0]["orderno"] = 2;
dsAdd.Tables.Add(dt.DefaultView.ToTable());
更新这个dsAdd就会新增了。
（2）、DataRow dr = ds.Tables[0].NewRow();
dr["Column"]=myValue;
ds.Tables[0].Rows.Add(dr);
这样的话，行状态会变为新增，更新到数据库会增加一条记录。