تبلیغات
كامپیوتر و HIGH TECH - استفاده از رجیستری در vb.net

استفاده از رجیستری در vb.net

 

نوع مطلب :SQL SERVER ،VB.NET ،

نوشته شده توسط:امید پورحسین

رجیستری به عنوان یك منبع جهت ذخیره سازی تنظیمات برنامه ها مورد استفاده قرار می گیرد در اینجا می خواهیم نحوه ذخیره نمودن اجزای  یك connection stringدر رجیستری را انجام دهیم.
با توجه به اینكه در ویندوز ما می توانیم چندین كاربر داشته باشیم پس اگر بخواهیم تنظیمات هر كاربر اختصاصی باشد باید تغییرات را در شاخه current user ذخیره كنیم. ولی اگر خواستیم این تنظیمات برای همه كاربران یكسان باشد مقادیر را در  current machine ذخیره می كنیم. جهت برنامه های پایگاه داده بهتر است كه از current user استفاده شود همچنین توجه داشته باشید كه ذخیره كردن اطلاعات در رجیستری به خودی خود امنیت شما را تضمین نمی كند مگر اینكه شما اطلاعات خود را هنگام ثبت در رجیستری encrypt كنید.
خب اول باید یك sub key برای برنامه خود بسازید من با دستور زیر یك شاخه در شاخه software با نام myapp می سازم

My.Computer.Registry.CurrentUser.CreateSubKey("software\myapp")

خب حالا باید كلیدهای این شاخه را تعریف كنیم
جهت یك ارتباط استاندارد با یك بانك sql server نیازمند تعریف چهار آیتم هستیم كه برای هر كدام یك كلید مجبوریم بسازیم توجه داشته باشید كه به هنگام ذخیره كردن مقادیر هر key  اگر آن key  از قبل نبوده باشد خود key  به صورت خودكار ایجاد می شود.
تبصره: شما می توانید كل connection string را داخل یك key تعریف كنید ولی روش جالبی نیست.

فرض كنید textbox1 حاوی آدرس سرور
textbox2 حاوی اسم بانك اطلاعاتی
textbox3 حاوی username
textbox4  حاوی password می باشد
دستورات زیر را جهت ذخیره موارد بالا در برنامه می نویسیم

My.Computer.Registry.SetValue("HKEY_CURRENT_USER\software\myapp", "server", TextBox1.Text)
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\software\myapp", "bank", TextBox2.Text)
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\software\myapp", "user", TextBox3.Text)
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\software\myapp", "pass", TextBox4.Text)

جهت فراخوانی اطلاعات فوق و ساختن connection string از دستورات زیر استفاده كنید

Dim cn, serv, bnk, uss, pss As String
serv = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\software\myapp", "server", "").ToString
bnk = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\software\myapp", "bank", "").ToString
uss = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\software\myapp", "user", "").ToString
pss = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\software\myapp", "pass", "").ToString
cn = "password=" + pss + "; user id=" + uss + "; initial catalog=" + bnk + "; data source=" + serv




Norris
پنجشنبه 16 آذر 1396 08:19 ب.ظ
Really no matter if someone doesn't understand afterward its up to other viewers that they
will help, so here it happens.
Foot Problems
شنبه 14 مرداد 1396 05:14 ق.ظ
You could certainly see your enthusiasm within the
work you write. The world hopes for even more passionate
writers such as you who are not afraid to say how they believe.
At all times follow your heart.
racialpenitenti1.exteen.com
جمعه 13 مرداد 1396 03:53 ب.ظ
After exploring a number of the blog posts on your web site,
I really like your technique of writing a blog. I added it to my bookmark
site list and will be checking back soon. Please visit my website too
and tell me what you think.
georgiemancell.wordpress.com
شنبه 7 مرداد 1396 03:21 ب.ظ
I will immediately clutch your rss feed as I can't in finding your e-mail subscription hyperlink or
newsletter service. Do you've any? Kindly permit me recognise in order that I may subscribe.

Thanks.
 
لبخندناراحتچشمک
نیشخندبغلسوال
قلبخجالتزبان
ماچتعجبعصبانی
عینکشیطانگریه
خندهقهقههخداحافظ
سبزقهرهورا
دستگلتفکر