数据库中数据连接输出！

Question

将数据库中指定ID的一条记录以字符串的形式全部输出，每个字段的数据用回车分隔。例如，ID=1234的记录是：时间[1981-4-3]、编号[123-5]、出厂日期[2003-7-6]，则输出字符串为：
1981-4-3 123-5 2003-7-6

Answer 1

'引用ADO("工程"/"引用"/Microsoft ActiveX Data Objects 2.X Library)
Private Sub Command1_Click()    Dim cn As New ADODB.Connection, rs As New ADODB.Recordset, i%, strRlt As String    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Test.mdb;Jet OLEDB:DataBase password=12345;"    rs.CursorLocation = adUseClient '设置客户端游标
    rs.Open "时间,编号,出厂日期 from 表 where [ID]=1234", cn, adOpenDynamic, adLockOptimistic
    If rs.EOF Then Exit Sub
    For i = 0 To rs.Fields.Count - 1
        strRlt = strRlt & rs(i) & vbCrLf
    Next
    
    Debug.Print strRlt
    rs.Close
    cn.Close
    Set rs = Nothing
    Set cn = Nothing
End Sub