如何将本地数据库的SQL数据，移到局域网中一台计算机Access上？

Question

如题！

Answer 1

insert into OPENDATASOURCE( 'Microsoft.Jet.OLEDB.4.0','Data Source=\\server5\north.mdb;User ID=Admin;Password=')...supply select * from supply where....

Answer 2

Insert into table1
SELECT * FROM [;database=192.168.0.4\c:\aaa.mdb].table2

Answer 3

具体的是这样子：
本地用的软件用的是ＳＱＬ数据库，经过处理后，
又想把数据插入到局域网中另一软件的Acess的数据库中去！

Answer 4

想想在数据库那里做触发器，到把数据填充到局域网中的那个Acess　数据库？不知可行否？

Answer 5

回复人： cosio() ( ) 信誉：100  2004-11-09 09:21:00  得分: 0  
 
 
   楼上？
对局域网内不要知道对方的IP?
上面写的是不是有错误！
  
 
hdhai9451(※★開拓者...糊涂中☆※) 写的没有错误，当然这样做的话，需要把那个目录共享，并开放相应的权限

Answer 6

想想在数据库那里做触发器，到把数据填充到局域网中的那个Acess　数据库？不知可行否？
这种方式应该是不可行的，你为什么不分别打开两个数据库联结，然后从sql server中取数据，再用sql插入access中呢？

Answer 7

要触发器是吧，插入的触发器
CREATE TRIGGER [T_insert] ON [dbo].[TABLE1] 
FOR INSERTAS
insert b.dbo.table1
select * from openrowset('Microsoft.Jet.OLEDB.4.0','127.0.0.1';'admin';'',table1)
==============
openrowset('连接类型','服务器名';'用户名';'密码',连接数据库表)

Answer 8

有关SQL Server数据库的备份与恢复
*********************************************************
'* 名称：BackupDatabase
'* 功能：备份数据库
'* 控件：一个文本框和两个按钮（备份到和确定）
'*********************************************************
Public Sub BackupDatabase()
Dim cn As New ADODB.Connection
Dim s_path, s_dataexport As String
s_path = App.Path
Me.MousePointer = 11   '设置鼠标指针形状
'student1是需要备份的数据库名称
s_dataexport = "backup database student1 to disk='" + CommonDialog1.FileName + "'"
cn.Open "driver={sql server};server=" & d1 & ";database=student1;persist security info=false; userid=sa"  '数据库连接字符串
'这里不需要连接master数据库，即可完成备份
cn.BeginTrans
cn.Execute s_dataexport
Err.Number = 0
If Err.Number = 0 Then
    cn.CommitTrans
    MsgBox "数据备份成功！", vbInformation, "提示"
    MsgBox "数据备份文件存放路径:" & CommonDialog1.FileName, vbOKOnly, "提示"
    Unload Me
Else
    cn.RollbackTrans
    MsgBox "数据备份失败！请检查数据库是否正在打开！", vbCritical, "提示"
End If
cn.Close
Set cn = Nothing
Me.MousePointer = 1
End Sub'*********************************************************
'* 名称：RestoreDataBase
'* 功能：还原数据库
'* 控件：一个文本框和两个按钮（ 打开和确定）
'*********************************************************
Public Sub RestoreDataBase()
If Text1.Text = "" Then
    MsgBox "请选择要恢复的数据文件！", vbInformation, "提示"
    Exit Sub
Else
    ret = MsgBox("数据恢复操作将会覆盖以前的所有数据并且覆盖后无法恢复，您确定要进行恢复操作吗？", vbQuestion + vbOKCancel, "提示")
    If ret = vbOK Then
       Dim cn As New ADODB.Connection
       Dim sn As New ADODB.Recordset
       Dim s_restore As String
       Me.MousePointer = 11
       cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;server=" & d1 & ";Initial Catalog=master;Data Source=127.0.0.1;user id=sa;password=" & d3 & ""
       sn.Open "select  spid  from  sysprocesses  where  dbid=db_id('student1')", cn
        Do While Not sn.EOF
          cn.Execute "kill " & sn("spid")
          sn.MoveNext
        Loop
        sn.Close
        s_restore = "restore database student1 from disk='" + Trim(Text1.Text) + "'  with REPLACE"
        cn.Execute s_restore
         'Debug.Print gs_conn_string
         '此时需要连接master数据库才能完成数据恢复操作
         '同上student1为需要恢复的数据库
        s_restore = "restore database student1 from disk='" + Trim(Text1.Text) + "'"
         'text1一个用于记录需要恢复文件的地址的textbox
        cn.Execute s_restore
        cn.BeginTrans
        If Err.Number = 0 Then
            cn.CommitTrans
            MsgBox "数据恢复成功！", vbInformation, "提示"
            Command1.Enabled = True
            Label1.Visible = False
        Else
            cn.RollbackTrans
            MsgBox "数据恢复失败！", vbCritical, "提示"
            Command1.Enabled = True
        End If
        cn.Close
        Set cn = Nothing
        Me.MousePointer = 1
    Else
        Exit Sub
    End If                      '''''''''''''''''''''''''''''''''''''''''
    On Error Resume Next
    Dim DBC As New DataBaseConnection
    If db.State = 1 Then
       db.Close
    End If
    db.ConnectionString = DBC.SqlConnectString(d1, d2, d3)
    rs.CursorType = adOpenDynamic
    rs.CursorLocation = adUseClient
    rs.LockType = adLockOptimistic
    db.CursorLocation = adUseClient
    db.Open
    Set cmd.ActiveConnection = db
    If Err.Number Then
       MsgBox Err.Description, 16 + vbOKOnly, Err.Number
       Exit Sub
    End If
    db.DefaultDatabase = "student1"
    If Err.Number Then
       MsgBox Err.Description, 16 + vbOKOnly, Err.Number
       Exit Sub
    End If
End If
End Sub                      '''''''''''''''''''''''''''''''''''''''''''''如果当前没有与要恢复的数据库立连接，则不需要加单引号中的内容。如果希望恢复数据库之后继续建立连接，则需要写这部分代码。我要恢复数据库名称为student1，备份数据库的时候是在连接状态下进行的，但是恢复数据库不可以在数据库存在连接的状态下进行操作！代码的解决方法是：先连接SQL Server中主库master 库，在该库中的sysprocesses表中存放着所有连接到此数据库的连接信息，将这些连接信息用Kill语句删除。然后再恢复数据库student1，由于用Kill语句后，数据库已经被断开，所以在恢复完成后，再用系统最初的连接数据库代码连接上数据库student1。

Answer 9

/*--实现数据导入/导出的存储过程 可以实现导入/导出 指定表 到文本文件邹建 2003.07-----------------*//*--调用示例
导出调用示例
--导出指定表,这里指定导出表:地区资料
exec file2table 'zj','','','c:\zj.txt','xzkh_sa..地区资料'导入调用示例
--导入指定表,这里指定导出表:地区资料
exec file2table 'zj','','','c:\zj.txt','xzkh_sa..地区资料',0
--*/if exists(select 1 from sysobjects where name='File2Table' and objectproperty(id,'IsProcedure')=1)
drop procedure File2Table
gocreate procedure File2Table
@servername varchar(200) --服务器名
,@username varchar(200) --用户名,如果用NT验证方式,则为空''
,@password varchar(200) --密码
,@filename varchar(1000) --目录名+文件名
,@tbname varchar(500)='' --数据库..表名
,@isout bit=1 --1为导出(默认),0为导入
as
declare @sql varchar(8000)set @sql='bcp "'+@tbname
+case when @isout=1 then '" out' else '" in' end
+' "'+@filename+'" /c' +' /S"'+@servername
+case when isnull(@username,'')='' then '' 
else '" /U"'+@username end
+'" /P"'+isnull(@password,'')+'"'
exec master..xp_cmdshell @sql
go