| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]SQL如何快速导入Access数据库? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=111102) |
| -- 作者：新福星 -- 发布时间：2017/12/15 9:46:00 -- [求助]SQL如何快速导入Access数据库? 需要将一个SQL Server数据库导入到Access数据,表结构相同。有快速方法么？ |
| -- 作者：有点甜 -- 发布时间：2017/12/15 9:57:00 -- 在sql里面直接导出数据
https://www.baidu.com/baidu?wd=sqlserver+%E8%BD%AC+access
|
| -- 作者：新福星 -- 发布时间：2017/12/15 9:59:00 -- 不是了！是在应用程序要编个程序，将云服务器上的SQL数据导入到本地Access数据库。有什么快速方法？ |
| -- 作者：新福星 -- 发布时间：2017/12/15 10:01:00 -- Access数据库可以使用SQL语句批处理么？ |
| -- 作者：新福星 -- 发布时间：2017/12/15 10:02:00 -- For Each ra As Row In Tables(bm1).Rows pb1.Value=pb1.Value+1 dxjs=dxjs+1 sql2 = Nothing For Each c As Col In Tables("基础数据A").Cols \' For Each c As String In ycs \'Tables(bm1).Cols If c.IsNumeric Then sql2 + = ra(c.name) & "," If c.IsString Then sql2 + = "\'" & ra(c.name) & "\'," If c.IsDate Then sql2 + = 日期符1 & ra(c.name) & 日期符1 & "," If c.IsBoolean Then If ra(c.name) = True Then sql2 + = 1 & "," Else sql2 + = 0 & "," End If End If Next cmd1.CommandText + = "InSert Into 基础数据 (" & sql1.Trim(",") & ") Values (" & sql2.Trim(",") & ");" If pb1.Value Mod 2000 =0 Then cmd1.CommandText = cmd1.CommandText.Trim(";") cmd1.ExecuteNonQuery cmd1.CommandText=Nothing sql2=Nothing dxjs=0 sjjg=Date.now-cssj PopMessage("已经上传" & pb1.Value & "条数据! " & sjjg.TotalSeconds & "秒" ,"提示",PopIconEnum.Infomation,5) 类似这个？ |
| -- 作者：有点甜 -- 发布时间：2017/12/15 10:17:00 -- 必须编写代码。
1、select查询sqlserver数据库的数据；
2、循环每一行，合成sql语句，然后一起执行，使用事务即可。 |