MoveLast 関数 (ID:2348)

名前

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

本文

にしのさん。ありがとうございます。

やりたいことは、
VBだとこんな感じです。
これは、ACCESSのデータベースに接続して、
IDのMAX値を表示しています。

Private Sub Command1_Click()
    Dim OleAccess As Object
    Dim OleWS As Object
    Dim OleDB As Object
    Dim OleRst As Object
    Dim sSQL As String
    Dim i As Integer
    Dim MAXID As Integer
    
        
    'Accessデータベースへの接続
    Set OleAccess = CreateObject("Access.Application")
    
    Set OleWS = OleAccess.DBEngine.Workspaces(0)
    
    Set OleDB = OleWS.OpenDatabase(StrMdbDir)
    
    sSQL = "SELECT MAX(ID) AS MAXID FROM テーブル１;"
    
    Set OleRst = OleDB.OpenRecordset(sSQL)
    
    If Not OleRst.EOF Then
                
        MAXID = OleRst.Fields("ID").Value + 1
        
        MsgBox MAXID
        
    End If
    
    OleRst.Close
    
    'Access開放
    Set OleRst = Nothing
    Set OleDB = Nothing
    Set OleWS = Nothing
    Set OleAccess = Nothing
        
    Exit Sub
    
End Sub

これを、Paradox  Delphiでやるにはどうしたらよいのですか？
ちなみにIDは、こちらで、任意につけたいと思っています。
それは、Aの場合9000XXX
        Bの場合8000XXX

という風にしたいからです。

宜しくお願いいたします。

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

戻る