-
vb access mysql_vb连接access数据库
2021-02-11 14:03:28vb 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
展开
-
vb连接Access数据库自定义
2009-03-27 10:44:00Public 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 = adUseClientPublic 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 -
在VB6.0打开任意的Access数据库
2011-11-07 09:49:12可以在运行程序后选择ACCESS数据库,适合软件连接多数据库。 -
请问VB2010怎么打开access数据库附件字段中的word文档
2016-07-19 14:34:22请问VB2010怎么打开access数据库附件字段中的word文档 把word存入到access中的附件字段中,vb2010连接access想打开word文档, 然后将word中的内容复制到richtextbox中去? 请问怎么实现? -
一个电子电话薄(用vb连接access数据库)
2010-05-01 10:04:30下载完后解压,要求电脑上有安装vb软件,然后打开工程1,生成exe可执行文件(这个程序是在win7上写的,如果是xp系统就需要自己生成可执行文件才能运行)。 -
VB.NET读取ACCESS数据库实例
2013-04-17 22:02:26看到很多朋友不知道用VB.net如何读取ACCESS数据库,本人刚才简单做了一个实例,所有代码项目全,可直接用VS2010打开。 -
vb 通讯录程序 access数据库
2011-07-27 15:43:17通过积累的知识,编写了一个比较实用的...ACCESS数据库密码:cye300 (MyBook.db 为文本数据库,MyPhoto.db为图片数据库) 文本和图片分开储存有利于数据库的维护,修改后缀为db可以忽悠一下别人,并且ACCESS无法打开。 -
excel vb连接mysql数据库教程视频教程_VB6.0与Access数据库关联、VB6.0与Excel数据导入导出案例...
2021-02-01 03:12:47手把手教你编写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
功能:
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、将密码进行加密,在数据库看不到真实的密码
3、实现登录功能
4、实现注册新用户功能,已注册用户不能重复注册
5、实现密码修改功能,必须要知道原密码。
-
VB+Access实例:使用ADO连接Access数据库
2014-06-07 11:22:55VB+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数据库中的窗体
2013-12-31 03:43:12如何在vb中引用access数据库中的窗体 我在vb。net中不知道怎么链接access,我打开那个数据库连接也只能连到表格,连不到窗体,我想连接窗体。大概就是实现在vb.net中按下一个bottom可以弹出access中我已经做好的一... -
vb 打开sdf数据_VB小程序,通过代码连接Access数据库并取数
2020-12-14 18:53:14VB小程序,关注我有更多的有趣的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”
界面:
代码:
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
数据库:
想得到更多的VB小程序,请关注我,点击下方的广告可以更好的支持和鼓励我哦!
-
Vb 将图片放入Access数据库更新并保存
2010-03-05 15:16:39Vb将图片放入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... -
彻底解决VB6~VB2005中连接ACCESS数据库(及带密码)问题
2009-11-01 16:21:54在Visual Basic中连接和使用Access数据库中,为了确保数据库中信息的安全,往往要求对数据库文件进行加密,以防止非法用户通过其它的常规手段(如使用ACCESS将数据库文件打开、修改)将其打开。那么,在Visual Basic... -
VB 6.0 读 ACCESS 2000 数据库标准代码
2011-08-23 12:25:56VB6 打开ACCESS2000 数据库的代码 不需要专门的控件 件,直接在编程中操作控制 -
vb adodc连接mysql_VB中用ADODC控件连接ACCESS数据库
2021-03-07 06:22:13路径,这种方法的优点是简单易操作,缺点是,当源文件换了地方后,要重新设置数据库的路径,否则连接不上数据库了。一种是用代码设置数据库的路径,这种方法的优点就是只要源文件和数据库在同一文件夹下... 打开Microsof... -
VB6.0中连接加密的Access数据库
2011-12-23 09:16:35以前曾看过介绍如何在Visual Basic中连接和使用Access数据库的技术文章,实际上在专业的数据库软件开发中,为了确保数据库中信息的安全,往往要求对数据库文件进行加密,以防止非法用户通过其它的常规手段将其打开。... -
学生课程表查询和access数据库建立连接,显示一周内的日期。你可以打开数据库进行修改。(VB6.0源代码编写)
2008-12-16 10:27:30学生课程表查询和access数据库建立连接,显示一周内的日期。你可以打开数据库进行修改。(VB6.0源代码编写) -
vb.net中用openfiledialog实现access数据库连接并返回文件路径
2018-06-21 16:53:33功能:点击button1能实现弹出文件打开对话框,用户选择数据库并将之导入到form中的datagridview中。初学者可以参考一下。 -
Visual Basic 6.0(VB6.0)+access数据库链接读取写入修改
2010-03-25 14:42:11vb 6.0链接access 2003数据库。 (我是混分的,下了不会用,别骂人。) 注释:下载安装后,源程序都在C:\WINDOWS\Menu文件夹下,源程序都没做加密处理,而且有注释。大家可以细看。请打开可执行文件就可以使用菜单... -
vb.net操作数据库之ACCESS(2)
2012-04-06 22:34:00ACCESS中对应水晶报表方面,大家可能会遇到的最多的问题应该就是打开报表后 会出现需要登录的问题。 这个是为什么呢?明明我没有设置密码,怎么会有要输入密码呢?如果你够沉着,如果你的debug经验不缺乏的话, ... -
[VisualStudio] 用VB动态创建Access数据库简例
2007-02-27 14:16:00在写这篇文章之前心里不免有点自卑,因为VB已经快被微软淘汰了,可是由于工作的关系...打开VB6.0,因为我安装了sp包,所以我用到的控件版本号高一些,在网上找资料时看到有用版本号比较低的控件。应该都可以的。 1. -
vb.net操作数据库之ACCESS(3)
2010-04-15 14:15:00如果你够沉着,如果你的debug经验不缺乏的话,你会发现在水晶报表跳出输入密码的登录框中,access的路径不是我现在数据库放置的位置,仍然是我在编码的时候选择的数据库地址。他为什么没有变呢? -
vb代码在mysql里运行_如果在VB编写的程序中使用ACCESS数据库
2021-02-04 23:24:31新建工程时选数据工程,此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。然后在FORM1窗体中添加ADODC控件和DATAGRID控件,将DATAGRID1的属性DATASOURCE选ADODC1,打开ADODC1控件属性页使用连接... -
vb.net access 打开程序数据没了_跨平台跨数据库的面向对象存储方案
2020-11-20 07:31:4351 面向对象存储我想把一个c++对象直接存到数据库而不写任何sql语句有办法吗?比如我写了一个student类如下:class student { public: student (const std::string& name, unsigned short age) : name _... -
vb.net mysql 记录数_VB.net 对access数据库进行打开、查找、填充DataTable数据集、返回查找到的记录总数....
2021-01-20 03:14:29------------------------- '对access数据库进行打开、查找、填充数据集、返回数据集rowscount、关闭数据库 '[SQLstr]为完整的SQL查询语句。例:"Select * from 物品信息 where ( 计量单位= '架')" '[lujing_access]... -
access 数据库 新增,删除,保存,双击
2016-04-25 22:46:36vb.net2012,access 数据库 新增,删除,保存,双击datagridview 打开新窗体 -
Access数据库压缩失败后修复经历
2019-05-15 13:40:56Access数据库压缩与修复 前段时间,因一时大意,直接在移盘硬盘上压缩一个800M的Access2003版数据库,在压缩时,移动硬盘读写出错,导致压缩失败.移动硬盘重新插拔后可读取,再用Access打开数据库文件出错,没法打开.但...