Existing script extension - simple IF / ELSE / THEN mysql record check
VBscript is as following
' Script for MailUsage import to Agencies
'
'
Dim cn, rs, str
Dim strX,strY,strZ,datestrs
Dim sf, fso, fp
Dim arry()
strX = month(date)
strY = day(date)
strZ = year(date)
datestrs = strZ & "-" & strX & "-" & strY
fp = "c:\scripts\[login to view URL]"
Set cn = CreateObject("[login to view URL]")
Set rs = CreateObject("[login to view URL]")
Set fso = [login to view URL]("[login to view URL]")
Set sf= [login to view URL](fp,1)
conn = "Driver={MySQL ODBC 3.51 Driver};Server=[login to view URL];Database=test;User=root; Password=pw;"
Dim strSQL
Dim strSQL1
Do Until [login to view URL]
temp = [login to view URL]
str = Split (temp,",")
' add record set to radius database
strSQL = "INSERT INTO radacct (username,acctinputoctets,acctoutputoctets,acctstoptime)"&"VALUES('"& str(0) &"','"&str(1)&"','"&str(2)&"','"&datestrs&"')"
' this string needs modification as following:
'
' If
' str(0) found in table radusergroup, do nothing
' Else
' strSQL1 = "INSERT INTO radusergroup (username,groupname)"&"VALUES('"& str(0) &"','"&str(0)&"')"
' then
[login to view URL] conn
[login to view URL] strSQL
[login to view URL]
loop
[login to view URL] "End of program"
I have a lot of experience in handling vbscript, vb and implemented several complex features.
I would like to work with you. Please let me know further.
Regards,
Selvan
$23 USD en 1 jour
5,0 (5 commentaires)
3,3
3,3
5 freelances proposent en moyenne $23 USD pour ce travail
Hi,
I have more than 14 years of VBA/Excel exp and I am expert in this kind of work.
I have completed more than 250 projects. Please look at the feedback left by my employers to know more about my work.
Waiting for your positive response.
Thanks.
Hello,
I have 9+ years of extensive experience in writing VBscript and VBA applications which interact with the database and should be able to easily fix the script for you as desired.
I have read the task description & I should be able to assist you with this specified task of yours in a swift and efficient manner. We can connect over Skype and discuss it further. Please do let me know in case you would like me to assist you.
I am looking forward to hear back from you.
Thanks and Regards,
Abhinit