UC知道VB ACCESS连接里的循环
来源：百度知道 编辑：UC知道 时间：2024/06/05 05:37:34
一个程序，弄不明白错哪了，反正运行没有反映。请高手帮帮小菜吧。
我的程序中文解释为：连接DATA数据库里的DATA1表。移动焦点到最后一条记录上，读取最后一条记录的序号（序号是自动编号）。然后FOR I=1 TO 这个自动编号（cnt）如果到了最后一条，结束程序。如果某一条等于我TXHTCX。TEXT那么就把这条写下来。
请高手帮我纠错，谢谢了
Dim conn As New ADODB.Connection, rs As New ADODB.Recordset, cnt As Integer
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\电缆合格率\data.mdb;Jet"
strSQL = "SELECT * FROM data1"
rs.Open strSQL, conn, 1, 3
rs.MoveLast
cnt = rs!序号
rs.MoveFirst
For i = 1 To cnt
If rs.EOF = True Then
MsgBox "查询完毕"
Exit For
ElseIf rs!合同号 = txhtcx.Text Then
txhth.Text = rs!合同号
End If
Next i
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
咋HI，我都是回答问题赚的分，我还不会用这个BAIDU呢。告诉我下咋HI的被
For i = 1 To rs.recordsetcount 这句话会被提示没有找到方法或数据成员
我的程序中文解释为：连接DATA数据库里的DATA1表。移动焦点到最后一条记录上，读取最后一条记录的序号（序号是自动编号）。然后FOR I=1 TO 这个自动编号（cnt）如果到了最后一条，结束程序。如果某一条等于我TXHTCX。TEXT那么就把这条写下来。
请高手帮我纠错，谢谢了
Dim conn As New ADODB.Connection, rs As New ADODB.Recordset, cnt As Integer
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\电缆合格率\data.mdb;Jet"
strSQL = "SELECT * FROM data1"
rs.Open strSQL, conn, 1, 3
rs.MoveLast
cnt = rs!序号
rs.MoveFirst
For i = 1 To cnt
If rs.EOF = True Then
MsgBox "查询完毕"
Exit For
ElseIf rs!合同号 = txhtcx.Text Then
txhth.Text = rs!合同号
End If
Next i
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
咋HI，我都是回答问题赚的分，我还不会用这个BAIDU呢。告诉我下咋HI的被
For i = 1 To rs.recordsetcount 这句话会被提示没有找到方法或数据成员
好说。你HI我。把程序传帮你调一下
读取最后一条记录的序号（序号是自动编号）。然后FOR I=1 TO 这个自动编号（cnt）如果到了最后一条，结束程序。
这个过程完全没有实际意义的过程有何用呢？
作如下修改看看
rs.Open strSQL, conn, 1, 3
For i = 1 To rs.recordsetcount
if rs!合同号 = txhtcx.Text Then
txhth.Text =txhth.Text + rs!合同号 &这里多设置了一个txhth.Text，是为了避免有多个等于rs!合同号的数值.具体问题得具体分析
End If
Next i