レコードの削除

質問

VB6.0　ACCESSで開発しています。
t_nyukoテーブルのデータを全て削除するのは下記のように
出来たのですが
dataGridに表示されているものを1つ選択し
選択されたものだけ削除したいのですがどうすればいいのでしょうか？
よろしくお願いします。

Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim cmd As ADODB.Command
Dim cat As New ADODB.Command
Dim strSQL As String
　 Set cn = New ADODB.Connection
cn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\temp\db2.mdb"
cn.Open
cat.ActiveConnection = cn
strSQL = "DELETE FROM t_nyuko "
Set cmd = New ADODB.Command
cmd.ActiveConnection = cn
cmd.CommandText = strSQL
cmd.Execute
cn.Close
Set cmd = Nothing
Set cn = Nothing
Set cat = Nothing
End Sub

回答No.1

noname#60992 · ベストアンサー

indexになる情報を選択されている行から取り出して、strSQLにWHERE句をつける。　index情報が不正確だと、複数行削除される可能性もあるので、発行するsqlにはご注意を。