首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

用adodoc控件 ,movenext后 ,为何值不变呢?

2013-03-21 
用adodoc控件 ,movenext后 ,为什么值不变呢???Private Sub Command1_Click()Adodc1.ConnectionString P

用adodoc控件 ,movenext后 ,为什么值不变呢???

Private Sub Command1_Click()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "c:\db.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "Select * From aaa where id=1"

Adodc1.Refresh 

Text1.Text = Adodc1.Recordset.Fields("name").Value

End Sub

Private Sub Command2_Click()
Adodc1.Recordset.MoveNext
Adodc1.Refresh
Text1.Text = Adodc1.Recordset.Fields("name").Value
End Sub




怎么点击Command2后,text1.text的值,怎么不变啊??不是把指针向下移动了吗

[解决办法]
去掉command2中的adodc1.refresh

[解决办法]
movenext后不用再刷新
[解决办法]
你的第二个问
 For i = 0 To Adodc1.Recordset.Fields.Count - 1
     If Adodc1.Recordset.Fields(i).Name = "name" Then
     
         MsgBox Adodc1.Recordset.Fields(i + 1).Name
    End If
 Next

热点排行