I have a database set up with DAO, the same way the database was created.
\nThe database was not created using this app, but I don\'t believe that this should make any difference.
\nBut the command \'Set rsSet = dbProfile.OpenRecordset(stSQL)\' gets error 13. I don\'t understand where the \'type mismatch\' could even be coming from?
\nAny help, suggestions, etc. would be greatly appreciated.
\r\n
Code:
\r\n
Option Explicit\nOption Compare Text\nPublic wksWorkSpace As Workspace\nPublic dbProfile As Database\nPublic dbStorage As Database\nPublic FSO As FileSystemObject\nPublic stSQL As String\nPublic inType As Integer\n \nPrivate Sub cmdGo_Click()\n Dim rsSet As Recordset\n Dim stLine As String\n \n lstItems.Clear\n If txtSQLAddOn.Text <> "" Then\n Select Case inType\n Case Is < 4\n stSQL = stSQL & " AND " & txtSQLAddOn.Text & " ORDER BY Name"\n Case 4, 5, 6, 9\n stSQL = stSQL & " " & txtSQLAddOn.Text & " ORDER BY Name"\n Case 7\n stSQL = stSQL & " " & txtSQLAddOn.Text & " ORDER BY Index"\n Case 10\n stSQL = stSQL & " " & txtSQLAddOn.Text & " ORDER BY GName"\n End Select\n Else\n Select Case inType\n Case 0, 1, 2, 3, 4, 5, 6, 9\n stSQL = stSQL & " ORDER BY Name"\n Case 7\n stSQL = stSQL & " ORDER BY Index"\n Case 10\n stSQL = stSQL & " ORDER BY GName"\n End Select\n End If\n Set rsSet = dbProfile.OpenRecordset(stSQL) \'This line gives the error\n\n If rsSet.BOF = False Or rsSet.EOF = False Then\n rsSet.MoveFirst\n Do While rsSet.EOF = False\n Select Case inType\n Case 0, 1, 2, 3\n stLine = rsSet!Name & ", " & rsSet!Cost\n If rsSet!UpTo <> "" Then stLine = stLine & ", UpTo(" & rsSet!UpTo & ")"\n If rsSet!Mods <> "" Then stLine = stLine & ", Mods(" & rsSet!Mods & ")"\n If rsSet!Gives <> "" Then stLine = stLine & ", Gives(" & rsSet!Gives & ")"\n If rsSet!Needs <> "" Then stLine = stLine & ", Needs(" & rsSet!Needs & ")"\n If rsSet!Notes <> "" Then stLine = stLine & ", Notes(" & rsSet!Notes & ")"\n If rsSet!Page <> "" Then stLine = stLine & ", Page(" & rsSet!Page & ")"\n Case 4\n stLine = rsSet!Name & ", " & rsSet!Type\n If rsSet!UpTo <> "" Then stLine = stLine & ", UpTo(" & rsSet!UpTo & ")"\n If rsSet!Stat <> "" Then stLine = stLine & ", Stat(" & rsSet!Stat & ")"\n If rsSet!Default <> "" Then stLine = stLine & ", Default(" & rsSet!Default & ")"\n If rsSet!Gives <> "" Then stLine = stLine & ", Gives(" & rsSet!Gives & ")"\n If rsSet!Mods <> "" Then stLine = stLine & ", Mods(" & rsSet!Mods & ")"\n If rsSet!Needs <> "" Then stLine = stLine & ", Needs(" & rsSet!Needs & ")"\n If rsSet!Notes <> "" Then stLine = stLine & ", Notes(" & rsSet!Notes & ")"\n If rsSet!Page <> "" Then stLine = stLine & ", Page(" & rsSet!Page & ")"\n Case 5\n stLine = rsSet!Name & ", " & rsSet!Type\n If rsSet!CastingCost <> "" Then stLine = stLine & ", CastingCost(" & rsSet!CastingCost & ")"\n If rsSet!Needs <> "" Then stLine = stLine & ", Needs(" & rsSet!Needs & ")"\n If rsSet!Duration <> "" Then stLine = stLine & ", Duration(" & rsSet!Duration & ")"\n If rsSet!Time <> "" Then stLine = stLine & ", Time(" & rsSet!Time & ")"\n If rsSet!Notes <> "" Then stLine = stLine & ", Notes(" & rsSet!Notes & ")"\n If rsSet!Page <> "" Then stLine = stLine & ", Page(" & rsSet!Page & ")"\n Case 6\n stLine = rsSet!Name\n If rsSet!Description <> "" Then stLine = stLine & ", Description(" & rsSet!Description & ")"\n stLine = stLine & ", Race(" & rsSet!Race & ")"\n stLine = stLine & ", New(" & rsSet!New & ")"\n Case 7\n stLine = "If " & rsSet!Stat & rsSet!Test & rsSet!Score & " Then " & rsSet!Bonus & " " & rsSet!ApSec & ":" & rsSet!ApName\n Case 9\n stLine = rsSet!Name\n If rsSet!BaseValue <> "" Then stLine = stLine & ", BaseValue(" & rsSet!BaseValue & ")"\n If rsSet!Step <> "" Then stLine = stLine & ", Step(" & rsSet!Step & ")"\n If rsSet!Down <> "" Then stLine = stLine & ", Down(" & rsSet!Down & ")"\n If rsSet!MinScore <> "" Then stLine = stLine & ", MinScore(" & rsSet!MinScore & ")"\n If rsSet!Up <> "" Then stLine = stLine & ", Up(" & rsSet!Up & ")"\n If rsSet!MaxScore <> "" Then stLine = stLine & ", MaxScore(" & rsSet!MaxScore & ")"\n stLine = stLine & ", Round(" & rsSet!Round & ")"\n If rsSet!Symbol <> "" Then stLine = stLine & ", Symbol(" & rsSet!Symbol & ")"\n stLine = stLine & ", Display(" & rsSet!Display & ")"\n If rsSet!DoubleInPlay <> "" Then stLine = stLine & ", DoubleInPlay(" & rsSet!DoubleInPlay & ")"\n Case 10\n stLine = "GroupName(" & rsSet!GName & "), " & rsSet!Tag & ":" & rsSet!Subject\n End Select\n lstItems.AddItem stLine\n rsSet.MoveNext\n Loop\n End If\nEnd Sub\n \nPrivate Sub Form_Load()\n Dim tblDef As TableDef\n Dim Indx As Index\n Dim relMakRel As Relation\n stSQL = "SELECT * FROM ADPQ WHERE Section = \'ADS\'"\n Set FSO = CreateObject("Scripting.FileSystemObject")\n Set wksWorkSpace = CreateWorkspace("", "admin", "", dbUseJet)\n Set dbProfile = wksWorkSpace.OpenDatabase(App.Path & "\\profile.mdb", True, False)\n If FSO.FileExists(App.Path & "\\storage.mdb") Then\n Set dbStorage = wksWorkSpace.OpenDatabase(App.Path & "\\storage.mdb", True, False)\n Else\n Set dbStorage = wksWorkSpace.CreateDatabase(App.Path & "\\storage.mdb", dbLangGeneral)\n \'Table Replace\n\n Set tblDef = dbStorage.CreateTableDef("Replace")\n With tblDef\n .Fields.Append .CreateField("Type", dbText, 10)\n .Fields.Append .CreateField("DelName", dbMemo)\n Set Indx = .CreateIndex("RepIndx")\n Indx.Fields.Append Indx.CreateField("DelName", dbMemo)\n Indx.Unique = True\n Indx.Primary = True\n tblDef.Indexes.Append Indx\n End With\n dbStorage.TableDefs.Append tblDef\n \'Table With\n\n Set tblDef = dbStorage.CreateTableDef("With")\n With tblDef\n .Fields.Append .CreateField("Index", dbLong)\n .Fields("Index").Attributes = dbAutoIncrField\n .Fields.Append .CreateField("DelName", dbMemo)\n .Fields.Append .CreateField("AddName", dbMemo)\n Set Indx = .CreateIndex("WithIndx")\n Indx.Fields.Append Indx.CreateField("DelName", dbMemo)\n Indx.Fields.Append Indx.CreateField("AddName", dbMemo)\n Indx.Unique = True\n Indx.Primary = True\n tblDef.Indexes.Append Indx\n End With\n dbStorage.TableDefs.Append tblDef\n Set relMakRel = dbStorage.CreateRelation("ReplaceToWith", "Replace", "With", dbRelationDeleteCascade)\n relMakRel.Fields.Append relMakRel.CreateField("DelName", dbMemo)\n relMakRel.Fields!DelName.ForeignName = "DelName"\n dbStorage.Relations.Append relMakRel\n \'Next Table\n \n dbStorage.Close\n Set dbStorage = wksWorkSpace.OpenDatabase(App.Path & "\\storage.mdb", True, False)\n End If\nEnd Sub\n \nPrivate Sub optType_Click(Index As Integer)\n Select Case Index\n Case Is < 4\n stSQL = "SELECT * FROM ADPQ WHERE Section = \'" & optType(Index).Caption & "\'"\n Case Else\n stSQL = "SELECT * FROM " & optType(Index).Caption\n End Select\n txtSQLAddOn.Text = ""\n inType = Index\nEnd Sub
\r\n
\r\n\r\n\r\n
Error 13: Type Mismatch
Threaded Mode
