精华内容
下载资源
问答
  • vb adodc控件连接带密码的access数据库出错(access以独占方式打开后设置密码123456)我按照网上查到的方法:(1)手动:在属性页“所有”处的JetOLEDB:DataBasepassword处填写值“123456”,测试连接成功!但在运行程序...

    vb adodc控件连接带密码的access数据库出错(access以独占方式打开后设置密码123456)

    我按照网上查到的方法:(1)手动:在属性页“所有”处的JetOLEDB:DataBasepassword处填写值“123456”,测试连接成功!但在运行程序时仍提示“无法启用应用程序,工作信息文件丢失或...

    我按照网上查到的方法:(1)手动: 在属性页“所有”处的Jet OLEDB: DataBase password处填写值“123456”,测试连接成功!但在运行程序时仍提示“无法启用应用程序,工作信息文件丢失或是已被其他用户以独占方式打开”(2)编写代码:Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\XJ.mdb" ;Persist Security Info=False:Jet OLEDB: DataBase password=123456" 依然没有解决上述问题。哪位大神解答下!!!全文代码如下:rivate Sub Form_Load() Dim cnn As New ADODB.Connection Dim rs As New ADODB.Recordset 告知单管理.Caption = 登录窗体.onloaduser & "!欢迎来到[告知单维护]平台,今天是:" & Format(Now(), "dddddd") & " " & Format(Now(), "dddd") DataGrid1.Columns(0).Width = 400 DataGrid1.Columns(1).Width = 1000 DataGrid1.Columns(2).Width = 1500 DataGrid1.Columns(3).Width = 1000 DataGrid1.Columns(4).Width = 3000 DataGrid1.Columns(5).Width = 1000 DataGrid1.Columns(6).Width = 1000 DataGrid1.Columns(7).Width = 1000 DataGrid1.Columns(8).Width = 1200 DataGrid1.Columns(9).Width = 1000 If cnn.State = adStateOpen Then cnn.Close cnn.Open "driver={microsoft access driver (*.mdb)};dbq=" & App.Path & "\XJ.mdb;pwd=123456" If rs.State = adStateOpen Then rs.Close rs.Open "select * from XJgzdgl", cnn, adOpenKeyset, adLockOptimistic rs.Update Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\XJ.mdb" & ";Persist Security Info=False;Jet OLEDB: DataBase Locking Mode=1;Jet OLEDB: DataBase password=123456" Adodc1.CommandType = adCmdText Adodc1.RecordSource = "select top 500 * from XJgzdgl order by ID desc" Adodc1.Recordset.UpdateBatch Adodc1.Refresh Adodc1.Recordset.MoveFirst

    展开

    展开全文
  • Public cn As New ADODB.ConnectionPublic rs As New ADODB.Recordset打开数据库连接Public Sub OpenConn() Set cn = New ADODB.Connection Set rs = New ADODB.Recordset cn.CursorLocation = adUseClient 

    Public cn As New ADODB.Connection
    Public rs As New ADODB.Recordset

    '打开数据库连接
    Public Sub OpenConn()
        Set cn = New ADODB.Connection
        Set rs = New ADODB.Recordset
        cn.CursorLocation = adUseClient
        cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/data/XXX.mdb;Jet OLEDB:Database Password=;Persist Security Info=False;"
    End Sub
    '关闭数据库连接
    Public Sub CloseConn()
        rs.Close
        Set rs = Nothing
        cn.Close
        Set cn = Nothing
    End Sub

    展开全文
  • 可以在运行程序后选择ACCESS数据库,适合软件连接多数据库。
  • 请问VB2010怎么打开access数据库附件字段中的word文档 把word存入到access中的附件字段中,vb2010连接access想打开word文档, 然后将word中的内容复制到richtextbox中去? 请问怎么实现?
  • 下载完后解压,要求电脑上有安装vb软件,然后打开工程1,生成exe可执行文件(这个程序是在win7上写的,如果是xp系统就需要自己生成可执行文件才能运行)。
  • 看到很多朋友不知道用VB.net如何读取ACCESS数据库,本人刚才简单做了一个实例,所有代码项目全,可直接用VS2010打开
  • 通过积累的知识,编写了一个比较实用的...ACCESS数据库密码:cye300 (MyBook.db 为文本数据库,MyPhoto.db为图片数据库) 文本和图片分开储存有利于数据库的维护,修改后缀为db可以忽悠一下别人,并且ACCESS无法打开
  • 手把手教你编写VB小程序,以后可能会用的到哦!有二级VB基本基础即可!源代码请进群375116333联系群主!友情提醒:因为VB6.0是...特别说明 :以下所有源代码在win7 64位 和 win10 64位下,打开VB程序均可运行成功。...

    手把手教你编写VB小程序,以后可能会用的到哦!

    有二级VB基本基础即可!源代码请进群375116333联系群主!

    友情提醒:

    因为VB6.0是比较老的软件了,为了完美兼容,建议

    尽量使用XP 和 win7 32位的系统。

    xp与vb的兼容性是最完美匹配的。

    win7 64位和win10 已测也是可以正常打开运行。

    特别说明 :

    以下所有源代码在win7 64位 和 win10 64位下,打开VB程序均可运行成功。如果想在win10系统下编写程序,请先安装VB6.0 企业版,软件可以进群下载,如何安装可观看老师另外给大家录制的VB6.0在win10下安装企业版的视频,连接数据库时win10会遇到找不到OLE DB提供的access 4.0程序,可参照第一个和第六个程序,不用UDL 直接用代码连接数据库。数据库如果不是2003版本 是2010以上的可以直接从老师提供的文件里拷贝一个mdb的access2003 即可,无需再安装2010高级版本。

    Rs.ActiveConnection = "file name=manage.udl"

    修改为

    rs.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Test.mdb"

    cn.ConnectionString = "file name=manage.udl"

    修改为

    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Test.mdb"

    ---------------------------------

    如果坚持想要用2010版本以上的access,可以使用以下语句

    rs.ActiveConnection = "provider=microsoft.ace.oledb.12.0;data source=Test.accdb"

    cn.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source=Test.accdb"

    --------------------------------

    一、抽奖软件

    (有源代码)

    适用范围:活动抽奖、随机出题、俩俩PK抽签等等。

    所用软件:VB6.0和office中的access【推荐用2003】

    功能:

    1、将所有人员名单存放在access中,输入人数,可以随机抽出互不重复人员姓名。已被抽中人员不再被抽中。

    2、也可以设置一个或者多人不会被抽中,但是在滚动屏幕里可以看见名字。

    3、也可以设置可以被抽中多次。

    4、开始抽奖时,有音乐响起,音乐可以视个人爱好更换。每次抽奖时可以有不同音乐。

    5、可以打包生成可执行文件,没有安装VB和Office的电脑也可以运行。

    6、将抽中的人员姓名备份在记事本里。

    7、有重置功能,可以重复使用。

    非常简单,稍微有一点VB基础最多花费半天时间即可做完。

    二、准点报时

    (有源代码)

    适用范围:准点播放广告电影;学校、企业、工厂准点报时等等。

    所用软件:VB6.0 、格式工厂

    功能:

    采用windows自带的播放器,根据设置的时间,到点自动播放电影(wmv格式等windows兼容格式)、音乐(mp3格式)。

    非常简单,稍微有一点VB基础最多花费20分钟即可做完。

    三、简单管理系统

    (有源代码)

    用VB6.0制作的界面,对数据库进行查询数据、增加数据、修改数据、删除数据,从而可以做出简单的数据管理系统。

    所需软件:VB6.0、Access2003

    417db1190ba4b351538018d79b1a9106.png

    62e7656b3d99597d11146dc141c82973.png功能:

    1.登录界面,输入正确的帐号和密码,进入系统;如输入错误,给出来提示

    2.进入系统后,将数据库里的数据直接显示在界面的表格框里。

    3.输入姓名或者其他字段,查询出内容并显示在界面上。

    4.根据日期区间查询所需内容,并显示在界面上

    5.可以一条一条浏览数据

    6.双击表格,可以将数据显示在文本框中,然后可以修改、删除、新增数据记录。

    四、VB程序进行Excel数据导入、导出

    (有源代码)

    所用软件:VB6.0、Excel2003、access2003【与VB兼容性最好】

    功能:1、VB窗体界面打印

    2、Excel数据批量导入数据库

    3、所有数据导出Excel

    4、根据条件查询出来的数据导出到Excel

    5、文本框里的多行多列的数据导入到Excel

    五、VB6.0制作自定义控件(无源代码)

    有的时候,多个控件和控件事情需要在多个窗体里运用很多次,为了提高效率,我们可以创建用户自定义控件。当我们从其他地方看到一个很好的用户控件,我们也可以拷贝和添加到自己的VB工程里运用。

    六、VB6.0利用MD5加密保存在数据库里的数据,即使打开数据库里面的表,也无法知道数据内容。

    (有源代码)

    1、VB连接有密码的数据库

    2、将密码进行加密,在数据库看不到真实的密码

    0e7ffcadfdfef642010bc7dafc8531b8.png

    3、实现登录功能

    10e72d14e9760677b54302f12b46ff41.png

    4、实现注册新用户功能,已注册用户不能重复注册

    78d6506b97a82f5d8ef4a1d75bba7736.png

    5、实现密码修改功能,必须要知道原密码。

    a3b683b480f623f433ef4ef7ed12affe.png

    展开全文
  • VB+Access实例:使用ADO连接Access数据库。Private Sub Form_Load() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & ...
  • 如何在vb中引用access数据库中的窗体 我在vb。net中不知道怎么链接access,我打开那个数据库连接也只能连到表格,连不到窗体,我想连接窗体。大概就是实现在vb.net中按下一个bottom可以弹出access中我已经做好的一...
  • VB小程序,关注我有更多的有趣的VB小程序 如果要使用.accdb格式的数据库,首先在工程下引用“Microsoft ActiveX Data Objects 6.1 library”界面:代码:Private Sub Command1_Click() Dim conn As New ADODB....

    VB小程序,关注我有更多的有趣的VB小程序

    如果要使用.accdb格式的数据库,首先在工程下引用“Microsoft ActiveX Data Objects 6.1 library”

    界面:

    6e6753e901d291602b88ef08dfda0388.png

    代码:

    Private Sub Command1_Click()

    Dim conn As New ADODB.Connection '创建Connection连接对象

    Dim rs As New ADODB.Recordset '创建Recordset记录集

    Dim i%

    Dim a(1 To 11) As Integer

    i = 1

    conn.ConnectionString = "Provider=Microsoft.ace.oledb.12.0;data source=E:mydata零件.accdb" '确定连接的数据库

    conn.Open '打开数据库连接

    rs.ActiveConnection = conn '设置记录的连接属性

    rs.Open "select * from lj" '打开记录集

    Do While Not rs.EOF '从第一条记录开始查找,直到完成查询

    a(i) = rs.Fields(2) '数据放入数组中

    List1.AddItem rs.Fields(2) & Space(16) & rs.Fields(3) '数据放入list列表框中

    rs.MoveNext

    Loop

    rs.Close '关闭记录集

    conn.Close '关闭数据库的连接

    End Sub

    数据库:

    47fd2e60067a3a37158f6a54cabd6af9.png

    想得到更多的VB小程序,请关注我,点击下方的广告可以更好的支持和鼓励我哦!

    展开全文
  • Vb将图片放入Access数据库更新并保存,从标题就能看出本程序主要演示如何将图片存入数据库,这里图片对格式要求很宽,平时的BMP/JPG/GIF都可以保存,打开程序后,浏览到保存数据的数据库,程序会自动索引到图片信息...
  • vb.net連接ACCESS数据库

    2018-07-05 10:27:00
    '導入命名空間Imports System.Data.OleDb '定義變量 Dim Sql As String 'OleDb連線 Dim SqlAC As OleDbConnection Dim CmdAC As OleDbCommand Dim drAC As OleDbDataReader ... '打开OleDb連線 Public Sub O...
  • 在Visual Basic中连接和使用Access数据库中,为了确保数据库中信息的安全,往往要求对数据库文件进行加密,以防止非法用户通过其它的常规手段(如使用ACCESS将数据库文件打开、修改)将其打开。那么,在Visual Basic...
  • VB6 打开ACCESS2000 数据库的代码 不需要专门的控件 件,直接在编程中操作控制
  • 路径,这种方法的优点是简单易操作,缺点是,当源文件换了地方后,要重新设置数据库的路径,否则连接不上数据库了。一种是用代码设置数据库的路径,这种方法的优点就是只要源文件和数据库在同一文件夹下... 打开Microsof...
  • 以前曾看过介绍如何在Visual Basic中连接和使用Access数据库的技术文章,实际上在专业的数据库软件开发中,为了确保数据库中信息的安全,往往要求对数据库文件进行加密,以防止非法用户通过其它的常规手段将其打开。...
  • 学生课程表查询和access数据库建立连接,显示一周内的日期。你可以打开数据库进行修改。(VB6.0源代码编写)
  • 功能:点击button1能实现弹出文件打开对话框,用户选择数据库并将之导入到form中的datagridview中。初学者可以参考一下。
  • vb 6.0链接access 2003数据库。 (我是混分的,下了不会用,别骂人。) 注释:下载安装后,源程序都在C:\WINDOWS\Menu文件夹下,源程序都没做加密处理,而且有注释。大家可以细看。请打开可执行文件就可以使用菜单...
  • ACCESS中对应水晶报表方面,大家可能会遇到的最多的问题应该就是打开报表后 会出现需要登录的问题。 这个是为什么呢?明明我没有设置密码,怎么会有要输入密码呢?如果你够沉着,如果你的debug经验不缺乏的话, ...
  • 在写这篇文章之前心里不免有点自卑,因为VB已经快被微软淘汰了,可是由于工作的关系...打开VB6.0,因为我安装了sp包,所以我用到的控件版本号高一些,在网上找资料时看到有用版本号比较低的控件。应该都可以的。  1.
  • vb.net操作数据库ACCESS(3)

    千次阅读 2010-04-15 14:15:00
    如果你够沉着,如果你的debug经验不缺乏的话,你会发现在水晶报表跳出输入密码的登录框中,access的路径不是我现在数据库放置的位置,仍然是我在编码的时候选择的数据库地址。他为什么没有变呢?
  • 新建工程时选数据工程,此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。然后在FORM1窗体中添加ADODC控件和DATAGRID控件,将DATAGRID1的属性DATASOURCE选ADODC1,打开ADODC1控件属性页使用连接...
  • 51 面向对象存储我想把一个c++对象直接存到数据库而不写任何sql语句有办法吗?比如我写了一个student类如下:class student { public: student (const std::string& name, unsigned short age) : name _...
  • ------------------------- '对access数据库进行打开、查找、填充数据集、返回数据集rowscount、关闭数据库 '[SQLstr]为完整的SQL查询语句。例:"Select * from 物品信息 where ( 计量单位= '架')" '[lujing_access]...
  • vb.net2012,access 数据库 新增,删除,保存,双击datagridview 打开新窗体
  • Access数据库压缩与修复 前段时间,因一时大意,直接在移盘硬盘上压缩一个800M的Access2003版数据库,在压缩时,移动硬盘读写出错,导致压缩失败.移动硬盘重新插拔后可读取,再用Access打开数据库文件出错,没法打开.但...

空空如也

空空如也

1 2 3 4 5 ... 11
收藏数 208
精华内容 83
关键字:

vb打开access数据库