请教有关ADO的小问题……

Question

用ado控件捆绑就可以了,不过只能实现简单功能了.

Answer 1

我只做过对SQL数据库的操作，把代码给你，与ACCESS大同小异，希望对你有所帮助。
代码：
连接并打开数据库：
myData = "driver={SQL Server};server=服务器名;database=数据库名"
With Adodc
  .ConnectionString = myData
  .CommandType = adCmdUnknown
  .RecordSource = "select * from 表名"
  .Refresh
End With
添加：Adodc.Recordset.AddNew
将字段值赋给文本框数组：text1(i).text=adodc.recordset.fields"字段名".value
保存（更新）：Adodc.Refresh
移动：Adodc.Recordset.MoveLast（.movefirst,.movenext,.moveprevious)
adodc.recordset.fields"字段名".value=text1(i).text
修改：adodc.recordset.update
删除：adodc.recordset.delete
大概就是这样了。

Answer 2

谢谢了……让我看看……
顺便问问点击ADO的前后按钮浏览每条信息，用代码如何实现，因为我想把ADO隐藏，另外给分，呵呵，多谢了！！

Answer 3

不用谢，因为最近正在做相关工作，否则也不知道。
你可以在窗体上加上四个按钮，代码如下：
' "前一条"的代码
Private Sub CmdPrevios_Click()
Adodc.Recordset.MovePrevious
If Not Adodc.Recordset.BOF Then
CmdNext.Enabled = True
CmdLast.Enabled = True
CmdPrevios.Enabled = True
CmdFirst.Enabled = True
Else
CmdPrevios.Enabled = False
CmdFirst.Enabled = False
End If
End Sub
' "下一条"的代码
Private Sub CmdNext_Click()
Adodc.Recordset.MoveNext
If Not Adodc.Recordset.EOF Then
CmdPrevios.Enabled = True
CmdFirst.Enabled = True
CmdNext.Enabled = True
CmdLast.Enabled = True
Else
CmdNext.Enabled = False
CmdLast.Enabled = False
End If
End Sub
' "最后一条"的代码
Private Sub CmdLast_Click()
Adodc.Recordset.MoveLast
CmdNext.Enabled = False
CmdLast.Enabled = False
CmdPrevios.Enabled = True
CmdFirst.Enabled = True
End Sub
' "最前一条"的代码
Private Sub CmdFirst_Click()
Adodc.Recordset.MoveFirst
CmdPrevios.Enabled = False
CmdFirst.Enabled = False
CmdNext.Enabled = True
CmdLast.Enabled = True
End Sub
可能有一点小瑕疵，希望指正。