WWW.DISSERS.RU

    !


Pages:     | 1 |   ...   | 7 | 8 ||

Sub TestRecordCount() Dim myConn As ADODB.Connection Dim myComm As String Dim myConRst As ADODB.Recordset Dim myKeyRst As ADODB.Recordset Dim sConnection As String sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=D:\Microsoft Visual Studio\VB98\Biblio.mdb" Set myConn = New ADODB.Connection Set myKeyRst = New ADODB.Recordset myConn.Open sConnection myComm = "Select * From Authors" Set myConRst = myConn.Execute(myComm,, adCmdText) myKeyRst.Open myComm, myConn, adOpenKeyset MsgBox "RecCount from Connection: " & myConRst.RecordCount & _ vbCr & "From Recordset: " & myKeyRst.RecordCount Set myKeyRst = Nothing Set myConRst = Nothing Set myConn = Nothing End Sub ADO.

1. .mdb. .

2. .mdb. ( ) !!! ( ).

1. . Microsoft ACCESS 2000: . .: , 2. , . Access. . .: , 2008. 352 .

3. . Access 2007: . .: , 2008. 272.

4. . : Microsoft Office Access 2003. .: , 2005. 1168.

5. : Microsoft Office Access 2007. . .: , 2007. 432.

Access 1. 腅 2. 腅.. 3. 腅 4. 充. 5. 󅅅. 6. ⅅ. 7. 腅 8. 充.... 9. ADO

Pages:     | 1 |   ...   | 7 | 8 ||






2011 www.dissers.ru -

, .
, , , , 1-2 .