Управление базой данных с помощью окна свойств - PullRequest
Новая
       7

Управление базой данных с помощью окна свойств

0 голосов
/ 28 ноября 2008

Пожалуйста, перечислите процедуру, в которой программа Visual Basic может получить доступ к базе данных, используя элемент управления данными и объект данных Active x (ADO)?

1 Ответ

1 голос
/ 28 ноября 2008

Это большая старая тема, но ниже приведены несколько простых примеров, которые нужно прочитать. набор записей ... 

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
...