Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


Combo och sql problem

Postades av 2001-04-15 18:39:00 - Peter Karphed, i forum databaser, Tråden har 9 Kommentarer och lästs av 756 personer

Får ett felmedellande som lyder " körfel 3061 För få parametrar angavs . 1 förväntades

vba ser ut så här....


Dim db As Database
Dim rs As Recordset
Dim rstemp As Recordset
Set db = CurrentDb
Dim strSQl As String
strSQl = "SELECT skyttar.Id_num" & vbCrLf
strSQl = strSQl & " , skyttar.Förnamn" & vbCrLf
strSQl = strSQl & " , skyttar.Efternamn" & vbCrLf
strSQl = strSQl & " , skyttar.Klass" & vbCrLf
strSQl = strSQl & " , skyttar.Skf" & vbCrLf
strSQl = strSQl & " , skyttar.Länskod" & vbCrLf
strSQl = strSQl & " , skyttar.Lagskytt" & vbCrLf
strSQl = strSQl & " , skyttar.Förbundsskytt" & vbCrLf
strSQl = strSQl & " FROM skyttar" & vbCrLf
strSQl = strSQl & " WHERE (((skyttar.Id_num)=[Forms]![frm_TaBortSkytt]![aktiva]));"
Set rs = db.OpenRecordset(strSQl, DB_OPEN_DYNASET)

Vad för fel gör jag...?

Tackar på förhand..


Svara

Sv: Combo och sql problem

Postades av 2001-04-15 19:35:00 - Andreas Hillqvist

Använder du VB eller Access?

Om du använder vb, Testa med det här:

Dim db As Database
Dim rs As Recordset
Dim rstemp As Recordset
Set db = CurrentDb
Dim strSQl As String
strSQl = "SELECT skyttar.Id_num" & vbCrLf
strSQl = strSQl & " , skyttar.Förnamn" & vbCrLf
strSQl = strSQl & " , skyttar.Efternamn" & vbCrLf
strSQl = strSQl & " , skyttar.Klass" & vbCrLf
strSQl = strSQl & " , skyttar.Skf" & vbCrLf
strSQl = strSQl & " , skyttar.Länskod" & vbCrLf
strSQl = strSQl & " , skyttar.Lagskytt" & vbCrLf
strSQl = strSQl & " , skyttar.Förbundsskytt" & vbCrLf
strSQl = strSQl & " FROM skyttar" & vbCrLf
strSQl = strSQl & " WHERE (((skyttar.Id_num)=" & Forms("frm_TaBortSkytt").aktiva & "));"
Set rs = db.OpenRecordset(strSQl, dbOpenForwardOnly)

'Recordset typen dbOpenForwardOnly tar mindre resurser än ett dynaset.
'Lämplig för att ladda en ComboBox.


Svara

Sv: Combo och sql problem

Postades av 2001-04-15 20:03:00 - Peter Karphed

Tackar för den snabba responsen
Det är till access det ska vara...


Svara

Sv: Combo och sql problem

Postades av 2001-04-15 20:41:00 - Andreas Hillqvist

Finns ett litet trick du kan göra för att lista ut vilken parrameter det är som saknas. Namnet på parametern bör dyka upp i debugfönstert:

Dim db As Database
Dim QDef As QueryDef
Dim strSQl As String
Dim P As parameter


Set db = CurrentDb

strSQl = "SELECT skyttar.Id_num" & vbCrLf
strSQl = strSQl & " , skyttar.Förnamn" & vbCrLf
strSQl = strSQl & " , skyttar.Efternamn" & vbCrLf
strSQl = strSQl & " , skyttar.Klass" & vbCrLf
strSQl = strSQl & " , skyttar.Skf" & vbCrLf
strSQl = strSQl & " , skyttar.Länskod" & vbCrLf
strSQl = strSQl & " , skyttar.Lagskytt" & vbCrLf
strSQl = strSQl & " , skyttar.Förbundsskytt" & vbCrLf
strSQl = strSQl & " FROM skyttar" & vbCrLf
strSQl = strSQl & " WHERE (((skyttar.Id_num)=[Forms]![frm_TaBortSkytt]![aktiva]));"
Set QDef = db.CreateQuerydef("", strSQl)
For each P In QDef.Parameters
Debug.print P.Name
Next


Svara

Sv: Combo och sql problem

Postades av 2001-04-15 20:54:00 - Peter Karphed

får fel mess Inkompatibla typer på denna rad

For Each P In QDef.Parameters

Hmmm...känner mig helt loost ...

Tackar ödmjukast för ditt intresse för mitt problem


Svara

Sv: Combo och sql problem

Postades av 2001-04-15 21:00:00 - Andreas Hillqvist

Testa med att ändra
Dim P As Parameter
Till
Dim P As DAO.Parameter


Svara

Sv: Combo och sql problem

Postades av 2001-04-15 21:00:00 - Andreas Hillqvist

Vilken version av Access?


Svara

Sv: Combo och sql problem

Postades av 2001-04-15 21:03:00 - Peter Karphed

Kör med Access 2000
Ändrade till DAO

Fick följande i dbugg

[Forms]![frm_TaBortSkytt]![aktiva]


Svara

Sv: Combo och sql problem

Postades av 2001-04-15 23:58:00 - Peter Karphed

Hmmmm...felet var som du var inne på ...

ändrade till

WHERE (((skyttar.Id_num)= " & [Forms]![frm_TaBortSkytt]![aktiva] & "));"

Så vart allt frid och fröjd..

Än en gång...tack för all hjälp


Svara

Sv: Combo och sql problem

Postades av 2001-04-16 00:16:00 - Andreas Hillqvist

Svar:
DAO vill att du anger parametern [Forms]![frm_TaBortSkytt]![aktiva].
Frågerna som Access i t.ex RowSource och RecordSource egenskperna utvärderar parametrarna.

Eftersom du direkt anropar DAO måste du själv ange parametern. Antingen genom att koda den som en konstant i SQL satsen eller att använda dig av Parametrar.

Dim db As Database
Dim QDef As QueryDef
Dim rsTemp As Recordset
Dim strSQl As String
strSQl = "PARAMETERS FilterID Long;" & vbCrLf & _
"SELECT skyttar.Id_num, skyttar.Förnamn, skyttar.Efternamn, skyttar.Klass, skyttar.Skf, skyttar.Länskod, skyttar.Lagskytt, skyttar.Förbundsskytt" & vbCrLf & _
"FROM skyttar" & vbCrLf & _
"WHERE (((skyttar.Id_num)=[FilterID]));"

Set db = CurrentDb
Set QDef = db.CreateQueryDef("", strSQl)

QDef.Parameters("FilterID") = Forms("frm_TaBortSkytt").aktiva

Set rsTemp = QDef.OpenRecordset(dbOpenForwardOnly)
Do Until rsTemp.EOF

rsTemp.MoveNext
Loop

Det är nog lättare om du använder du dig av RowSource egenskapen om du ska ladda ComboBox'en.


Svara

Nyligen

  • 19:55 kick-off med fokus på hälsa?
  • 19:53 kick-off med fokus på hälsa?
  • 16:24 Föreslå en skönhetsklinik online
  • 16:23 Föreslå en skönhetsklinik online
  • 18:42 Hvor finder man håndlavede lamper
  • 18:41 Hvor finder man håndlavede lamper
  • 16:36 Allt du behöver veta om keramiskt
  • 16:14 Vem anlitar man egentligen när tak

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 705
27 958
271 751
800
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies