ده نسخة من البرنامج
Imports System.Data.OleDb
Module Module1
Public con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= D:\super market\super market\bin\Debug\ss.accdb")
Public usersdt As New DataTable
Public usersda As OleDbDataAdapter
Public mynewidusers As Integer
'load all colummns of 'table in access 2007
Public Sub load_users()
usersdt.Clear()
usersda = New OleDbDataAdapter("select*from users", con)
usersda.Fill(usersdt)
End Sub
' Dim code generation for access 2007 by<<indirect connection>>
Public Sub code_users()
Dim dt As New DataTable
Dim da As New OleDbDataAdapter("select max(`user id`) from users", con)
da.Fill(dt)
If IsDBNull(dt(0)(0)) = True Then
mynewidusers = 1
Else
mynewidusers = dt(0)(0) + 1
End If
وده فى الحدث load
Private Sub UsersBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.UsersBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.SsDataSet)
End Sub
Private Sub UsersBindingNavigatorSaveItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UsersBindingNavigatorSaveItem.Click
Me.Validate()
Me.UsersBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.SsDataSet)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
GroupBox3.Visible = False
load_users()
'data source of 'table
DataGridView1.DataSource = usersdt
code_users()
userid.Text = mynewidusers
ده نسخة من البرنامج
Imports System.Data.OleDb
Module Module1
Public con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= D:\super market\super market\bin\Debug\ss.accdb")
Public usersdt As New DataTable
Public usersda As OleDbDataAdapter
Public mynewidusers As Integer
'load all colummns of 'table in access 2007
Public Sub load_users()
usersdt.Clear()
usersda = New OleDbDataAdapter("select*from users", con)
usersda.Fill(usersdt)
End Sub
' Dim code generation for access 2007 by<<indirect connection>>
Public Sub code_users()
Dim dt As New DataTable
Dim da As New OleDbDataAdapter("select max(`user id`) from users", con)
da.Fill(dt)
If IsDBNull(dt(0)(0)) = True Then
mynewidusers = 1
Else
mynewidusers = dt(0)(0) + 1
End If
وده فى الحدث load
Private Sub UsersBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.UsersBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.SsDataSet)
End Sub
Private Sub UsersBindingNavigatorSaveItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UsersBindingNavigatorSaveItem.Click
Me.Validate()
Me.UsersBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.SsDataSet)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
GroupBox3.Visible = False
load_users()
'data source of 'table
DataGridView1.DataSource = usersdt
code_users()
userid.Text = mynewidusers
Imports System.Data.OleDb
Module Module1
Public con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= D:\super market\super market\bin\Debug\ss.accdb")
Public usersdt As New DataTable
Public usersda As OleDbDataAdapter
Public mynewidusers As Integer
'load all colummns of 'table in access 2007
Public Sub load_users()
usersdt.Clear()
usersda = New OleDbDataAdapter("select*from users", con)
usersda.Fill(usersdt)
End Sub
' Dim code generation for access 2007 by<<indirect connection>>
Public Sub code_users()
Dim dt As New DataTable
Dim da As New OleDbDataAdapter("select max(`user id`) from users", con)
da.Fill(dt)
If IsDBNull(dt(0)(0)) = True Then
mynewidusers = 1
Else
mynewidusers = dt(0)(0) + 1
End If
وده فى الحدث load
Private Sub UsersBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.UsersBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.SsDataSet)
End Sub
Private Sub UsersBindingNavigatorSaveItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UsersBindingNavigatorSaveItem.Click
Me.Validate()
Me.UsersBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.SsDataSet)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
GroupBox3.Visible = False
load_users()
'data source of 'table
DataGridView1.DataSource = usersdt
code_users()
userid.Text = mynewidusers
ده نسخة من البرنامج
Imports System.Data.OleDb
Module Module1
Public con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= D:\super market\super market\bin\Debug\ss.accdb")
Public usersdt As New DataTable
Public usersda As OleDbDataAdapter
Public mynewidusers As Integer
'load all colummns of 'table in access 2007
Public Sub load_users()
usersdt.Clear()
usersda = New OleDbDataAdapter("select*from users", con)
usersda.Fill(usersdt)
End Sub
' Dim code generation for access 2007 by<<indirect connection>>
Public Sub code_users()
Dim dt As New DataTable
Dim da As New OleDbDataAdapter("select max(`user id`) from users", con)
da.Fill(dt)
If IsDBNull(dt(0)(0)) = True Then
mynewidusers = 1
Else
mynewidusers = dt(0)(0) + 1
End If
وده فى الحدث load
Private Sub UsersBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.UsersBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.SsDataSet)
End Sub
Private Sub UsersBindingNavigatorSaveItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UsersBindingNavigatorSaveItem.Click
Me.Validate()
Me.UsersBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.SsDataSet)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
GroupBox3.Visible = False
load_users()
'data source of 'table
DataGridView1.DataSource = usersdt
code_users()
userid.Text = mynewidusers
