VB6.0でレコードセットの移動について (ID:125793)

名前

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

本文 > **addressはテーブル名です。 と、書かれてますが、 > Dim RecordSet As New ADODB.RecordSet > Dim address As New ADODB.Connection > > If address.RecordSet.BOF = True Then > address.RecordSet.MoveFirst > Else > address.RecordSet.MovePrevious > End If このコードは、テーブル名と同じ名前の変数addressが使われているだけで、 決してテーブルaddressに接続するものではありません。 アクセスのデータベースということは、拡張子mdbのファイルに接続しなければ テーブルを操作できません。 掲示されたコードの中には、mdbファイルが見当たりませんよね？ というわけで、こんな感じでしょうか。 Option Explicit Private cn As ADODB.Connection Private rs As ADODB.RecordSet Private Sub Form_Load() Dim strSQL As String Set cn = New ADODB.Connection cn.CursorLocation = adUseServer cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=c:\hogehoge.mdb" cn.Open strSQL = "SELECT * FROM address" rs.Open strSQL, cn, adOpenStatic, adLockOptimistic, adCmdText End Sub Private Sub Command1_Click() If rs.BOF = True Then rs.MoveFirst Else rs.MovePrevious End If End Sub Private Sub Command2_Click() If rs.EOF = True Then rs.MoveLast Else rs.MoveNext End If End Sub