HASTER ! VB/SQL problem i Access

jvf. evt med http://www.eksperten.dk/spm/25365

RunSQL er til at køre SQL kode som ikke \"kommer\" tilbage med et resultat ( x antal rækker, UPDATE, INSERT INTO osv.  ) hvor imod OpenQuery er til hvis der kommer et antal rækker tilbage ( SELECT )

Du kan evt. bruge \"SELECT max(kontraktID)\", det vil gi\' det højeste KontraktID der er, jeg formoder det var det der var idé\'en

/Martin

Kunne du ikke selv skrive en function der afleverer KontraktID?

Følgende sammensat i Access:

Function getKontraktID() As Integer
    Dim db As database
    Dim rs As Recordset
    Set db = CurrentDb()
    Set rs = db.OpenRecordset(\"SELECT KontraktID FROM Kontrakter ORDER BY KontraktID\")
    rs.MoveLast
    getKontraktID = rs(\"KontraktID\")
    rs.Close
    db.Close
End Function

så er \"SELECT max(KontraktID)\" væsentlig hurtigere
en og ligge og fetvhe alle record, det andet foregår på SQL serveren og kører MEGET hurtigere, skal man bruge SQL, kan man jo lige så godt lave noget der er ordenligt og hurtig. *S*

Så Rigtigt, Så Rigtigt...

PIV !
Jeg bliver ved med at få fejlen \'Expected Function or Variable\' }(

Her er testkoden;

Private Sub Kommandoknap2_Click()

  TESTY = DoCmd.OpenQuery(\"KontraktKald\", acViewNormal, acReadOnly)
 
End Sub

Hvor \'Kontraktkald\' = SELECT Max([Kontrakter].[KontraktID]) AS MaxID FROM Kontrakter;

Der må mangler et eller andet plugin, måske en DLL eller ?

Jeg har før rodet med en \"Component Manager\" (ikke sikker på navnet), men kan ikke huske hvor i menu\'n jeg finder den.

*Sighs*

Prøv med :
\'Kontraktkald\' = SELECT Max(KontraktID) AS MaxID FROM Kontrakter;

Dim Bleh As Long
Bleh = \"SELECT Max(KontraktID) AS MaxID FROM Kontrakter\"

Hmm, ovenstående giver mig en type mismatch!

Kan man anvende DoCmd til det?, jeg mener:

Afleverer DoCmd resultat?, mig bekendt sker det ikke!

Forslag sammensat af MartinLind\'s forslag og mit ovenstående:

Function getKontraktID() As Integer
    Dim db As database
    Dim rs As Recordset
    Set db = CurrentDb()
    Set rs = db.OpenRecordset(\"SELECT MAX(KontraktID) FROM Kontrakter\")
    rs.MoveFirst
    getKontraktID = rs(0)
    rs.Close
    db.Close
End Function

Dim Bleh As Long
Bleh = getKontraktID

Hvilken type er KontraktID ??

Uanset hvilken type KontraktID er kan da ikke skrive:

Dim Bleh As Long
Bleh = \"SELECT Max(KontraktID) AS MaxID FROM Kontrakter\"

og slippe godt fra det...

Bleh defineres som \"Long\" og i den forsøger man at hælde en streng ind

I det pågældende eksempel er KontraktID et autonum. felt.
jeg var under indtryk af at man skulle dim\'e en variabel til Long for at kunne returnere en sådanne værdi.

->Privaten

Med et simpelt knaptryk, crashede jeg min client TOTALT, da den udførte dit ovenstående funktionforslag.
Jeg tvivler på (indtastnings-)fejl fra min side af, da jeg \"bare\" lavede cut\'n\'paste !

I har ingen idé om kravene til evt. req. plugins ?

Du kan ikke paste mit forslag ind, det er som beskrevet hullet ind i Access. Du er nødt til at ændre db & rs variable jf. VB6.0, ellers virker det ikke!

Jeg tror ikke det er et spørgsmål om plugins, det SKAL kunne lade sig gøre ;-)

Hvis vi snakker ANSI92 SQL så SKAL \"SELECT Max(KontraktID) AS MaxID FROM Kontrakter\", hvis feltet KontrakID er i tabelen Kontrakter, hvis det ikke virker kører VB6 ikke efter en std. ANSI SQL ( så svaret skal findes i hjælpen )

/Martin

Oho ! Det forklarer jo en del :)
Jeg har ikke arbejdet med db og rs før så jeg er helt ude i hampen her :(
Skal db sættes = path\'n til DB\'n ?

    rs.MoveFirst
    getKontraktID = rs(0)

Ovenstående sætter \"bare\" getKontraktID = første forekomst i rs right ?

PS : Jeg kiggede på DataSource Property & Connection Object, i hjælpfilen.
Nogen andre ting jeg skal kigge på ?

-> Martinlind

Har du noget link til mere info på ANSI92 SQL ? (Udover www.ansi.org :) har ikke lige 235$ til den slags)

Jeg har ingen problemer med SQLsætningen! Balladen starter når jeg prøver at kalde den fra VB !

et lille eksempel, der måske hjælper dig på vej:

Sub TestADO()
  Dim db as ADODB.Conection
  Dim rs as New ADODB.Recordset

  \'Set the provider name
  db.Provider = \"Microsoft.Jet.OLEDB.4.0\"

  \'Open a connection to the data
  db.Open \"C:\\ds-zim.mdb\"

  \'Open a recordset with a keyset cursor
  rs.Open \"SELECT Max(KontraktID) AS MaxID FROM Kontrakter\", c,adOpenKeyset

  rs.MoveFirst
  dim Antal as Integer
  Antal = rs(0)

  \'Clean up
  rs.close
  db.close

End Sub

dz-zim > Hvis du har styr på SQL sætningen, så kan jeg nok ikke være med mere, jeg kender ikke VB, men kan da anbefale Delphi *S*

SQL-Sætningen SKAL virke, så du må kæmpe med VB syntaksen indtil det virker.

-> MartinLind

Jeg takker 4 den hurtige indsats !
Jeg var ikke bekendt med Max(Felt), så jeg vil C om jeg kan få sat nogen point af til dig :)

Skal det her i piben eller i skraldespanden ? *S*

Function getKontraktID() As Integer
   
\'    Dim db As Database
    Dim db As ADODB.Conection
\'    Dim rs As Recordset
    Dim rs As New ADODB.Recordset
   
    db.Provider = \"Microsoft.Jet.OLEDB.4.0\"
   
    db.Open \"E:\\Database\\Work\\Altass#100.mdb\"
   
\'    Set db = CurrentDb()
\'    Set rs = db.OpenRecordset(\"SELECT MAX(KontraktID) FROM Kontrakter\")
   
    rs.Open \"SELECT Max(KontraktID) AS MaxID FROM Kontrakter\", c, adOpenKeyset
   
    rs.MoveFirst
    Dim Antal As Integer
    Antal = rs(0)
   
    rs.Close
    db.Close

End Function

Beklager, men jeg bliver nødt til at stoppe 4 idag }(
Skal i skole/på kursus kl. 17:00 og skal også have klemt en fråder ind i tidsplanen ..
Tak for indsatsen ! ( og tålmodigheden *Nudge Privaten* :)

Ser fornuftigt ud, omend du ikke behøver \"AS MaxID\" (fordi du ikke anvender felt-navnet til at hive data ud med)

Dim db As ADODB.Conection
Dim rs As New ADODB.Recordset

Disse giver mig \'Userdefined Type not defined\'.

db.Provider = \"Microsoft.Jet.OLEDB.4.0\"
db.Open \"E:\\Database\\Work\\Altass#100.mdb\"

resulterer i \'Method or Data Member not found\'.

}(

-> MartinLind

Vil det være muligt med en forespørgsel/Ren SQL at kopieret værdien \'Maks([Kontrakter].KontraktID])\' til en anden tabel ?
Jeg er ikke stiv nok i SQL til at oprette en sådanne forespørgsel :(
Men idéen er at efter at have udført Maks([Kontrakter].KontraktID]), skal den værdi gemmes i en anden tabel ([System].PågældendeKontraktID).
Så kan jeg bruge noget så simpelt som DLookUp til at hente værdien :)

*Håbe Håbe*

Så skal du op i references og sætte et hak i \"ActiveX Data Objects\"

(Under project)

Jeg har flere valgmuligheder og har krydset flg. af;

MS ActiveX Data Objects (Multi-dimensional) 1.0
MS ActiveX Data Objects 2.1
MS ActiveX Data Objects Recordset 2.1

Jeg arbejder som sagt i Office2K og har valgt den fulde installation.
Med lidt held vil en større brugergruppe få glæde af mit produkt og jeg vil gerne vide om den indstilling jeg ændrer vil være permanent!
Altså, at de, som vil benytte produktet, ikke skal ind og indstille \'References\'.

Function getKontraktID() As Integer
   
\'    Dim db As Database
    Dim db As ADODB.Connection
\'    Dim rs As Recordset
    Dim rs As New ADODB.Recordset

    db.Provider = \"Microsoft.Jet.OLEDB.4.0\"
   
    db.Open \"E:\\Database\\Work\\Altass#100.mdb\"
   
    Set db = CurrentDb()
    Set rs = db.OpenRecordset(\"SELECT MAX(KontraktID) FROM Kontrakter\")
   
    rs.Open \"SELECT Max(KontraktID) FROM Kontrakter\", c, adOpenKeyset
   
    rs.MoveFirst
    Public Antal As Integer
    Antal = rs(0)
   
    rs.Close
    db.Close

End Function

Jeg får fejlen \'Compile Error : Variable not defined\' i linien
    rs.Open \"SELECT Max(KontraktID) FROM Kontrakter\", c, adOpenKeyset

hvor , c, er markeret blåt. Er det ikke et argument til rs.Open ?

!*! Jeg har fattet at man ikke kan have public variables i en sub/function !*!
Såøh, C bort fra det i denne omgang (erstattede Public med Dim)

Jeg har prøvet og udelade \', c,\' og får nu fejlen \'Object variable or With block variable not set\'

Udskift \'c\' med db

Det var min fejl, jeg editerede i den gamle funktion, og var ikke opmærksom på det lille \'c\'

Nu får jeg fejlen \'Object Variable or With block variable not set\' !

Jeg har løst mit problem ved at benytte handlingsforespørgsler istedet (DoCmd.RunSQL).
Smid lige et svar \'Privaten\', så du kan få point for indsatsen.

Cheers, Zim

Hermed et svar..