[mohamedalqadi]

(30-03-20, 11:09 PM)عبد العزيز البسكري كتب :

باعتبار حقل الترقيم غير تلقائي من نوع رقمي ..

كود :

Imports System.Data.SqlClient
Public Class Form1
   Public dt As DataTable
   Public Sub Load_Employees()
       dt.Clear()
       Dim cmd As New SqlClient.SqlCommand("select Amp_id,Amp_name,Amp_phone,Amp_state from Employees", Conne)
       Conne.Open()
       dt.Load(cmd.ExecuteReader)
       cmd = Nothing
   End Sub
   Public Function Maximum_Record_In_Table(Field_Name, Table_Name) As Integer
       Dim InfoTable As New DataTable
       Dim InfoAdapter As New SqlDataAdapter
       InfoTable.Clear()
       InfoAdapter = New SqlDataAdapter("SELECT MAX(" & Field_Name & ") From " & Table_Name & "", Conne)
       InfoAdapter.Fill(InfoTable)
       Dim Auto_Number As Integer
       If IsDBNull(InfoTable(0)(0)) = True Then
           Auto_Number = 1
       Else
           Auto_Number = InfoTable(0)(0) + 1
       End If
       Return Auto_Number
   End Function
   Public Sub Insert_Employees(ByVal Amp_id As Int32, ByVal Amp_name As String, ByVal Amp_phone As String, ByVal Amp_state As Boolean)
       Dim cmd As New SqlCommand("Insert Into Employees(Amp_id,Amp_name,Amp_phone,Amp_state) values (@Amp_id,@Amp_name,@Amp_phone,@Amp_state)", Conne)
       cmd.Parameters.Add("Amp_id", SqlDbType.Int).Value = Amp_id
       cmd.Parameters.Add("Amp_name", SqlDbType.NVarChar).Value = Amp_name
       cmd.Parameters.Add("Amp_phone", SqlDbType.NVarChar).Value = Amp_phone
       cmd.Parameters.Add("Amp_state", SqlDbType.Bit).Value = Amp_state
       cmd.ExecuteNonQuery()
       cmd = Nothing
       MsgBox("تم الحفظ بنجاح")
   End Sub
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Me.TextBox1.Text = Maximum_Record_In_Table("Amp_id", "Employees")
   End Sub
 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Insert_Employees(TextBox1.Text, TextBox2.Text, TextBox3.Text, CheckBox1.CheckState)
   End Sub
End Class

لم يتوافق مع كودي لاني اريد ان افعل شي اخر