ＡＤＯとＳＱＬで並べ替え（ソート） (ID:106619)

名前

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

本文 nanashiさん、回答ありがとうございました。 キー設定でMDBファイルのソートは上手くいきました。 ただ実を申しますと、この後にこのデータをテーブル(MS FlexGrid)に展開 しているのですが、こちらの方は全く変わりません。 なぜ？でしょう？悪いところがあれば教えて下さい。m__m Public cn As New ADODB.Connection Public rs As New ADODB.Recordset Public dbFile, dbTable, strSQL As String Const CONNECT_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source = " Const SQL_STRING = "SELECT * FROM" '----------------------------------------------- Sub 更新() dbFile = CONNECT_STRING & App.Path & "\ID表.mdb" & ";" & _ "Jet OLEDB:Database Password=???;" cn.ConnectionString = dbFile cn.Open dbTable = "SELECT * FROM " & "IDTABLE" rs.Open dbTable, dbFile, adOpenStatic, adLockReadOnly rsStr = rs.GetString(adClipString, rs.RecordCount) With IDウインドウ.IDグリッド .FixedCols = 0 .Cols = rs.Fields.Count .Rows = rs.RecordCount + 1 '列名の表示 For i = 0 To rs.Fields.Count - 1 .TextMatrix(0, i) = rs.Fields(i).Name .ColAlignment(i) = 4 Next 'データの表示 .col = 0 .Row = 1 .ColSel = .Cols - 1 .RowSel = .Rows - 1 .Clip = rsStr '選択範囲の解除 .RowSel = .Row .ColSel = .col End With rs.Close cn.Close Set rs = Nothing Set cn = Nothing End Sub フォーム名：IDウインドウ , MSFlexGrid名：IDグリッド (キー設定はしましたが、インデックスはなしのままです)