文摘《'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中数据库转义字符规则：
插入、更新、=匹配 数据时，文本类型如用''括起来，中间可以有 ",*,%,[,],\,/,?,(,),{,}的任意组合，如要插入一个',需写''并在整个表达式外套一对''
如，插入 '张''三',数据库里就是 张'三，用方括号是不可以的
插入、更新、=匹配 数据时，文本类型如用""括起来，中间可以 ......
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 ......
学习wxWidgets的时候想用它连接数据库，不过wxWidgets的学习资料非常少，和ODBC有关的就更少，网络上找到的都不知道为什么无法正确运行。这是在CSDN上朋友的帮助下搞定的，自己验证过可以正确编译和运行、成功读取数据内容的代码：
wxWidgets版本：2.8.10（2.9以后的版本不支持ODBC ......
/************************************************************************
* Description: 访问zip中的htm 之 Widgets学习
* Author: 陈相礼
* Compiled: VC8 + wxWidgets2.8.10
* Date: 04/02/10
************************************************************************/
/******************************** ......
在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 ......
