افزودن ستون به dataset

با سلام خدمت تمامی دوستان برنامه نویس
سوال من این هست که چگونه می توان به دیتاست ستون جدید اضافه کرد؟
اگر بخوام کامل توضح بدم باید بگم که من در vb.bet برنامه ای نوشتم تحت ویندوز
حالا می خواهم با کیریستال ریپورت گزارش تهیه کنم چون آدرس عکس را در پایگاه ذخیره کردم وتنها راه چاپ عکس در کریستال تا اونجا که فهمیدم این هست که عکس به صورت باینری)image( در sql2000 ذخیره شده باشه ولی من آدرس عکس را ذخیره کردم حالا می خواهم این آدرس را تبدیل به باینری کنم و در ستون جدید دیتا ست ذخیره کنم و این وسط کلی مشکل هست از جمله تبدیل آدرس عکس به باینری حالا اگه کسی میتونه ممنون می شم اگه راهنماییم کنه :18:

سلام.
زیاد سخت نگیر کار بسیار ساده ای هست:

کد:

---

        Dim dt As New DataSet
        dt.Tables.Add("tbl_Main") 'اضافه کردن جدول
        dt.Tables("tbl_Main").Columns.Add("نام_ستون") 'اضافه کردن ستون
        dt.Tables("tbl_Main").Columns.Add("نام_ستون2") 'اضافه کردن ستون
        dt.Tables("tbl_Main").Columns.Add("نام_ستون3", Type.GetType("System.Byte[]")) 'اضافه کردن ستون

        Dim row(2) As Object
        row(0) = "aaa" 'مقدار سطر برای درج در دیتاست
        row(1) = "123" 'مقدار سطر برای درج در دیتاست
        row(2) = ImageToBinary("C:\Chrysanthemum.jpg")
        dt.Tables("tbl_Main").Rows.Add(row) 'درج مقدار ها در دیتاست
        DataGridView1.DataSource = dt.Tables("tbl_Main")

        Dim bytes() As Byte
        bytes = dt.Tables("tbl_Main").Rows(0)(2) 'دریافت بایت های عکس در دیتاست
        PictureBox1.Image = BinaryToImage(dt.Tables("tbl_Main").Rows(0)(2)) 'نمایش عکس در کادر عکس

---

تبدیل عکس به باینری:

کد:

---

    Private Function ImageToBinary(ByVal fileName As String) As Byte()
        ImageToBinary = File.ReadAllBytes(fileName)
    End Function

---

بتدیل باینری به عکس:

کد:

---

    Private Function BinaryToImage(ByVal bytes() As Byte) As Bitmap
        Dim fs As New MemoryStream(bytes)
        BinaryToImage = Bitmap.FromStream(fs)
    End Function

---

موفق باشید.