文摘《'excel导入access》
'excel导入access ,引用ADO
Private Sub Command1_Click()
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
On Error Resume Next
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\dbemp.mdb;" & "Persist Security Info=False"
conn.Open
conn.Execute "Drop Table [Emptable]"
conn.Close
ExportExcelSheetToAccess "Sheet1", "D:\Test.xls", "Emptable", "D:\dbemp.mdb"
End Sub
Private Sub ExportExcelSheetToAccess(sSheetName As String, sExcelPath As String, sAccessTable As String, sAccessDBPath As String)
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(sExcelPath, True, False, "Excel 8.0")
Call db.Execute("Select * into [;database=" & sAccessDBPath & "]." & sAccessTable & " from [" & sSheetName & "$]")
MsgBox "导入成功！", vbInformation, "提示"
'ReShow
End Sub
本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/asftrhgjhkjlkttttttt/archive/2009/12/01/4914132.aspx
相关文档：
Access中数据库转义字符规则：
插入、更新、=匹配 数据时，文本类型如用''括起来，中间可以有 ",*,%,[,],\,/,?,(,),{,}的任意组合，如要插入一个',需写''并在整个表达式外套一对''
如，插入 '张''三',数据库里就是 张'三，用方括号是不可以的
插入、更新、=匹配 数据时，文本类型如用""括起来，中间可以 ......
昨天弄了一个比较棘手的问题。从网上下载了一个软件，他的数据库是access的，打开看了一下，感觉不错，适合我现在项目的需求，大部分能够满足我的项目需要，就想拿来主义。可是我们项目的数据库一直都是用的sqlserver，于是，就在网上疯狂的，找关于access转换为sqlserver的资料在这里我想说一下有关的注意事项：
数据库升 ......
Oracle,MySQL,MSSQL Server和Access数据库的统计函数
我们在编程中常用的统计函数有计数,求和,求最大值,求最小值,求平均,方差和标准差.
方差(Variance)
方差是标准偏差的平方。组中的值，与它们平均值之间偏离程度的度量。
标准偏差(Standard Deviation)
一个参数，指出一种方式，一个概率函数以这种方式分布在平均值� ......
熟悉SQL SERVER 2000的数据库管理员都知道，其DTS可以进行数据的导入导出，其实，我们也可以使用Transact-SQL语句进行导入导出操作。在Transact-SQL语句中，我们主要使用OpenDataSource函数、OPENROWSET 函数，关于函数的详细说明，请参考SQL联机帮助。利用下述方法，可以十分容易地实现SQL SERVER、ACCESS、EXC ......
mysql 明明已经装好了，但是无法访问。链接的时候 总是说
Access Denied.
解决方法：
用mysqld --skip-grant-table启动mysql
然后在mysql库中执行这个
INSERT INTO user VALUES ('localhost', 'root', PASSWORD('some_pass'), 'Y','Y','Y','Y','Y','Y','Y','Y','Y','Y','Y','Y','Y','Y','Y', 'Y', ......
