[dubai.eig]

(15-10-17, 04:29 PM)a.ahmed كتب :

PHP كود :

Dim Sql As String =
   "SELECT (SELECT COUNT(*) FROM [DBSetting] t WHERE [DBSetting].id >= t.id) AS [RowNumber], * " & _
   "FROM   [DBSetting]   "
Dim da As New SQLiteDataAdapter(Sql, con)
da.Fill(dt)
Me.DataGridView1.DataSource = dt 


شكرا لك استاذ احمد بس مكا فهمت وين احط الكود 

هذا الكود الموجود عندي

كود :

Imports System.Data.SQLite
Public Class Form4
   Dim Cn As New SQLiteConnection(String.Format("Data Source= {0}\BKHAMLOG\contest\" & strcallbk & "\DBDXContest.s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)))
   Dim DS As New DataSet
   Dim DP As New SQLiteDataAdapter("Select * from DBSetting", Cn)

   Sub Grid()
       With DataGridView1
           .DataSource = DS
           .DataMember = "DBSetting"
           .Refresh()
           .Columns(0).HeaderText = "id"
           .Columns(1).HeaderText = "Serial"
           .Columns(1).Width = 50
       End With
   End Sub
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

       DP.Fill(DS, "DBSetting")
       Grid()
   End Sub
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       Dim Sql As String =
  "SELECT (SELECT COUNT(*) FROM [DBSetting] t WHERE [DBSetting].id >= t.id) AS [RowNumber], * " & _
  "FROM   [DBSetting]   "
Dim da As New SQLiteDataAdapter(Sql, Cn)
da.Fill(DS)
Me.DataGridView1.DataSource = DS

       If DS.Tables("DBSetting").Rows.Count = 0 Then Beep() : Exit Sub

       Try

           Application.DoEvents()
           Dim cmd As New SQLiteCommand("", Cn)

           Cn.Open()

           'ID كود حذف المفتاح من حقل الترقيم التلقائي الي اسمه  

           cmd.CommandText = "ALTER TABLE DBSetting DROP CONSTRAINT PrimaryKey"
           cmd.ExecuteNonQuery()



           ' ID كود حذف حقل الترقيم التلقائي الي اسمه  

           cmd.CommandText = "ALTER TABLE DBSetting DROP COLUMN ID "
           cmd.ExecuteNonQuery()



           'مع وضع مفتاح له ID كود انشاء حقل الترقيم التلقائي الي اسمه  

           cmd.CommandText = "ALTER TABLE DBSetting ADD COLUMN ID COUNTER CONSTRAINT [PrimaryKey] Primary key "
           cmd.ExecuteNonQuery()



           'تغيير نوعية الحقل من ترقيم تلقائي الى رقم
           cmd.CommandText = "ALTER TABLE DBSetting ALTER COLUMN ID Long"

           cmd.ExecuteNonQuery()

           Cn.Close()

           'تحديث قاعدة البيانات
           DS.Clear()
           DP.Fill(DS, "DBSetting")
           Grid()
           DataGridView1.AllowUserToAddRows = False
           MsgBox("تم بنجاح استعادة تسلسل السجلات", 64 + 524288, "نجاح")

       Catch ex As Exception

           Cn.Close()

           MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

       End Try
   End Sub


End Class

هل احط الكود الخاص بك في ال Button1  او كيف اسف تعبتك بس الحمدالله نستفيد منك ومن الشباب الكثير