VB显示ACCESS中的图片-CSDN论坛

VB显示ACCESS中的图片

VB > 数据库(包含打印，安装，报表)

收藏回复

[问题点数：40分]

⋅VB显示ACCESS中的图片 更多帖子 关注私信空间博客 orcty 等级 本版专家分：0 结帖率 0%: 小弟刚学VB，最近用VB做了个数据库，其中有图片的显示，用ADO DATA链接的ACCESS，但是用picture控件无法显示图片，我设置的picture控件的属性为：DataSource=Adodc_XA
DataField=XA01
而且图片的变化是随着另外一个数据的改变而改变的，哪位高人知道这怎么弄啊

2010-05-06 12:14:20

点赞只看楼主引用举报楼主收起

展开阅读全文

⋅经验总结——技术人员如何赚钱 ⋅3分钟内找出答案的人具有编程的潜力 ⋅网站赚到第一笔广告费，散分庆祝～～～～～ 更多帖子 关注私信空间博客 射天狼 等级 本版专家分：61825 勋章 黄花 2004年7月 VB大版内专家分月排行榜第二 2004年4月 VB大版内专家分月排行榜第二 2003年10月 VB大版内专家分月排行榜第二 蓝花 2004年9月 Java大版内专家分月排行榜第三 2003年9月 VB大版内专家分月排行榜第三: 将数据库中的图片数据保存到硬盘上，建立临时文件。
然后用Picture控件显示。
定期删除！

2010-05-06 12:42:17

点赞只看TA 引用举报 #1得分 0

⋅好不容易混到了1W，散分记念 ⋅向南京的朋友问好 ⋅有福州厦门的朋友吗，打算这三天来福州厦门玩 更多帖子 关注私信空间博客 版主 饮水需思源 等级 本版专家分：69703: 使用流对象保存和显示图片
打开vb6,新建工程。

添加两个按钮,一个image控件
注意:Access中的photo字段类型为OLE对象.
SqlServer中的photo字段类型为Image

'** 引用 Microsoft ActiveX Data Objects 2.5 Library 及以上版本
‘2.5版本以下不支持Stream对象
Dim iConcstr As String
Dim iConc As ADODB.Connection

'保存文件到数据库中
Sub s_SaveFile()
    Dim iStm As ADODB.Stream
    Dim iRe As ADODB.Recordset
    Dim iConcstr As String

    '读取文件到内容
    Set iStm = New ADODB.Stream
    With iStm
        .Type = adTypeBinary   '二进制模式
        .Open
        .LoadFromFile App.Path + "\test.jpg"
    End With


    '打开保存文件的表
    Set iRe = New ADODB.Recordset
    With iRe
        .Open "select * from img", iConc, 1, 3
        .AddNew         '新增一条记录
        .Fields("photo") = iStm.Read
        .Update
    End With


   '完成后关闭对象
    iRe.Close
    iStm.Close
End Sub

Sub s_ReadFile()
    Dim iStm As ADODB.Stream
    Dim iRe As ADODB.Recordset
    '打开表
Set iRe = New ADODB.Recordset
‘得到最新添加的纪录
    iRe.Open "select top 1 * from img order by id desc", iConc, adOpenKeyset, adLockReadOnly
    '保存到文件
    Set iStm = New ADODB.Stream
    With iStm
        .Mode = adModeReadWrite
        .Type = adTypeBinary
        .Open
        .Write iRe("photo")
‘这里注意了,如果当前目录下存在test1.jpg,会报一个文件写入失败的错误.
        .SaveToFile App.Path & "\test1.jpg"
    End With


    Image1.Picture = LoadPicture(App.Path & "\test1.jpg")
   '关闭对象
    iRe.Close
    iStm.Close
End Sub

Private Sub Command1_Click()
Call s_ReadFile
End Sub

Private Sub Command2_Click()
Call s_SaveFile
End Sub

Private Sub Form_Load()
    '数据库连接字符串
    iConcstr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
        ";Data Source=F:\csdn_vb\database\保存图片\access图片\img.mdb"

‘下面的语句是连接sqlserver数据库的.
    ‘iConcstr = "Provider=SQLOLEDB.1;Persist Security Info=True;" & _
‘ "User ID=sa;Password=;Initial Catalog=test;Data Source=yang"

   Set iConc = New ADODB.Connection
   iConc.Open iConcstr
End Sub

Private Sub Form_Unload(Cancel As Integer)
iConc.Close
Set iConc = Nothing
End Sub

2010-05-06 12:46:14

点赞只看TA 引用举报 #2得分 0

⋅QR Code中国标准GB/T 18284—2000的问题 ⋅SysHeader32的HDN_TRACK 消息问题 ⋅丢脸丢到国外：吉隆坡国际机场的一对讨钱的中年男女骗子 更多帖子 关注私信空间博客 vbadvisor 等级 本版专家分：7960 勋章 红花 2007年6月 VB大版内专家分月排行榜第一: 也可以不保存到硬盘，将字节转换到Ｐｉｃｔｕｒｅ（用OleLoadPicture　ＡＰＩ，你Ｇｏｏｏｇｌｅ一下这个ＡＰＩ）．如何在ＰｉｃｔｕｒｅＢｏｘ中显示。

2010-05-06 15:57:05

点赞只看TA 引用举报 #3得分 0

⋅vb怎么连接mysql数据库 ⋅新人求助，学习Verilog HDL好还是VHDL？ ⋅listview 显示问题 更多帖子 关注私信空间博客 杀神者 等级 本版专家分：1694: Private Sub dj_Click() '将添加的图片保存在工程中pic文件夹里，此时表的最后列是图片所在的路径的超链接

  SavePicture pic, App.Path & "\pic\" & " " & Text2.Text & "" & ".jpg"
Adodc1.Recordset.ActiveConnection.Execute "INSERT INTO pic VALUES('" & Text1.Text & "','" & Text2.Text & "','" & App.Path & "\pic\" & " " & Text2.Text & "" & ".jpg" & " ')"
    Adodc1.Recordset.Requery
   Text1.Text = ""
   Text2.Text = ""
   pic.Picture = LoadPicture()
   Adodc1.Refresh

End Sub

Private Sub pic_Click()  '点击打开对话框添加图片至pic

   cdg.InitDir = "E:\"
   cdg.Filter = "图片（*.jpg）|*.jpg|所有文件（*.*）|*.*"
    cdg.ShowOpen
    pic.Picture = LoadPicture(cdg.FileName, 4, vbLPColor)
End Sub
Private Sub DataGrid1_Click()  '点击datagrid的某一列，同时pic中显示数据库中所连接的图片
pic.Picture = LoadPicture(Adodc1.Recordset.Fields(2).Value)
Text1.Text = Adodc1.Recordset.Fields(0)
Text2.Text = Adodc1.Recordset.Fields(1)
pic.Enabled = False
End Sub

你看看，对你有用吗！！！不一定很完善！！

2010-12-20 21:41:52

点赞只看TA 引用举报 #4得分 0

⋅关于屏幕锁的问题 ⋅问个问题 VB删除一些问题 ⋅VB从一个窗体取出另一个窗体的数据 更多帖子 关注私信空间博客 niaorenzaixian 等级 本版专家分：105: 我有个求助的帖子。楼主把我代码复制进去就可以用了。。
http://topic.csdn.net/u/20101228/23/d76b2702-265a-4240-b0a9-331afce49b86.html

2010-12-28 23:43:55

点赞只看TA 引用举报 #5得分 0

收起

收藏回复

orcty

等级：

关注私信 TA的帖子

Asp.net Web Api开发（第四篇）Help Page配置和扩展: 1.nuget获取Microsoft.AspNet.WebApi.HelpPage 2.安装完会出来一堆文件Areas 3.去掉注释 4.在App_Data中加个XmlDocument.xml文件 5.WebApiConfig.cs新增方法 6.Global中新增 7.跑起来 ...

关于ASP.NET Web Api的HelpPage文档注释问题: 关于ASP.NET Web Api的HelpPage文档注释问题以前我用微软的HelpPage来自动生成的webAPI帮助文档。在使用了一段时间后发现只能显示Controller上面写的注释文档内容。以前总以为是微软这个类库的bug。后来才明白了...

ASP.Net WebAPI中添加helppage帮助页面: 一、自动创建带帮助的WebAPI 1、首先创建项目的时候选择WebAPI,如下图所示，生成的项目会自动生成帮助文档。 2、设置调用XML文档的代码 3、设置项目注释XML文档生成目录，项目——属性——生成——勾选生成...

Asp.net Web Api开发Help Page 添加对数据模型生成注释的配置和扩展: webapi框架下提供了一种自动生成文档的help Page页的功能。但是原始版本的效果不是很好,最重要的一点是没有对数据模型的详细注解提供展示。这种请情况下需要我们自己对其进行拓展,方便显示出接口和数据模型注解，...

ASP.NET WebAPI开发实例: 一、环境搭建打开VS2012， IDE版本为Visual Studio Ultimate 2012 文件 - 新建项目 - Visual C# - Web – ASP.NET MVC4 Web 应用程序...选择联机 – 搜索webapi – 安装webapi2.2 – 安装webapi2.2helppage ...

ASP.NET Web API项目自动生成接口文档和测试页面: 在开发接口的时候，写接口文档已是一件不可忽视的事情，有了更新也要同步更新很麻烦。...创建Web API项目请参考：ASP.NET 使用Swagger开发Web API接口项目这里我们以WebAPI项目为例。修改默认的API路由配置为...

ASP.NET Core Web API 帮助页: Windos系统下使用 ASP.NET Core 系统必备详情查看https://docs.microsoft.com/zh-cn/aspnet/core/tutorials/first-web-api?view=aspnetcore-2.1 具有以下工作负载的 vs2017 15.7.3版或者更高版本: ASP.NET 和 ...

ASP.NET MVC5+EF6+EasyUI 后台管理系统-WebApi的用法与调试: 1：ASP.NET MVC5+EF6+EasyUI 后台管理系统（1）-WebApi与Unity注入使用Unity是为了使用我们后台的BLL和DAL层 2：ASP.NET MVC5+EF6+EasyUI 后台管理系统（2）-WebApi与Unity注入-配置文件 3：ASP.NET MVC5+EF6+E....

asp.net web api帮助文档的说明: asp.net web api帮助文档的说明

asp.net webapi 自托管插件式服务(转）: 　webapi和mvc在asp.net5时代合体了，这告诉我们，其实它俩还是有区别的，要不现在也不会取两个名字，但是由于本人归纳总结能力较差，各种不同也无法一一列出了。　在webapi中HelpPage是个突出而又实用的东西，...

ASP.NET Web API系列教程（目录）: 注：微软随ASP.NET MVC 4一起还发布了一个框架，叫做ASP.NET Web API。这是一个用来在.NET平台上建立HTTP服务的Web API框架，是微软的又一项令人振奋的技术。目前，国内

.Net WebApi入门简单基础认识（自动生成api文档和简单测试）: 关于WebApi网上有很多官方的定义，具体的定义就不写了，这篇文章大概介绍一下WebApi的基础搭建。。关于我自己对WebApi的... 选择新建asp.net项目，选择WebApi模板，其他默认就可以了！新建出来咋一看跟MVC的结...

ASP.NET WebAPI在线接口文档HelpPage和Swagger实战演练手册: 项目使用采取前后端分离的方式，后台提供API接口给前端开发人员。这个过程中遇到一个问题后台开发人员怎么提供接口说明文档给前端开发人员,最初打算使用word或markdown等文档方式进行交流，实际操作中却很少动手去...

ASP.NET Web API系列教程目录: ASP.NET Web API系列教程（目录）注：微软随ASP.NET MVC 4一起还发布了一个框架，叫做ASP.NET Web API。这是一个用来在.NET平台上建立HTTP服务的Web API框架，是微软的又一项令人振奋的技术。目前，国内对此...

.NET Core POCOController在动态Web API中的应用: 在上一篇文章中，我和大家分享了ASP.NET中动态Web API的实现，这种方案的现实意义是，它可以让我们把任意一个接口转换为Web API，所以，不单单局限在文章里提到的WCF迁移到Web API，任意领域驱动开发(DDD)中的服务层...

ASP.NET Web API 2个步骤启用 Help 说明: Web API2 Help Page 说明2个步骤启用

asp.net webAPI 加注释生成帮助文档和测试demo: 转自https://blog.csdn.net/a123_z/article/details/71078062 1：配置接口注释。...（2）在xml的读取路径：在Areas\HelpPage\App_Start\HelpPageConfig.cs里面配置xml的读取路径。 config.Se...

ASP.net教程]启用WebApi 2里的Api描述信息(Help下的Description: 问题:默认情况下新建的Web Api 2项目,自带的Help页下会显示Api的相关信息,但Description那一栏无法获取到数据,如下图所示: 解决: 1.先启用输出的在web api项目上右击->属性,在属性页"生成"标签下...

ASP.NET Web API 2系列(三)：查看WebAPI接口的详细说明及测试接口: 前边两篇博客介绍了Web API的基本框架以及路由配置，这篇博客主要解决在前后端分离项目中，为前端人员提供详细接口说明的问题，主要是通过修改WebApi HelpPage相关代码和添加WebApiTestClient组件实现WebAPI接口详细...

ASP.NET WebAPI 生成帮助文档与使用Swagger服务测试: Web API 2 中已经支持很方便的实现了这一特性 http://www.asp.net/web-api/overview/creating-web-apis/creating-api-help-pages Nuget获得 Install-Package Microsoft.AspNet.WebApi.HelpPage 安装完成后...

asp.net中的web api使用(非mvc程序): using System; using System.Collections.Generic;...using System.Web; using System.Web.Http; using System.Web.Mvc; using System.Web.Security; using System.Web.SessionState; namespace W...

如何处理asp.net的webapi项目的测试环境与生产环境的help页面可见/不可见问题。: asp.net webapi网站要部署到生产环境时，有时我们不希望别人能够看到这些接口列表等信息，如何隐藏这些页面呢？

visual studio 2015中的webapi生成helpPage，页面不显示方法说明问题解决: 环境： vs2015、win7 ... 生成的help页面如下：，并没有显示...原因是：新建项目时候没有勾选Web Api,webapi是后来添加的。缺少App_Start下的WebApiConfig.cs文件，如下。要显示Action，更改为routeTemplate: "api/{c...

ASP.NET Web API 帮助（help）页面上没有 Test API按钮的解决方法: 参与一个web API项目时发现它的help页面特别好用，不仅可以根据webapi的方法和注释自动生成帮助文档以方便查阅，还可以在这个页面上测试webapi方法。于是在自己新建项目时也打算将这个help页面用起来。在实际操作中...

asp.net webapi中helppage: 今天研究了下webapi，发现还有自动生成接口说明文档提供测试的功能参考：https://docs.microsoft.com/en-us/aspnet/web-api/overview/getting-started-with-aspnet-web-api/creating-api-help-pages 转载于:...

如何将一个 ASP.NET MVC 4 和 Web API 项目升级到 ASP.NET MVC 5 和 Web API 2: ----转自微软官网www.asp.net/mvc/ ASP.NET MVC 5 和 Web API 2 带来的新功能，包括属性路由、身份验证筛选器，以及更多的主机。请参阅http://www.asp.net/vnext更多详细信息。本演练将指导您升级到最新版本...

嵌入式工程师养成计划之——嵌入式软件工程师完全学习指南: 本系列课程针对有意向学习嵌入式软件开发的童鞋，从零开始、深入浅出，内容涵盖：linux系统基础、shell、linux C编程、linux系统编程、网络编程、ARM体系结构及汇编语言、ARM裸机编程、linux系统移植、linux驱动开发等模块。分多个子课程逐步学习。本课程是全套课程的第0部（前传），目的是讲解我们的整个视频学习体系路线图，同时也会对大家学习路线的一个指引。本期课程共计4节课，主要回答了何为嵌入式、为何要学习嵌入式、什么人适合学嵌入式、究竟应该怎样去学嵌入式等问题。最后为大家详细介绍了我们的嵌入式软件工程师学习路线图，希望能够对大家的嵌入式学习之路有所指引。

一维热传导方程数值解法及matlab实现: 含matlab程序，个人感觉很有帮助，在研究传热学的可以下来看看

论文研究-含违约风险参量的信贷决策模型.pdf: 论文研究-含违约风险参量的信贷决策模型.pdf,

2020数学建模A题: 2020数学建模国赛A题及其数据 2020数学建模国赛A题及其数据2020数学建模国赛A题及其数据 2020数学建模国赛A题及其数据 2020数学建模国赛A题及其数据 2020数学建模国赛A题及其数据 2020数学建模国赛A题及其数据

相关热词 c#线程阻塞的方法 c#获取文件所在路径 c#mysql添加删除 c# 分段处理大文件 c#list 头加元素 c# sso开源框 c#dataset增加列 c# 二进制截断字符串 c#里氏转换原则 c# 主界面