I tried a simple Text1 = Adodc.RecordCount (doesn't work)
any ideas?
Thanks in advance............ Walter
HTH
On 13 Mar 2003 13:49:53 -0800, groups.9...@spamgourmet.com
In article <5dd4cbad.03031...@posting.google.com>, Walter
(groups.9...@spamgourmet.com) says...
Here is some code extracted from one of my VB6 programs
Dim myConnection As ADODB.Connection
Dim myRecordSet As ADODB.Recordset
Dim strSQL As String
Dim sqlCount As Integer
strSQL = "SELECT * FROM mytable";
Set myConnection = New ADODB.Connection
myConnection.ConnectionString =
"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;User
ID=Admin;Data Source=" & m_strDatabaseFile & ";Mode=Share Deny None"
myConnection.CursorLocation = adUseClient
myConnection.Open
' Create a Recordset by executing a SQL statement
Set myRecordSet = myConnection.Execute(strSQL)
If myRecordSet.EOF = True Then
myRecordSet.Close
myConnection.Close
Exit Function
End If
' Get record count
sqlCount = myRecordSet.RecordCount
--
---------
Barry Kimelman
Winnipeg, Manitoba, Canada
email : bkim...@hotmail.com