/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Type Mismatch?
Fra : Michael Michel Niels~


Dato : 06-02-02 19:43


Hvorfor får jeg "Type Mismatch" i linien

<Set rs = db.OpenRecordset(sqltxt)> ???

Hvad har jeg glemt/overset - Bruger Access97

Dim db As Database

-------------------------------------------------------------------------
Public Function selectsql(sqltxt As String) As Recordset


Dim rs As Recordset

Set rs = db.OpenRecordset(sqltxt)

Set selectsql = rs

End Function

Public Sub openConn()

Set db = OpenDatabase("c:\data.mdb", True)

End Sub
----------------------------------------------------------------------------

--
Mange venlige hilsner fra

Michael Michel Nielsen
Viborg - Denmark
e-mail: indy@indy.dk
icq: 3890577

- Krystere dør mange gange. - Helte kun een!



 
 
Helge Bjørkhaug (06-02-2002)
Kommentar
Fra : Helge Bjørkhaug


Dato : 06-02-02 21:18

On Wed, 6 Feb 2002 19:43:26 +0100, "Michael Michel Nielsen"
<NOSPAMindy@indy.dk> wrote:

>
>Hvorfor får jeg "Type Mismatch" i linien
>
><Set rs = db.OpenRecordset(sqltxt)> ???
>
>Hvad har jeg glemt/overset - Bruger Access97
>
>Dim db As Database
>
>-------------------------------------------------------------------------
>Public Function selectsql(sqltxt As String) As Recordset
>
>
> Dim rs As Recordset
>
> Set rs = db.OpenRecordset(sqltxt)
>
> Set selectsql = rs
>
>End Function
>
>Public Sub openConn()
>
> Set db = OpenDatabase("c:\data.mdb", True)
>
>End Sub
>----------------------------------------------------------------------------

Du bruker trolig ett Where statement mot ett tekstfelt uten "fnutter".
Med "fnutter" så mener jeg tegnet '
F.eks;

SQL = "SELECT * FROM kunder WHERE navn = '" & Text1.Txt & "'"
Eller
SQL = "SELECT * FROM kunder WHERE navn = 'Nielsen'"

--
Snutten
Fjern helge og .invalid fra mailadressen før du svarer via mail.

Michael Michel Niels~ (06-02-2002)
Kommentar
Fra : Michael Michel Niels~


Dato : 06-02-02 21:44

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 :(


--
Mange venlige hilsner fra

Michael Michel Nielsen
Viborg - Denmark
e-mail: indy@indy.dk
icq: 3890577

- Krystere dør mange gange. - Helte kun een!



Helge Bjørkhaug (06-02-2002)
Kommentar
Fra : Helge Bjørkhaug


Dato : 06-02-02 23:58

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.

Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408926
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste