Using the ADO Control - UsingtheADOControl...

Info iconThis preview shows pages 1–3. Sign up to view the full content.

View Full Document Right Arrow Icon
Using the ADO Control form Option Compare Database Private Sub cmdBulkUpdate_Click()     Call bulkUpdate End Sub Private Sub cmdCountRecords_Click()     Call HowManyRecords End Sub Private Sub cmdCreateConnection_Click()     Call CreateConnection1     MsgBox "Done-1"     Call CreateConnection2     MsgBox "Done-2" End Sub Private Sub cmdCreateRecordset_Click()     Call CreateRecordset1     MsgBox "Done-1"     Call CreateRecordset2     MsgBox "Done-2"     Call CreateRecordset3     MsgBox "Done-3" End Sub Private Sub cmdDAOExploreDB_Click()     Call ExploringDBArchitecture End Sub Private Sub cmdDeleteFemaleEMployees_Click()     Call DeleteFemaleEmployees End Sub Private Sub cmdOpenTable_Click()     Call OpenTable End Sub Private Sub cmdParameterQueries_Click()     Call ParametezidedCommand(4, "F") End Sub Private Sub cmdRaiseLadiesSalary_Click()     Call raiseLadiesSalary End Sub Private Sub cmdSequentialScan_Click()     Call SequentialScan End Sub Private Sub cmdSortingRecords_Click()     Call SortFilterFindRecordset End Sub Private Sub cmdUseBookmark_Click()     Call UsingBookMark End Sub Private Sub Command9_Click()     Call newWorkLoad(123456789, 10, 40) End Sub c96842f344aa91c5283cdd408bb670a37c441d97.doc 1
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
modADOrecordSet Option Compare Database Option Explicit Sub CreateRecordset1()     Dim rst As ADODB.Recordset     Set rst = New ADODB.Recordset     rst.Open "Select * From Employee", CurrentProject.Connection     MsgBox rst.GetString     rst.Close     Set rst = Nothing End Sub Sub CreateRecordset2()     Dim rst As ADODB.Recordset     Set rst = New ADODB.Recordset     rst.ActiveConnection = CurrentProject.Connection     rst.Open "Select * From Employee"     MsgBox rst.GetString     rst.Close     Set rst = Nothing End Sub Sub CreateRecordset3()     Dim cnn As ADODB.Connection     Dim rst1 As ADODB.Recordset     Dim rst2 As ADODB.Recordset          Set cnn = New ADODB.Connection     Set rst1 = New ADODB.Recordset     Set rst2 = New ADODB.Recordset          cnn.ConnectionString = CurrentProject.Connection     cnn.Open          rst1.ActiveConnection = cnn     rst1.Open "Select * From Employee"     rst2.ActiveConnection = cnn     rst2.Open "Select * From Project"          MsgBox rst1.GetString     MsgBox rst2.GetString          rst1.Close     rst2.Close     cnn.Close          Set rst1 = Nothing     Set rst2 = Nothing     Set cnn = Nothing      End Sub Sub RecordsetMovements()     Dim rst As ADODB.Recordset          Set rst = New ADODB.Recordset     rst.ActiveConnection = CurrentProject.Connection     rst.CursorType = adOpenStatic
Background image of page 2
Image of page 3
This is the end of the preview. Sign up to access the rest of the document.

This note was uploaded on 09/07/2011 for the course MIS unknown taught by Professor Unknown during the Fall '09 term at New York Institute of Technology-Westbury.

Page1 / 13

Using the ADO Control - UsingtheADOControl...

This preview shows document pages 1 - 3. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online