Excel+ADO(DAO)+SQL+Access专辑（编辑中...）

Amas

真是受益非浅。。。谢谢楼主。

licx51120

dd

zhyzhsh

这篇帖子只能用“博大精深”四个字形容！

chensha

请版主和各位帮我看一下这段程序。功能是程序首先检查数据库，如果有就删除掉，然后重新创建一个数据库。待用户输入工作簿名后，程序将该工作簿第一个工作表的数据保存了access数据库，数据库表名为“数据”。请问怎么不能正常运行总是出错？
Public Sub access_excel()
Dim old_data As String, myfile As String
old_data = "d:\my documents\mydata.mdb"
'删除已存在的数据库
If docexists(old_data) Then
Kill old_data
End If
Dim myaccess As access.Application ' 定义access对象变量
Set myaccess = New access.Application
'建立一个新的数据库
If docexists(old_data) Then
myaccess.opencurrentdatabase old_data
Else
myaccess.newcurrentdatabase old_data
End If
myfile = InputBox("请输入要保存的工作簿名称及完整路径:", "输入文件名及路径")
If myfile = "" Then
myfile = ThisWorkbook.FullName
End If
Application.DisplayAlerts = False
docmd.transferspreadsheet acimport, 8, "数据", myfile, True, ""
MsgBox "工作簿数据导入数据库成功！", vbOKOnly
myaccess.closecurrentdatabase
Set myaccess = Nothing
End Sub

function docexists(byvaL mydoc AS String) as Boolean
On Error Resume Next
If Dir(mydoc) "" Then
docexists = True
Else
docexists = False
End If
End function

sophie1012

求助:

我想在EXCEL中实现几个工作表的连接,并且其中一张表中数据做出修改,另外一张表格相对应的数据同时也做相应的变化.怎么做啊?

急死了.请各位帮忙!

先谢了!!!!!!!!

qqmsn

二、ADO简介及语法

ADO使用帮助（CHM文件，试试用在你的电脑中用ADO210.CHM搜索，如找不到请下载下面的）

点击浏览该文件
点击浏览该文件
点击浏览该文件
点击浏览该文件

分卷压缩的文件名有点问题，需要改名后才能解压，建议搂住改一下。

liusjie

CNN.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & Stpath '& ";Jet OLEDB:Database Password=" & "123"

strSQL = "Select * from 档案 WHERE 籍贯 LIKE '" & ComboBox2.Value & "'"

对SQL用法不熟，请问，上面两句为何用到单引号

还有，从access中提取数据时，下面有两种不同的写法，效果是一样的吗，有何不同，请指点

1. Dim CNN As New ADODB.Connection
Dim RST As New ADODB.Recordset
Dim Stpath, strSQL As String

Stpath = ThisWorkbook.Path & Application.PathSeparator & "学生档案.mdb"
CNN.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & Stpath '& ";Jet OLEDB:Database Password=" & "123"
If ComboBox3.Value = "" Then
strSQL = "Select * from 档案 WHERE 籍贯 LIKE '" & ComboBox2.Value & "'"
ElseIf ComboBox2.Value = "" Then
strSQL = "Select * from 档案 WHERE 性别 LIKE '" & ComboBox3.Value & "'"

Else
strSQL = "Select * from 档案 WHERE 性别 LIKE '" & ComboBox3.Value & "'" & "AND 籍贯 LIKE '" & ComboBox2.Value & "'"
End If
RST.Open strSQL, CNN

2. Dim RS1 As Recordset
Dim DB1 As Database


Set DB1 = OpenDatabase(ThisWorkbook.Path & "\" & "学生档案.MDB")
Set RS1 = DB1.OpenRecordset(Name:="档案", Type:=dbOpenDynaset)
RS1.FindFirst "姓名='" & TextBox1.Value & "'"
If RS1.NoMatch = True Then
MsgBox "对不起，没有该记录"
RS1.Close
Exit Sub
Else
TextBox2.Value = RS1.Fields("年龄").Value
TextBox4.Value = RS1.Fields("性别").Value
TextBox5.Value = RS1.Fields("籍贯").Value
TextBox6.Value = RS1.Fields("联系电话").Value

End If
RS1.Close
Set RS1 = Nothing
Set DB1 = Nothing

linehan

想知道EXECL+ACCE是什么很就了，一直流口水，没想到今天终于认识了，版主是真英雄！！！！

wangrunqun

octsun

研究研究!好难