Är det någon som vet vad felet Runtime error 3001 är
Kan inte hitta det på msdn.
Programmet fungerar i egen dator men felet kommer i en annan dator.
Uppstår när jag hämtar data från db och skall visa i en rapport.
Access databas och programmerat i vb 6
Inte mycket att ta på men kanske någon snäll person kan hjälpa mig med tips
även tips om det finns någon annan bra sida för felsökning

/Thomas

Fanns det ingen mer text till felmeddelandet?

Application-defined
or
object-defined error

Du får visa koden på den rad som blir fel , något är fel definierat.

Det saknas något på den andra datorn .Om du skall vara säker på att
det skall funka måste du köra tex PDW.(Package and Deployment Wizard).

Så här gör du för att visa Error

MsgBox Error$(3001)

Hej

Jag får detta error i mitt program ibland när jag gör en sökning i db.
jag upplever att jag får detta fel när många program är öppna och för lite minne kvar till sökningen.

Efter felkoden kommer fönstret ange ODBC källa upp, fast jag inte använder några ODBC kopplingar i programmet.

Jag använder XP pro och VB6 samt access i mitt prog.

/Tobbe

En ODBC koppling får du automatiskt när du ansluter VB6 till en accessdatabas. Jag tror att felet ligger i att i VB har du en referens till exempelvis ADO 2.6 eller senare men du har inte ADO installerad på den andra datorn.

I systemdokument/servicepacks här i vänstermenyn finner du de senaste MDAC som då innehåller just ADO. Det kan också vara så att du har xp eller någon senare version av windows och de innehåller inte Jet 3.51 eller Jet 4.0. Där finner du även just dessa och de kan du också installera för att se om det inte fungerar.

Jet 3.51 är för access97 och Jet 4.0 är för Access 2000. Från version 2.6 på MDAC finns inte Jet 4.0 med utan måste installeras manuellt.

För övrigt så om du använder dig av VB6 och Package & deployment så skall du även ladda hem mdac_typ.exe och lägga den i vb6-katalogen så den byggs med ditt installationspaket, annars blir det ingen effekt utan tar och skickar med något gammalt.

Mycket info på en gång. Hoppas det hjälper dig.

Hej Pelle

(En ODBC koppling får du automatiskt när du ansluter VB6 till en accessdatabas)


Skapas det en ODBC koppling även om jag anropar databasen med detta

Dim dbs As Database
Dim rs As Recordset

Set dbs = OpenDatabase(sConn1, False, False, _
";pwd=data@wd")

Set rs = dbs.OpenRecordset("SELECT Fnamn FROM Inst where avd = '" &
CboAvd.Text & "'", dbOpenSnapshot)
Do While Not rs.EOF
sCorp = rs.Fields("Fnamn").Value
rs.MoveNext
Loop
rs.Close
dbs.Close
Set dbs = Nothing

Hälsningar
Tobbe