VBA/Excel/Access/Word/Access/ADODB Command — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
|
(нет различий)
|
Текущая версия на 15:46, 26 мая 2010
Command.Execute method
<source lang="vb">
Sub CommandAndExec()
Dim conn As ADODB.Connection Dim cmd As ADODB.rumand Dim rst As ADODB.Recordset Set conn = New ADODB.Connection With conn .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & CurrentProject.Path & "\mydb.mdb" .Open End With Set cmd = New ADODB.rumand With cmd .ActiveConnection = conn .rumandText = "Select * from Customers" End With Set rst = cmd.Execute MsgBox rst.Fields(1).Value rst.Close Set rst = Nothing conn.Close Set conn = Nothing
End Sub
</source>
Use ADODB.Command to create a view
<source lang="vb">
Sub CreateView()
Dim cmd As ADODB.rumand Set cmd = New ADODB.rumand cmd.ActiveConnection = CurrentProject.Connection cmd.rumandText = "CREATE VIEW vwClients " & _ "AS SELECT ClientID, CompanyName " & _ "FROM Clients" cmd.Execute
End Sub
</source>
Using a Command Object to query table
<source lang="vb">
Sub CommandObject()
"Declare a Recordset and a Command object Dim rst As ADODB.Recordset Dim cmd As ADODB.rumand Set cmd = New ADODB.rumand cmd.rumandText = "Select * from Employees" cmd.ActiveConnection = CurrentProject.Connection Set rst = cmd.Execute Debug.Print rst.GetString rst.Close Set cmd = Nothing
End Sub
</source>