اشکال در هنگام ادیت با افزودن ""

[saeed 444]

با سلام
من یک تکست باکس در برنامم دارم که هنگام ذخیره مشکلی نداره و در ذخیر طبق دستور خالی سیو میشه.
حالا هنگام ادیت من تکست دو تا لیبل رو فراخوانی میکنم ولی ویرایشم سیو نمیشه نمونه کد هست


حالتی که ذخیره میشه

textbox1.text= lbl1.text + lbl2.text



حالتی که ذخیره نمیشه

textbox1.text= lbl1.text +" کتابخانه "+ lbl2.text

.

[xxnagin]

سلام
یکم بیشتر توضیح بده

[dadashpor]

شکل درستش به صورت زیر می باشد
textbox1.text= lbl1.caption+" کتابخانه "+ lbl2.caption

[xxnagin]

شکل درستش به صورت زیر می باشد
textbox1.text= lbl1.caption+" کتابخانه "+ lbl2.caption

مثل اینکه شما تالار رو اشتباهی اومدین
caption در لیبل vb 6 هستش نه vb.net
در vb.net تکست (text) هستش

[saeed 444]

سلام مجدد
من از & قبلا استفاده کردم پاسخ یکیه.
بیشتر توضیح میدم من داخل برنامم ثبت گرارش روزانه دارم حالا برای هر کارگر یک توضیحات روزانه درست کردم که در دیباگ بصورت text ذخیره میکنه ( با راهنمایی های کامل جناب xxnagin )
الان اطلاعاتم به دو قسمت ذخیره میشه یکی در دیتا بیس و یکی هم در یک فولدر در دیباگ بصورت تکست.
در حال حاضر اسم هر فایل تکستی که ساخته میشه رو ار خاصیت lb1 تا lb15 میگیرم و کار میکنه
اگر کد انتخاب لیبل رو مثل حالت اول در بالا بدم و بخوام در حالت ویرایش سیو کنم مشکلی نیست اما اگر بصورت حالت دوم شکل بالا بدم برنامه کلا هنگ میکنه
در ضمن اسم این تکست ها در دیتا بیس هم ذخیره میشه و دقیقا مشکل همینجاست بانکم access هست

[zahedi121]

سلام
ببین همینه منظورتون ؟ :

[saeed 444]

سلام این کار رو انجام دادم همین متن در دیتا بیسم که access هست باید اعمال بشه که نمیشه

[zahedi121]

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

[saeed 444]

نوع فیلدم در اکسس text هست
عکس نمونه ارور هم اینه

[y.saied]

سلام، دوست عزیز اگه ممکنه همه کدها رو بذارین


نوع فیلدم در اکسس text هست
عکس نمونه ارور هم اینه

[saeed 444]

این کل کد دستور update هست
ولی مطمئن هستم از این نیست

Private Sub CloudDesktopButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloudDesktopButton3.Click




If TextBox3.Text = "" Then
Timer1.Enabled = True
MsgBox("لطفا نام را در لیست انتخاب و یا سرچ کنید")
Exit Sub
End If


If txtTozihat.Text = "" Then
MsgBox("لطفا توضیحات را درج نمائید")

txtTozihat.Focus()
Exit Sub
End If

Dim con As New OleDbConnection
con.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=|datadirectory|\r.mdb"
Dim command As New OleDbCommand
command.Connection = con
command.CommandText = "update Home set ID=@ID ,name=@name ,tedad=@tedad,dat=@dat ,fam=@fam ,mab=@mab ,gozine=@gozine ,gos=@gos ,LBL111=@LBL111 ,LBL112=@LBL112 ,LBL113=@LBL113 ,LBL114=@LBL114 ,LBL115=@LBL115 ,LBL116=@LBL116 ,LBL117=@LBL117 ,LBL118=@LBL118 ,LBL119=@LBL119 ,LBL120=@LBL120 ,LBL121=@LBL121 ,LBL122=@LBL122 ,LBL123=@LBL123 ,LBL124=@LBL124 ,LBL125=@LBL125 ,lblChange=@lblChange where ID = '" & TextBox2.Text & "'"
command.Parameters.AddWithValue("ID", Trim(TextBox2.Text))
command.Parameters.AddWithValue("name", Trim(TextBox3.Text))
command.Parameters.AddWithValue("tedad", Trim(TextBox4.Text))
command.Parameters.AddWithValue("dat", Trim(TextBox5.Text))
command.Parameters.AddWithValue("fam", Trim(TextBox123.Text))
command.Parameters.AddWithValue("mab", Trim(TextBox6.Text))
command.Parameters.AddWithValue("gozine", Trim(ComboBox1.Text))
command.Parameters.AddWithValue("gos", Trim(ComboBox2.Text))
command.Parameters.AddWithValue("LBL111", Trim(lb1.Text))
command.Parameters.AddWithValue("LBL112", Trim(lb2.Text))
command.Parameters.AddWithValue("LBL113", Trim(lb3.Text))
command.Parameters.AddWithValue("LBL114", Trim(lb4.Text))
command.Parameters.AddWithValue("LBL115", Trim(lb5.Text))
command.Parameters.AddWithValue("LBL116", Trim(lb6.Text))
command.Parameters.AddWithValue("LBL117", Trim(lb7.Text))
command.Parameters.AddWithValue("LBL118", Trim(lb8.Text))
command.Parameters.AddWithValue("LBL119", Trim(lb9.Text))
command.Parameters.AddWithValue("LBL120", Trim(lb10.Text))
command.Parameters.AddWithValue("LBL121", Trim(lb11.Text))
command.Parameters.AddWithValue("LBL122", Trim(lb12.Text))
command.Parameters.AddWithValue("LBL123", Trim(lb13.Text))
command.Parameters.AddWithValue("LBL124", Trim(lb14.Text))
command.Parameters.AddWithValue("LBL125", Trim(lb15.Text))
command.Parameters.AddWithValue("lblChange", Trim(lblChangeVisit.Text))

con.Open()
command.ExecuteNonQuery()
con.Close()
Form1_Load(sender, e)
CloudDesktopButton4.Enabled = True
CloudDesktopButton5.Enabled = True
btnClear.Enabled = True
loadProvider2()

[Abbas Amiri]

سلام
آنطور که ازپیغام خطا پیداست یک از سایز یکی از فیلدها برای مقداری که میخواهید به آن نسبت دهید کوچک است .

[zahedi121]

سلام
مشکل در تنظیمات فایل اکسس هست . اینجا (http://support.microsoft.com/kb/896950) را نگاه کنید.
مقداری که به فیلدتون میفرستید چند کارکتر است ؟

[saeed 444]

کمتر از 70 کارکتر
ولی یه چیزی که گیجم کرده اینه که گاها هیچ اروری نمیده و حتی اگر 50 رکورد هم بزنم ایراد نمیگیره ولی گاها با همون شرایط
بدون کم و زیاد کردن کدها ارور میده

فایل ضمیمه بانک برنامه هست

ممنون

[zahedi121]

سلام
شما تعداد کارکتر را در فیلدهای بانکتون برابر 50 گذاشتید ، من این مقدار را به 110 افزایش دادم.
ببینید درست کار میکنه :
102126

[saeed 444]

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

[zahedi121]

سلام
نمیدونم ، شاید تعداد کارکترهاتون لب مرز 50 بوده و با یک space یا نقطه کم و زیاد میشده.
ولی یک کاری انجام بدید من چون نمیدونستم تعداد سقف کارکترهای فیلدهاتون چقدر است همه فیلدها را 110 گذاشتم ، اگر حجم دیتابیس براتون مهم است و اطلاعات خیلی زیادی را در آینده ذخیره می کنید، تعداد کارکتر ها را دقیق انتخاب کنید بهتر است.
ضمنا یک شرط برای اون فیلدی که باعث اشکال بود ( حجمش زیاد است ) بگذارید که اگر کاربر بیشتر از 110 ( یا هر عددی که شما فکر میکنید ) تاپپ کرد خطا بده.

موفق باشید

[saeed 444]

حتما انجام میدم
پاسختان کامل بود
ممنون