Today, we mainly fix these days of writing. Code In this process, we find that the accumulation of bit by bit is very important, and it is a big problem to steal a bit of laziness. It is hard to find it when it is repaired. I found some problems only when processing data at the data layer. I have never been familiar with the difference between record and recordset. I think it is good today. It turns out that this is a good thing. When I listened to the broadcast in the morning, I said that many white-haired old people could not make new ID cards. In the past, when taking photos, the background must be white, and many people's hair should be blue, it seems that the software has finished developing functions, but when it comes to the application environment, the problem is big.
Continuous improvement is the best programming process.
A piece of code Excerpted from the Internet is saved first
1 Sub openrecord () Sub Openrecord ()
2 Dim Record As New ADODB. Record
3
4 Call Record. Open ( "" , " Url = http: // localhost/ " , Adopenifexists Or Adcreatecollection)
5
6 Dim Recordset As New ADODB. recordset
7 Set Recordset = Record. getchildren
8
9 While Not Recordset. EOF
10 Debug. Print Recordset ( 0 )
11 Recordset. movenext
12 Wend
13 End sub
14
15 Sub openstream () Sub Openstream ()
16
17 Dim Record As New ADODB. Record
18 Call Record. Open ( " Text.txt " , " Url = http: // localhost/access/ " , Admoderead)
19
20 Dim Stream As New ADODB. Stream
21 Call Stream. Open (record, admoderead, adopenstreamfromrecord)
22
23 Dim Text As String
24 Stream. charset = " ASCII"
25 Text = Stream. readtext (adreadall)
26
27 Debug. Print
28
29 End sub
30