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

Question

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

Answer 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