[0theghost0]

السلام عليكم

أريد كود يقوم بإعادة الترقيم داخل القاعدة البيانات اذا كانت AutoNumber
القاعدة البيانات نوع Access
مثال بسيط :
1 - احمد
2 - علي

بعد عملية الحذف والاضافة مجددا يصبح :
1- احمد
3- علي

اريد كود يقوم بالترتيب الارقام من جديد

[RADOS]

Dim s As String = "1"
Dim a As String = "select isnull(max(em_id),0) from employ"
Dim comman As New SqlCommand(a, cn)
ope()

Dim readr As SqlDataReader = comman.ExecuteReader
If readr.Read Then
s = readr.Item(0) + 1
emid.Text = s

End If
clos()
readr.Close()

[سعود]

(15-09-17, 02:15 PM)0theghost0 كتب : السلام عليكم

أريد كود يقوم بإعادة الترقيم داخل القاعدة البيانات اذا كانت AutoNumber
القاعدة البيانات نوع Access
مثال بسيط :
1 - احمد
2 - علي

بعد عملية الحذف والاضافة مجددا يصبح :
1- احمد
3- علي

اريد كود يقوم بالترتيب الارقام من جديد

الرابط

[0theghost0]

كود :

System.InvalidCastException occurred
 HResult=0x80004002
 Message=Unable to cast object of type 'System.Data.OleDb.OleDbConnection' to type 'System.Data.SqlClient.SqlConnection'.
 Source=autonumber
 StackTrace:
  at autonumber.Form1.Button1_Click(Object sender, EventArgs e) in C:\Users\TheGhost\Documents\Visual Studio 2017\Projects\autonumber\autonumber\Form1.vb:line 7
  at System.Windows.Forms.Control.OnClick(EventArgs e)
  at System.Windows.Forms.Button.OnClick(EventArgs e)
  at System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
  at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
  at System.Windows.Forms.Control.WndProc(Message& m)
  at System.Windows.Forms.ButtonBase.WndProc(Message& m)
  at System.Windows.Forms.Button.WndProc(Message& m)
  at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
  at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
  at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
  at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
  at System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(IntPtr dwComponentID, Int32 reason, Int32 pvLoopData)
  at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
  at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
  at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
  at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
  at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
  at autonumber.My.MyApplication.Main(String[] Args) in :line 81

وين الخلل

كود :

Imports System.Data.SqlClient

Public Class Form1
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim s As String = "1"
       Dim a As String = "select isnull(max(Cus_ID),0) from Customer"
       Dim comman As New SqlCommand(a, conn)
       conn.Open()

       Dim readr As SqlDataReader = comman.ExecuteReader
       If readr.Read Then
           s = readr.Item(0) + 1
           TextBox1.Text = s

       End If
       conn.Close()
       readr.Close()
   End Sub
End Class

[سعود]

(26-09-17, 09:36 AM)0theghost0 كتب :

كود :

System.InvalidCastException occurred
 HResult=0x80004002
 Message=Unable to cast object of type 'System.Data.OleDb.OleDbConnection' to type 'System.Data.SqlClient.SqlConnection'.
 Source=autonumber
 StackTrace:
  at autonumber.Form1.Button1_Click(Object sender, EventArgs e) in C:\Users\TheGhost\Documents\Visual Studio 2017\Projects\autonumber\autonumber\Form1.vb:line 7
  at System.Windows.Forms.Control.OnClick(EventArgs e)
  at System.Windows.Forms.Button.OnClick(EventArgs e)
  at System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
  at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
  at System.Windows.Forms.Control.WndProc(Message& m)
  at System.Windows.Forms.ButtonBase.WndProc(Message& m)
  at System.Windows.Forms.Button.WndProc(Message& m)
  at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
  at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
  at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
  at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
  at System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(IntPtr dwComponentID, Int32 reason, Int32 pvLoopData)
  at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
  at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
  at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
  at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
  at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
  at autonumber.My.MyApplication.Main(String[] Args) in :line 81

وين الخلل

كود :

Imports System.Data.SqlClient

Public Class Form1
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim s As String = "1"
       Dim a As String = "select isnull(max(Cus_ID),0) from Customer"
       Dim comman As New SqlCommand(a, conn)
       conn.Open()

       Dim readr As SqlDataReader = comman.ExecuteReader
       If readr.Read Then
           s = readr.Item(0) + 1
           TextBox1.Text = s

       End If
       conn.Close()
       readr.Close()
   End Sub
End Class

اخي الكريم لقد تذكرت اني وضعت موضوع حول هذا 
http://vb4arb.com/vb/showthread.php?tid=2073
لا اكتب شيئا الا وقد جربته