سوال های آماتوری برنامه نویسی در VB.NET

[nasim bahari]

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

اول اینکه من وقتی توی فرمم دکمه Tab رو می زنم بجای اینکه Focus به ترتیب بین فیلدها حرکت کند , به طور نامنظم حرکت می کند . TabIndex را هم به ترتیب قرار داده ام آما باز نمی دونم چرا اینجور حرکت می کنه!

دوم اینکه تابعی می خوام که رشته ای رو که بهش میدی رو به عدد تبدیل کنه . مثال می زنم : رشته "crying sphere" رو به مقدار عددی ( کد اسکی ) آنها تبدیل کنه . چیزی مثل 65238458958 که عددی است که کاربر اصلا نمیتونه حدث بزنه این عدد چجور از اون کلمه بدست اومده .

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

سلام دوست عزیز....

در مورد سوال دومت.......

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

موفق باشی

[محسن شامحمدی]

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

اول اینکه من وقتی توی فرمم دکمه Tab رو می زنم بجای اینکه Focus به ترتیب بین فیلدها حرکت کند , به طور نامنظم حرکت می کند . TabIndex را هم به ترتیب قرار داده ام آما باز نمی دونم چرا اینجور حرکت می کنه!

دوم اینکه تابعی می خوام که رشته ای رو که بهش میدی رو به عدد تبدیل کنه . مثال می زنم : رشته "crying sphere" رو به مقدار عددی ( کد اسکی ) آنها تبدیل کنه . چیزی مثل 65238458958 که عددی است که کاربر اصلا نمیتونه حدث بزنه این عدد چجور از اون کلمه بدست اومده .

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

واسه مشکل اولتون با استفاده از منوی view گزینه tab order رو بزنید حالا اگر به ترتیب رو کنترل ها کلیک کنید ترتیب فوکوسشون به همون ترتیب می شه.


اما سوال دومتون .
من هم حدود 2 سال پیش فکر می کردم این روش روش مطمئنی واسه کد کردنه واسه همین یک دفعه سر کلاس تاریخ این کد رو نوشتم (حوصلم سر رفته بود) کد رو ضمیمه کردم

[damas90]

cmd.Connection = con

cmd.CommandText = "insert into table1 values(@sho_perseneli,@name,@family,@name_pedar,@j  ens,@tt_ruz,@tt_mah,@tt_year,@tell,@mobile,@mohle_  tavallod)"


cmd.Parameters.AddWithValue("@sho_perseneli", tb_sho.Text)



cmd.Parameters.AddWithValue("@name", tb_name.Text) 

cmd.Parameters.AddWithValue("@family", tb_family.Text)

cmd.Parameters.AddWithValue("@name_pedar", tb_pedar.Text)

cmd.Parameters.AddWithValue("@jens", tb_jens.Text)

cmd.Parameters.AddWithValue("@tt_ruz", tb_ruz.Text)

cmd.Parameters.AddWithValue("@tt_mah", tb_mah.Text)

cmd.Parameters.AddWithValue("@tt_year", tb_year.Text)

cmd.Parameters.AddWithValue("@tell", tb_tell.Text)

cmd.Parameters.AddWithValue("@mobile", tb_tell_hamrah.Text)

cmd.Parameters.AddWithValue("@mohle_tavallod", tb_tavallod.Text)

con.Open()

n = cmd.ExecuteNonQuery()

Con.close()

سلام دوست عزیز............

من فكر می کنم مشکی از خط زیر باشه......

cmd.Parameters.AddWithValue("@sho_perseneli", tb_sho.Text

نوع داده شماره پرسنلی باید حتماً از نوع داده صحیح باشه بهتره که به صورت long استفاده کنی......در ضمن وقتی می خواهی مثل خط بالا محتوای یه تکست باکس رو در اون بریزی از تابع VAL() استفاده کن.......مثل زیر....

cmd.Parameters.AddWithValue("@sho_perseneli", val(tb_sho.Text)

موفق باشین

منظورم اين نبود كه 11كاراكتر بگيره منظورم اين بود كه فيلد بيشتر بگيره بعنوان مثال ش ش و... منظورم فيلد بود

هركار ميكنم بيشتر از 11 فيلد عمل نميكنه
كسي ميتونه كمكم كنه؟؟

[MehdiElexal]

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

موفق باشید

منظور از فرم دختر همون فرم فرزند هست دیگه ؟؟؟؟؟؟؟

[nasim bahari]

منظور از فرم دختر همون فرم فرزند هست دیگه ؟؟؟؟؟؟؟

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

[crying sphere]

سلام دوست عزیز....

در مورد سوال دومت.......

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

موفق باشی

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

[nasim bahari]

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

سلام دوست عزیز........

تابع ASC برای بدست آوردن کد اسکی کارکتر وارد شده به کار می رود......

موفق باشین

[hamidreza66]

سلام دوستان

نوشتن برنامه من تموم شد، با پایگاه داده اکسس 2007 کار میکنم، شنیدم برای اجرای برنامه در سیستم های دیگه باید اکسس نصب کنم، یا یه راه آسونتر اینکه فایلهای dll و... مورد نیاز رو همرا برنامه کپی کنم
من از این موضوع اطلاعا چندانی ندارم، تو گوگل که جستجو کردم اکسس 2003 به همین روش بود اما اکسس 2007 چیزی ندیدم
چه چیزهایی لازم هست و باید رعایت کنم برای اینکه برنامه بتونه تو کامپیوتر های مختلف اجرا بشه؟

[ashkan209]

سلام دوستان

نوشتن برنامه من تموم شد، با پایگاه داده اکسس 2007 کار میکنم، شنیدم برای اجرای برنامه در سیستم های دیگه باید اکسس نصب کنم، یا یه راه آسونتر اینکه فایلهای dll و... مورد نیاز رو همرا برنامه کپی کنم
من از این موضوع اطلاعا چندانی ندارم، تو گوگل که جستجو کردم اکسس 2003 به همین روش بود اما اکسس 2007 چیزی ندیدم
چه چیزهایی لازم هست و باید رعایت کنم برای اینکه برنامه بتونه تو کامپیوتر های مختلف اجرا بشه؟

سلام دوست من
اگه برنامتون رو با یکی از زبانهای دات نت نوشتین و واسط ارتباط بانکتون از ADO.net استفاده کردین ، میبایست بر روی سیستم مقصد همون نسخه dot net framework که باهاش برنامه نویسی کردین رو نصب کنید
چیز دیگه ای لازم نیست

[hamidreza66]

سلام دوست من
اگه برنامتون رو با یکی از زبانهای دات نت نوشتین و واسط ارتباط بانکتون از ADO.net استفاده کردین ، میبایست بر روی سیستم مقصد همون نسخه dot net framework که باهاش برنامه نویسی کردین رو نصب کنید
چیز دیگه ای لازم نیست

برنامه رو قتی تو کامپیوتر دیگه ای باز میکنم اجرا میشه اما به پایگاه داده وصل نمیشه تا اینکه اکسس نصب کنم

[ashkan209]

برنامه رو قتی تو کامپیوتر دیگه ای باز میکنم اجرا میشه اما به پایگاه داده وصل نمیشه تا اینکه اکسس نصب کنم

1- نگفتین برنامتون رو با چی نوشتین (دات نت یا غیر - ado یا ado.net ))؟
2- آیا اکسس که نصب می کنید ، مشکل برطرف میشه ؟
3- قبل از نصب اکسس برای وصل نشدن چه خطایی میده ؟ یه اسکرین شات از اون خطا برامون بذارین

[damas90]

با عرض سلام وخسته نباشيد خدمت دوستانميخوام يك عكس رو ار بانك اكسس باز خواني كنم اما نميدونم چطوري عكس رو در PictureBox نمايش بدهم كسي ميتونه كمكم كنه خواهش ميكنم
خواهش ميكنم كسي اگه ميدونه كمكم كنهخيلي گيرشم

[damas90]

خواهش ميكنم سوال بالا مو يكي جواب بده
بدجوري كارم گيرشه
خواهش ميكنم

[salmanbnd]

سلام
می خواستم بدونم پیشنهادهای مایکروسافت برای پیشوندهایی که برای متغیرها، کنترلها استفاده می کنیم چی هست؟
برای مثال برای یک Form می تونیم از frm استفاده کنیم، مثلا frmNew
برای کنترل ComboBox چندتا پیشوند پیشنهاد شده:
1. cmb
2. cb
3. cbo
ممنون میشم راهنماییم کنید

[salmanbnd]

با عرض سلام وخسته نباشيد خدمت دوستانميخوام يك عكس رو ار بانك اكسس باز خواني كنم اما نميدونم چطوري عكس رو در PictureBox نمايش بدهم كسي ميتونه كمكم كنه خواهش ميكنم
خواهش ميكنم كسي اگه ميدونه كمكم كنهخيلي گيرشم

سلام دوست عزیز
اینجا و اینجا درباره اش دوستان بحث کردن
فکر می کنم این لینک هم می تونه کمکت کنه

[modirmasool]

سلام
می خواستم بدونم پیشنهادهای مایکروسافت برای پیشوندهایی که برای متغیرها، کنترلها استفاده می کنیم چی هست؟
برای مثال برای یک Form می تونیم از frm استفاده کنیم، مثلا frmNew
برای کنترل ComboBox چندتا پیشوند پیشنهاد شده:
1. cmb
2. cb
3. cbo
ممنون میشم راهنماییم کنید

به اینجا مراجعه کنین.

http://support.microsoft.com/kb/110264

[damas90]

باعرض سلام خدمت دوستان يك سوال داشتم ويك راهنمايي ميخوام
براي اضافه كردن به بانك اكسس به روش پارامتري بيشتر از يازده فيلد نميشه واگر بيشتر بزني ارور مياره قطعه كد زير كجاش مشكل داره يا اينكه كلا همينجوري هست وروش بهتر وكامل تري هست كه اين ايراد رو برطرف كنه؟؟

Public Class Form1


Dim n As Int32


Private con As New OleDb.OleDbConnection




Private cmd As New OleDb.OleDbCommand




Dim cs As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data




Source=|DataDirectory|\test2.mdb"

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As 




System.EventArgs) Handles Button1.Click

cmd.Connection = con

cmd.CommandText = "insert into table1

values(@ID,@name,@family,@anme_pedar,@jens,@tt_ruz  ,@tt_mah

,@tt_year,@tell,@mobile,@mohle_tavallod)"

cmd.Parameters.AddWithValue("@ID", TextBox1.Text)




cmd.Parameters.AddWithValue("@name", TextBox2.Text)

cmd.Parameters.AddWithValue("@family", TextBox3.Text)

cmd.Parameters.AddWithValue("@name_pedar", TextBox4.Text)

cmd.Parameters.AddWithValue("@jens", TextBox5.Text)

cmd.Parameters.AddWithValue("@tt_ruz", TextBox6.Text)

cmd.Parameters.AddWithValue("@tt_mah", TextBox7.Text)

cmd.Parameters.AddWithValue("@tt_year", TextBox8.Text)

cmd.Parameters.AddWithValue("@tell", TextBox9.Text)

cmd.Parameters.AddWithValue("@mobile", TextBox10.Text)

cmd.Parameters.AddWithValue("@mohle_tavallod",TextBox11.Text)

con.Open()

cmd.ExecuteNonQuery()

con.Close()

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As

System.EventArgs) 




Handles MyBase.Load

con = New

OleDb.OleDbConnection(




"Provider=Microsoft.Jet.OLEDB.4.0;data

source=|DataDirectory|\test2.mdb")

cmd = New OleDb.OleDbCommand()

End Sub

End Class

خواهش ميكنم كمكم كنيد

[ashkan209]

... براي اضافه كردن به بانك اكسس به روش پارامتري بيشتر از يازده فيلد نميشه واگر بيشتر بزني ارور مياره

محدودیتی برای یازده فیلد وجود نداره
Error اتفاق افتاده و خطی که به خطا بر میخوره رو بذارین

[damas90]

سلام دوستان گلم
من يك سوال داشتم در خصوص باز خواني عكس در بانك اكسس
من عكس رو بصورت باينري ذخيره كردم به شكل زير:
حالا ميخوام فراخوانيش كنم وتوي PictureBox به نمايش بدم چه كدي رو بايد بنويسم؟؟ كسي ميتونه كمكم كنه؟؟
البته براي فراخوانيش يك تكست باكس هست كه داخلش شماره عكس بايد وارد بشه وبا كليك روي باتن بايد در PictureBox به نمايش بياد
قطعه كد اضافه كردن عكس :

 

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim result As DialogResult = Me.OFD.ShowDialog

If result = Windows.Forms.DialogResult.OK Then

PictureBox1.Image = Image.FromFile(OFD.FileName.ToString)

EndIf

EndSub

PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

If Trim(TextBox1.Text) <> ""Then

Dim ms AsNew IO.MemoryStream

PictureBox1.Image.Save(ms, PictureBox1.Image.RawFormat)

Dim ArryPic AsByte() = ms.GetBuffer

ms.Close()

Dim cs AsString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\Database.mdb;Persist Security Info=True"

ObjCon.ConnectionString = cs

ObjCon.Open()

ObjCom = New OleDbCommand

ObjCom.Connection = ObjCon

ObjCom.CommandText = "Insert Into TBL(PICID,Pic) Values(@A1,@Picture)"


ObjCom.Parameters.Add(

New OleDbParameter("@A1", OleDbType.VarChar)).Value = TextBox1.Text

ObjCom.Parameters.Add(New OleDbParameter("@picture", OleDbType.LongVarBinary)).Value = ArryPic

ObjCom.ExecuteNonQuery()

ObjCon.Close()

MsgBox("Save In Database Done")

Else

MsgBox(




"Fill Picture Id Please.")

EndIf

EndSub

 

[damas90]

كسي نيست كمكم كنه؟؟
خواهش ميكنم خيلي گير اين موضوع هستم