程序目的是:在一个窗体中显示多张图片,图片的来源是一个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
