+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] السلام عليكم عندي مشكلة في الكود بتاع شاشة دخول الرجاء المساعدة (/showthread.php?tid=20024)
السلام عليكم عندي مشكلة في الكود بتاع شاشة دخول الرجاء المساعدة - aldegef - 16-04-17
PHP كود :
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Dim con As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\work.mdb"
Dim adapt As New OleDbDataAdapter
Dim dtl As New DataTable
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
''dbase_conn()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim cn As OleDbConnection = Nothing
Dim cm As OleDbCommand = Nothing
Dim i As Integer = 0
cn = OleDbConnection(con)
cm = OleDbCommand("select count(*) from user_log where userid=@username and password=@pass", cn)
cm.Parameters.Add(New OleDbParameter("username", TextBox1.Text.Trim()))
cm.Parameters.Add(New OleDbParameter("pass", TextBox2.Text.Trim()))
cn.Open()
i = cm.ExecuteScalar
If i > 0 Then
Dim x As New Mainform
x.Show()
Else
MsgBox("اسم المسخدم او كلمة المرور خطا")
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter
End Sub
Private Function OleDbConnection(ByVal con As String) As OleDbConnection
Throw New NotImplementedException
End Function
Private Function OleDbCommand(ByVal p1 As String, ByVal cn As OleDb.OleDbConnection) As OleDbCommand
Throw New NotImplementedException
End Function
End Class
RE: السلام عليكم عندي مشكلة في الكود بتاع شاشة دخول الرجاء المساعدة - عبـدالله - 16-04-17
هذا تعديل للكود
PHP كود :
Imports System.Data.OleDb
Public Class Form1
Dim cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\work.mdb")
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim i As Integer = 0
Dim cm As New OleDbCommand("SELECT COUNT(*) FROM [user_log] WHERE ([userid]=@username) AND (password=@pass)", cn)
cm.Parameters.AddWithValue("@username", TextBox1.Text.Trim)
cm.Parameters.AddWithValue("@pass", TextBox2.Text)
If cn.State <> ConnectionState.Open Then cn.Open()
i = cm.ExecuteScalar
cn.Close()
If i > 0 Then
Me.Hide()
Dim x As New Mainform
x.Show()
Else
MsgBox("اسم المسخدم او كلمة المرور خطا")
End If
Catch ex As Exception
MsgBox(ex.Message)
End
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class
ولكن الأفضل لسطر تكوين الاتصال أن يكون في Module جديد على أن تغير Dim إلى Public مثل
PHP كود :
Public cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\work.mdb")
والأفضل أن تستخدم هذا السطر لفتح الإتصال، لتفادي خطأ أن يكون الإتصال مفتوح من قبل
PHP كود :
If cn.State <> ConnectionState.Open Then cn.Open()