نحوه کار با Sql Server 2008 و کد های آن در VB.Net

این سوالت ::عصبانی::عصبانی::عصبانی::عصب انی::عصبانی::عصبانی::عصبانی:
بهروز جان اصلش همینه که چه جوری به تیبل خودمون وصل کنیم؟؟

یعنی واقعا دستم بهت برسه اینجوریت میکنم :عصبانی++:

این میشه تیبل وصل کردن . اون سوالی که الان شما پرسیدی یعنی این :
من میگم چه جوری باید اون فایل Mdf رو وارد برنامه کنیم.
این یعنی اضافه کردن فایل دیتابیس به برنامه . :عصبانی++::عصبانی::گریه:

داداشی نیاز نیست دیتابیس رو به برنامه من اضافه کنی . فقط شما اونو تو sql server 2008 خودت که رو سیستمت نصبه Attach کن دادا .

:بوس: یا علی

حالا خودتو نزن من وقتی اون رو Attch کنم خود به خود وارد وی بی میشه؟؟

بعدشم این ارورمن رو کشته::عصبانی++::عصبانی++::عصبا نی++::عصبانی++::عصبانی++::افسرد ه::عصبانی++:
https://barnamenevis.org/attachment.p...3&d=1386654640

سلام به همه عزیزان علی الخصوص آقا بهروز گل
آقا دمت گرم واقعا به همچین تاپیکی احتیاج داشتیم خیلی حال کردم
چند تا چیز دیگه هم به ذهنم رسیده که ایشالا سر وقت مزاحمتون میشم
خدا قوت

قربونت دادا تا جایی که بتونم کمک میکنم .

پس من رو چرا کمک نمی کنه کسی؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟!!!!!:گری ه::گریه::گریه::گریه:
با این ارور چه کار کنم؟؟هیچ اطلاعات بیشتری هم نداره فقط همین ارور رومیده:
https://barnamenevis.org/attachment.p...3&d=1386654640

داداش دستت درد نکنه اون مشکلم حل شد ولی این ارور رو هر کار میکنم در حین Add کردن دیتابیس میده:
دیتابیس خودمو حذف کردم بجاش مال تو رو Attach کردم بازم همین ارور رو میده.
توروخدا کمک کن!!!!!!!! من با وی بی 2008 کار میکنم

https://barnamenevis.org/attachment.p...1&d=1386484405

داداش یه شب بهت خبر میدم که با team viewer بیام تو سیستمت. این اروور هم میگه نسخه دیتابیس من از sql server شما جدیدتره . و میگه یه دیتبیس با همین نام تو مسیری ک تو عکس هست وجود داره ک داره استفاده میشه. داش پس درک برنامه نویسی کو؟؟؟ مهم نیست حتما دیتابیس منو بذاری تو پروژت که . خودت بساز 2 تا تیبل با 8 تا فیلد دیگه . اطلاعاتتتم خودت وارد کن. تعریف رشته conn هم تو setting برنامه رو عوض کن و ادرس دیتابیس جدید رو بده . یه دیتابیس رو سیستم خودت بساز مثلا TellSajad

یا علی

داداش ممنون که جواب میدی.من اول همین کار رو کرده بودم و خودم تیبل رو ساختم اما اون موقع باز می گفت نسخه Sql Server همخونی نداره.فکرکنم میگفت پایین تره.
چکارکنم؟؟؟:گریه::گریه::گریه: :گریه::گریه::گریه:

مگه ورژن Sql server تو چنده داداشی ؟؟؟ Microsoft Sql Server 2008 r2 رو نصب کن

همین ورژن دقیقا نصبه با ویژوال استودیو 2008.توروخدا یه راه حلی بهم بده

داداشی Sql server 2008 با vb.net 2008 هم خونی نداره به جان مادرم . تورو جون من عوضش کن :قهقهه::لبخند: ویژوال استودیو دات نت 2010 یا 2013 رو نصب کن و با اون کار کن. اوکی می شه .

سلام آقا بهروز ممنون از وقتی که میذاری
من موقع اضافه کردن تیبل به مشکل خوردم که عکس پیغام را برات میذارم نمیدونم بابت چیه
sql server 2008 && vs2013
در ضمن یه مورد دیگه تو فرم ادیت با زدن شماره تلفن و زدن دکمه جستجو اطلاعات اون فراخونی میشه ولی اگه ما جنسیت جدید را وارد نکنیم جای خالی جایگزین جنسیت قبلی میشه و این یعنی که باید جنسیت تو قسمت جدیدش نوشته بشه حتی اگه تکراری باشه اینم اگه درستش کنید خوب میشه
ممنون

داداش بهروز گلم با راهنمایی هاتون مشکلات رفع شد به جز یه ارور:
ضمیمه 114095
تو رو خدا جواب بده:افسرده:

مشکل من با پاک کردن vs2013 و نصب vs2012 حل شد ممنون از دوستان

من 2012 رو دارم ولی این ارور رو میده:
ضمیمه 114102

با تشکر از تمام بچه ها به خصوص آقا بهروز گل مشکلم حل شد.
حالا یه چند تا سوال از استاد بهروز دارم:
1-اگه یادتون باشه گفته شد:در جایی که میخوایم به برنامه آدرس دیتابیس رو بدیم اگر دیتابیس در محل مورد نظر خودمون ذخیره شده باشه باید از کد زیر استفاده کنیم

Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector  y|\MyDB\TellDB.mdf;Integrated Security=True;User Instance=True

حالا سوال من اینه که آیا باید این آدرس رو هم مثل وقتی که Local هست در Setting پروژه کپی کرد؟؟
وسوال دومم اینه که در این کد گفته شده:SQL Express.آیا اگه از نسخه های دیگه استفاده شده باشه باید به جای این کلمه چی گذاشت؟؟
ممنونم

دوست من Baraii ورژن vb شما چنده ؟؟؟ ورژن sql server شما چنده ؟؟ این 2 تا فک کنم با هم همخونی ندارن چون به ورژنش گیر داده . یا sql server 2008 رو بد نصب کردی دوست من

نقل قول:

---

نوشته شده توسط sagggad

با تشکر از تمام بچه ها به خصوص آقا بهروز گل مشکلم حل شد.
حالا یه چند تا سوال از استاد بهروز دارم:
1-اگه یادتون باشه گفته شد:در جایی که میخوایم به برنامه آدرس دیتابیس رو بدیم اگر دیتابیس در محل مورد نظر خودمون ذخیره شده باشه باید از کد زیر استفاده کنیم

Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector  y|\MyDB\TellDB.mdf;Integrated Security=True;User Instance=True

حالا سوال من اینه که آیا باید این آدرس رو هم مثل وقتی که Local هست در Setting پروژه کپی کرد؟؟
وسوال دومم اینه که در این کد گفته شده:SQL Express.آیا اگه از نسخه های دیگه استفاده شده باشه باید به جای این کلمه چی گذاشت؟؟
ممنونم

---

سوال اولت آقا سجاد : من توی توضیحات گفتم که واسه چی به Setting پروژه مسیر دیتابیسو معرفی میکنیم . چون دیگه نیاز نباشه هربار تو برنامه بیایم هی کد بالا رو بنویسیم . فقط بنویسیم My.setting.con همین .

سوال دومت :لوکال رو هم تو پست های دوم به بعد توضیح دادم که چرا لوکال استفاده کنیم و چرا متغییر . لوکال تو سیستم خودته و اگه بخوای برنامه رو به کسی بدی باید 100 % به طرف دیتابیسی که تو سیستم خودت ( لوکال ) ساختی رو بدی و اونم دیتابیس رو تو sql server 2008 خودش Attach کنه.

ولی روش متغییر اینجوری نیست و دلیل استفاده کردن از کلمه sqlexpress هم اینه که وقتی دیتابیس رو متغییر تعریف می کنیم و همراه پروژه میدیمش اگه رو سیستم sql server 2008 نصب نبود فقط با نصب موتور Engine خود Sql Express 2008 برناممون اجرا شه .

این موتور تو سایتا و تو خودت پک دی وی دی sql server 2008 یا Visual Studio 2010 هستش دوست من.

امیدوارم بدردت خورده باشه . یا حق

سلام
از آموزش خوبتون تشکر می کنم
خیلی عالی و واضح توضیح دادید
یه سوال : وقتی کدهای cmd.dispose() , con.dispose() را می نویسم اولین بار که اطلاعات رو ثبت می کنم همه چیز درست پیش می ره و اطلاعاتم ثبت می شه و تکس باکسها خالی می شه ولی برای نفر بعد که اطلاعات رو وارد می کنم و ثبت رو می زنم در قسمت connection.open(قسمتی که بانک اطلاعاتی رو باز می کنم ) ارور زیر را می دهد و وقتی این دو خط را پاک می کنم مشکل حل می شود .
the connectionstring property has not been initialized
اگر این دو خط را ننویسم و خالی نکنم مشکلی ایجاد می شود ؟

استاد من یه مشکل خیط دارم:
این دیتابیس به خوبی تو سیستم خودم کار میکنه.البته سیستمم 32 بیتی هست.اما وقتی تو یه سیستم 64 بیتی با همون ویندوز میخوام اجراش کنم ارور زیر رو میده:
ضمیمه 114230

نقل قول:

---

نوشته شده توسط نسرین2000

سلام
از آموزش خوبتون تشکر می کنم
خیلی عالی و واضح توضیح دادید
یه سوال : وقتی کدهای cmd.dispose() , con.dispose() را می نویسم اولین بار که اطلاعات رو ثبت می کنم همه چیز درست پیش می ره و اطلاعاتم ثبت می شه و تکس باکسها خالی می شه ولی برای نفر بعد که اطلاعات رو وارد می کنم و ثبت رو می زنم در قسمت connection.open(قسمتی که بانک اطلاعاتی رو باز می کنم ) ارور زیر را می دهد و وقتی این دو خط را پاک می کنم مشکل حل می شود .
the connectionstring property has not been initialized
اگر این دو خط را ننویسم و خالی نکنم مشکلی ایجاد می شود ؟

---

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

 ' ///// check state connection age baz bod khoroji bede o amal insert anjam beshe   /////

       con.Open()

       If con.State = ConnectionState.Open Then

           If cmd.ExecuteNonQuery() Then

               con.Close()

               MessageBox.Show(" اطلاعات ورودی مورد نظر ثبت شد")

           End If

       End If

       cmd.Dispose()

       con.Dispose() 

نقل قول:

---

نوشته شده توسط sagggad

استاد من یه مشکل خیط دارم:
این دیتابیس به خوبی تو سیستم خودم کار میکنه.البته سیستمم 32 بیتی هست.اما وقتی تو یه سیستم 64 بیتی با همون ویندوز میخوام اجراش کنم ارور زیر رو میده:
ضمیمه 114230

---

داداشی ورژنMicrosoft .net frameworket b با سیستم ی که 64 بیتیه نمی خونه . تو برنامه هات دات نت فریم ورک 4.5 به بالا رو نصب داری و رو سیستمی که برنامه رو اجرا کردی و Sql توش داری نسخه پایین ترشو . تست کن نصبش کن فریم وورکو . اگه نشد تو Vb قسمت Any cpu رو انتخاب کن هم 86 و هم 64 بیتی.

یا حق

سلام
ممنون بابت آموزش خوبتون
من تو پروژم فیلد نام و نام خانوادگی رو می زنم و جستجو می کنم ،
مثلا نام و نام خانوادگی را مریم عدل می زنم برای اولین بار درست نشون می ده ولی اگه نام رو به فاطمه تغییر بدم ولی با همون فامیل (عدل) و دوباره دکمه جستجو رو بزنم ارور زیر را می دهد .
The variable name '@first_name' has already been declared. Variable names must be unique within a query batch or stored procedure.

یه مشکل دیگه :گریه:
وقتی برای اولین بار نام و نام خانوادگی رو جستجو می کنم و نشون می ده اطلاعات رو ، دکمه حذف رو که می زنم پیغام "پیدا نشد " رو نمایش می ده چرا؟
یعنی اصلا تشخیص نمی ده که این اطلاعات تو دیتا بیس هست تا delete بکنه . چرا؟
کدهای مربوط به حذف نام و نام خانوادگی رو هم به صورت زیر نوشتم :
If (txtfirst_name.TextLength > 0 And txtlast_name.TextLength > 0) Then
objcommand.Connection = objconnection
objcommand.CommandText = "DELETE FROM guest WHERE (first_name='" & txtfirst_name.Text & "' and last_name='" & txtlast_name.Text & "')"
objconnection.Open()
Dim count AsInteger
count = objcommand.ExecuteNonQuery()
objconnection.Close()
If count > 0 Then
MessageBox.Show("اطلاعات مورد نظر حذف شد")
Else
MessageBox.Show("اطلاعات مورد نظر پیدا نشد")
EndIf
EndIf
txtfirst_name.Clear()
txtlast_name.Clear()
txtfather_name.Clear()
txtno_shenasnameh.Clear()
txtdate_tavalod.Clear()
txtmahale_tavalod.Clear()
txtphone.Clear()
txtaddress.Clear()

نقل قول:

---

نوشته شده توسط نسرین2000

یه مشکل دیگه :گریه:
وقتی برای اولین بار نام و نام خانوادگی رو جستجو می کنم و نشون می ده اطلاعات رو ، دکمه حذف رو که می زنم پیغام "پیدا نشد " رو نمایش می ده چرا؟
یعنی اصلا تشخیص نمی ده که این اطلاعات تو دیتا بیس هست تا delete بکنه . چرا؟
کدهای مربوط به حذف نام و نام خانوادگی رو هم به صورت زیر نوشتم :
If (txtfirst_name.TextLength > 0 And txtlast_name.TextLength > 0) Then
objcommand.Connection = objconnection
objcommand.CommandText = "DELETE FROM guest WHERE (first_name='" & txtfirst_name.Text & "' and last_name='" & txtlast_name.Text & "')"
objconnection.Open()
Dim count AsInteger
count = objcommand.ExecuteNonQuery()
objconnection.Close()
If count > 0 Then
MessageBox.Show("اطلاعات مورد نظر حذف شد")
Else
MessageBox.Show("اطلاعات مورد نظر پیدا نشد")
EndIf
EndIf
txtfirst_name.Clear()
txtlast_name.Clear()
txtfather_name.Clear()
txtno_shenasnameh.Clear()
txtdate_tavalod.Clear()
txtmahale_tavalod.Clear()
txtphone.Clear()
txtaddress.Clear()

---

سلام دوست من.شما براچی کد if رو داخل پرانتز نوشتید؟؟
If (txtfirst_name.TextLength > 0 And txtlast_name.TextLength > 0) Then
این ممکنه باعث اشکال باشه!

نقل قول:

---

نوشته شده توسط sagggad

سلام دوست من.شما براچی کد if رو داخل پرانتز نوشتید؟؟
If (txtfirst_name.TextLength > 0 And txtlast_name.TextLength > 0) Then
این ممکنه باعث اشکال باشه!

---

سلام . نه دستور If من مشکل ساز نمی کنه و میاد میگه اگه تکس باکس من مقدارش و طولش بزرگتر از 0 بود عملیات رو انجام به .

بعد دوست من شما میای 1 بار دستورات رو می خونی درست . بعدش میای همه txt هاتو clear میکنی و پاک میکنی و دکمه حذف رو میزنی به نظرت برنامه چی رو پیدا کنه ؟؟؟

من برنامه رو گذاشتم واسه آموزش شما می تونی برنامه رو بهینه کنی و دوباره بفرسی . هدف من آموزش کار با عملیات اصلی Sql بود.

آقا بهروز اگه من بخوام یه دیتا گرید ویو هم بزارم و اطلاعات بعد از ثبت شدن تو دیتا گرید ویو هم نشون داده بشه چیکار باید بکنم؟
ممنون

نقل قول:

---

نوشته شده توسط barrai

آقا بهروز اگه من بخوام یه دیتا گرید ویو هم بزارم و اطلاعات بعد از ثبت شدن تو دیتا گرید ویو هم نشون داده بشه چیکار باید بکنم؟
ممنون

---

سلام دوست من.من هم اول با این موضوع مشکل داشتم.اما الان ویدئوی زیر رو واست ساختم دان کن قشنگ متوجه میشی.فقط چون حجمش 3 مگابایت هست نتونستم تو سایت آپلودش کنم .
لینک دانلود: http://www.uplooder.net/cgi-bin/dl.c...2007bd66a09667
موفق باشید:لبخندساده:

یه سوال دیگه
چطوری میتونم تو فرم ویرایش به جای تکست باکس ، کمبو باکس بزارم و از لیست کشویی شماره تلفن را انتخاب کنم و با انتخاب شماره تلفن باقی اطلاعات سر جاهای خودش بشینه ؟
ممنون

نقل قول:

---

نوشته شده توسط barrai

آقا بهروز اگه من بخوام یه دیتا گرید ویو هم بزارم و اطلاعات بعد از ثبت شدن تو دیتا گرید ویو هم نشون داده بشه چیکار باید بکنم؟
ممنون

---

داداشه من برنامه من تو بخش نمایش اطلاعاتش دیتا گرید ویو هست دیگه !!!! نیاز نیست دوباره بذاری که

نقل قول:

---

نوشته شده توسط sagggad

سلام دوست من.من هم اول با این موضوع مشکل داشتم.اما الان ویدئوی زیر رو واست ساختم دان کن قشنگ متوجه میشی.فقط چون حجمش 3 مگابایت هست نتونستم تو سایت آپلودش کنم .
لینک دانلود: http://www.uplooder.net/cgi-bin/dl.c...2007bd66a09667
موفق باشید:لبخندساده:

---

ممنون از حسن توجهتون ولی اون چیزی که من میخواستم نبود یعنی من بعد از ثبت اطلاعات در بانک همون موقع تو دیتا گرید ویو هم ببینم

نقل قول:

---

نوشته شده توسط barrai

یه سوال دیگه
چطوری میتونم تو فرم ویرایش به جای تکست باکس ، کمبو باکس بزارم و از لیست کشویی شماره تلفن را انتخاب کنم و با انتخاب شماره تلفن باقی اطلاعات سر جاهای خودش بشینه ؟
ممنون

---

باید یه کمبو باکس بذاری و وصلش کنی به دیتابیس . بعد بیای بر حسب اون مقدار جستجو کنی . تکس باکس بهتره چون دست کاربر بازه .

نقل قول:

---

نوشته شده توسط barrai

سلام آقا بهروز ممنون از وقتی که میذاری
من موقع اضافه کردن تیبل به مشکل خوردم که عکس پیغام را برات میذارم نمیدونم بابت چیه
sql server 2008 && vs2013
در ضمن یه مورد دیگه تو فرم ادیت با زدن شماره تلفن و زدن دکمه جستجو اطلاعات اون فراخونی میشه ولی اگه ما جنسیت جدید را وارد نکنیم جای خالی جایگزین جنسیت قبلی میشه و این یعنی که باید جنسیت تو قسمت جدیدش نوشته بشه حتی اگه تکراری باشه اینم اگه درستش کنید خوب میشه
ممنون

---

تو دکمه ثبت بیا شرط بذار که اگه تکس باکس جنسیت خالی بود اررور بده اینجوری :

 If TxtGensiyat.Text = String.Empty Then

          MsgBox("نوع جنسیت را وارد كنيد", vbExclamation + vbOKOnly, "پيام")

          TxtGensiyat.Focus()

          Exit Sub

      End If 

اینجا اگه خالی باشه تکس باکس جنسیت اررور میده و روش فوکوس میکنه تا وارد کنید

یا علی

نقل قول:

---

نوشته شده توسط behrooz69

باید یه کمبو باکس بذاری و وصلش کنی به دیتابیس . بعد بیای بر حسب اون مقدار جستجو کنی . تکس باکس بهتره چون دست کاربر بازه .

---

میشه بگید چه جوری ؟

نقل قول:

---

نوشته شده توسط barrai

میشه بگید چه جوری ؟

---

داداشی سرچ کن تو انجمن هست . من اضافه کردن یه تیبل از دیتابیس رو به کمبو باکس میذارم . باقیش با خودت . چون خودم کار نکردم روش هنوز داداشی .

 

Private Sub CboNoeMahsol()

 

 

        '// tabee farakhani select 1 field az jadval db be combobox , DISTINCT : bedon tekrar

 

        con = New SqlConnection(My.Settings.conn)

 

        '// age con ma baste bod ono baz mikone

 

        If con.State = ConnectionState.Closed Then

            con.Open()

        End If

 

        Dim da As New SqlDataAdapter("select Distinct Name from TableShoma", con)

 

        Dim ds As New DataTable

 

         

        da.Fill(ds)

 

        ComboName.DataSource = ds

 

        ComboName.DisplayMember = "Name"

 

        '// age con ma baz bod ono mibande

 

        If con.State = ConnectionState.Open Then

            con.Close()

        End If

 

 

    End Sub 

بعدش تو Combo مورد نظر که قراره اطلاعات ما نشون داده شه این تابع رو فراخوانی می کنیم با Call اینجوری
1
2
3

 Private Sub ComboNameMahsol_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboNameMahsol.DropDown

        Call CboNoeMahsol()

    End Sub 

سلام بچه ها . خو خودمم درگیر این بودم که چرا اررور باز بودن دیتابیس میده وقتی کار انجام شده یا بیشتر از 1 بار رو دکمه جستجو یا بروز رسانی یا هرچیزی کلیک میشه .

1 نمونش تو فرم ویرایش اطلاعات وقتی رو جستجو کلیک میکنید و بروز رسانی میزنید دفعه دیگه که کلیک میکنه اررور میده که همه رو وارد کنید اگه برید تو کد و قسمت آخر Catch رو به این تغییر بدید تا اررور رو بفهمید اینجوری :

Catch ex As Exception
MsgBox(ex.Message)
End Try

خو حالا واسه رفع مشکلمون من اول میام چک میکنم که اگه Connection من بسته بود اونو باز کنم .

بعد کارامو انجام بدم موقع دریافت اطلاعات یا همون Query از Sql میام شرط بذارم که اگه Connection ما وضعیتش همچنان باز بود بیا خروجی بده .

بعد که خروجی داد بیام Connection رو ببندم .

اینم کدش تو دکمه سرچ :

  If TxtTell.Text = String.Empty Then

            MsgBox("تلفن شخص را وارد كنيد", vbExclamation + vbOKOnly, "پيام")

            TxtTell.Focus()

            Exit Sub

        End If



        If TxtTell.TextLength > 0 Then



            If con.State = ConnectionState.Closed Then

                con.Open()

            End If



            cmd = New SqlCommand()

            cmd.Connection = con

            cmd.CommandText = "SELECT Fname,Lname,Address,Gen FROM TblRegister  WHERE(Tell=@Tell)"

            cmd.Parameters.Add("@Tell", SqlDbType.NVarChar, 50).Value = TxtTell.Text



            'con.Open()

            If con.State = ConnectionState.Open Then

                Dim sReader As SqlDataReader = cmd.ExecuteReader()



                If sReader.Read() Then

                    TxtName.Text = sReader.GetValue(0).ToString()

                    TxtLName.Text = sReader.GetValue(1).ToString()

                    TxtAddress.Text = sReader.GetValue(2).ToString()

                    TxtGen.Text = sReader.GetValue(3).ToString()

                    con.Close()

                Else : MessageBox.Show("پیدا نشد")

                End If

            End If





        End If 

اینم کدش تو دکمه بروز رسانی :

  Try

            If con.State = ConnectionState.Closed Then

                con.Open()

            End If

            cmd.CommandText = "UPDATE TblRegister SET Fname=@Fname,Lname=@Lname,Address=@Address,Gen=@Ge  n WHERE(Tell=@Tell)"

            cmd.Parameters.Add("@Fname", SqlDbType.NVarChar, 50).Value = TxtName.Text

            cmd.Parameters.Add("@Lname", SqlDbType.NVarChar, 50).Value = TxtLName.Text

            cmd.Parameters.Add("@Address", SqlDbType.NVarChar, 500).Value = TxtAddress.Text

            cmd.Parameters.Add("@Gen", SqlDbType.NVarChar, 50).Value = CboGen.Text



            'con.Open()

            If con.State = ConnectionState.Open Then

                Dim count As Integer

                count = cmd.ExecuteNonQuery()



                If count > 0 Then

                    MessageBox.Show("بروز رسانی شد")

                    con.Close()

                Else : MessageBox.Show("اطلاعات مورد نظر پیدا نشد")

                End If



            End If



        Catch ex As Exception

            MsgBox(ex.Message)

        End Try 

همه پروژه هاتونم میتونید از این 2تا تیکه کد استفاده کنید .

با سلام از آقا بهروز و اموزش مفيدشان
ايا تو sql server express 2008 امكان داره كه پشتيبان فول - و همچنين از تراكنشها بصورت اتومات انجام بشه
ممنون

با سلام از آقا بهروز و اموزش مفيدشان
ايا تو sql server express 2008 امكان داره كه پشتيبان فول - و همچنين از تراكنشها بصورت اتومات انجام بشه
ممنون

سلام دوست من منظورت رو نفهمیدم .
ولی اگه منظورت پشتیبان گیری از بانک خودته که تو بخش Backup & Restore تو بخش Sql server این فروم موجوده .

به صورت اتوماتیک کردنشم که فقط 1 تایمر میخواد که تو تایم مشخص اینکار انجام شه . ولی تو نرم افزار ها باید بعد از دستور خروج از برنامت اینکار انجام بشه .

وقتی بکاپ گرفت بعد برنامه بسته شه اینجوری :

  Dim s As String

        s = MsgBox("آیا مایل به خروج از برنامه هستید؟ ", MsgBoxStyle.YesNo + MsgBoxStyle.Question, Title:="هشدار")

        If s = vbYes Then

            Try



                Dim cnn As New SqlConnection("Data Source=(local);Initial Catalog=Sardkhone;Integrated Security=True")



                Dim cmd As New SqlCommand

                cnn.Open()

                Dim query As String = "BACKUP DATABASE [Sardkhone] TO DISK =N'E:\Sardkhone.BAK'"

                cmd.CommandText = query

                cmd.Connection = cnn

                cmd.ExecuteNonQuery()

                MsgBox("پشتیبانگیری با موفقیت صورت گرفت")

                cnn.Close()

            Catch ex As Exception

                MsgBox("مشکل در پشتیبان گیری")

            End Try

            End

        End If 

این دستور اول میگه میخواید خروج شید یا نه اگه کاربر بله رو بزنه بکاپ میگیره و دیتابیس منو تو درایو E میریزه . هربارم روش آپدیت میکنه .

اگه میتونی متغیرش کن به فولدر خود برنامه و فایل زیپشم بکن . من هنز وقت نکردم روش کار کنم . تا حالا هم روش کار نکردم . ولی جستجو کن پره.

یا حق

نقل قول:

---

نوشته شده توسط sagggad

دستت طلا.فقط من که میام اون رو به فایل خودم کپی کنم ارور زیر رومیده
ضمیمه 113568
سیستم رو ریستارت کردم که دیگه اینو نگه اما فایده نداشت!!

---

سلام
چون دیتابیس توسط sql در حال استفاده است نمیشه کپی کرد
اول باید روی نام دیتابیس در sql کلیک راست کنی و گزینه Dettach رو بزنی بعد میشه کپی کرد
بعد از کپی دوباره باید روی Database کلیک راست کنی و Attach Database رو بزنی و با انتخاب دیتابس مورد نظر دوباره فعالش کنی تا در sql و برنامه ات قابل استفاده باشه
من توصیه می کنم جهت انتقال یک دیتابیس به یک Sql دیگه ازش Backup بگیری و در مقصد Restore کنی مراحلش کمتره و همون کار رو برات میکنه
موفق باشید

با سلام
نسخه Express با Enterprise تفاوت چندانی در عملکردهای پایه ای نداره فقط قدرتش کمتره و امکانات اضافی رو نداره
Backup اتوماتیک رو میتونید در قسمت Maintnance Plan در sql تعریف کنید تا در زمانهای مورد نظر شما و در محل مورد نظر شما Backup بگیره
توصیه می کنم عوض پرسیدن سوالهای جزئی و گرفتن جوابهای ناقصی مثل جواب من ، حتما یک کتاب Sql Server رو کامل بخونید خیلی به دردتون میخوره
موفق باشید

نقل قول:

---

نوشته شده توسط swallow.pa

با سلام از آقا بهروز و اموزش مفيدشان
ايا تو sql server express 2008 امكان داره كه پشتيبان فول - و همچنين از تراكنشها بصورت اتومات انجام بشه
ممنون

---

داداش سوالتو خیلی خیلی بد پرسیدی که من اصلا نفهمیدم .
الان که دیدم دوستم توضیح داده متوجه شدم.

آره تو Sql Server 2008 امکان Backup گیری ( پشتیبان گیری ) از دیتابیس به صورت خودکار یا اتوماتیک ( Auto ) وجود داره .

واسه اینکار روی دیتابیست توی برنامه Sql Server 2008 راست کلیک کن و Task و بعدشم Backup رو بزن . همه چیز واضحه ولی بازم بهت میگم.

1 - اسم دیتابیستو واسه بکاپ انتخاب کن
2- نوعشو که کامل باشه یا نه
3 - کل دیتابیستو میخوای یا فایل ها و دیتاهاشو
4- تعیین میکنی که بعد از چند روز یا چه روزی به صورت خودکار بکاپ بگیره
5 - مسیر زخیره سازی بکاپ دیتابیس رو مشخص میکنید.
ضمیمه 114540

6- منوی آپشن های اضافی تنظیمات بکاپتونه.
7- فایلهای قبلی رو نگه میداره و اطلاعات جدید رو توش میریزه ( حجم دیتابیس بعد هر بار بکاپ حتی اطلاعات وارد نکنی 2 برابر میشه )
8 - اطلاعات جدید رو به جای قبلی جایگزین میکنه ( روش صحیح بکاپ اینه )
9 - قسمت اررور های بکاپه که اولیش بعد بکاپ دوباره چک میکنه بکاپو ، سومی هم میگه اررور رو بیخیال شو و ادامه بده بره :لبخند:
ضمیمه 114541

سوال رو واضح بپرسید لطفا خواهشا.


یا حق

سلام
چجوری میشه جدولمونو ویرایش کنیم؟

جدول کجاتو داداشه من ؟؟؟ دیتابیس رو میگی ؟؟؟ توی Sql server 2008 روی دیتابیست دابل کلیک کن باز که شد روی Tables کلیک کن و Table مورد نظر رو روش راست کلیک کن و Design رو واسه طراحی ، اضافه یا کم و زیاد کردن فیلد هاش استفاده کن و از Show 200 Row رو واسه دیدن 200 رکورد ثبت شده خودت استفاده کن بعد که اطلاعاتتو دیدی ویرایش یا حذف کن

یا حق

نقل قول:

---

توی تکس باکس روی تکس باکس تلفن دابل کلیک کنید و تو رویداد TextChanged اون کد زیر رو واسه فیلتر کردن بر حسب شماره تلفن بنویسید :


TblRegisterBindingSource.Filter = "Tell Like '*" & TxtTell.Text & "*'"

---

آقا بهروز سلام . د رعبارت لایک که شما برای جستجو گذاشتین اگر مقدار یک فیلد عدد باشه خطا میگیریه . تغییری در دستور باید داد ؟

نقل قول:

---

نوشته شده توسط vb341

آقا بهروز سلام . د رعبارت لایک که شما برای جستجو گذاشتین اگر مقدار یک فیلد عدد باشه خطا میگیریه . تغییری در دستور باید داد ؟

---

سلام نه مشکل نداره .
textbox تلفن اصلا خودش عدد هستش .

آقا بهروز منظور من اینه که نوع فیلد در دیتابیس عددی باشه نه اینکه شما در شماره تلفن عدد وارد کرده باشین .
چون زمانیکه بادستور شما یک فیلد عددی جستجو میشه از DataType اون اشکال میگیره . لطفا یک بررسی مجدد بفرمائید

داداشی این تست شدست . اررورش رو بفرست . چون اگه نوع فیلدش رو عدد یا چیز دیگه میذاشتم تو گزارش گیری مشکل ساز بود واسم .

بچه ها کسه دیگه این مشکل رو داره ؟؟؟

با سلام
ارور در خصوص نوع دیتا هست . الان پروه دم دستم نیست و در اداره و در محل کارمه .
ولی عرض کردم . نوع دیتای من در بانک از نوع bigint هست و این دستور شما از نوع دیتا اشکال میگیره . چون دستور شما نوع استرینگ رو برمیگردونه