如何将查询结果保存到本地？

jpowe

通过ACCESS登陆单位的SQL服务器，设置条件查询到一些数据表，如何才能将这些数据保存到本地的accdb文件，因为机房有时间限制，有劳各位学长解答一下，刚学ACCESS不好意思。

竹笛

将SQL的数据库保存到Access表，先链接到SQL服务器，然后写到本地的Access本里
下面是一个例子，我把示例在最下面
Dim rst As ADODB.Recordset
    Dim strConnect As String
    Dim strSQL As String
   
    ' 使用Microsoft Data Shaping Service for OLE DB provider连接到sql server.
   
    strConnect = "Provider=MSDataShape;Data Provider=SQLOLEDB;" _
        & "Integrated Security=SSPI;Data Source=len1060;" _
        & "Initial Catalog=Northwind;user id=sa;password="
        
    '也可以使用下面的连接字符串
    'strConnect = "Provider=Microsoft.Access.OLEDB.10.0;Persist Security Info=False;Data Source=len1060;User ID=sa;Password=;Initial Catalog=Northwind;Data Provider=SQLOLEDB.1"
   
    ' 建立选择语句.
    strSQL = "SELECT ContactName, CompanyName, Address, " & _
        "City FROM Customers WHERE (Region = 'SP')"
    ' 初始化ADO记录集.
    Set rst = New ADODB.Recordset
    With rst
        .ActiveConnection = strConnect
        .LockType = adLockOptimistic
        .Open strSQL
    End With
    ' 设置表单记录集属性
    Set Me.Recordset = rst
    ' 设置ControlSource属性
    ' 将表单项目与记录集字段对应.
    txtContactName.ControlSource = "ContactName"
    txtCompanyName.ControlSource = "CompanyName"
    txtAddress.ControlSource = "Address"
    txtCity.ControlSource = "City"
示例.rar (29.75 KB, 下载次数: 41)

2013-6-25 15:56 上传

点击文件名下载附件

jpowe

竹笛 发表于 2013-6-25 15:51
将SQL的数据库保存到Access表，先链接到SQL服务器，然后写到本地的Access本里
下面是一个例子，我把示例在 ...

很有用的方法，还得慢慢理解测试，，，有什么不明白再请教，谢谢了

蒋老三

是否可以通过excel连接

沧海一声笑NEW2

挺好的，不难，但对我呀来说，又是全新的知识