Err 13 Type mismatch while filling up a recordset

[Smarty]

I have the following code:


Dim sqlstring As String

sqlstring = "select * from GuidelineCategories order by GuidelineCategoryID"
Dim db As Variant
Dim rst As Recordset

Set db = CurrentDb
Set rst = db.openrecordset(sqlstring)

rst.MoveFirst
While Not rst.EOF
If rst.Fields("ParentID&quot = 0 Then
CategoryTree.Nodes.Add , , rst.Fields("GuidelineCategoryID&quot, rst.Fields("Category&quot
Else
CategoryTree.Nodes.Add rst.Fields("ParentID&quot, tvwChild, rst.Fields("GuidelineCategoryID&quot, rst.Fields("Category&quot
End If
rst.MoveNext

Wend



But I get an Err 13 Type mismatch in the following line:

Set rst = db.openrecordset(sqlstring)

I tripple checked the column and table names, they are correct. Any idea why this is not working?

 

[nabiS2K]

You might want to change the db to be dimmed as a database.

If that doesn't work, try changing this:

Set rst = db.openrecordset(sqlstring)

to

Set rst = Currentdb.CreateQueryDef("",sqlstring).OpenRecordSet

My example creates a temporary query, if you are using Access 97 (or higher if you have DAO objects referenced).

God Bless

 

[Smarty]

I managed to do what i want with this code:

Private Sub Form_Load()
Dim sqlstring As String
Dim ParentID, GuidelineCategoryID, Category As String

sqlstring = "select * from GuidelineCategories order by GuidelineCategoryID"
Dim db As Variant
Dim rst As Variant

Set db = CurrentDb
Set rst = db.openrecordset(sqlstring)

rst.MoveFirst
While Not rst.EOF
ParentID = "ID" & rst.Fields("ParentID&quot
GuidelineCategoryID = "ID" & rst.Fields("GuidelineCategoryID&quot
Category = rst.Fields("Category&quot
If ParentID = "ID" Then
CategoryTree.Nodes.Add , , GuidelineCategoryID, Category
Else
CategoryTree.Nodes.Add ParentID, tvwChild, GuidelineCategoryID, Category
End If
rst.MoveNext

Wend


End Sub


THANX ANYWAY!

 

[TestDrive]

i suspect that you have your ADO library priorized before your DAO library in the References.

go to Tools --> References and re-priorize your libraries and make sure that your DAO is listed higher than ADO.

however, if you need to reference and use both DAO and ADO Recordset objects, dimension the objects explicitly as:

Dim rst As DAO.Recordset
Dim rst As ADODB.Recordset

hope this helps! TestDrive