Og denne kode til at lave mit recordset: Set rs = CreateObject(\"ADODB.RecordSet\") rs.Open \"SELECT * FROM [tbl_Folders]\", Conn, 1, 3
Når jeg kører mit program melder den om fejl i ovenstående linie: Run-time error \'3001\': Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
Den vil godt køre en som denne: Conn.Execute(\"DROP TABLE test\")
Problemet ligger i den måde du åbner forbindelsen. Prøv at åbne på denne måde i stedet : ----------------- Dim conn As Connection Dim rs As Recordset
Set conn = New Connection With conn .CursorLocation = adUseClient .ConnectionString = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=database.mdb;Mode=ReadWrite;Persist Security Info=False\" End With conn.Open
Set rs = conn.Execute(\"SELECT * FROM [tlb_folders]\") -------------------
Her siger den ved linien \"Dim conn As Connection\", \"User-defined type not defined\". Jeg skal vel også lave et CreateObject(\"ADODB.Connection\") ikke?
Du skal huske at lave en reference til dit ADO object..... Dette gøres under punktet Project-references....der skal du sætte hak i Microsoft ActiveX Data Objects 2.5 (eller hvad du nu har)
Du behøves IKKE at lave en creatObject, hvis du har sat referencer til ADO....
Du skal aldrig bruge CreateObject da denne metode opretter en form for et variant object, dvs. et Object der er alt for stort i forhold til det det skal bruges til. Sæt istedet for, som xelor siger, en reference til Microsoft ActiveX Data Object 2.0 eller derover.
Xelor: Du behøver iøvrigt ikke angive Cursor location når vi snakker om en Access DB, den vil altid som standard ligge som AdClient.
Man bør dog kigge på LockType og CursorType, hvis man ønsker at lave mere ved sin database end blot at udtrække simple data.
> Kedde : OK, takker.....arbejder sjældent med Access-DB\'er........:-))
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
