PDA

View Full Version : کسی vb6 یاد داره



mlh_poorranjbar
شنبه 22 دی 1386, 21:50 عصر
سلام
حتما یاد دارید
اگه ممکنه این دستور رو که برای ذخیره وبازیابی کردن فایل swf داخل sql هست رو به vb تبدیل کنید
کد ذخیره:

FileStream fs = new FileStream("d:\\1.swf",FileMode.Open);
FileInfo fi = new FileInfo("d:\\1.swf");
byte[] swf = new byte[(int)fi.Length];
fs.Read(swf, 0, (int)fi.Length);

SqlConnection con = new SqlConnection("Data Source=.;Initial Catalog=master;Persist Security Info=True;Password=1;User ID=sa");
con.Open();
SqlCommand com = new SqlCommand("Insert into TFile (name,swf) Values (@name,@swf)", con);
com.Parameters.Add("name", SqlDbType.NVarChar).Value = "1.swf";
com.Parameters.Add("swf", SqlDbType.Image).Value = swf;
com.ExecuteNonQuery();
con.Close();
کد بازیابی:

SqlConnection con = new SqlConnection("Data Source=.;Initial Catalog=master;Persist Security Info=True;Password=1;User ID=sa");
con.Open();
SqlDataReader dr;
SqlCommand com = new SqlCommand("select * from TFile", con);
dr = com.ExecuteReader();
dr.Read();
byte[] swf = (byte[])dr.GetValue(1);
FileStream fs = new FileStream("d:\\222.swf", FileMode.Create);
fs.Write(swf, 0, swf.Length);
fs.Close();
con.Close();
ممنون میشم اگه کمک کنید

sinpin
شنبه 22 دی 1386, 23:32 عصر
باور کنید خیلی کار سختیه ! (تبدیل از dot net به vb6)
ولی سورس کد که تو اینترنت زیاد هست واسه این موضوع ؟
مثلا :
http://www.visualbasic.happycodings.com/Database_SQL_Stuff/code15.html

hassan razavi
یک شنبه 23 دی 1386, 00:24 صبح
منهم قبلا ها در سایت vbcode.com نمونه برنامه ذخیره فایل در DB رو گرفتم. یه سری به این سایت بزنید.

mlh_poorranjbar
یک شنبه 23 دی 1386, 09:47 صبح
منهم قبلا ها در سایت vbcode.com نمونه برنامه ذخیره فایل در DB رو گرفتم. یه سری به این سایت بزنید.
این کد رو من از یک تاپیکی که شما جواب اون رو داده بودید برداشتم