تمامي سوالات و مسايل راجع به زبان vb.net

با سلام تکنیک جان می بخشید اگه موجب اذیت شده باشم
من در دات نت چندین بانک اکسس دارم که یکی رو به برنامه وصل کردم و می خام وسط کار دومی رو به جای اولی فرابخونم و از اطلاعاتش استفاده کنم چطوری بایس عمل کنم مرسی ممنون در ضمن من با این کدها بانک رو تعریف کردم که میخام datasource رو وسط برنامه عوض کنم
Dim strConn As String = "Provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\..\data\data1.cab"
Dim da As New OleDb.OleDbDataAdapter("select img from table1", strConn)
Dim ds As New DataSet
Dim cb As New OleDb.OleDbCommandBuilder(da)
Dim row As DataRow

یعنی با زدن یک دکمه اکسس اولی هم باشه و هم اکسس دومی بر روی صفحه ظاهر شود.
شما از دستور if استفاده کن در داخل دکمه یا حالا شیعی دیگر کد خودت را بنویس.
بنویس که اگر بر روی شیئی کلید شد.اکسس دومی اجرا شود. دستور ویزیبل استفاده کن.
فکر کنم که دیگه جوابت را داده باشم.درکش هم باید آسان باشد
ممنون

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

با سلام

در مورد سوال فرد محترمي كه در پروژه نصب وی بی دات نت مشکل داشتند عرض میکنم که:

شما موقع خرید نرم افزار باید از نرم افزار های شرکت JB استفاده کنید . ولی نسخه ای که شما نصب کرده اید خراب می باشد ودر مورد پروژه های نصب پیغام میدهد. و این را مطمئن هستم .

اگر سوالی بود به ایمیلم [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] ایمیل بزن تا راهنمائی کنم.

به امید موفقیت شما.

دوستان عزیز
*یک پیشنهاد: به نظر شما بهتر نیست سوالات مربوط به VB .Net به زیر انجمنی با عنوان VB .Net و یا .Net انتقال داده بشه؟
فکر می کنم این مبحث اونقدر گسترده هست که برای خودش به یه زیرانجمن مستقل نیاز داشته باشه. از طرفی مسائل و سوالات مرتبط با VB 6.0 هم به مرور با افزایش استقبال برنامه نویسان از .Net روزبروز کمتر می شه.
لطف کنین نظرتون رو اعلام کنین

نقل قول:

---

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

دوستان عزیز
*یک پیشنهاد: به نظر شما بهتر نیست سوالات مربوط به VB .Net به زیر انجمنی با عنوان VB .Net و یا .Net انتقال داده بشه؟
فکر می کنم این مبحث اونقدر گسترده هست که برای خودش به یه زیرانجمن مستقل نیاز داشته باشه. از طرفی مسائل و سوالات مرتبط با VB 6.0 هم به مرور با افزایش استقبال برنامه نویسان از .Net روزبروز کمتر می شه.
لطف کنین نظرتون رو اعلام کنین

---

دقیقا، 100%، 1000، کاملا مفافقم

باور کنید من هم همین الان میخواستم همینو بگم که دیدم خدا رو شکر این نظر قبلا ارائه شده!
واقعا نمیشه که یه مبحث خییییییللللییییی بزرگ رو فقط توی یه تاپیک بررسی کرد.

دوستان عزيز ميتوانيد برايم بگوئيد كه اگر پاسورد كدام فايل پروگرام ورد را فراموش كرده باشم چطور آنرا باز كنم

آقا من چند تا سوال ضروری دارم

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

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

سلام دوستان ميشه لطفا با يك مثال طريقه اتصال برنامه به يك بانك اکسس را بهم نشون بدید؟

سلام
من برام خيلي مهمه اما كسي جوابم رو نداد؟؟
چطوري مي شه ايتم هاي يك لسيت باكس رو به خطوط يك تكس باكس مالتي لاين بياوريم؟؟
اگر كسي بلده ترو خدا جواب بده!!!؟

ویرایش شد (توسط خودم)

سلام رامبد جان
من واسه combobox
یه دیتاسورس تو پروپرتی انتخاب کردم اما
کمبو باکسم همچنان خالی!چیکار کنم؟ :sad:

بعد از افزودن پروژه ستاپ در Soultion Explorer چیزی اضافه نمیشه؟

چند تا سوال داشتم:
1_آیا می توان اطلااعات موجود در textbox برنامه دیگری را باز خوانی کرد برای مثال آدرس نوشته شده در آدرس بار اینترنت اکسپلورر را بتوان در vb.net دریافت کرد و آنرا ذخیره کنیم
2_می خواهم برنامه به صورت اتوماتیک همراه با ویندوز بالا بیاید
3_می خواهم برنامه توسط task manager ویندوز تشخیص داده نشود
4_قابل شناسایی توسط آنتی ویروس نباشد
5_امکان سیو کردن پسوورد یا auto complete کردن textbox را از هر برنامه یا برنامه مشخصی بگیرد
فکر کنم دیگه فهمیدید چی می خواهم درست کنم یک keylogger پس لطفا هرکس جواب هر کدام از سوالات بالا را بلد است یا راهنمایی در این زمینه می تواند بکند از من حقیر دریغ نفرمایید پیشاپیش ممنونم

سلام
Keyloger با دات نت؟؟؟
شوخی می کنی!
ببین دوست عزیز برنامه های نوشته شده با دات نت نیاز به چهار چوب کاری دات نت برای اجرا شدن دارند. و به اصطلاح Any where نیستند! پس شما نمی تونید برنامه ای با این زبان بنویسید که همه جا کار کنه!

آيا امكان چاپ باركد در وي بي هست
براي مثال توي وي بي يك تكست باكس داريم و وقتي در اون عدد 75829403 را تايپ مي كنم و پرينت مي گيريم بصورت باركد خروجي بده

نقل قول:

---

آقا من چند تا سوال ضروری دارم

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

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

---

من هم همين سوال را درم

سلام
در مورد بارکد : با استفاده از قابلیت های زبان نمی توانید با این امکان دست پیدا کنید
باید بگردید دنبال کنترلی که این کار را برای شما انجام دهد
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

در مورد تاریخ شمسی : من قبلاً کلاسی را برای این کار فراهم کرده ام اما چون الان به کامپیوتر خودم دسترسی ندارم نمی توانم آپلود کنم. انشاالله بعدا...

در مورد اطلاعات و کنترل ها : کار بسیار ساده ایه، در data source روی جدول مورد نظر کلیک کنید و گزینه Details را انتخاب کنید، سپس آن را بکشید و روی فرم بیندازید.

من مي خوام اين باركد را كاربر برنامه درست كنه ميشه لينك دانلود اين كامپوننت را بده

سلام دوستان وقتی یک ماژول به برنامه اضافه میکنیم چگونه میتونیم در یکی از فرمهایی که داریم آن ماژول را فراخوانی کنیم ؟

تورو خدا جواب بدین بد گیرم ...

سلام . من تازه عضو شدم. زیاد آشنا نیستم.
می خواستم بدونم کسی اینجا میتونه کمکم کنه؟؟
برای فوق دیپلم می خوام پروژه تحویل بدم. تا آخر خرداد نهایتا وقت دارم. هیچ عنوانی به ذهنم نمی رسه. یک کم VB بلدم، طراحی سایت هم یه کم و DB Access هم بلدم. کسی می تونه پیشنهاد بده؟؟ یا اینکه کسی پروژه ای داره که بشه به عنوان فوق دیپلم تحویلش داد؟؟ باید تجزیه تحلیل متنی کنم. یعنی بنویسم که این برنامه چه میکنه.. اگه کسی میتونه لطفا کمکم کنه. ممنون میشم. :10:

هیچ کس کمکم نکرده تاحالا. همه اونایی که گفتن رو کمک ما حساب کن، هیچ کدوم...... :41:
گفتم غریبه شاید بهتر بتونه به دادم برسه.

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

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

1. می خوام یک dataset رو با چند تا جدول پر کنم ولی برای معرفی data source فقط با دستور table(0)جواب می ده یعنی نمی تونم جدولی رو که می خواهم براش تعریف کنم.

کد:

---

With combobox.DataSource = dssalseProduce.Tables(0)

---

2.برای اینکه وقتی می خوام فرم load می شه combobox به ایتمی اشاره نکنه باید چی کار کنم ؟ کد زیر جواب نمی ده.

کد:

---

combobox.SelectedIndex = -1

---

از خاصیت Displaymember کنترل Combobox استفاده کنCombo1.Displaymember="tablename.Fieldename"*** ****************Combo1.selectedtext=""البته اگر خاصیت Dropdownstyle کنترل رو لیست ست بشه کنترل فقط فوکوس میگیره و در حالت dropdown کرسر داخلش قرار میگیره, ولی در هر دو حالت ایتمی انتخاب نمیشه

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

کد:

---

Dim cdal AsNew QC_DAL.connection
Dim qc AsNew QC.Base
Dim dsUpdate As DataSet
Dim intRowsAffected AsInteger
Dim MyUpdate AsString
Try
MyUpdate = SetUpdate()
dsUpdate = cdal.GetdatasetofGeneralDB("UPDATE tblrequest,tblresultreq SET " & _
IIf(MyUpdate <> "", MyUpdate & " WHERE " & MyUpdate, ""))

---

کد:

---

PrivateFunction SetUpdate() AsString
Dim qc AsNew QC.Base
Dim SQLString AsString
SQLString=""

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

SQLString = SQLString & IIf(SQLString =

"", "", " , ") & _

"title=" & qc.PrepareStr(txtTitle.Text)

EndIf
If Trim(txtSPN.Text) <> ""Then
SQLString = SQLString & IIf(SQLString =

"", "", " , ") & _

"spn =" & qc.PrepareStr(txtSPN.Text)

EndIf
If Trim(txtNumber.Text) <> ""Then
SQLString = SQLString & IIf(SQLString =

"", "", " , ") & _

"number=" & Val(txtNumber.Text)

EndIf
If Trim(txtweigth.Text) <> ""Then
SQLString = SQLString & IIf(SQLString =

"", "", " , ") & _

"weigth=" & Val(txtweigth.Text)

EndIf
If Trim(cmbSalseProduce.Text) <> ""Then
SQLString = SQLString & IIf(SQLString =

"", "", " , ") & _

"SalseProducter =" & qc.PrepareStr(cmbSalseProduce.Text)

EndIf
If Trim(cmbresult.Text) <> ""Then
SQLString = SQLString & IIf(SQLString =

"", "", " , ") & _

"result=" & qc.PrepareStr(cmbresult.Text)

EndIf
If Trim(txtBazarganiCode.Text) <> ""Then
SQLString = SQLString & IIf(SQLString =

"", "", " , ") & _

"BazarganiCode=" & qc.PrepareStr(txtBazarganiCode.Text)

EndIf
If Trim(txtRequestCode.Text) <> ""Then
SQLString = SQLString & IIf(SQLString =

"", "", " , ") & _

"reqcode =" & qc.PrepareStr(txtRequestCode.Text)

EndIf
If Trim(txtactor.Text) <> ""Then
SQLString = SQLString & IIf(SQLString =

"", "", " , ") & _

"actor=" & qc.PrepareStr(txtactor.Text)

EndIf
If Trim(txtrequestdate.Text) <> ""Then
SQLString = SQLString & IIf(SQLString =

"", "", " , ") & _

"reqdate =" & qc.PrepareStr(txtrequestdate.Text)

EndIf
If Trim(txtresultdate.Text) <> ""Then
SQLString = SQLString & IIf(SQLString =

"", "", " , ") & _

"resultdate=" & qc.PrepareStr(txtresultdate.Text)

EndIf
Return SQLString
EndFunction

---

با رشته SQL مشکل داره

با سلام
يك سوال داشتم
مي خواستم بدونم تو vb.net چه جوري ميشه يه textbox درست كرد كه عدد بگيره و از سمت راست سه تا سه تا ويرگول بزار و اگه تو عدد چهارم backspace بزنيم ويرگول قبلش پاك شه.
با تشكر اگه ممكنه تا امشب جواب بدين
اگه شد يه مثال ازش بزارين
با تشكر