فرم login

[saeed 444]

اساتید محترم .
من یک فرم لاگین دارم و یک بانک ac
میخواهم اگر سریالی وارد تکست یاکس کردم با سریال در بانک ذخیره شده چک شود اگر صحیح بود فرم لاگین نشان داده نشود و وارد فرم اصلی شود. ممنونم

[mehrdad.gh]

من منظورتون را از بانک ac نفهمیدم

ولی این قطغه کد برای sql هست امیدوارم به دردتون بخوره



Sub login()
Dim con As New OleDbConnection
con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Dbase.accdb"
con.Open()
Dim com As New OleDbCommand
With com
.Connection = con
.CommandText = "select username,password from table1 where username='" & Form5.TextBox1.Text & "'and password='" & Form5.TextBox2.Text & "'and namedaftar='" & Form5.TextBox3.Text & "'"
End With
Dim reader As OleDbDataReader = com.ExecuteReader
If reader.HasRows = True Then
Form4.XpButton4.Visible = True
Form4.XpButton4.Text = Form5.TextBox3.Text & " ورود به دفتر مالی"
Form5.Close()
Form4.XpButton4.Visible = True
Else
MsgBox("پسورد به درستی وارد نشده است", MsgBoxStyle.Critical, "خطا")

End If
End Sub

[MoslemMaleki]

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

[saeed 444]

من منظورتون را از بانک ac نفهمیدم

ولی این قطغه کد برای sql هست امیدوارم به دردتون بخوره



Sub login()
Dim con As New OleDbConnection
con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Dbase.accdb"
con.Open()
Dim com As New OleDbCommand
With com
.Connection = con
.CommandText = "select username,password from table1 where username='" & Form5.TextBox1.Text & "'and password='" & Form5.TextBox2.Text & "'and namedaftar='" & Form5.TextBox3.Text & "'"
End With
Dim reader As OleDbDataReader = com.ExecuteReader
If reader.HasRows = True Then
Form4.XpButton4.Visible = True
Form4.XpButton4.Text = Form5.TextBox3.Text & " ورود به دفتر مالی"
Form5.Close()
Form4.XpButton4.Visible = True
Else
MsgBox("پسورد به درستی وارد نشده است", MsgBoxStyle.Critical, "خطا")

End If
End Sub
از توجه شما دوست گرامی تشکر میکنم منظور بانک با access بود :اشتباه:

[saeed 444]

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

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

[mehrdad.gh]

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




دوست عزیز این کدی که براتون دادم برای بانک ac isj

\شما فقط قسمت ادرس بانکا عوض کنید برنامه درست میشه البته فیلداشم درست کنید


این کد ابتدا فیلد بانکا میخونه بعد با text مقایسه میکنه اگر از یک نوع کاراکتر باشه به صفحه ی بعد میره وگرنه error

[saeed 444]

دوست عزیز
من یک برنامه ساده برات میزام. شاید بدرد بخوره
ممنونم فایل ارسالی شما دقیقا کد مورد نظر من بود از شما کمال تشکر را دارم:تشویق::کف::تشویق:

[saeed 444]

دوست عزیز این کدی که براتون دادم برای بانک ac isj

\شما فقط قسمت ادرس بانکا عوض کنید برنامه درست میشه البته فیلداشم درست کنید


این کد ابتدا فیلد بانکا میخونه بعد با text مقایسه میکنه اگر از یک نوع کاراکتر باشه به صفحه ی بعد میره وگرنه error
کد شما هم خیلی کمکم کرد ممنونم:تشویق: