vbscript, max(ID), "odbc call failed"

[Verwijderd]

ik wil telkens nieuwe records vanuit mijn outlook formulier naar mijn RFC tabel schrijven. Maar dan moet ik eerst MAX(ID) uit mijn RFC tabel ophalen en in de insert query gebruiken. Ik krijg de foutmelding "odbc call failed"

Voordat ik de ID in de code had toegepast kon ik de items (comboboxes) wel naar de RFC plaatsen. Hoe kan ik dat ID gedeelte oplossen????


Set MyDbEng = CreateObject("DAO.DBEngine.35")
Set MyWkSpace = MyDbEng.CreateWorkspace("WkSpace", "admin", "", 1)

MyDbEng.Workspaces.Append MyWkSpace

Set MyDbConn = MyWkSpace.OpenConnection("test", 1, False, "ODBC;DATABASE=test;UID=admin;PWD=;DSN=test")

Set MyRs = MyDbConn.OpenRecordset("SELECT MAX(ID) FROM RFC",2,1024,3)

MyDBConn.execute(" insert into RFC (Application, ID, Priority, Owner, ProjectPlanActivity, Category, Manhours, Status, IssuedBy, IssuedContact, DescriptionOfAction, Comments) values ('"+ ComboBox1.text +"','"+ GetID +"','"+ ComboBox5.text +"','"+ ComboBox6.text +"','"+ ComboBox7.text +"','"+ ComboBox8.text +"','"+ ComboBox9.text +"','"+ ComboBox10.text +"','"+ ComboBox11.text +"','" + TextBox1.text + "','"+ TextBox2.text + "','"+ TextBox3.text +"');")

MyRs.AddNew
'MyRs.Fields("ID") = MyRs
MyRs.Update
MyRs.Close

MyDBConn.Close

[Verwijderd]

ik wil dus eerst MAX ID hebben en daarna met 1 verhogen voor de nieuwe record

[gorgi_19]

Set MyRs = MyDbConn.OpenRecordset("SELECT MAX(ID) AS MaxID FROM RFC",2,1024,3)

en

code:

MyRs.Fields("ID") = MyRs("maxID") + 1

oid

[Verwijderd]

krijg nog steeds die foutmelding odbc call failed

[Verwijderd]

misschien niet via recordset ???

[Tukk]

Ik wil je graag helpen, maar wat is een RFC-tabel?

Mischien bedoel je dit

Visual Basic:

MyDBConn.execute(" insert into RFC (Application, ID, Priority, Owner, 
ProjectPlanActivity, Category, Manhours, Status, IssuedBy, IssuedContact, 
DescriptionOfAction, Comments) values ('"+ ComboBox1.text +"','"+ myRs.fields
(1).value + 1 +"','"+ ComboBox5.text +"','"+ ComboBox6.text +"','"+ 
ComboBox7.text +"','"+ ComboBox8.text +"','"+ ComboBox9.text +"','"+ 
ComboBox10.text +"','"+ ComboBox11.text +"','" + TextBox1.text + "','"+ 
TextBox2.text + "','"+ TextBox3.text +"');")

twee puntjes,
1. je kan je oude bericht nog aapassen, je hoeft niet nog een bericht er onder te plaatsen.
2. Ik neem aan dat dit VBA is en niet vbscript, toch?

[Verwijderd]

mijn tabel heet noem ik gewoon RFC. en het is vbscript.
Ik heb net dat myRs.Fields(1).value+1 gebruikt en die gaf de foutmelding ")" expected.
okee maar ik heb evenveel ( en )

zie:
MyDBConn.execute(" insert into RFC (Application, Priority, Owner, ProjectPlanActivity, Category, Manhours, Status, IssuedBy, IssuedContact, DescriptionOfAction, Comments) values ('"+ ComboBox1.text +"',"'+ MyRs.fields(1).value + 1 +"','"+ ComboBox5.text +"','"+ ComboBox6.text +"','"+ ComboBox7.text +"','"+ ComboBox8.text +"','"+ ComboBox9.text +"','"+ ComboBox10.text +"','"+ ComboBox11.text +"','" + TextBox1.text + "','"+ TextBox2.text + "','"+ TextBox3.text +"');")

[Verwijderd]

de error ")" expected is ontstaan nadat ik MyRs.fields(1).value + 1
of als ik MyRs.Fields("ID") = MyRs("maxID") + 1
en daarna MyRs.Fields("ID") in de insert query stopt

[Tukk]

Dat Getid dat je gebruikt in je code, waar vul je die?
Als je nu het volgende gebruikt?

code:

Set MyRs = MyDbConn.OpenRecordset("SELECT MAX(ID) AS MAX_ID FROM RFC",2,1024,3)

GetID =  MyRs("MAX_ID")

MyDBConn.execute(" insert into RFC (Application, ID, Priority, Owner, 
ProjectPlanActivity, Category, Manhours, Status, IssuedBy, IssuedContact, 
DescriptionOfAction, Comments) values ('"+ ComboBox1.text +"','"+ GetID +"','"+ 
ComboBox5.text +"','"+ ComboBox6.text +"','"+ ComboBox7.text +"','"+ 
ComboBox8.text +"','"+ ComboBox9.text +"','"+ ComboBox10.text +"','"+ 
ComboBox11.text +"','" + TextBox1.text + "','"+ TextBox2.text + "','"+ 
TextBox3.text +"');")

[D2k]

amiga: ga nou eens de code tags gebruiken svp

[Verwijderd]

met jouw code krijg ik type mismatch: "[straing: "insert into RFC (Ap"]"

nou ik probeer eerst die MAX ID op te halen en daarna met 1 ophogen en in een variabele inproppen. met die insert query wil ik die variabele in mijn RFC tabel gooien.

[Verwijderd]

wat is er nou mis met de tags d2k ?

[Verwijderd]

Set MyDbConn = MyWkSpace.OpenConnection("test", 1, False, "ODBC;DATABASE=test;UID=admin;PWD=;DSN=test")

Set MyRs = MyDbConn.OpenRecordset("SELECT MAX(ID) AS RFC_ID FROM RFC",2,1024,3)
MAX_ID = (MyRs.Fields("RFC_ID") + 1)
MyRs.Close

MyDBConn.execute(" insert into RFC (Application, ID, Priority, Owner, ProjectPlanActivity, Category, Manhours, Status, IssuedBy, IssuedContact, DescriptionOfAction, Comments) values ('"+ ComboBox1.text +"',& MAX_ID &,'"+ ComboBox5.text +"','"+ ComboBox6.text +"','"+ ComboBox7.text +"','"+ ComboBox8.text +"','"+ ComboBox9.text +"','"+ ComboBox10.text +"','"+ ComboBox11.text +"','" + TextBox1.text + "','"+ TextBox2.text + "','"+ TextBox3.text +"');")

MyDBConn.Close
Set MyDBConn = Nothing
Set MyWrkSpace = Nothing
Set MyDBEng = Nothing
End Sub

error odbc call failed voor de zoveelste keer.... wordt nu echt moe van dit.

[ferdivaneeten]

Met de [ code ] tag zie je het verschil tussen de aanhalingstekens beter.
Gebruik eens & als string concatenator, en bij MAX_ID hierboven klopt het niet helemaal...

code:

MyDBConn.execute("insert into RFC (Application, ID, Priority, Owner,
ProjectPlanActivity, Category, Manhours, Status, IssuedBy,
IssuedContact, DescriptionOfAction, Comments) values ('" &
ComboBox1.text & "',"  & MAX_ID & ",'" & ComboBox5.text & "','" & 
ComboBox6.text & "','" & ComboBox7.text  & "','" & ComboBox8.text  & "','" &
ComboBox9.text & "','" & ComboBox10.text & "','" & ComboBox11.text & "','" &
TextBox1.text  & "','" & TextBox2.text   & "','" & TextBox3.text   & "');")

[Verwijderd]

alle + tekens naar & veranderd en nog steeds niet opgelost

[Tukk]

ok,

nog een aanpassing in je code.
Deze maakt de code meteen wat mooier...

Stop het insert-statement eerst in een string.
Iets van :

code:

dim lsSQL as string
ls SQL = "insert into <KNIP>"
msgbox  lsSQL
MyDBConn.execute(lssql)

Laat dan eens zien wat de sql-query inhoud voor dat je de query uitoert.
Het ziet er wat mooier uit en het is dus makkelijker debuggen.

Kopieer de code van het sql-statement en voer deze eens uit op de database (acces, oracle?) met een Database client.

Wertk de code dan wel?
Krijg