Tag: Access

将access导入SQL server

熟悉SQL SERVER 2000的数据库管理员都知道，其DTS可以进行数据的导入导出，其实，我们也可以使用Transact-SQL语句进行导入导出操作。在 Transact-SQL语句中，我们主要使用OpenDataSource函数、OPENROWSET 函数，关于函数的详细说明，请参考SQL联机帮助。利用下述方法，可以十分容易地实现SQL SERVER、ACCESS、EXCEL数据转换，详细说明如下：

一、SQL SERVER 和ACCESS的数据导入导出

常规的数据导入导出：
使用DTS向导迁移你的Access数据到SQL Server，你可以使用这些步骤:
　　○1在SQL SERVER企业管理器中的Tools（工具）菜单上，选择Data Transformation
　　○2Services（数据转换服务），然后选择 czdImport Data（导入数据）。
　　○3在Choose a Data Source（选择数据源）对话框中选择Microsoft Access as the Source，然后键入你的.mdb数据库(.mdb文件扩展名)的文件名或通过浏览寻找该文件。
　　○4在Choose a Destination（选择目标）对话 Continue reading "将access导入SQL server"

Office Access 2003 简体中文（单文件绿色版）

Pop：Office完整包有几百兆，所以很多人安装绿色精简版，但是一般精简版都没有Access，所以这里提供一个单文件的绿色版给大家。

文件: Access2003.exe
大小: 167752714 字节
文件版本: 11.0.8166
修改时间: 2009年5月17日 星期日, 12:13:29
MD5: 20BB33B7A819E0B126CA10EA4EAA6D2C
SHA1: 7628DA383AFDEB94BF842BF8F6824309A8A58AE7
CRC32: 0066C431

下载说明：
下载后是一个压缩包，里面有两个文件，一个是Access2003.exe，还有一个是文件关联文件

https://dl.pconline.com.cn/download/372922.html
http://www.downcc.com/soft/330.html
http://www.opdown.com/soft/6717.html

ACCESS（MDB）数据库批量修改记录软件

pop：今天对MDB数据库做了一下批量修改，很不错。

首先使用“辅臣MDB数据库浏览器”查看表，然后用这个软件进行对表的批量修改

下载地址：
辅臣MDB数据库浏览器 v1.0
http://down.chinaz.com/soft/8758.htm

http://www.jb51.net/codes/6197.html

sql_langxin.asp的内容：

<%'浪心制作 - 版权所有%>

数据库批量修改记录 - 浪心专用


<% if request("act")="db" then Session("langxin")=Trim(Request.Form("dbname")) Set fso = CreateObject("Scripting.FileSystemObject") filename=server.mappath(""&Session("langxin")&"") if Not fso.FileExists(filename) then Session("langxin")="" Response.Write("

  • 你输入的数据库 "&filename&" 不存在！

  • 请输入正确的数据库地址！

    • " )
    end if
    end if
    if request("act")="del" then
    Session("langxin")=""
    end if
    biao2 = trim(request("biao2"))
    ziduan = trim(request("ziduan"))

    if request("act")="edit" then
    set conn=server.CreateObject("adodb.connection")
    DBPath = server.mappath(""&Session("langxin")&"")
    conn.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath
    biao=request("biao")
    ziduan=request("ziduan")
    huan=request("huan")
    if huan="" then
    Response.Write("

  • 请输入替换的内容！

    • " )
    response.end
    end if

    sql="select * from " & biao & ""
    set rs=server.createObject("adodb.recordset")
    rs.open sql,conn,1,3
    jilu=rs.recordcount
    do while not rs.eof
    rs(""&ziduan&"")=huan
    rs.update
    rs.movenext
    loop
    Response.Write(""&DBPath&"数据库下的"&biao&"表，"&ziduan&"字段被替换为"&huan&"，共有记录"&jilu&"。")
    end if
    %>
    <%if Session("langxin")="" then%>

    请输入数据库地址：



    例如：data/123.mdb

    <%end if%>
    <%if Session("langxin")<>"" then
    set conn=server.CreateObject("adodb.connection")
    DBPath = server.mappath(""&Session("langxin")&"")
    conn.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath
    %>

    请选择表：
    <%Set rs=Conn.OpenSchema(20) While not rs.EOF Response.Write("")
    rs.MoveNext
    Wend%>

        

    <%end if%>
    <%if request("biao2")<>"" then
    set conn=server.CreateObject("adodb.connection")
    DBPath = server.mappath(""&Session("langxin")&"")
    conn.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath
    %>

    数据库字段批量修改
    当前数据库：
    		 <%=DBPath%>
    当前表名：
    		 " />
    选择字段：
    <% haveid=0 set rs=server.createobject("adodb.recordset") sql="select * from "&biao2&" where 1<>1"
    rs.open sql,Conn,1,1
    j=rs.Fields.count
    For i=0 to (j-1)
    'Response.Write("第" & i+1 & "个字段名：" & rs.Fields(i).Name & "
    ")
    Response.Write("")
    if LCase(rs.Fields(i).Name)="id" then
    Session("haveid")=1
    end if
    Next
    rs.close%>
    替换成：
    此操作是将该字段下的所有数据替换为你指定的内容。

    <%end if%>

    浪心制作 版权所有