文摘《'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
相关文档：
using System;
using System.Collections.Generic;
using System.Text;
using System.Data;
using System.Data.OleDb;
using System.Configuration;
namespace TaobaoDAL
{
public class DBHelper
{
//引导数据库连接数据库调用Web.Config文件
private static OleDbConnection conn ......
Access中数据库转义字符规则：
插入、更新、=匹配 数据时，文本类型如用''括起来，中间可以有 ",*,%,[,],\,/,?,(,),{,}的任意组合，如要插入一个',需写''并在整个表达式外套一对''
如，插入 '张''三',数据库里就是 张'三，用方括号是不可以的
插入、更新、=匹配 数据时，文本类型如用""括起来，中间可以 ......
1.打开SQL server enterprise mananger "企业管理器"
在你要导出的 SQL数据库上鼠标右键菜单：所有任务-》导出数据
2.回出现一个导出向导窗口。
选择被导出的数据源，为你刚才所选择的数据库，如果发现不对应自行修改。
3.进入导出到目标数据源的选择，这里我们要转成ACCESS的数据库。注意选择数据源类型为&ld ......
分布式(Distributed)数据访问层(Data Access Layer)(以下简称DAL)是综合MySQL Proxy、Memcached、集群等等技术优点而构建的一个软件系统。目的是为了解决在构建大中型网站时遇到的和数据访问有关的诸多问题，如怎么使得切库分表透明化，如何使得缓存存取清除自动化，怎样才能更好地防止服务单点故障等等 ......
access日期和时间函数
access日期和时间函数
------------------------------------------------
设置当前日期或时间。 Date ,Now, Time
计算日期: DateAdd, DateDiff, DatePart
返回日期: DateSerial, DateValue
返回时间: TimeSerial, TimeValue
设置日期或时间: Date, Time
计时: Timer
在帮助 ......
