isang 发表于 2004-7-20 16:25

谁帮我看看这个程序有什么问题

<P> 程序目的是:在一个窗体中显示多张图片,图片的来源是一个ACCESS数据库中.</P>
<P>数据库名:pic.mdb     数据表名:pics(有两列,第一列为图片ID,第二列为图片的路径名)</P>
<P>问题是:此程序在运行的时候出现错误,原因在哪里???请高手指点.</P>
<P>Dim icount As Integer</P>
<P>    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load</P>
<P>        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</P>
<P>    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</P>
<P>    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
</P>

地球人 发表于 2004-9-24 12:34

<P>出现的是什么错误???</P><P>要调用ACCESS,首先要把DAO库包含到项目中.</P><P>oledbcon.ConnectionString = "provider=microsoft.jet.oledb.4.0;data.source=pic.mdb" 在这个语句中,"source=pic.mdb"应该有问题,在VB中,要用 Application.StartPath 获取应用程序的可执行文件的路径
</P>

yang2004 发表于 2004-11-10 17:30

<P>请把出现的错误的系统提示写清楚</P>

huihui008 发表于 2004-11-18 20:55

<P>    应该是 这句 :oledbcon.ConnectionString = "provider=microsoft.jet.oledb.4.0;data.source=pic.mdb" 有问题 </P><P>去掉 data .source 中间的 点.</P><P>    </P>

lchis5555 发表于 2008-7-1 17:20

data.source=pic.mdb这句有问题,将pic.mdb的详细路径写上去看看,就是例如pic.mdb在C盘就写上C:\pic.mdb

Viviwei 发表于 2008-7-2 16:22

检查数据库链接路径，DataBase='路径'

页: [1]

编程论坛