vbaccess代码下载

㈠ Access VB 参考txt全集下载

Access VB 参考 txt全集小说附没则渗件已上传到网络枯脊网盘，点击免费下载：

㈡ 求一套vb+access的进销存管理软件源代码

本次毕业设计的题目是进销存管理系统，要求利用Visual Basic完成管理平台设计，构造所用的类库；使用Access数据库存储数据，限野核乱冲单机使用。 企业的物资供应管理往往是很复杂，繁琐的，由于掌握的物资种类众多，订货，管理，发放的渠道各有差异，各个企业之间的管理体制不尽相同，各类统计计划报表繁多，因此物资管理必须实现计算机化，而且颂陪掘必须根据企业的具体情况制定便提高工作效率，
下载地址
http://download.pudn.com/downloads108/doc/17869297VB-access_lib_mange.doc.rar

㈢ 求VB编程连接access数据库的源代码

'定义一个名为Db1的数据集
Public Db1 As ADODB.Connection
'初始化数据集
Set Db1 = New ADODB.Connection
'刷新初始数据
Db1.CursorLocation = adUseClient
'连接版数据库语句权
Db1.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Results.mdb;Jet OLEDB:Database Password=;"
'查询语句
RS.Open " select avg(ab) from Results where ab >= 1 and ab =< 3 , Db1, adOpenStatic, adLockOptimistic

㈣ VB关于ACCESS的程序代码

在VB菜单→过程→引用→对象库 "Microsoft ActiveX Data Objects 2.5 Library"
'定义
Private Sub Command1_Click()
Const connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
dim conn As New ADODB.Connection
dim Rs As New ADODB.Recordset
dim sql As string
conn.Open connStr & "【我的数据库路径及文件.mdb】"
sql = "SELECT * FROM 你的表单名称"
Rs.Open sql, conn, adOpenKeyset, adLockPessimistic
If Not Rs.State = adStateOpen Then '确定数据库能顺利打开后，才省略这个判断
MsgBox "数据库没有开启。检查数据库的链接是哪儿出问题！"
exit sub
End If
‘数据库能开启才会继续往下一行运行
Rs.MoveLast: Rs.MoveFirst
‘这一行只是检查Rs是不是正常运行，整体代码完成后可以移除
MsgBox "记录集总共笔数：" & Rs.RecordCount

‘ 数据库确定能正常开启了，想继续操作新增、更新、删除...都行

'开始新增一笔数据
'Rs.AddNew
'.......赋值代码
'.......赋值代码.
‘Rs.Update
'Rs.Refresh
End Sub

㈤ VB连接ACCESS数据库代码，（oledb的）要完整！

dim db as new adodb.connection
dim connstr as string
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\My Files\我的系统开发\物流数据及生产用数据提取\物流数据库.mdb;Persist Security Info=False"
db.open connstr
然后就进行相应的处理就可以了。。。
另外：
F:\My Files\我的系统开发\物流数据及生产用数据提取\物流数据库.mdb 为你的数据库存放的位置。

㈥ 医药连锁店java程序

基于asp语言的测试项目

学生信息管理系统的设计与实现

基于ASP.NET的社区人口管理系统

基于ASP.NET的课程教学网站设计

公司会议网站

C高校工资管理系统

C在线点歌系统

《数据库原理》精品课程网站设计

教师住房管理系统

《计算机网络》学习网站的设计与实现

《模式识别》精品课程网站的设计与实现

asp个人博客

asp网上书店

微型计算机学习网站的设计与实现

成绩分析系统的设计与实现

宠物管理系统

基于3G通信的视频医药系统设计

基于web的图书馆图书信息查询系统

离散数学网上教学系统

企业进销存管理系统分析与设计

人力资源管理信息系统

学生作业管理系统

社区论坛

在线课题系统

《数据库技术及应用》精品课程建设网站

职业中介信息管理系统

自来水收费管理系统

会员制漫画店(连锁)管理系统

基于CSCW的大学生就业平台

基于WEB方式的视频监控系统设计与开发

旅游网站

健康网站的设计与实现

新闻管理系统设计与实现

工会信息发布系统的设计与开发

模式识别与智能研究所网站

互联网计费系统

C毕业生信息管理就业招聘系统

体育用品在线商店系统

网站群信息管理系统

员工绩效考核系统

学生档案信息管理C

基于ASP.NET技术的动态IT培训网站的设计与实现

《软件测试技术》精品课程网站的建设与开发

网上二手房交易系统设计与实现

ASP131企业进销存管理系统

ASPC语言教学系统+论文

ASP（交友录）

asp+SQLServer网上书店系统＋论文

ASP+sql精品在线试题库设计+论文

ASP+SQL图书管理系统＋论文

<dir>asp+sql玉林旅游管理系统+论文＋答辩PPT＋开题报告＋屏幕录相

ASPAC软件信息发布系统

ASPAC学生论坛

asp办公系统

ASP毕业设计选题管理系统(asp+sql)

asp毕业生信息管理系统源码+论文+开题+文献+外文翻译

ASP产品销售

ASP窗帘网站平台

200ASP电子商务系统

ASP电子政务档案管理系统+论文

ASP服装销售系统论文+答辩PPT+源代码+翻译+开题报告漏圆盯+任务书+实习报告)

20ASP关于奥运网站专题

ASP基于WEB的办公自动化管理系统+可执行源代码+论文

ASP家教信息管理系统

asp教师档案管理系统+论文

asp教师信息管理系统

ASP教学互动系统

asp酒店房间预约系统设计

ASP客户关系管理系统ASP+SQL+可执行文件+论文

asp旅游信息管理系统

ASP企业进销存管理系统ASP+SQL+可执行文件+论文

ASP企业物流返和管理

ASP企业物流平台的设计与实现论文+源程序可执行+ASP+ACCESS数据库

ASP求职招聘网站设计(ASP)

ASP人才招聘系统

asp人力资源管理系统ASP+SQL+论文+源程序可执行

asp上网导航(论文+源码)

ASP售后服务管理系统

ASP同学录

ASP同学录asp+sql

ASP投票系统

asp图书出售图书发行系统

ASP图书管理系统

asp图书管理系统+论文＋开题＋PPT

asp图书管理系统+论文＋开题＋PPT.rar

ASP网络办公系统

ASP网络办公系统(源码加论文)

ASP网络购物系统

ASP网络硬盘文件资源管理系统(论文+代码+译

ASP网上购书

ASP网上购物系统

ASP网上考试系统

asp网上聊天室系统设计与开发带论文

ASP网上人才管理系统+可执行源代码+论文

ASP网上售房管理系统

ASP网上书店的

ASP网上贴吧系统

asp网上选课系统+论文

ASP物流系统设计

ASP物资管理系统的设计与实现+可执行源代码+数据库+论文

ASP校友录

ASP新闻管理系统

ASP新闻网程序＋论文

asp信息查询系统

ASP学生管理

ASP学生信息管理系统

ASP药店信息管理系统

asp医药连锁店管理系统ASP+源代码+可执行程序+论文

ASP影片租赁系统

asp员工信息管理系统

ASP原创交友网设计

Asp原创网上书店

ASP原创信息管理系统

ASP在线exam

ASP在线花店系统

ASP在线教育系统

asp在线考试系腔迟统+论文

asp在线学习系统

asp自动化测试工具论文.net

ASP作业提交与批改系统（毕业论文+配套中英文对照翻译+源代码+执行结果）

原创教师信息管理系统

asp.net及.net

基于.net技术的校园新闻发布系统全套

asp.netERP系统(毕业设计+论文

asp.net+sql人才网站

Asp.net2.0,C)在线考勤系统研发+论文

ASP.NET报名管理信息系统

ASP.NET电子购物商城系统＋论文

asp.net电子书城系统+论文

asp.net很好的美容院管理系统加论文

ASP.NET通用作业批改系统设计+论文

ASP.NET图书馆管理信息系统

ASP.NET网络考试系统.net

ASP.NET网上书店(源程序+论文+答辩PPT)

ASP.net校友录毕业设计＋论文

asp.net学生成绩管理系统+论文

asp.net学生管理系统

asp.net在线考试统加论文

ASP.NET智能评教系统,内含论文智能教评

asp.net中图像的检索技术毕业设计(论文,源码,任务书,开题报告,答辩ppt)

net邮件收发系统的设计+论文

VB.net+SQL房地产评估系统

vb.net酒店管理系统+论文

VB.NET网吧计费系统软件

人事管理系统+论文＋答辨PPT

复件(2)delphi列车时刻查询决策系统课程设计论文+源代码

复件delphi列车时刻查询决策系统课程设计论文+源代码

三层图书管理系统

商品销售管理系统(毕业设计)最新版下载

题库系统与试卷生成

java论坛管理系统，包括论文和程序

java图书管理系统毕业设计+源码

Java游戏设计打飞机程序＋论文

java作业管理系统

java五子棋的开发

JAVA论坛管理数据库开发

jsP+SQL计算机等级考试查询系统

jsp仓储管理系统+论文

jsp操作系统课程教学网站的设计与实现论文+源代码

jsp高校学生考勤管理系统

jsp高校智能排课系统+论文

JSP教学管理系统

JSP考试管理系统

jsp网上购书系统源代码

jsp网上书店程序＋论文

jsp网上书店系统

jsp物流中心仓储信息管理系统

jsp学生课绩管理系统+论文

JSP作业管理

教学管理系统

PHP+SQL公共课平时成绩查询系统

PHP教材管理系统+论文

PHP课程设计＋论文

SQL数据库课程设计学生选课

168VBAC房屋销售管理信息系统

dekphi贸易公司信息管理系统+论文

VBATM自动银行+论文

VB+ACCESS高校题库管理系统附原代码+程序+1万字论文

VB+Access酒店客房管理系统(源码+论文).rar(3475

VB065IC卡管理系统001

VB班级管理系统vb+access源代码+可执行程序+论文+开题报告+外文翻译+答辩ppt

VB本科毕业论文-工资管理系统毕业论文+源码

vb仓库管理系统（包括可执行程序源码开题报告答辩稿）

VB超市管理系统+论文

vb超市管理系统+论文

vb超市进销存管理系统vb+access源代码+可执行文件+论文+开题报稿+外文翻译+答辩ppt.rar(768

vb车辆管理系统vb+access源代码+可执行程序+论文+开题报告+外文翻译+答辩ppt

vb地籍登记管理系统vb+access源代码+论文+开题报告+外文翻译+答辩ppt

vb电表管理系统vb+access源代码+可执行程序+论文

VB俄罗斯方块系统＋论文

VB俄罗斯方块游戏课程设计

vb高速公路票据管理系统vb+access源代码+可执行文件+论文+开题报告+外文翻译+答辩ppt

VB工资管理系统

VB工资管理系统（论文＋开题报告＋源代码）

VB工资管理系统vb+access源代码+可执行程序+论文+开题报告+外文翻译+答辩ppt

vb公交车查询系统vb+access源代码+可执行程序+论文+开题报告+外文翻译+答辩ppt

VB计算机自动出卷系统vb版（含开题报告＋外文翻译＋源程序＋可执行程序＋论文正文＋答辩ppt）

VB教师管理系统vb+access含源代码+可执行程序+论文+开题报告+外文翻译+答辩稿

vb教师管理系统vb+access含源代码+可执行程序+论文+开题报告+外文翻译+答辩稿(2)

VB教务管理系统vb+access源代码+论文+开题报告+外文翻译+答辩ppt

vb教学辅助系统VB+access源代码+可执行文件+论文

VB客房管理系统全套(带源码)

vb课程设计医药管理系统（VB+SQL)应要求源文件＋代码＋论文打包上传

vb库存管理系统（论文＋开题报告＋源代码）

VB库存管理系统2（论文＋开题报告＋源代码）

VB评语管理系统vb+access源代码+可执行程序+论文+开题报告+外文翻译+答辩ppt

vb企业人事工资管理系统+论文

vb企业人事管理系统

vb企业人事管理信息系统+论文

VB人才管理系统

vb人事工资管理系统毕业设计（论文）

VB人事管理系统

vb人事管理系统（VB毕设成品）毕业论文

VB人事管理系统sql＋论文

vb人事管理源程序+论文

vb人事资源管理系统+论文

vb设备管理系统+论文

vb试题库自动组卷系统

vb题库管理系统+论文

vb通讯录管理信息系统vb+access源代码+可执行程序+论文+开题报告+外文翻译

vb图书馆管理系统＋论文

vb图书管理系统

vb图书管理系统(文档+源代码)

vb图书管理系统vb+access版论文+源代码+开题报告+外文翻译+答辩ppt

vb图书管理系统源代码论文

vb图书销售信息系统+论文

VB文档管理系统+论文

vb小区物业管理系统

vb校园网交换机节点管理系统＋论文

vb学籍管理系统带论文

VB学生档案

vb学生档案管理系统

vb学生档案管理系统+论文

VB学生公寓管理系统

vb学生评语生成系统论文

VB学生信息管理系统

vb学生信息管理系统(VB+sql)+毕业论文2万字

vb学生信息管理系统(代码+论文+开题报告)

vb药品库房管理系统vb+access源代码+可执行程序+论文+开题报告+外文翻译+答辩ppt

vb一个考试管理系统。带论文的

VB医药管理系统

vb音像制品出租及销售管理系统

VB员工管理系统

VB原创库存管理系统开题报告+外文翻译+论文正文+源代码+可执行程序

vb原创图书管理系统)毕业设计+论文

vb源代码加可执行文件加论文

vb智能排课系统+论文

vb中介管理系统vb+access源代码+论文+开题报告+外文翻译+答辩ppt

学生宿舍管理系统

VC++

C++003指纹识别系统

C++课程设计报告(人事管理系统)

VC++003指纹识别系统

VC++06全国天气信息管理系统

vc++24点游戏的开发和实现

VC++车辆调度

vc++航空检票系统+论文

vc++航空客运订票系统+论文

VC++基于校园网的学院教学质量监测评估系统

vc++简单几何图形的识别和编辑系统＋论文

VC++经济管理出版社期刊书目信息管理系统

vc++局域网的数据包监听及数据分析毕业论文+源代码

VC++开发GIS项目程序＋论文

vc++可视化图像处理系统+论文

vc++库存管理

vc++图书馆管理系统

vc++网上寻呼QICQ源代码（附带论文）

vc++象棋程序+论文

VC++学生成绩统计分析系统

vc++医药管理系统+论文

vc++用遗传算法解决车辆优化调度问题论文+源代码+任务书

vc++运动会成绩管理系统（源码+论文）

VC+ACCESS开发的酒店管理+论文

vc数据挖掘在客户关系管理中的

vc中国象棋软件（程序+源码+论文）下载

VC做的聊天室＋论文

浏览器（论文+源码）

一个VC++做的手机话费参考程序，有设计报告

vfp现代物流企业管理系统+论文

vfp现代物流企业管理系统＋论文

VF财务管理系统（论文＋开题报告＋源代码＋答辩PPT）

vf仓库管理系统（论文+源文件）

VF地税局工资管理系统（论文＋开题报告＋答辩PPT＋源代码＋程序清单）

vf简单的酒店管理源码+文论

VF教职工信息管理毕业设计

vf教职工信息管理毕业设计+论文

vf路政管理系统（论文＋开题报告＋答辩PPT＋源代码＋程序清单）

VF企业人事档案管理系统全套(带源码)

vf图书管理系统（VFP）(包括程序文档)

VF系统的学生成绩管理系统+论文

vf职员信息系统+论文

vf做的学生管理系统+论文

ASP+ACCESS深水蓝文学网站

ASP+ACCESS文学网站

ASP+SQL美食网站

ASP人才招聘系统

delphi书店辅助进书系统

JSP028学生学籍管理系统

JSP科研处管理信息系统+论文

JSP学生学籍管理系统

JSP在线学习系统

my美食网站

php+mysql学生成绩查询

PHP学生成绩查询

vb数控加工技术教学素材资源库的构建

VB文档管理系统+论文

百瑞通公司网站

报名系统

多媒体课程答疑系统

高校固定资产管理系统

公司办公信息管理系统

恒华贸易有限公司网站

基于局域网的聊天室系统

科研项目网上申报管理系统

两个网站

企业电子投票系统

人才网内容管理系统

商品配送中心库存仿真软件设计

社区网络（含在线影院）

施甸县旅游咨询网

同校二手电子产品交易网

外观专利图像检索平台

网络实验教学网站

网上教学资源共享系统

小区门户网站

学科建设

学科建设系统

医疗器械公司网站客户服务系统设计

政府采购管理信息系统

中国节能环保科技网站

计算机论文

ASP动态网站建设论文.doc

java网络5子棋代码.doc

工商管理毕业论文

基于Web的网上评教系统.doc

计算机局域网组建与互连毕业设计论文.doc

嵌入式系统开发要素的选择分析.doc

嵌入式系统在多点温度控制中的应用.doc

校园网络工程综合布线方案

人事管理系统

现代物流企业管理系统

企业数据信息管理系统

航空公司管理系统

成本费用计算系统

VCD租借管理系统

毕业生招聘信息的发布与管理系统

宾馆客房管理系统

《计算机专业英语》网上教学系统设计与实现

《软件工程》精品课程教学网站的设计与实现ASP+SQLSever2000

《数据库原理及应用技术》课程指导平台的开发

《新闻发布系统》

《信息论与编码》在线考试系统

3G的AKA协议中F1至F5的UE端的实现

3G的AKA协议中F1至F5的服务网络端实现

ASP.NET技术在网站开发设计中的研究与开发ASP.NET+SQLSever2000

BBS系统开发与帐户安全保护的实现

BS结构的城市酒店入住信息管理系统的设计

BS结构下的OA流程可视化的研究与实现

BS结构下的邮件系统设计开发

BS模式的计算机等级考试管理系统的设计与实现ASP.NET+SQLSever2000

C语言教学网站及网上考试系统的设计与实现ASP.NET+SQLSever2000

C语言试题生成与考试系统

Delaunay算法的实现与应用

Excel条件格式化工具的设计与实现

FTP客户端的设计与实现

FTP客户端设计与开发

多种排序算法动态演示软件的设计和开发

基于JSP学生成绩管理系统软件的开发

清除履历表、日志表、月购买额

多语种视频音频播放器的设计与实现

创建会员信息文件

Win32平台下的PE文件病毒的研究及实现

一种多商家网络商店的设计与实现

权限管理模块

积分添加和通票回收

网上选课系统的设计与实现

泡泡堂网络游戏的设计与实现

权限及公共模块设计与开发

某企业信息管理系统的设计与实现

H2003032045程富超_一种远程管理Linux系统工具的设计与实现

多语种网络硬盘系统的设计

系统框架设计与开发

小型证券术语解释及翻译系统的设计与开发

权限管理与日志记录模块的设计与开发

考试管理及成绩查询模块的设计与开发

OA子系统的设计与开发

题库及试卷管理模块的设计与开发

考试监控及阅卷模块的设计与开发

某店积分更新记录管理

教务平台—学籍管理模块开发与设计

H2003032197王蕾-基于Java的两个通用安全模块的设计与实现

销售情况，会员卡再发行数据生成

教务信息管理系统的设计与实现

高校学生宿舍管理系统的设计与实现

网络商店销售管理系统的设计与实现

商品分类，交易状况统计

IA32逻辑功能仿真实现

Iptables图形管理工具的设计与实现

Ipv6环境下FTP系统的设计与实现Java+SQLServer2000

IT产品网上物流管理信息系统的设计与实现

J2ME手机游戏的开发-BeckhamGoal

Java打飞机游戏设计

Java多线程与线程安全实践-基于ri算法的关联规则挖掘系统的设计与实现

基于ASP.NET的班级风采网站的设计

基于ASP.NET的公司网站的设计与实现

基于ASP.NET的企业网站的研究与开发ASP.NET+SQLSever2000

基于ASP.NET的网上书店的设计与实现ASP.NET+SQLSever2000

基于ASP.NET的校友录管理系统的研究与实现ASP.NET+SQLSever2000

基于ASP.NET的学生成绩报表系统的设计与实现ASP.NET+SQLSever2000

基于ASP.NET的学生成绩管理系统的设计与实现ASP.NET+SQLSever2000

基于ASP.NET的学生成绩合成系统的设计与实现ASP.NET+SQLSever2000

基于ASP.NET简易博客网站的设计与实现

基于ASP.NET教学辅助系统设计与实现

基于ASP的笔记本销售网站的设计与实现

基于ASP的博客网站设计与实现ASP+Access

基于ASP的反垃圾邮件管理系统的设计

基于ASP的房屋租售信息管理系统的设计

基于ASP的公交查询系统的设计与实现

基于ASP的淮工学生购物网的设计与实现ASP+SQLSever2000

基于ASP的旅游网站的设计与实现

基于ASP的某学校校园BBS的设计与实现

基于ASP的企业人事管理系统的设计与实现

基于asp的搜索引擎开发

基于ASP的网络聊天室的设计和实

㈦ 求VB登陆窗口连接ACCESS数据库的代码

1、DimobjCnAsNewConnection,objRsAsNewRecordset

objCn.ConnectionString="Provider=Microsoft.Jet.OLEDB.3.51;"&"DataSource="&App.Path&objCn.Open

2、dimobjCnAsConnection

SetobjCn=NewConnection

objCn.Open“DSN=实例2DSN”

3、ADOData控件创建连接

(7)vbaccess代码下载扩展阅读

ACCESS数据库特性

1、access有强大的数据处理、统计分析能力专，利用access的查询属功能，可以方便地进行各类汇总、平均等统计。并可灵活设置统计的条件。

2、access用来开发软件，比如生产管理、销售管理、库存管理等各类企业管理软件，其最大的优点是：易学，非计算机专业的人员，也能学会。

3、在开发一些小型网站WEB应用程序时，用来存储数据。例如ASP+Access。这些应用程序都利用ASP技术在InternetInformationServices运行．比较复杂的WEB应用程序则使用PHP/MySQL或者ASP/MicrosoftSQLServer。

㈧ 求vb +access用户管理窗体代码

我有原程序！这个是模兄代码：
Option Explicit

Private Sub Command1_Click(Index As Integer)
Dim i As Integer
Select Case Index
Case Is = 0
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst
Case Is = 1
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast
Case Is = 2
Adodc1.Recordset.MoveFirst
Case Is = 3
Adodc1.Recordset.MoveLast
Case Is = 4
If Command1(4).Caption = "保存" Then
Adodc1.Recordset.MoveLast
For i = 0 To 6
Adodc1.Recordset.Fields(i) = Text1(i).Text
Adodc1.Recordset.Update
Next i
Adodc1.Refresh
Command1(4).Caption = "添加码芹"
For i = 0 To 6
Command1(i).Enabled = True
Next i
Command1(5).Enabled = False
Adodc1.Refresh
Adodc1.Recordset.MoveLast
Adodc1.Recordset.Update
Else
Adodc1.Recordset.AddNew
Command1(4).Caption = "保存"
For i = 0 To 3
Command1(i).Enabled = False
Next i
Command1(6).Enabled = False
Command1(5).Enabled = True
For i = 0 To 6
Text1(i).Text = ""
Next i
End If
Case Is = 5
Command1(4).Caption = "添加"
For i = 0 To 6
Command1(i).Enabled = True
Next i
Command1(5).Enabled = False
Adodc1.Refresh
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Update
Case Is = 6
End
End Select
End Sub

Private Sub Form_Load()
Dim i As Integer
Command1(5).Enabled = False
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\迟码毕xsgl.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from xsda"
For i = 0 To 6
Set Text1(i).DataSource = Adodc1
Next i
Text1(0).DataField = "xh"
Text1(1).DataField = "xm"
Text1(2).DataField = "xb"
Text1(3).DataField = "csrq"
Text1(4).DataField = "jg"
Text1(5).DataField = "jtdz"
Text1(6).DataField = "rxcj"
Adodc1.Refresh
End Sub

Private Sub 查询_Click()
Form2.Show vbModal
End Sub
如果你要原程序还有代码的话可以加我QQ：921553017

㈨ 求VB用上传下载FTP，直接读写ACCESS的代码

我使用的是 局域网方式 因为互联网不安全 用的是局域网方式 "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\jswnd-Server\DATA\suopei.mdb;Persist Security Info=False" 没有密码的数据库 如果你是在互联网上的话 用ftp会好一点的 在网络碧兆棚上的话 ftp登陆不知道会不会设置帐号和密码 那样的话 就要改一改代码了

我用的是局域网共猜亮享的方式 直接修改 不需要下载 而且可以多客户端悔则同时登陆
ftp也可以直接修改数据库的 只不过要在连接的代码中加入 ftp的登陆账户 和密码才能访问

㈩ 怎么用VB读Access数据库，给点代码

你一个示例,这个是用户登录系统
'准备工作: 数据库 D:\Mydb.mdb 数据库中,建数据表:UserInfo,数据表中,建字段:User,Password,并添加一条记录
'点工程->引用 选中 Microsoft Activex Data Objects 2.1 Library
'控件:添加一个文本框,一个命令按钮

Private Sub Command1_Click()
Dim s As String
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mydb.mdb"
'请前弯将数据库名及路径换成你的实际数据库名及路径
Dim UserName As String
Dim Password As String

s = Text1.Text
If s = "1" Or s = "2" Then
UserName = InputBox("请输入用户名")
Password = InputBox("请输入用户密码")
sql = "Select * From [UserInfo] where User='" & UserName & "'"
'UserInfo请换成你孙判的实际数据表名

Rs.Open sql, Conn, 1, 3
If Rs.EOF Then
MsgBox "没有找到此用户"
Else
If Rs("Password") = Password Then
If s = "1" Then
MsgBox "123"
ElseIf s = "2" Then
MsgBox "456"
End If
Else
MsgBox "密码错误"
End If
End If
End If
End Sub
上面的例子实现了查询
如果是要添加,删除,更新等操作,只要编写相应的SQL语句,再用
Conn.Execute SQL 就可以了,如:
添加的:
SQL="Insert Into [UserInfo](User,Password) Values('aaaa','1234')"
Conn.Execute SQL '执行后,就添加了一条记录
删除:
SQL="Delete From [UserInfo] Where User='aaaa'"
Conn.Execute SQL '删除用户名为aaaa的用户记录
更新:
SQL="Update [UserInfo] Set Password='abcdefg' Where User='aaaa'"
Conn.Execute SQL '执行后,修改用户aaaa的密码为abcdefg
以上只是示例,在实际使用过程中,可以将一些内容用控件输入等方式进行,这样就有很大的灵活性了

动态创建数据库

引用 microsoft DAP 3.6 Object Library
Dim myDB As DAO.Database
Set myDB = CreateDatabase(App.Path + "\111.mdb", dbLangGeneral) '如果不存在数据库
Set myDB = OpenDatabase(App.Path + "\111.mdb") '如果存在数据库
Dim str_SQL As String
str_SQL = "Create Table NewTable1(Field1 Text(10),Field2 Short)"
myDB.Execute str_SQL
str_SQL = "Create Table NewTable2(Field1 Text(10),Field2 Short)"
myDB.Execute str_SQL
myDB.Close

向已经建好的数据库中添加记录
建立数据库a，表名字b,字段c，文本格式,在窗体上画一command ,画一个文本框，这个代码就是将文本内容写入数据库

要先引则悔改用microsoft activeX data object 2.5 library
代码如下：

Private Sub Command1_Click()
Dim cnDk As New ADODB.Connection
Dim strDk As String
Dim rDk As New ADODB.Recordset
Dim sql As String

strDk = "DBQ=" & App.Path & "\a.mdb;Driver=;"
cnDk.Open strDk
sql = "insert into b (c) values ('" & text1.text& "')"
cnDk.Execute sql
cnDk.Close
Set cnDk = Nothing
End Sub

在数据库中添加多条记录

只要可以进行输入文本的都可以
改一下这些吧，你单击一次就提示输入一次，输完了自动保存
改后
Data1.Recordset.AddNew
Data1.Recordset.Fields("username") = trim(inputbox("请输入名字"))
Data1.Recordset("password") =val(trim(inputbox("请输入电话")))
Data1.UpdateRecord
——————————————————————————————
Data1.Recordset.AddNew
Data1.Recordset.Fields("username") = "张三|"
Data1.Recordset("password") = "fsdfsd"
Data1.UpdateRecord
Data1.Recordset.AddNew
Data1.Recordset.Fields("username") = "李四|"
Data1.Recordset("password") = "fsdf432d"
Data1.UpdateRecord
Data1.Recordset.AddNew
Data1.Recordset.Fields("username") = "王五|"
Data1.Recordset("password") = "f42342d"
Data1.UpdateRecord
MsgBox "adad"

========================================================================================
vb+access 数据库的记录的添加与删除
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Command2_Click()
Set rs = cn.Execute("select * from wenzhang where 内容='" & Text1.Text & "'")
If Text1.Text = "" Then
MsgBox ("文章不能为空！")
ElseIf rs.EOF = False Then
MsgBox ("文章不能重复！")
Else
cn.Execute ("insert into wenzhang values('" & Combo1.Text & "','" & Text3.Text & "','" & Text4.Text & "','" &

Text1.Text & "')")
MsgBox ("ok")
End If
End Sub
'添加按钮
Private Sub Command3_Click()
Dim myval As String
Set rs = cn.Execute("select * from wenzhang where 内容='" & Text1.Text & "'")
If rs.EOF Then
myval = MsgBox("是否保存文章？", vbInformation + vbYesNoCancel, "提示")
If myval = vbYes Then
cn.Execute ("insert into wenzhang values('" & Combo1.Text & "','" & Text3.Text & "','" & Text4.Text & "','" &

Text1.Text & "')")
MsgBox ("保存成功")
Else
Combo1.Text = ""
End If
Else
Text1.Text = ""
Combo1.Text = ""
End If
End Sub
'删除按钮
Private Sub Command4_Click()
If Text1.Text = "" Then
MsgBox ("不能删除空记录！")
Else
Dim myval As String
myval = MsgBox("是否删除文章？", vbInformation + vbYesNo, "提示")
If myval = vbYes Then
Set rs = cn.Execute("delete from wenzhang where 内容 ='" & Text1.Text & "'")
MsgBox ("删除成功！")
End If
End If
End Sub
'连接数据库
Private Sub Form_Load()
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\vb.net\temp.mdb;Persist Security Info=False"
cn.CursorLocation = adUseClient
cn.Open
End Sub