[dubai.eig]

(15-10-17, 05:50 PM)a.ahmed كتب :

PHP كود :

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 DT As New DataTable
    Dim DP As New SQLiteDataAdapter("SELECT (SELECT COUNT(*) FROM [DBSetting] t WHERE [DBSetting].id >= t.id) AS [Serial], * FROM   [DBSetting]   ", Cn)

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        DP.Fill(DT)
        Grid()
    End Sub

    Sub Grid()
        With DataGridView1
            .DataSource = DT
            .Columns(0).Width = 50
        End With
    End Sub

    'Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    'End Sub

End Class 


شكرا لك ما قصرة احسنت وفي ميزان حسناتك عزيزي

بس اتمنى تاخذ لفه على موضوعي الاخر ListView