Forums :: Swyx Forum

Forums Client Configuration -... VB Script Problem (Call-Routing mit DTMF und MS Access Datenbank)

10/6/2008 6:23 PM

	dbaur
14 posts

Re: VB Script Problem (Call-Routing mit DTMF und MS Access Datenbank) (Germany)

Modified By dbaur on 10/6/2008 5:25:40 PM)

das "Neue" und funktioniesfähige Script sieht folgender maßen aus:

-------------------------------------

Dim db, Connect, rs, Callnbr, PLZeingabe, Bezirk, FindWeek, PLZsuche

Const adOpenKeyset = 1
Const adLockOptimistic = 3
Const adCmdTable = &H0002
Const adOpenForwardOnly = 0

'Der Wert ist im CallRouting Script natürlich nicht fest sondern wird vom Script übergeben, dass war jetzt nur eine PLZ für den Test ohne der Swyx
PLZeingabe = 41065

Connect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\CallRoutingDB\Service24.mdb"

Set db = CreateObject("ADODB.Connection")
db.Open Connect

PLZsuche = "Select * From PLZListe where PLZ ='" & PLZeingabe & "'"

set rs = CreateObject("ADODB.Recordset")
rs.Open PLZsuche, Connect, AdOpenForwardOnly

Bezirk = rs.Fields("Bezirk").Value

rs.close
set rs = nothing

FindWeek = "Select * From " & Bezirk & " where now() > StartDate AND now() < EndDate"

set rs = CreateObject("ADODB.Recordset")
rs.Open FindWeek, Connect, AdOpenForwardOnly

Callnbr = rs.Fields("Supporter").Value

rs.close
set rs = nothing

db.close
set db = nothing

--------------------------------------------------------------------

Page 2 of 2

Forums

Client

Configuration -...

VB Script Problem (Call-Routing mit DTMF und MS Access Datenbank)

Forum Policy

The discussion forums at Swyx Forum are dedicated to the discussion of Swyx, SwyxWare and related topics.

For the benefit of the community and to protect the integrity of swyx-form, please observe the following posting guidelines:

No Advertising. This includes promotion of commercial products and non-commercial products which are not directly related to SwyxWare, it's OEM versions or a forum topic.
No Flaming or Trolling.
No Profanity, Racism, or Prejudice.
Furthermore, make sure your posts comply to our Terms of Use.
Newest development in German law defines online forums as journalistic content, making the forum owner and all posters to journalists. With this statement the forum owner declares that neither he nor his users are journalists with all legal consequences.
The forums are currently unmoderated, meaning all postings will appear immediately after submission. If this turns out not working due to massive abuse all forums will switch to moderated mode, meaning a posting must be approved after submission my a moderator before appearing.
You can use any language you like (except for the project forums) but keep in mind that by using english you will reach the largest audience.
Within the project forums english language is mandatory.