access数据库中数据实时写入SQLServer? 您好,请问您有delphi将access所有数据实时读出来再...

作者&投稿:秘琴 (若有异议请与网页底部的电邮联系)
RT....access是某款软件的服务器端数据库,现在在sqlserver2008里建了一个结构完全一样的数据库,想实现,当access里有数据更新时(增加/删除/修改),更新后的内容实时同步到sqlserver2008里

为了数据统一,我建议你写个后台函数,写access和SQLServer的链接方法,然后读取access的数据,逐条导入到sqlserver 中。

SQL上的.mdf数据库一直有数据写入,要求将数据库导入到access中。并且数据数据实时更新~

VB.NET code

Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Administrator\Desktop\Database1.mdb;"
Dim conn As New OleDbConnection(connString)
conn.Open()
Dim strSQL As String = String.Empty
Dim AllLine As String() = File.ReadAllLines("D:/mmm/111.txt")
For i As Integer = 0 To AllLine.Length - 1
strSQL = String.Format("INSERT INTO tablename(字段1,字段2,字段3,字段4,字段5,字段6) VALUES('{0}','{1}','{2}','{3}','{4}','{5}')", Mid(AllLine(i), 1, 8),Mid(AllLine(i), 10, 2),Mid(AllLine(i), 13, 2),Mid(AllLine(i), 16, 2),Mid(AllLine(i), 19, 2),Mid(AllLine(i), 22, 2))
Dim cmd As New OleDbCommand(strSQL, conn)
cmd.ExecuteNonQuery()
Next
conn.Close()

建立两个Adoc, 一个连接Access库,一个连接SQL库,并建立对应的两个Adoq;
建立变量MID(var MID:integer;),存放总记录数(循环次数),语句如下:
with ADOQ_Access do
begin
close;
sql.clear;
sql.add('select count(*) from 表1');
open;
end;
MID:=ADOQ_Access.Fields[0].asinteger;
读取Access表记录,并存入数据集
4.建立循环,写入SQL表
for i:=1 to MID do
begin
with ADOQ_Access do
begin
close;
sql.clear;
sql.add('select * from 表1 where ID='+inttostr(i));
open;
end;
with ADOQ_SQL do
begin
close;
sql.clear;
sql.add('insert into 表2 (xx,xx,xx) values (access数据集内容)');
open;
end;
end;

access数据库中数据实时写入SQLServer?
答:RT...access是某款软件的服务器端数据库,现在在sqlserver2008里建了一个结构完全一样的数据库,想实现,当access里有数据更新时(增加/删除/修改),更新后的内容实时同步到sqlserver2008里

在Access数据库中插入一条新记录有几种方法?
答:field1、field2 向其中追加数据的字段的名称(如果在 target 参数之后),或获取其中数据的字段的名称(如果在 source 参数之后)。externaldatabase 外部数据库的路径。有关路径的说明,请参阅 IN 子句。 source 要复制其中记录的表或查询的名称。 tableexpression 作为插入记录来源的表...

vb调用access数据库,并将查询内容写入excel表中
答:Set xlBook = xlApp.Workbooks.Add(Temp)'运行模板中已经存在宏,看你是否需要,这一句可以改成将你提取的数据直接写入你需要的表中。'我的模板中有自动保存的代码,你的模板如果没有宏的话需要在VBS中保存文件。xlBook.Application.Run "CreateSheet", product, grade, PATH xlApp.ActiveWorkbook.Clos...

关于asp向access数据库中写入数据的问题,高手指教!
答:1.strcon="provider=Microsoft.Jet.OLEDB.4.0;data source="strcon=strcon & Server.MapPath("messagebox.mdb")set myCon=Server.CreateObject("ADODB.Connection")myCon.Open strcon sql="insert into messagebox (imst,userid,touser,info)"sql=sql & "values('" & str_now & "','" & str...

怎么将MFC从串口获取的数据实时存储到ACCES数据库中呢
答:Data Source=D:\\test.mdb;Persist Security Info=False";ppConn->Open("","","",adConnectUnspecified);CString szSQl; CString INS_name; CString INS_age; GetDlgItemText(IDC_EDIT1,INS_name);GetDlgItemText(IDC_EDIT2,INS_age);//下面这两行负责写入数据szSQl.Format("insert into m_...

ACCESS数据库中,关于窗体中如何实现自动填入.并能保存于表中?
答:1、就按你设置的内容,“入库”窗体有这些字段,当然“入库表”中也有这些字段。设置窗体的“数据”“记录源”为“入库表”,添加入库表的字段到窗体中,设置“料号”控件框的“更新后”事件如下:(这里,我假设“料号”是文本类型的)Private Sub 料号_AfterUpdate()Me.名称.Value = DLookup("[...

易语言Access数据库写入新文本记录
答:如:姓名 工资 张三 2000 李四 3000 要查李四的工资,可用如下语句:select 工资 from 表名 where 姓名='李四'sql语句简介:结构化查询语言(Structured Query Language)简称SQL,结构化查询语言是一种数据库查询和程序设计语言,用于存取数据以及查询、更新和管理关系数据库系统 ...

在access数据库中如何将窗体中自动计算的值存入表中
答:ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DATA.mdb;"‘“DATA.MDB”是数据库文件地址 End Function 然后在窗体上建两个文本A,B。和一个按钮输入以下代码 Private Sub Command1_Click()Dim rs As ADODB.Recordset Dim msgstring As String Dim sql ...

Access数据库是什么?特点以及优缺点
答:安全性有待提高:与企业级数据库相比,Access数据库的安全性相对较低。它不支持多用户同时写入数据,也不具备高级的数据加密和权限控制功能。这使得Access在保护数据安全方面存在一定的隐患。网络功能有限:Access数据库主要面向桌面应用,网络功能相对较弱。在分布式或多用户环境下,Access可能无法实现实时数据...

关于asp+access中同时多用户同时提交..写入数据库的问题
答:默认是不进行任何锁定的,你只要启用写锁,数据库系统会自动帮你完成上面的等待任务的,就是说当一个用户需要写数据库时(假设它得到了当前服务器资源),数据库系统会自动挂起其它写锁定请求,直到这个用户写完数据库,解除了写锁定(释放操作会解除),第二个请求写锁定的用户才获得服务器资源。