[wahmed]

PHP كود :

Imports System.Data.OleDb

Public Class Form3

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim cn As OleDbConnection = Nothing
        Dim cm As OleDbCommand = Nothing
        cn = New OleDbConnection(connectionstring)
        cm = New OleDbCommand("select * from Logen where User_F=@User_F and Password_F=@Password_F", cn)
        cm.CommandType = CommandType.Text
        cm.Parameters.Add(New OleDbParameter("User_F", TextBox1.Text))
        cm.Parameters.Add(New OleDbParameter("Password_F", TextBox2.Text))
        cn.Open()
        If cm.ExecuteScalar <> 0 Then
            Form7.Show()
            Me.Hide()
        Else
            MsgBox("خطا")
        End If
    End Sub

End Class