[a.ahmed]

PHP كود :

Imports System.Data.OleDb
Module connection_load
    Public Conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\ExamDB.accdb")
    Public UsersDT As New DataTable
    Public UsersDA As New OleDbDataAdapter
    Public mynewIDUsers As Integer

    Public Sub Load_users_InDirect()
        UsersDT.Clear()
        UsersDA = New OleDbDataAdapter("select * from Users", Conn)
        UsersDA.Fill(UsersDT)
    End Sub

    Public Sub Code_Users_InDirect()
        Dim dt As New DataTable
        Dim da As New OleDbDataAdapter("Select MAX(UserID) From Users", Conn)
        da.Fill(dt)
        If IsDBNull(dt(0)(0)) = True Then
            mynewIDUsers = 1
        Else
            mynewIDUsers = dt(0)(0) + 1
        End If
    End Sub

    Public Sub Load_users_InDirect(dgv As DataGridView)
        UsersDT.Clear()
        UsersDA = New OleDbDataAdapter("select * from Users", Conn)
        UsersDA.Fill(UsersDT)
        dgv.AutoGenerateColumns = False
        dgv.DataSource = UsersDT
    End Sub




End Module 


PHP كود :

Imports System.Data.OleDb

Public Class Form1
    Public Sub NewUser()
        Code_Users_InDirect()
        UserID.Text = mynewIDUsers
        UserFullName.Text = ""
        UserGender.Text = ""
        'UserDate.Value = Now.Date
        UserName.Text = ""
        UserPassword.Text = ""
        UserType.Text = ""
        UserPhone.Text = ""
        UserAddress.Text = ""
        UserNow.Text = ""

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        NewUser()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If UserFullName.Text = Nothing Or UserName.Text = Nothing Or UserPassword.Text = Nothing Then
            MsgBox("يرجى ملىء البيانات المطلوبة المشار عليها بالرمز * ", MsgBoxStyle.Critical, "بيانات فارغة  ")
            Return
        End If
        Try
            Dim cmd As New OleDbCommand(String.Empty, Conn)

            cmd.CommandText = "Select COUNT(*) From Users where UserFullName=@fname"
            cmd.Parameters.Clear()
            cmd.Parameters.AddWithValue("@fname", UserFullName.Text.Trim)
            If Conn.State <> ConnectionState.Open Then Conn.Open()
            If cmd.ExecuteScalar > 0 Then
                MsgBox("المستخدم موجود مسبقا", MsgBoxStyle.Critical, "بيانات مكررة")
            Else

                cmd.CommandText =
                    "INSERT INTO Users(UserAddress,UserDate,UserFullName,UserGender,UserID,UserName,UserPassword,UserPhone,UserType,UserNow)" & _
                    "VALUES (@address,@dt,@fname,@gender,@id,@name,@password,@phone,@type,@now)"

                cmd.Parameters.Clear()
                cmd.Parameters.AddWithValue("@address", UserAddress.Text)
                cmd.Parameters.AddWithValue("@dt", Today)
                cmd.Parameters.AddWithValue("@fname", UserFullName.Text)
                cmd.Parameters.AddWithValue("@gender", UserGender.Text)
                cmd.Parameters.AddWithValue("@id", UserID.Text)
                cmd.Parameters.AddWithValue("@name", UserName.Text)
                cmd.Parameters.AddWithValue("@password", UserPassword.Text)
                cmd.Parameters.AddWithValue("@phone", UserPhone.Text)
                cmd.Parameters.AddWithValue("@type", UserType.Text)
                cmd.Parameters.AddWithValue("@now", UserNow.Text)

                If cmd.ExecuteNonQuery > 0 Then
                    MsgBox("تم الحفظ بنجاح", MsgBoxStyle.Information, "تأكيد الحفظ")
                    Load_users_InDirect()
                End If

            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            Conn.Close()
        End Try
    End Sub

End Class