如何返回重复的记录

Question

select B.ID,A.NAME into C From A Inner Join B On A.ID=B.ID

Answer 1

引用ADO
Option ExplicitPrivate Sub Command1_Click()
  Dim Rec  As New ADODB.Recordset
  Dim Arr() As String
  Dim I As Long
  
  ReDim Arr(4)
  For I = 0 To 4
    Arr(I) = Chr(65 + I)
  Next I
  
  With Rec
    .Fields.Append "ID", adInteger
    .Fields.Append "NAME", adBSTR, 255
    .CursorType = adOpenStatic
    .LockType = adLockOptimistic
    .Open
    For I = 0 To 4
      .AddNew
      .Fields("ID") = I + 1
      .Fields("NAME") = Arr(I)
      .Update
    Next I
    .MoveFirst
    Do While Not .EOF
      Debug.Print .Fields("ID").Value, .Fields("Name").Value
      .MoveNext
    Loop
  End With
End Sub

Answer 2

Select B.ID,A.Name zfrom B Left Join A On B.ID=A.ID