DtaGridの行に通し番号をつけるには？ (ID：111535)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

データベースの方に主キーの項目があれば、可能です。

以下のソースを参考にして下さい。
尚、[ID]と表記されている部分は、主キーの項目名です。

※  Access2002 で動作確認しました

Dim OleSQL As String
        Dim OleDB As OleDb.OleDbConnection
        Dim OleCMD As OleDb.OleDbCommand
        Dim OleDS As DataSet
        Dim OleAD As OleDb.OleDbDataAdapter

OleSQL = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + "\Test.mdb;Persist Security Info=False"

OleDB = New OleDb.OleDbConnection(OleSQL)
        OleDB.Open()

OleSQL = "SELECT "
        OleSQL += "DCount('*','TEST','[ID] <= ' & [ID]) AS '連番',"
        OleSQL += "* "
        OleSQL += "FROM TEST "
        OleSQL += "WHERE DCount('*','TEST','[ID] <= ' & [ID])"

OleCMD = New OleDb.OleDbCommand
        OleCMD.Connection = OleDB
        OleCMD.CommandType = CommandType.Text
        OleCMD.CommandText = OleSQL

OleDS = New DataSet
        OleAD = New OleDb.OleDbDataAdapter

OleAD.SelectCommand = OleCMD
        OleAD.Fill(OleDS, "TEST")

OleCMD.Dispose()

DataGrid1.DataSource = OleDS
        DataGrid1.DataMember = "TEST"

OleAD.Dispose()
        OleDS.Dispose()

OleDB.Close()
        OleDB.Dispose()

以上。

←解決時は質問者本人がここをチェックしてください。

戻る