Question

vb6.0如何用代码实现读取access中的数据内容并显示在text文本框中，十分着急

access数据库中的字段是"开发年限"，"年产油量","年产水量"
想实现的功能是当点击页面上的查询数据按钮时，access中的这三个字段的数据值完全显示在页面上的文本框当中。文本框也是按照这三个顺序来的。不需要输入什么，当程序运行起来的时候直接点击数据查询，然后文本框直接显示access中的数据。以下是我自己写的代码，总是有错误，非常着急。请高人解答，如果答案解决问题可以追加分数。多谢了

Dim cnn2 As ADODB.Connection

Dim rs2 As ADODB.Recordset

Set cnn2 = New ADODB.Connection

cnn2.CursorLocation = adUseClient

cnn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\程序数据库.mdb;Persist Security Info=False"

Set rs2 = New ADODB.Recordset

rs2.CursorLocation = adUseClient

rs2.Open "select * from 高峰产能评价", cnn1, adOpenDynamic, adLockPessimistic

rs2.MoveFirst

Do While Not rs2.EOF

Print rs2("开发年限")

rs2.MoveNext

Loop

rs2.Close

Set rs2 = Nothing

cnn2.Close

Set cnn2 = Nothing

Answer 1

最好能写下你的错误信息

rs2.Open "select * from 高峰产能评价", cnn1, adOpenDynamic, adLockPessimistic
这个地方我平时都用
rs2.Open "select * from 高峰产能评价", cnn1, adOpenStatic, adLockReadOnly

如果不能解决问题的话，最好把错误信息贴出来。

Answer 2

adOpenDynamic应该没有问题

rs2.Open "select * from 高峰产能评价", cnn1, adOpenDynamic, adLockPessimistic
应该是cnn2,而不是cnn1

追问

那个是我写错了，还有一点我需要追问一下，假如我想实现所有的文本框显示所有的access中的内容，如何用rs2遍历进行实现，text框中的数据和access中的数据一一对应。我现在只能显示出access中的第一行数据，我想让文本框中的第二行也能显示出来access中的第二行。以此类推，一共需要显示access中的前二十行数据

追答

在do之前写
Text1 = ""
在do里面写
Text1 = Text1 & rs2("开发年限") & vbCrLf
记得把Text1的MultiLine属性在设计窗体时调成True