| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2188 人关注过本帖
标题:谁帮我看看这个程序有什么问题
只看楼主 加入收藏
isang
Rank: 1
等 级:新手上路
帖 子:44
专家分:0
注 册:2004-6-1
收藏
 问题点数:0 回复次数:5 
谁帮我看看这个程序有什么问题

程序目的是:在一个窗体中显示多张图片,图片的来源是一个ACCESS数据库中.

数据库名:pic.mdb 数据表名:pics(有两列,第一列为图片ID,第二列为图片的路径名)

问题是:此程序在运行的时候出现错误,原因在哪里???请高手指点.

Dim icount As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

oledbcon.ConnectionString = "provider=microsoft.jet.oledb.4.0;data.source=pic.mdb" oledbcon.Open() oledbcmd.Connection = oledbcon oledbcmd.CommandType = CommandType.TableDirect oledbcmd.CommandText = "pics" oledbda.SelectCommand = oledbcmd oledbda.Fill(ds, "pics") icount = 0 Timer1.Interval = 1000 Timer1.Start() End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) icount = (icount + 1) Mod 7 Dim dr As Data.DataRow dr = ds.Tables("pics").Rows(icount) Dim pname As String pname = dr(1) PictureBox1.Image = Image.FromFile(pname) End Sub

Private Sub Form1_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Leave oledbcon.Dispose() oledbcmd.Dispose() oledbda.Dispose() End Sub End Class

搜索更多相关主题的帖子: 数据库 Load ByVal oledbcon 
2004-07-20 16:25
地球人
Rank: 1
等 级:新手上路
帖 子:21
专家分:0
注 册:2004-9-23
收藏
得分:0 

出现的是什么错误???

要调用ACCESS,首先要把DAO库包含到项目中.

oledbcon.ConnectionString = "provider=microsoft.jet.oledb.4.0;data.source=pic.mdb" 在这个语句中,"source=pic.mdb"应该有问题,在VB中,要用 Application.StartPath 获取应用程序的可执行文件的路径


充实是快乐的源泉!!!
2004-09-24 12:34
yang2004
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2004-11-10
收藏
得分:0 

请把出现的错误的系统提示写清楚

2004-11-10 17:30
huihui008
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2004-11-15
收藏
得分:0 

应该是 这句 :oledbcon.ConnectionString = "provider=microsoft.jet.oledb.4.0;data.source=pic.mdb" 有问题

去掉 data .source 中间的 点.


2004-11-18 20:55
lchis5555
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2008-7-1
收藏
得分:0 
data.source=pic.mdb这句有问题,将pic.mdb的详细路径写上去看看,就是例如pic.mdb在C盘就写上C:\pic.mdb
2008-07-01 17:20
Viviwei
Rank: 6Rank: 6
等 级:贵宾
威 望:20
帖 子:344
专家分:0
注 册:2006-4-11
收藏
得分:0 
检查数据库链接路径,DataBase='路径'

爱上思考,爱上编程,爱上.net!
2008-07-02 16:22
快速回复:谁帮我看看这个程序有什么问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016214 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved