On Wed, 6 Feb 2002 21:43:54 +0100, "Michael Michel Nielsen"
<NOSPAMindy@indy.dk> wrote:
>Hej
>
>>
>> SQL = "SELECT * FROM kunder WHERE navn = '" & Text1.Txt & "'"
>> Eller
>> SQL = "SELECT * FROM kunder WHERE navn = 'Nielsen'"
>
>Den SQL sætning jeg sender over hedder "SELECT * FROM HOUSE" ... og ikke
>noget med fnutter :(
Tittet nok nøye nok på den første posting din
Trikset er å få recordset'et tilbake fra funksjonen.
Public Function selectsql(sqltxt As String) As Recordset
Set selectsql = db.OpenRecordset(sqltxt)
End Function
Private Sub Command1_Click()
Dim SQL As String, myrs As Recordset
SQL = "SELECT * FROM HOUSE"
Set myrs = selectsql(SQL)
MsgBox myrs.Fields(0)
myrs.Close
Set myrs = Nothing
End Sub
Vet ikke om jeg ville ha løst det på denne måten, men det virker da
--
Snutten
Fjern helge og .invalid fra mailadressen før du svarer via mail.