文摘《'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与SqlServer数据类型比较 Microsoft Access 数据类型 SQL Server 数据类型 是/否，（0和-1）
1 位，不允许有 Null 值。 bit(1、0 或 NULL) 数字（字节）� ......
uses
ADODB;
procedure TForm1.SetupTable(sender:tobject);
Var
adocon1:TADOConnection;
strSQL:string;
Const
SConnectionString= 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;'
+'Jet OLEDB:Database Password=%s;';
begin
adocon1:=TADOConnection.creat(self);
adocon1.ConnectionString:=format(S ......
最近整理出来的.如果不完全的话希望大家补充.
在access中，转换为大写的sql函数是ucase，在sqlserver中，转换为大写的函数是upper；在access中，转换为小写的函数是lcase，在sqlserver中，转换为小写的函数是lower；在access中，取当前时间的函数是now，另外还有一个取日期函数date，在sqlserver中，取当前的函数是getdate ......
在SQL Server 内查询Access 数据, 并将数据保存到SQL Server
'Jet OLEDB:Database Password=; /*Access 密码*/
Data Source=C:\temp\Test.mdb; /*Access 数据库路径*/
Password=;/*Access工作组密码*/
1. 查询Access 表内所有数据
SELECT *
from OPENDATASOURCE
('Microsoft.Jet.OLEDB.4.0',
'Jet OLEDB:Database ......
