The Recordset Object

[dellyjm]

Anyone knows how to manipulate the recordset object using this "command"?

Private Sub cmdConnection_Click()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim fields As Field

Set conn = New ADODB.Connection
conn.Open "Whatever"

Set rs = conn.OpenSchema(adSchemaTables)
conn.Close
MsgBox conn.State


End Sub

 

[listener22]

Not sure if this answers your question, but assuming the code works,
after conn.Close you have a disconnected recordset, rs. You can check
whether rs.eof = rs.bof, that is that rs is empty; you can find out the
number of fields with rs.fields.something. You can maneuver to a
given record number and assign the record's values to variables.
You can order the records with rs.sort = a field name or index number.
When you are done with rs, it should be set to nothing, as should
the other objects.

 

[dellyjm]

Well I found out wat it does...as it says it finds out the schema for a DB.

Set rs = conn.OpenSchema(adSchemaTables)

Do Until rs.EOF
sCurrentTable = rs!TABLE_NAME
If Mid(sCurrentTable, 1, 3) <> &quot;sys&quot; Then
If (sCurrentTable <> sNewTable) Then
sNewTable = rs!TABLE_NAME
Debug.Print &quot;Current Table : &quot; & rs!TABLE_NAME
End If
Debug.Print &quot; Field: &quot; & rs!COLUMN_NAME
End If
rs.MoveNext
Loop