29. november 2012 - 17:41Der er
10 kommentarer og 1 løsning
Function returnerer kun nul
Hej
Jeg prøver at lave en funktion, som kørers fra Excel og som henter et bestemt id fra en record. Der er kun ét id som opfylder begge kriterier. Der kommer ikke nogen errors, men der kommer heller ikke noget id og jeg har checket at recorden eksiterer i access db.
Min funktion og nede under mit kald af funktionen.
Public Function GetPlanID(fBU As String, fID As Integer) As Integer
Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset Dim sqlQuery As String
sqlQuery = "SELECT Id FROM Plans WHERE Unit = '" & fBU & "' AND PlanID = " & fID
' Make sure we're connected to the database. If Connect Then Set Command = New ADODB.Command
With Command .ActiveConnection = connection .CommandText = sqlQuery .CommandType = adCmdText End With
rs.Open Command.Execute(recordsAffected) rs.ActiveConnection = Nothing Set Execute = rs Set Command = Nothing End If
Ja - den del med GetPlanID = rs("id") Noget at det andet måtte jeg ændre lidt.
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.