vb 通过复制文件达到新建access数据库问题

我是新手做毕业设计 麻烦大神指点下啊

 Private Sub new_Click()
        On Error GoTo Cancel
        Dim FileName As String
        Dim FileSystemObject As Object
        CommonDialog1.Filter = "microsoft access 数据库(*.mdb)|*.mdb"
        CommonDialog1.Action=2
        Set FileSystemObject = CreateObject("Scripting.FileSystemObject")
        FileSystemObject.CopyFile "C:\Users\admin\Desktop\tycs.mdb", " & CommonDialog1.FileName "        
Cancel:
End Sub

copyfile那句好像有问题 希望复制到commondialog的路径下并且保存文件名为commondialog中输入的文件名,格式为.mdb(ACCESS).上面那句写完保存格式为
图片说明
只是新建的文件 很有问题 不知道哪里出错了,,麻烦大神指点下。

1个回答

    FileSystemObject.CopyFile "C:\Users\admin\Desktop\tycs.mdb", CommonDialog1.FileName
Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
其他相关推荐
VB读取ACCESS数据库问题

我想读取D盘的“DB1”数据库里“S1”中“LH”列的最后一个数据的,放到TEXT1中,表的ID是自增的,请问怎么写代码?

vs2008(VB)中使用ado访问access数据库

我是个初学者, 想设计一个考试系统。 哪位大师教我,在vs2008中使用ado访问access数据库的简单例子,实现查询、删除、添加、更新功能的? 感谢 哪位大师给我代码。QQ:1759596907

vb 连接access数据库路径问题

‘==================通过复制新建了个access数据库其中text.text放着CommonDialog1.FileName Private Sub new_Click() On Error GoTo Cancel Dim FileName As String Dim FileSystemObject As Object CommonDialog1.Filter = "microsoft access 数据库(*.mdb)|*.mdb" CommonDialog1.Action = 2 Text1.Text = CommonDialog1.FileName Set FileSystemObject = CreateObject("Scripting.FileSystemObject") FileSystemObject.CopyFile "C:\Users\admin\Desktop\tycs.mdb", Text1.Text Cancel: End Sub‘’‘查看已有该文件 ’===============在连接数据库时 Dim cnn As New ADODB.Connection Dim rs As New ADODB.Recordset cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = Text1.Text" rs.Open "select * from YJCS", cnn, adOpenKeyset, adLockOptimistic 系统显示没有该路径 ![图片说明](https://img-ask.csdn.net/upload/201505/28/1432785148_674281.png)

vb.net中怎么把datagrdview中的数据导出成excel文档 ACCESS数据库求源代码!

vb.net中怎么把datagrdview中的数据导出成excel文档 用的是ACCESS数据库 一下是我写的代码,发生了一些问题,请大神们看看,帮忙修改一下。 这是导出按钮的单击事件 ''要先添加引用才能使用下列语句Microsoft.Office.Interop.Excel.Application() 'Dim myExcel As New Microsoft.Office.Interop.Access() 'myExcel.Application.Workbooks.Add(True) 'myExcel.Visible = True ''去除datagridview1的编号列 'Dim m As Integer 'For m = 0 To GridView1.ColumnCount - 1 ' myExcel.Cells(1, m + 1) = Me.GridView1.Columns(m).HeaderText 'Next m ''往excel表里添加数据 'Dim i As Integer 'For i = 0 To GridView1.RowCount - 1 ' Dim j As Integer ' For j = 0 To GridView1.ColumnCount - 1 ' If Me.GridView1(j, i).Value Is System.DBNull.Value Then ' myExcel.Cells(i + 2, j + 1) = "" ' Else ' myExcel.Cells(i + 2, j + 1) = GridView1(j, i).Value.ToString ' End If ' Next (j) 'Next (i)

如何在vb中引用access数据库中的窗体

如何在vb中引用access数据库中的窗体 我在vb。net中不知道怎么链接access,我打开那个数据库连接也只能连到表格,连不到窗体,我想连接窗体。大概就是实现在vb.net中按下一个bottom可以弹出access中我已经做好的一个窗体。请告诉我具体的步骤及代码。是期末作业,请各位大神帮忙啊!!!

VB连接access连接失败

本人纯小白,毕业设计做汽车租赁系统,用access2013做数据库,然后在用vb进行调用的时候,格式出现不兼容,将表格转换回02-03的mdb后,用data调用文件依旧出现识别不出来的问题,同时用adodc的时候,数据源添加进去了,但是列中依旧显示不出来数据,个人理解是源文件的问题,希望大神能帮帮忙![图片说明](https://img-ask.csdn.net/upload/201705/12/1494591554_698414.png)![图片说明](https://img-ask.csdn.net/upload/201705/12/1494591561_133788.png)

VB.NET中向access数据库中添加数据,,,为什么总是添加失败?

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try Dim myConn As OleDbConnection = New OleDbConnection() myConn.ConnectionString = ConnString myConn.Open() Dim strInsert As String = "insert into Table1 (时间,温度,入射功率,反射功率 ) values('" + Label1.Text + "','" + Label2.Text + "','" + Label3.Text + "','" + Label4.Text + "')" Dim cmdInsert As OleDbCommand = New OleDbCommand(strInsert, myConn) cmdInsert.ExecuteNonQuery() MsgBox("添加成功!") Catch ex As Exception MsgBox("添加失败") End Try End Sub End Class

求助 VB 数据库 模糊查询access

请问VB要怎样实现模糊查询access数据库内容呢? 求解答,我的邮箱是644804296@qq.com 我希望的效果是,在VB界面输入查询关键词,关键词是用户名中的任意一个或者多个字符, 例如关键词是a,那么查询结果显示在list1的就应该是,abc、abcdefg、eafg,3个用户名。 例如关键词是c,那么查询结果显示在list1的就应该是,abc、cde、abcdefg,3个用户名。 但是我根据网上教程编写的下面的程序没有实现,请大家帮忙解答,谢谢。 用户名 密码 abc 12345 cde 23456 abcdefg 6661 eafg 13 hijk 15178 ![图片说明](https://img-ask.csdn.net/upload/201601/12/1452590255_420938.png) ![图片说明](https://img-ask.csdn.net/upload/201601/12/1452590263_981281.png) ![图片说明](https://img-ask.csdn.net/upload/201601/12/1452590275_513169.png) ![图片说明](https://img-ask.csdn.net/upload/201601/12/1452590283_10517.png) 我输入a,然后查询的结果是eafg 1个而已,应该有3个才对 Dim cnn As ADODB.Connection Dim rec As New ADODB.Recordset Private Sub Command_Chaxun_Click() List1.Clear List2.Clear Set cnn = New ADODB.Connection cnn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = D:\数据库.mdb;Jet OLEDB:Database Password= greekf;Persist Security Info =false" rec.Open "SELECT * FROM UserTable WHERE 用户名 LIKE '%" & Text_Chaxun.Text & "%'", cnn, adOpenKeyset, adLockOptimistic Do Until rec.EOF = True List1.AddItem rec.Fields("用户名").Value List2.AddItem rec.Fields("密码").Value rec.MoveNext Loop cnn.Close End Sub

如何从一数据库的表数据复制到另一数据库表中,数据库是access

从一个A.mdb的表ta复制字段卫d1,到2到另一个b.mdb的表tb的字段d3,d4中

VB处理access数据库的问题,关于筛选值的问题

具体举例:CN 字段1 字段2 字段3…… 1 2.33 0 3.54…… …… 想通过VB编程来实现每一个CN对应的字段1、字段2……的值提取最大的前三个,并且保留在原来的位置,其他数据清零,自己编程总是不对,求大神指点该如何实现,谢谢。

求vb登陆界面源代码,数据库是用access

登陆界面两个文本框分别输入账号密码,一个登陆按钮和一个取消按钮,怎样实现啊,求大神?

服务中连接Access数据库提示Microsoft Jet 数据库引擎打不开文件

服务中连接Access数据库提示Microsoft Jet 数据库引擎打不开文件'\\192.16.22.123\DBAccess\dbse1.mdb'。 它已经被别的用户以独占方式打开,或没有查看数据的权限。 在winform程序中可以打开并访问数据,部署成服务后,提示该错误。

c1chart控件绑定 access 数据库

我在做一个项目,用到了c1chart这个控件,在一个图上画出3条折线,现在的问题是一条折线的数据我可以从数据库读取,可是3条折线的数据怎样读呢,1条折线的数据对应1天,

vb如何连接sql数据库?用代码

环境是server2003,sql为2008r2,VB连接数据库,用代码连接

VB2010,textbox绑定access

各位老师: VB2010,ACCESS数据库已连接,有一个TEXTBOX1,绑定数据库成功 TextBox1.DataBindings.Add("text", Dst.Tables("gszlb"), "公司名") ‘DST是dataset,gszlb是表名,公司名是字段。 也能显示数据内容。 但怎么做到修乐TEXTBOX1的值,数据库中的数据也跟着修改?比如这边一按Button1,数据库就更新啦。 请好心人赐教!

如何用Access数据库存储图片然后又可以读出来

我用c#创建一个窗口后,设置了一个按钮,想要用这个按钮实现把图片(大量的图片)用流的形式存储到Access数据库里的表里,然后再设置一个按钮,可以把数据库里的图片读取到窗体上

visual studio连接access数据库,如何使用模糊查询语句。

visual studio连接access数据库,如何使用模糊查询语句,要模糊查询出与textbox中输入值匹配的结果。报错的sql语句如下: sql1 = "select * from table where position like '*" + v_position + "*' order by id"; 请指正。

vb.net bindingsource 绑定ACCESS数据源不能更新数据问题

求各位大神给看一下~~ vb.net 绑定ACCESS数据库用到的控件是bindingnavigator、bindingsource、datagridview bindingnavigator用于点击删除增加保存按钮 bindingsource用于绑定数据源 datagridview用于显示数据表 程序代码如下: Imports System.Data.OleDb Public Class Frm Private Adapter As New OleDbDataAdapter Private Table As New DataTable Private Sub Frm_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Table.Clear() Dim conn As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &DBPath) Dim builder As OleDbCommandBuilder = New OleDbCommandBuilder(Adapter) Dim cmd As OleDbCommand = New OleDbCommand("Select * From 表", conn) Adapter.SelectCommand = cmd Adapter.Fill(Table) datagridview.AutoGenerateColumns = False bindingsource.DataSource = Table datagridview.DataSource = bindingsource bindingnavigator.BindingSource =bindingsource End Sub 以上可以成功绑定并显示数据表 bindingnavigator控件进行了绑定,所以可以直接点击上面的删除增加等按钮,删除某一行数据后点击下面保存是没问题的,数据库里面也确实删除了,但是进行修改或者增存一行数据后点击下面保存,数据库没有能更新数据,为什么能删除确不能修改和增加,不太清楚怎么回事了,哪位大神给解答一下,谢谢~~ Private Sub SaveChange_Click(sender As System.Object, e As System.EventArgs) Handles SaveChange.Click Adapter.Update(Table) datagridview.Refresh() End Sub End Class

vb通过adodb连接db2数据库

我是第一次接触vb和db2数据库,哪位大佬帮忙改下代码吧 代码是 Dim constr As String Dim sqlsr As String Dim conn As New ADODB.Connection constr = "Provider=IBMDADB2;Database=SAMPLE; Hostname=myServerAddress; Protocol=TCPIP;Port=50000; Uid=Administrator;Pwd=; " Dim rs As New ADODB.Recordset conn.Open(constr) sqlsr = "SELECT DATE FEOM AA WHERE NUMBER=2" rs = conn.Execute(sqlsr) conn.Colse conn = Nothing 一运行就报错System.Runtime.InteropServices.COMException:“未找到提供程序。该程序可能未正确安装。” 而且注册ibm.data.db2.dll不成功一直报错! ![图片说明](https://img-ask.csdn.net/upload/201811/20/1542703185_278343.jpeg)

在中国程序员是青春饭吗?

今年,我也32了 ,为了不给大家误导,咨询了猎头、圈内好友,以及年过35岁的几位老程序员……舍了老脸去揭人家伤疤……希望能给大家以帮助,记得帮我点赞哦。 目录: 你以为的人生 一次又一次的伤害 猎头界的真相 如何应对互联网行业的「中年危机」 一、你以为的人生 刚入行时,拿着傲人的工资,想着好好干,以为我们的人生是这样的: 等真到了那一天,你会发现,你的人生很可能是这样的: ...

程序员请照顾好自己,周末病魔差点一套带走我。

程序员在一个周末的时间,得了重病,差点当场去世,还好及时挽救回来了。

和黑客斗争的 6 天!

互联网公司工作,很难避免不和黑客们打交道,我呆过的两家互联网公司,几乎每月每天每分钟都有黑客在公司网站上扫描。有的是寻找 Sql 注入的缺口,有的是寻找线上服务器可能存在的漏洞,大部分都...

点沙成金:英特尔芯片制造全过程揭密

“亚马逊丛林里的蝴蝶扇动几下翅膀就可能引起两周后美国德州的一次飓风……” 这句人人皆知的话最初用来描述非线性系统中微小参数的变化所引起的系统极大变化。 而在更长的时间尺度内,我们所生活的这个世界就是这样一个异常复杂的非线性系统…… 水泥、穹顶、透视——关于时间与技艺的蝴蝶效应 公元前3000年,古埃及人将尼罗河中挖出的泥浆与纳特龙盐湖中的矿物盐混合,再掺入煅烧石灰石制成的石灰,由此得来了人...

上班一个月,后悔当初着急入职的选择了

最近有个老铁,告诉我说,上班一个月,后悔当初着急入职现在公司了。他之前在美图做手机研发,今年美图那边今年也有一波组织优化调整,他是其中一个,在协商离职后,当时捉急找工作上班,因为有房贷供着,不能没有收入来源。所以匆忙选了一家公司,实际上是一个大型外包公司,主要派遣给其他手机厂商做外包项目。**当时承诺待遇还不错,所以就立马入职去上班了。但是后面入职后,发现薪酬待遇这块并不是HR所说那样,那个HR自...

女程序员,为什么比男程序员少???

昨天看到一档综艺节目,讨论了两个话题:(1)中国学生的数学成绩,平均下来看,会比国外好?为什么?(2)男生的数学成绩,平均下来看,会比女生好?为什么?同时,我又联想到了一个技术圈经常讨...

副业收入是我做程序媛的3倍,工作外的B面人生是怎样的?

提到“程序员”,多数人脑海里首先想到的大约是:为人木讷、薪水超高、工作枯燥…… 然而,当离开工作岗位,撕去层层标签,脱下“程序员”这身外套,有的人生动又有趣,马上展现出了完全不同的A/B面人生! 不论是简单的爱好,还是正经的副业,他们都干得同样出色。偶尔,还能和程序员的特质结合,产生奇妙的“化学反应”。 @Charlotte:平日素颜示人,周末美妆博主 大家都以为程序媛也个个不修边幅,但我们也许...

如果你是老板,你会不会踢了这样的员工?

有个好朋友ZS,是技术总监,昨天问我:“有一个老下属,跟了我很多年,做事勤勤恳恳,主动性也很好。但随着公司的发展,他的进步速度,跟不上团队的步伐了,有点...

我入职阿里后,才知道原来简历这么写

私下里,有不少读者问我:“二哥,如何才能写出一份专业的技术简历呢?我总感觉自己写的简历太烂了,所以投了无数份,都石沉大海了。”说实话,我自己好多年没有写过简历了,但我认识的一个同行,他在阿里,给我说了一些他当年写简历的方法论,我感觉太牛逼了,实在是忍不住,就分享了出来,希望能够帮助到你。 01、简历的本质 作为简历的撰写者,你必须要搞清楚一点,简历的本质是什么,它就是为了来销售你的价值主张的。往深...

外包程序员的幸福生活

今天给你们讲述一个外包程序员的幸福生活。男主是Z哥,不是在外包公司上班的那种,是一名自由职业者,接外包项目自己干。接下来讲的都是真人真事。 先给大家介绍一下男主,Z哥,老程序员,是我十多年前的老同事,技术大牛,当过CTO,也创过业。因为我俩都爱好喝酒、踢球,再加上住的距离不算远,所以一直也断断续续的联系着,我对Z哥的状况也有大概了解。 Z哥几年前创业失败,后来他开始干起了外包,利用自己的技术能...

C++11:一些微小的变化(新的数据类型、template表达式内的空格、nullptr、std::nullptr_t)

本文介绍一些C++的两个新特性,它们虽然微小,但对你的编程十分重要 一、Template表达式内的空格 C++11标准之前建议在“在两个template表达式的闭符之间放一个空格”的要求已经过时了 例如: vector<list<int> >; //C++11之前 vector<list<int>>; //C++11 二、nullptr ...

优雅的替换if-else语句

场景 日常开发,if-else语句写的不少吧??当逻辑分支非常多的时候,if-else套了一层又一层,虽然业务功能倒是实现了,但是看起来是真的很不优雅,尤其是对于我这种有强迫症的程序"猿",看到这么多if-else,脑袋瓜子就嗡嗡的,总想着解锁新姿势:干掉过多的if-else!!!本文将介绍三板斧手段: 优先判断条件,条件不满足的,逻辑及时中断返回; 采用策略模式+工厂模式; 结合注解,锦...

深入剖析Springboot启动原理的底层源码,再也不怕面试官问了!

大家现在应该都对Springboot很熟悉,但是你对他的启动原理了解吗?

离职半年了,老东家又发 offer,回不回?

有小伙伴问松哥这个问题,他在上海某公司,在离职了几个月后,前公司的领导联系到他,希望他能够返聘回去,他很纠结要不要回去? 俗话说好马不吃回头草,但是这个小伙伴既然感到纠结了,我觉得至少说明了两个问题:1.曾经的公司还不错;2.现在的日子也不是很如意。否则应该就不会纠结了。 老实说,松哥之前也有过类似的经历,今天就来和小伙伴们聊聊回头草到底吃不吃。 首先一个基本观点,就是离职了也没必要和老东家弄的苦...

为什么你不想学习?只想玩?人是如何一步一步废掉的

不知道是不是只有我这样子,还是你们也有过类似的经历。 上学的时候总有很多光辉历史,学年名列前茅,或者单科目大佬,但是虽然慢慢地长大了,你开始懈怠了,开始废掉了。。。 什么?你说不知道具体的情况是怎么样的? 我来告诉你: 你常常潜意识里或者心理觉得,自己真正的生活或者奋斗还没有开始。总是幻想着自己还拥有大把时间,还有无限的可能,自己还能逆风翻盘,只不是自己还没开始罢了,自己以后肯定会变得特别厉害...

为什么程序员做外包会被瞧不起?

二哥,有个事想询问下您的意见,您觉得应届生值得去外包吗?公司虽然挺大的,中xx,但待遇感觉挺低,马上要报到,挺纠结的。

当HR压你价,说你只值7K,你该怎么回答?

当HR压你价,说你只值7K时,你可以流畅地回答,记住,是流畅,不能犹豫。 礼貌地说:“7K是吗?了解了。嗯~其实我对贵司的面试官印象很好。只不过,现在我的手头上已经有一份11K的offer。来面试,主要也是自己对贵司挺有兴趣的,所以过来看看……”(未完) 这段话主要是陪HR互诈的同时,从公司兴趣,公司职员印象上,都给予对方正面的肯定,既能提升HR的好感度,又能让谈判气氛融洽,为后面的发挥留足空间。...

面试:第十六章:Java中级开发(16k)

HashMap底层实现原理,红黑树,B+树,B树的结构原理 Spring的AOP和IOC是什么?它们常见的使用场景有哪些?Spring事务,事务的属性,传播行为,数据库隔离级别 Spring和SpringMVC,MyBatis以及SpringBoot的注解分别有哪些?SpringMVC的工作原理,SpringBoot框架的优点,MyBatis框架的优点 SpringCould组件有哪些,他们...

面试阿里p7,被按在地上摩擦,鬼知道我经历了什么?

面试阿里p7被问到的问题(当时我只知道第一个):@Conditional是做什么的?@Conditional多个条件是什么逻辑关系?条件判断在什么时候执...

面试了一个 31 岁程序员,让我有所触动,30岁以上的程序员该何去何从?

最近面试了一个31岁8年经验的程序猿,让我有点感慨,大龄程序猿该何去何从。

【阿里P6面经】二本,curd两年,疯狂复习,拿下阿里offer

二本的读者,在老东家不断学习,最后逆袭

大三实习生,字节跳动面经分享,已拿Offer

说实话,自己的算法,我一个不会,太难了吧

程序员垃圾简历长什么样?

已经连续五年参加大厂校招、社招的技术面试工作,简历看的不下于万份 这篇文章会用实例告诉你,什么是差的程序员简历! 疫情快要结束了,各个公司也都开始春招了,作为即将红遍大江南北的新晋UP主,那当然要为小伙伴们做点事(手动狗头)。 就在公众号里公开征简历,义务帮大家看,并一一点评。《启舰:春招在即,义务帮大家看看简历吧》 一石激起千层浪,三天收到两百多封简历。 花光了两个星期的所有空闲时...

《经典算法案例》01-08:如何使用质数设计扫雷(Minesweeper)游戏

我们都玩过Windows操作系统中的经典游戏扫雷(Minesweeper),如果把质数当作一颗雷,那么,表格中红色的数字哪些是雷(质数)?您能找出多少个呢?文中用列表的方式罗列了10000以内的自然数、质数(素数),6的倍数等,方便大家观察质数的分布规律及特性,以便对算法求解有指导意义。另外,判断质数是初学算法,理解算法重要性的一个非常好的案例。

《Oracle Java SE编程自学与面试指南》最佳学习路线图(2020最新版)

正确选择比瞎努力更重要!

面试官:你连SSO都不懂,就别来面试了

大厂竟然要考我SSO,卧槽。

微软为一人收购一公司?破解索尼程序、写黑客小说,看他彪悍的程序人生!...

作者 | 伍杏玲出品 | CSDN(ID:CSDNnews)格子衬衫、常掉发、双肩包、修电脑、加班多……这些似乎成了大众给程序员的固定标签。近几年流行的“跨界风”开始刷新人们对程序员的...

终于,月薪过5万了!

来看几个问题想不想月薪超过5万?想不想进入公司架构组?想不想成为项目组的负责人?想不想成为spring的高手,超越99%的对手?那么本文内容是你必须要掌握的。本文主要详解bean的生命...

我说我懂多线程,面试官立马给我发了offer

不小心拿了几个offer,有点烦

自从喜欢上了B站这12个UP主,我越来越觉得自己是个废柴了!

不怕告诉你,我自从喜欢上了这12个UP主,哔哩哔哩成为了我手机上最耗电的软件,几乎每天都会看,可是吧,看的越多,我就越觉得自己是个废柴,唉,老天不公啊,不信你看看…… 间接性踌躇满志,持续性混吃等死,都是因为你们……但是,自己的学习力在慢慢变强,这是不容忽视的,推荐给你们! 都说B站是个宝,可是有人不会挖啊,没事,今天咱挖好的送你一箩筐,首先啊,我在B站上最喜欢看这个家伙的视频了,为啥 ,咱撇...

立即提问
相关内容推荐