farhad85
شنبه 17 خرداد 1393, 18:42 عصر
سلام بر همه دوستان
من موفق شدم فایلمو با روش زیر در بانکم ذخیره کنم.
حالا میخوام روی هر رکورد(سلول) دیتا گرید ویو که داری یک فایل ذخیره شده هست کلیک شد فایل ذخیره شده با محتویاتش با نرم افزار خودش باز بشه اگه هم فایلی داخل اون نبود یه پیغام بده. ممنون ازهمه
کد:
If saveFD.ShowDialog = DialogResult.OK Then
Dim my_cm5000000 AsNewSqlCommand("insert into track(file_gps) values (@file_gps)", my_cn5000000)
Dim my_da5000000 AsNewSqlDataAdapter("Select * from track", my_cn5000000)
Dim my_ds5000000 AsNewDataSet
Dim my_cb5000000 AsNewSqlCommandBuilder(my_da5000000)Dim ms AsNewMemoryStreamDim ms AsNewMemoryStream
Dim ms As New MemoryStream
Dim arrfile = ms.ToArray
my_cm5000000.Parameters.AddWithValue("@file_gps",arrfile)
()my_cn5000000.Open
()my_cm5000000.ExecuteNonQuery
my_da5000000.Fill(my_ds5000000,"track")
()my_cn5000000.Close
EndIf
من موفق شدم فایلمو با روش زیر در بانکم ذخیره کنم.
حالا میخوام روی هر رکورد(سلول) دیتا گرید ویو که داری یک فایل ذخیره شده هست کلیک شد فایل ذخیره شده با محتویاتش با نرم افزار خودش باز بشه اگه هم فایلی داخل اون نبود یه پیغام بده. ممنون ازهمه
کد:
If saveFD.ShowDialog = DialogResult.OK Then
Dim my_cm5000000 AsNewSqlCommand("insert into track(file_gps) values (@file_gps)", my_cn5000000)
Dim my_da5000000 AsNewSqlDataAdapter("Select * from track", my_cn5000000)
Dim my_ds5000000 AsNewDataSet
Dim my_cb5000000 AsNewSqlCommandBuilder(my_da5000000)Dim ms AsNewMemoryStreamDim ms AsNewMemoryStream
Dim ms As New MemoryStream
Dim arrfile = ms.ToArray
my_cm5000000.Parameters.AddWithValue("@file_gps",arrfile)
()my_cn5000000.Open
()my_cm5000000.ExecuteNonQuery
my_da5000000.Fill(my_ds5000000,"track")
()my_cn5000000.Close
EndIf