[求教]为什么总是变数字？正确的代码该怎样写？

syan23

请教：

用ADO将表 "代码" 里的代码字段数据追加到 表 "代码2"里面，为什么追加过去总是变成数字？正确的代码该怎样写？

Private Sub Command0_Click()

Dim conn As New ADODB.Connection

Set conn = CurrentProject.Connection

  Dim rst As New ADODB.Recordset

  Dim i As Integer

rst.Open "代码", conn, adOpenKeyset, adLockOptimistic

rst.MoveFirst

For i = 1 To rst.RecordCount

DoCmd.RunSQL "INSERT INTO 代码2 ( 代码) SELECT " & rst("代码")

rst.MoveNext

Next i

End Sub

详见附件！

[此贴子已经被作者于2005-3-23 14:24:50编辑过]

syan23

Thank you very much!



Studying......

Trynew

DoCmd.RunSQL "INSERT INTO 代码2 ( 代码) SELECT " & rst("代码")

改为加单引号：DoCmd.RunSQL "INSERT INTO 代码2 ( 代码) SELECT '" & rst("代码") & "'"