vb6中如何将记录集全部插入数据库
我在一个数据库中用ADODC将查询结果全部显示到了DATAGRID中现在想把显示出来的结果全部插入到另外一台机器的数据库中表结构完全一样。不知道如何实现。楼下的。我知道实...
我在一个数据库中用ADODC将查询结果全部显示到了DATAGRID中
现在想把显示出来的结果全部插入到另外一台机器的数据库中
表结构完全一样。不知道如何实现。
楼下的。我知道实现逻辑。我说的是语句。。。。。具体的方法。。。具体到字符。。。 展开
现在想把显示出来的结果全部插入到另外一台机器的数据库中
表结构完全一样。不知道如何实现。
楼下的。我知道实现逻辑。我说的是语句。。。。。具体的方法。。。具体到字符。。。 展开
展开全部
另外重新建立的远程数据库连接,本地和远程的数据库连接同时有效,然后用ADO对象及方法遍历DATAGRID,将提取到的记录通过另一个远程连接写入另外一台电脑的数据库。
PS:
抱歉刚没注意到你在Hi上的提问。
我刚看了“vbroot”提供的代码,基本就是那个意思,你需要同时建立连接到另外一台电脑的连接,然后用遍历DataGrid表格或者查询结果集的方法逐条把数据通过另一个连接到远程的ADO连接添加到另外一台电脑,在那个代码中用你自己实际的数据库字段替换他所提供的字段。
另外一台机器的数据库远程如果是SQL-Server或者是Oracle的话,则很方便,如果是Access数据库,则需要将该数据库共享(vbroot的连接方式,但这样数据库安全性没有保障),直接连接或者建立ODBC数据源连接。
另外提供一个思路:局域网内甚至互联网间的数据库同步其实有很多种方式,例如采用XML的数据传输方式,更加方便和便捷。
PS:
抱歉刚没注意到你在Hi上的提问。
我刚看了“vbroot”提供的代码,基本就是那个意思,你需要同时建立连接到另外一台电脑的连接,然后用遍历DataGrid表格或者查询结果集的方法逐条把数据通过另一个连接到远程的ADO连接添加到另外一台电脑,在那个代码中用你自己实际的数据库字段替换他所提供的字段。
另外一台机器的数据库远程如果是SQL-Server或者是Oracle的话,则很方便,如果是Access数据库,则需要将该数据库共享(vbroot的连接方式,但这样数据库安全性没有保障),直接连接或者建立ODBC数据源连接。
另外提供一个思路:局域网内甚至互联网间的数据库同步其实有很多种方式,例如采用XML的数据传输方式,更加方便和便捷。
展开全部
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
大概就是这样的。
数据库需共享(为安全考虑设置好访问权限)
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
大概就是这样的。
数据库需共享(为安全考虑设置好访问权限)
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
步骤如下:
(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);
这样的话,行状态会变为新增,更新到数据库会增加一条记录。
(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);
这样的话,行状态会变为新增,更新到数据库会增加一条记录。
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询