PDA

View Full Version : مشكل در ذخيره در sql



majid_vb_2008
دوشنبه 21 بهمن 1387, 12:03 عصر
سلام من يك برنامه نوشتم كه يك سري اطلاعات از كاربر گرفته و در بانك اطلاعاتي ذخيره ميكنه ولي يك مشكل دارم وقتي برنامه رو مي بندم و دوباره باز مي كنم تمام اطلاعات بانك پاك ميشه


دوستان كمك كنيد....:خجالت:

arsalansalar
دوشنبه 21 بهمن 1387, 13:13 عصر
معجزه قرن 21!
کدتو بزار ببینیم تا این معجزه از کجا نشات گرفته؟

nokhodsiah2001
دوشنبه 21 بهمن 1387, 14:58 عصر
سلام

خیلی باحاله.......
فکر کنم اصلاً ثبت نمیشه بلکه تو رابطت مثلاً( دیتاست) نگهداری میشه و وقتی شما برنامه رو می بندی دیتاست ریست میشه و در نتیجه ..... اینیه که میگی

Mhs.Trace
دوشنبه 21 بهمن 1387, 16:42 عصر
سلام!
شما حتما از ديتاست استفاده كردي و يادت رفته كه با ديتا آداپتور آپديت كني بانكت رو

majid_vb_2008
سه شنبه 22 بهمن 1387, 09:55 صبح
سلم بچه ها از توجهتون متشكرم:قلب:

اينم كد من




Imports System.Data
Imports System.Data.SqlClient
Public Class FrmdataEnter
Private strsql As String
Private con As SqlConnection
Private da As SqlDataAdapter
Private com As SqlCommand
Private ds As DataSet
---------
Private Sub FrmdataEnter_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
con = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector y|\Data.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub

-------
Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSave.Click
Try
strsql = "INSERT INTO aza (id,name,famely,shsh) VALUES (@id,@name,@famely,@shsh,)"
con.Open()
com = New SqlCommand(strsql, con)
com.Parameters.Add("@id", SqlDbType.Int).Value = T1.Text
com.Parameters.Add("@name", SqlDbType.Text).Value = T2.Text
com.Parameters.Add("@famely", SqlDbType.Text).Value = T3.Text
com.Parameters.Add("@shsh", SqlDbType.Int).Value = T4.Text
com.ExecuteNonQuery()
con.Close()
MsgBox("اطلاعات جديد ثبت شد.", MsgBoxStyle.OkOnly, "ثبت اطلاعات")
cmdSave.Enabled = False
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub


البته اينم بگم من تو پروژه قبلي با همين كد كار مي كردم درست بود

لطفا راهنماييم كنيد دوستان پيشاپيش از راهنماييتون متشكرم:خجالت:

majid_vb_2008
پنج شنبه 24 بهمن 1387, 10:53 صبح
دوستان من منتظرم لطفا كمك كنيد :متفکر:

mostafaaa
پنج شنبه 24 بهمن 1387, 11:32 صبح
سلام دوست من
احتمالا شما منظورتون از اينكه دوباره باز ميكنيدش، توي محيط IDE و با استفاده از كليد F5 هستش !
اگه حدسم درسته باشه و با توجه به اينكه كدتون هم اشكالي نداره!
دليلش كاملا روشنه چون شما برنامه رو به صورت پيش فرض در حالت Debug ران كردي و با هر بار اجراي مجدد برنامتون ديتابيس داخل پوشه ديباگ با ديتابيسي كه داخل پوشه اصلي برنامت هست جايگزين ميشه!
اگه ميخواهيد كه اينجوري نباشه ، توي Property مربوط به ديتابيستون خاصيت ‍Copy to output رو از Copy alwyse به Copy if newer تغيير بديد
يا علي

majid_vb_2008
جمعه 25 بهمن 1387, 12:31 عصر
سلام مصطفي جون
از راهنمايي كه كردي ممنونم .
مشكلم حل شد :تشویق:
انشاالله بتونم جبران كنم :خجالت:

فعلا با اجازه باي............ :قلب: :بوس:

bensaeed
شنبه 27 آبان 1391, 14:30 عصر
روی DataBase راست کلیک کنید
Peropertis
خاصیت خاصيت ‍Copy to output رو از Copy alwyse به Copy if newer قرار بده.
زمانی که از DataSet استفاده میکنی اینجوری میشه...

خوزستان برزیلته...:بوس: