PDA

View Full Version : یه سوال در مورد اکسس 2007



m.4.r.m
جمعه 24 آذر 1391, 00:46 صبح
سلام دوستان من یه فرم لاگین درست کردم دیتاش با اکسس 2007 ارتباط دادم یوزرنیم وقتی فارسی میدم تو برنامه هیچ عکس العملی موقع درست بودن شرط ایجاد نمیشه می خواستم بدونم آیا فارسی نویسی تو اکسس 2007 مشکل داره یا مشکل از جای دیگس ؟

SlowCode
جمعه 24 آذر 1391, 06:29 صبح
سلام
با وی بی به اکسس وصل میشی یا تو خود اکسس کار میکنی؟
زبان فارسی سیستمت رو کامل چک کن اگه درست نشد کدت رو بزار اینجا.(البته اگه با vb6 وصل شدی)

m.4.r.m
جمعه 24 آذر 1391, 19:44 عصر
سلام
با وی بی به اکسس وصل میشی یا تو خود اکسس کار میکنی؟
زبان فارسی سیستمت رو کامل چک کن اگه درست نشد کدت رو بزار اینجا.(البته اگه با vb6 وصل شدی)
اینم از اون حرفا بود ها..!!!

پس با چی وصل شدم می گم وقتی بتو دیتابیس قسمت User نام کاربری را مثلا وارد می کنم مدیر تو اجرای برنامه هیچ عکس العملی نشون نمیده اما وقتی یوزر رو به اسم Admin می نویسم برنامه کار می کنه مشکل از کجاست ؟

m2011kh
جمعه 24 آذر 1391, 20:28 عصر
سلام دوست عزیز.
1-ممکنه فارسی ویندوزت کامل نصب نشده باشه.
2-اینطوری کسی نمیتونه کمکت کنه لطفا یا سورس یا کدتو بزار تو تایپیک.
متشکرم
MMD

m.4.r.m
جمعه 24 آذر 1391, 21:20 عصر
Private Sub PushButton1_Click()
On Error Resume Next
If (Combo.Text = Empty) Then
" لطفا نام کاربری را انتخاب نمائید, vbCritical, ""
Combo.SetFocus
Exit Sub
ElseIf txtpassword.Text = Empty Then
لطفا کلمه عبور خود را وارد نمائید", vbCritical, ""
Exit Sub
End If
Adodc2.RecordSource = "SELECT * FROM Login WHERE USER='" & Combo.Text & "'"
Adodc2.Refresh
If Adodc2.Recordset.RecordCount > 0 Then

If UCase(Adodc2.Recordset.Fields("Password")) = UCase(txtpassword.Text) Then
prnt = Adodc2.Recordset.Fields("Print")
edt = Adodc2.Recordset.Fields("Edit")
del = Adodc2.Recordset.Fields("Delete")
seting = Adodc2.Recordset.Fields("Seting")
sv = Adodc2.Recordset.Fields("Save")
bk = Adodc2.Recordset.Fields("bk")
frm_main.Show
Unload Me
Else
MsgBox "رمز شما اشتباه است", vbCritical, ""
cn.Caption = cn.Caption + 1
If cn.Caption = 3 Then
End
End If
txtpassword.SelStart = 0
txtpassword.SelLength = Len(txtpassword)
txtpassword.SetFocus

End If
End If
End Sub


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