文摘《'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 ......
Technorati 标签: VC,ListCtrl 原文地址：http://www.vckbase.com/document/viewdoc/?id=1274 ADO操作access全过程和CListCtrl的用法
作者：张展明 下载源代码
一个ADO和CList的示例程序（程序中的tele.log即为access文件，可以直接更改扩展名后打开）:
使用ADO操作access数据库.增加,删除,修改,查询 ......
/************************************************************************
* Description: 访问zip中的htm 之 Widgets学习
* Author: 陈相礼
* Compiled: VC8 + wxWidgets2.8.10
* Date: 04/02/10
************************************************************************/
/******************************** ......
