请列举 Visual Basic 程序使用数据控件和 Active x 数据对象 (ADO) 访问数据库的过程?
qaz1134
问问题
93 次
1 回答
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
于 2008-11-28T18:38:30.080 回答