ورود

View Full Version : حل مشکلات این برنامه



shahrooz32
دوشنبه 25 دی 1385, 12:55 عصر
سلام
1-چه جوری می تونم در فورم4 عکس مربوط به هر کاربر رو لود کنم
2-چه جوری می تونم در فورم 7 جمع حقوق ها رو در textbox نمایش بدم
3-چه جوری می تونم در فورم9 با وارد کردن شماره ماه لیست کسانی که تاریخ شروع مرخصی انها در ان ماه است را نمایش داد
(user&pass=admin)
ممنون میشم راهنمایی کنی
ببخشید دوباره تاپیک زدم قبلی اشتباها حذف شد

shahrooz32
پنج شنبه 28 دی 1385, 14:13 عصر
میشه یکی منو راهنمایی کنه که چه جوری میتونم در فیلد تاریخ از دیتابیس اکسس جستجو کنم بر اساس شماره ماهی که کاربر از طریق یه tetxbox وارد کرده یعنی اگر مثلا 2 زد تاریخ های که ماه انها 2 است رو پیدا کنه.میدونم که چه جوری سرچ کنم ولی نمیدونم که چه جوری بر اساس قسمت ماه در فیلد تاریخ جستجو کنم

Neeloofar
پنج شنبه 28 دی 1385, 14:28 عصر
میشه یکی منو راهنمایی کنه که چه جوری میتونم در فیلد تاریخ از دیتابیس اکسس جستجو کنم بر اساس شماره ماهی که کاربر از طریق یه tetxbox وارد کرده یعنی اگر مثلا 2 زد تاریخ های که ماه انها 2 است رو پیدا کنه.میدونم که چه جوری سرچ کنم ولی نمیدونم که چه جوری بر اساس قسمت ماه در فیلد تاریخ جستجو کنم

بستگی داره تاریخ با چه فرمتی در فیلد ذخیره بشه.

اگر با فرمت Text باشه:

1) اگر تاریخ اینطوری ذخیره میشه:

1385/01/01

برای جستجوی مثلا ماهای اردیبهشت:

SELECT * FROM Table1 WHERE MID(dat, 6,2) = '02'

1) اگر تاریخ اینطوری ذخیره میشه (یعنی بدون جدا کننده):

13850101

برای جستجوی مثلا ماهای اردیبهشت:

SELECT * FROM Table1 WHERE MID(dat, 5,2) = '02'

اگر هم غیر ایناست توضیح بدید فیلدتون با چه فرمتی تاریخ رو دریافت میکنه!

shahrooz32
پنج شنبه 28 دی 1385, 21:16 عصر
سلام
ممنون از جوابتون
تاریخ به همون صورت اوله میتونید برنامه رو که ضمینه کردم ببینید .من مشکم اینه کاربر باید وارد کنه بر اساس چه ماهی باید جستجو انجام بشه

Neeloofar
پنج شنبه 28 دی 1385, 23:19 عصر
خب راهش همینه. در فرم9 این کدها رو قرار بدید.



Private Sub Command1_Click()
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "SELECT * FROM morkhasi WHERE MID(tshoro, 6, 2) = '" & Format$(Text1.Text, "00") & "';"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1.Recordset
DataGrid1.Refresh
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=bank.mdb;Persist Security Info=False"
Adodc1.RecordSource = "SELECT * FROM morkhasi"
Adodc1.Refresh
End Sub


ضمنا ابتدا به Adodc1 یک جدول نسبت بدید تا موقع لود شدن خطا نده یا اینکه در حالت Design اصلا تنظیمش نکنید.

.
.