我参加的：
您的位置： >>
>> [42048]用vb编写一个excel导入access的源码
&用vb编写一个excel导入access的源码&&&&&&&&
：50.00元(任务金额) × 81% = 40.50 元
任务序号：42048　　分类： >>
任务中国已收到雇主的任务款，确保任务结束后，中标者能收到任务款。
任务中国申明：中标威客在获得任务款后，其中标作品的全部知识产权转移给雇主；未中标作品可自行处理。
中标模式：单人中标&&&&&&
参与情况：已有 11223 人关注&&&&&&8 人参加&&&&&&7 个提交
收藏人数：0&&&&&
分享此任务还能挣钱，赶快参与吧！点我关闭
打款及时性：
合作愉快性：
显示方式：
&&每页显示数量：
&&排序方式：
选择排序/显示方式
按信用　从高到低
按信用　从低到高
按作品投票数量　从多到少
按作品评论时间　最新评论
按作品评论数量　从多到少
按提交作品时间　从早到晚
按提交作品时间　从晚到早
每页显示20个
每页显示40个
每页显示80个
选择查看：
作品 / 威客信息
完成了导入功能，rar密码已经发给你！
其中详细介绍VB对Excel与Access的操作，还是Access与Excel记录的相互导入。希望对你有用。写
有现成的代码，联系我qq& 221595，注明excel access即可，谢谢合作
请问是任意格式的还是有固定格式的excel，是导入到已建好的access表中还是根据excel的sheet新建表。acce
密码已经站内信给你了
请查收 可以帮到你
Dim extend_str As String Dim execl_cnn As New ADODB.Connection
京公网安备号&是的注册商标您的位置： &
VB＋Access系统中实现Excel和AcceSS数据库相互导入
优质期刊推荐&&&&nbsp&&&&nbsp&&&&nbsp
- 宽带山KDS
主题:急求一个VB.NET+ACCESS 做的学生信息管理系统...
来自：上海&
发帖：4＋339&
急求一个VB.NET+ACCESS 做的学生信息管理系统...可以运行的..
功能上只要可以查询 修改 添加 删除
用户表(用户名 密码)
学生表(学号 姓名 课程 性别 出生日期 班级)
课程表(课号 课程名称 学分)
班级(班号 班名 班主任)
成绩(学号 课号 成绩)
请山上达人帮忙..小弟在此谢谢了..
有的发一个给我..拜托了..&&&&
-------------------------------------------------------------------------------------------
这个家伙很懒，什么也没留下......
来自：上海&
发帖：5＋340&
自己顶顶...
-------------------------------------------------------------------------------------------
这个家伙很懒，什么也没留下......
...第1楼...
来自：上海&
发帖：28＋309&
代做C#.net毕业设计，400源代码，800包论文，1000VIP套装。
-------------------------------------------------------------------------------------------
这个家伙很懒，什么也没留下......
来自：上海&
发帖：6＋1106&
自己顶顶...
-------------------------------------------------------------------------------------------
自从上了KDS，看见天上的麻雀都保持整齐一致的队形，一会排成I型，一会排成B型，自由的翱翔在蓝天……连禽兽都懂得入了，那我不是连禽兽都不如了吗
来自：上海&
发帖：5＋341&
-------------------------------------------------------------------------------------------
这个家伙很懒，什么也没留下......
来自：上海&
发帖：372＋4270&
网上一搜一大把，稍微改下就行
现在的学生啊真是一年不如一年了
-------------------------------------------------------------------------------------------
这个家伙很懒，什么也没留下......
来自：上海&
发帖：5＋342&
-------------------------------------------------------------------------------------------
这个家伙很懒，什么也没留下......
来自：上海&
发帖：63＋965&
怎么像我大学课程设计的作业啊
-------------------------------------------------------------------------------------------
这个家伙很懒，什么也没留下......
来自：上海&
发帖：41＋1334&
你是gench的学生？
-------------------------------------------------------------------------------------------
什么都不说
想通了就好
来自：上海&
发帖：139＋4106&
还在考这道题天朝的教育啊
-------------------------------------------------------------------------------------------
伊刚伊戆一刚~
来自：上海&
发帖：5＋343&
怎么像我大学课程设计的作业啊
额...好像很多人课程设计都做这个嘛...
-------------------------------------------------------------------------------------------
这个家伙很懒，什么也没留下......
来自：上海&
以前用vc做过一个。
-------------------------------------------------------------------------------------------
这个家伙很懒，什么也没留下......
来自：上海&
发帖：5＋344&
以前用vc做过一个。
-------------------------------------------------------------------------------------------
这个家伙很懒，什么也没留下......
来自：上海&
发帖：22＋55&
看你出多少银子了。
-------------------------------------------------------------------------------------------
这个家伙很懒，什么也没留下......
来自：上海&
发帖：241＋5102&
直接去书里抄
外面书店教开发的书里很多都有全套源码
-------------------------------------------------------------------------------------------
根号九桌游 愚园路300号2105室(静安寺久光附近) 电话
来自：海外&
这个东西我以前asp/vb/pb 都写过
-------------------------------------------------------------------------------------------
纯洁的从KDS飘过篱笆
来自：上海&
发帖：25＋673&
c/c++/都做过。哦CN。还在用这么简单的题目骗人。
-------------------------------------------------------------------------------------------
尴里欧尬90年。。。
来自：上海&
发帖：30＋813&
白给你啊？
-------------------------------------------------------------------------------------------
这个家伙很懒，什么也没留下......
来自：上海&
c/c++/都做过。哦CN。还在用这么简单的题目骗人。
增删改查是基础，用什么语言次要。
-------------------------------------------------------------------------------------------
这个家伙很懒，什么也没留下......
来自：浙江&
发帖：34＋469&
随便找找就一堆了。。。为了稍微学点东西，调试就自己来吧。。。
-------------------------------------------------------------------------------------------
这个家伙很懒，什么也没留下......
来自：上海&
发帖：1＋25&
lz你不会是电力的吧
-------------------------------------------------------------------------------------------
好人卡专业户，专收各种好人卡
来自：上海&
发帖：27＋214&
EXCEL VBA编过
-------------------------------------------------------------------------------------------
星期天的早晨雾茫茫
来自：保密&
发帖：3＋90&
大二的时候就做过了…哎…怎么就不换点题目呢？
-------------------------------------------------------------------------------------------
I love u more than u know.Never leave me alone...
来自：上海&
发帖：10＋687&
这也太简单了吧。。。。。。。
-------------------------------------------------------------------------------------------
这个家伙很懒，什么也没留下......
来自：上海&
发帖：134＋3427&
楼上都是高手
我只会excel用筛选和vlookup
不过奉劝楼主，如果今后指望靠这个混饭的，还是脚踏实地比较好
-------------------------------------------------------------------------------------------
zzy 你已经被我锁定了
来自：上海&
发帖：99＋2615&
图书管理系统，学生管理系统，酒店管理系统，妈的为什么每次毕业设计都是这种东西，怪不得天朝的教育一塌糊涂。
真的懂点编程的2个小时就能搞出来了
-------------------------------------------------------------------------------------------
We were on a break!
来自：上海&
发帖：43＋1006&
关系模型啊 数据库么
-------------------------------------------------------------------------------------------
这个家伙很懒，什么也没留下......
来自：上海&
发帖：10＋688&
熟手半小时解决。
-------------------------------------------------------------------------------------------
这个家伙很懒，什么也没留下......
来自：上海&
发帖：130＋1071&
吾大二软开也是这个大作业…
-------------------------------------------------------------------------------------------
这个家伙很懒，什么也没留下......
来自：上海&
发帖：231＋4954&
这么简单的东西还不肯自己做？干脆连书都不要去读了，毕业证也不要去拿了，还要跑到学校去，烦哇。
-------------------------------------------------------------------------------------------
怎么去不掉签名的呀？我不想要签名。
来自：上海&
发帖：23＋57&
lz你可以退学了。
-------------------------------------------------------------------------------------------
这个家伙很懒，什么也没留下......
来自：浙江&
发帖：680＋38641&
图书管理系统，学生管理系统，酒店管理系统，妈的为什么每次毕业设计都是这种东西，怪不得天朝的教育一塌糊涂。
真的懂点编程的2个小时就能搞出来了
-------------------------------------------------------------------------------------------
喜欢春秋笔法的、说话拐弯抹角的人什么的最讨厌了 ≧o≦
不喜欢的人不要理我啦，我也不会理你的啦，不用做无用的尝试啦，人家当你小傻瓜啦~ ≧o≦
来自：上海&
发帖：10＋369&
LZ，如果这是你的期末大作业，那么火速恶补，勤奋努力，你还有一线希望，如果这是毕业设计，那么，你毕业后可以考虑改行了。。。
最后一下天朝的教育，考试不考“xx系统”会死吗？[此贴子已经被作者于
08:39:38 编辑过]&&&&
-------------------------------------------------------------------------------------------
人无所谓忠诚 忠诚是因为所受的诱惑不够
人无所谓正派 正派是因为背叛的筹码太低
来自：上海&
发帖：710＋22377&
这题目看得超熟悉啊
哥当年做的是
wow的DKP信息管理系统
-------------------------------------------------------------------------------------------
其实我是个牧师
牧师的天职是治疗
我却选择了暗影,
因为更多时候战斗比治疗更有效
来自：上海&
发帖：3＋1934&
没能力做也就算了。。。起码得有自己网上搜的能力吧。。。
-------------------------------------------------------------------------------------------
这个家伙很懒，什么也没留下......
来自：上海&
发帖：4＋90&
n年前的毕业设计，不过貌似还是改行了
-------------------------------------------------------------------------------------------
别和我比欲望，我是欲帝！
来自：上海&
发帖：1＋44&
网上一搜一大把，稍微改下就行现在的学生啊真是一年不如一年了
-------------------------------------------------------------------------------------------
这个家伙很懒，什么也没留下......
来自：上海&
发帖：45＋2147&
又见xx管理系统
-------------------------------------------------------------------------------------------
首先，请你以一种，团成一个团的姿势，然后，慢慢地比较圆润的方式，离开这座让你讨厌的城市，或者讨厌的人的周围ps：三国杀3v3群：
急求一个VB.NET+ACCESS 做的学生信息管理系统...3364人阅读
数据库技巧（26）
玩转VB（27）
新建vb工程 新建数据库
引入数据库环境：
ms activiteX&data &OBJECTS 2.8 LIBRARY
ms excel 11.0
引入显示控件:
常用的有三个
datagrid：可以直接从表格修改数据库数据 但是不能设置每行的颜色 &推荐2st
flexgrid：可以显示数据库数据 只读的
hflexgrid：支持ado 可以设置每行显示数据的颜色 &推荐1st
第三步：编写代码 将数据库数据筛选显示到表格控件里面
----------------------------------------------------------------------
下面给出我写的vb连接access 和excel的源代码
----------------------------------------------------------------------
Dim ConStr As String
Dim cn As adodb.Connection
Dim rs As adodb.Recordset
Dim statestring As String
Dim addrs As String
Private Sub Form_Load()
'On Error GoTo ERR
Set cn = CreateObject(&ADODB.Connection&)
Set rs = CreateObject(&ADODB.Recordset&)
ConStr = &Provider=Microsoft.Jet.OLEDB.4.0;& & &Data Source=& & App.Path & &/tmsdatas.Persist Security Info=False&
'ConStr = &Provider=Microsoft.Jet.OLEDB.4.0;Data Source=& + &//172.17.180.60/net/tmsdata.Persist Security Info=False&
'------------------change
cn.Open ConStr
cn.CursorLocation = adUseClient
Select Case cn.State
Case adStateClose
statestring = &adStateClosed&
Case adStateOpen
statestring = &adStateOpen&
End Select
'显示连接的状态
If statestring = &adStateClosed& Then
MsgBox &数据库连接失败！&, , statestring
Text1.Text = &连接失败&
Text1.Text = &连接成功&
'----------open the table------------------
rs.Open &Select * from buy&, cn, 3, 3
Set MSHFlexGrid1.DataSource = rs
Call SetRowColor(MSHFlexGrid1)
'MsgBox &LOAD ERROR&, , &TIPS&
----------------------------------------------------------------------连接excel数据---------------------------------
Dim cnn As adodb.Connection
Set cnn = New adodb.Connection
Dim XLS_FILE As String
Set cn1 = CreateObject(&ADODB.Connection&)
Set rs1 = CreateObject(&ADODB.Recordset&)
cn1.Open &provider=Microsoft.Jet.OLEDB.4.0;& & &data source=& & App.Path & &/buy.& & &Extended Properties=Excel 8.0;&
rs1.Open &select STATE from [sheet1$] where STATE=0&, cn1, 3, 3
If rs1.RecordCount = 0 Then
'*** no new data***
MsgBox &没有新数据&
Text1.Text = &没有新数据&
'*** have new data***
'*** add new data***
Text1.Text = &检测到新数据&
Text1.Text = rs1.RecordCount
Set MSHFlexGrid2.DataSource = rs1&
全部源代碼
'-------define hong------------
Dim ConStr As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim cn1 As ADODB.Connection
Dim rs1 As ADODB.Recordset
Private statestring As String
Private Sub Command1_Click()
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
Dim Source As String
CommonDialog1.Filter = &All Files (*.*)|*.xls&
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowOpen
Text3.Text = CommonDialog1.FileName
Source = CommonDialog1.FileName
.Provider = &Microsoft.Jet.OLEDB.4.0&
.ConnectionString = &Data Source=& & Source & &;Extended Properties=Excel 8.0;&
.Execute &INSERT INTO [toolsok] IN '& & App.Path & &\toolsdemo.mdb' SELECT * FROM [Sheet1$] &
MsgBox &ok&
Private Sub Command2_Click()
On Error GoTo ErrHandler
CommonDialog1.Filter = &All Files (*.*)|*.xls&
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowOpen
Text3.Text = CommonDialog1.FileName
ErrHandler:
Private Sub Form_Load()
Set cn = CreateObject(&ADODB.Connection&)
Set rs = CreateObject(&ADODB.Recordset&)
ConStr = &Provider=Microsoft.Jet.OLEDB.4.0;& & &Data Source=& & App.Path & &\toolsdemo.Persist Security Info=False&
'------------------change
cn.Open ConStr
cn.CursorLocation = adUseClient
Select Case cn.State
Case adStateClose
statestring = &adStateClosed&
Case adStateOpen
statestring = &adStateOpen&
End Select
If statestring = &adStateClosed& Then
MsgBox &CONNECT ERROR!&, , statestring
'----------open the table------------------
rs.Open &SELECT * FROM toolsok order by 識別碼 desc&, cn, 2, 3
Set DataGrid1.DataSource = rs
Text4.Text = rs.d
DataGrid1.Refresh
Call show_excel
Private Function show_excel()
Set cn1 = New ADODB.Connection
Set rs1 = CreateObject(&ADODB.Recordset&)
Dim XLS_FILE As String
Set cn1 = CreateObject(&ADODB.Connection&)
Set rs1 = CreateObject(&ADODB.Recordset&)
cn1.Open &provider=Microsoft.Jet.OLEDB.4.0;& & &data source=& & App.Path & &/excel.& & &Extended Properties=Excel 8.0;&
rs1.Open &select * from [sheet1$]&, cn1, 3, 3
Text2.Text = rs1.RecordCount
Set MSHFlexGrid1.DataSource = rs1
MSHFlexGrid1.Refresh
End Function
VB壓縮access2003
'工程引入Microsoft Jet and Replication Objects Library
Private Sub Command1_Click()
Dim path, path1 As String
Dim FIXDB As New JRO.JetEngine
path = App.path & &\base\tmsdata.mdb&
path1 = App.path & &\base\tmsdata_tmp.mdb&
pactDatabase &Provider=Microsoft.Jet.OLEDB.4.0;Data Source=& & path, _
&Provider=Microsoft.Jet.OLEDB.4.0;Data Source=& & path1
Kill path &'刪除源文件
FileCopy path1, path &'生成壓縮後的源文件
Kill path1 & & & & & &'刪除緩存的文件
MsgBox & OK&
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：905271次
积分：10109
积分：10109
排名：第1001名
原创：64篇
转载：240篇
评论：148条
(1)(1)(1)(5)(3)(25)(10)(10)(48)(1)(1)(3)(2)(18)(10)(85)(30)(16)(3)(1)(2)(28)