使用属性窗口管理数据库答案

【问题标题】：Database Management Using The properties window使用属性窗口管理数据库
【发布时间】：2008-11-28 18:13:53
【问题描述】：

请列举 Visual Basic 程序使用数据控件和 Active x 数据对象 (ADO) 访问数据库的过程？

【问题讨论】：

【解决方案1】：

这是一个古老的话题，但下面是几个简单的例子，可以通读一个记录集...

Dim con As New ADODB.Connection
con.connectionstring = "My Connection String" -- see ConnectionStrings.com for examples

Dim rs As New ADODB.Recordset
con.Open
rs.Open "SELECT name FROM MyTable", con, adOpenForwardOnly, adLockReadOnly

Do While Not rs.EOF
    Debug.Print rs.fields("name")
rs.movenext
Loop

rs.Close
Set rs = Nothing
con.Close
Set con = Nothing

这将适用于您拥有驱动程序的任何数据库，但如果您使用支持存储过程的系统，则最好使用那些...

Dim con As New ADODB.Connection
con.ConnectionString = "My Connection String" -- see ConnectionStrings.com for examples

Dim cmd As New ADODB.Command
cmd.CommandText = "MySpName"
cmd.CommandType = adCmdStoredProc

Dim param1 As New ADODB.Parameter
With param1
    .Name = "@MyParam"
    .Type = adInteger
    .Direction = adParamInput
    .Value = 10
End With

cmd.Parameters.Append param1
Set param1 = Nothing

Dim rs As ADODB.Recordset
con.Open
cmd.ActiveConnection = con

Set rs = cmd.Execute

Do While Not rs.EOF
    Debug.Print rs.Fields("name")
rs.movenext
Loop

rs.Close
Set rs = Nothing
con.Close
Set con = Nothing

【讨论】：