تورو خدا جواب بدین بد گیرم ...
Printable View
تورو خدا جواب بدین بد گیرم ...
سلام . من تازه عضو شدم. زیاد آشنا نیستم.
می خواستم بدونم کسی اینجا میتونه کمکم کنه؟؟
برای فوق دیپلم می خوام پروژه تحویل بدم. تا آخر خرداد نهایتا وقت دارم. هیچ عنوانی به ذهنم نمی رسه. یک کم 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 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, ""))
کد:
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 بزنيم ويرگول قبلش پاك شه.
با تشكر اگه ممكنه تا امشب جواب بدين
اگه شد يه مثال ازش بزارين
با تشكر