vb.net - parsing database columns and values to MySQL statement in module -

-

i'm trying create dynamic mysql insert into...where not exist statement parsing table name, array of columns, array of values , conditional column , value subroutine in separate module keep hitting column count doesn't match value count @ row 1 error. below code:

sub insertrecord(byval tbl string, byval cols() string, byval params() string, _                       byval colcondition string, byval paramcondition string) 'as string      'create new string of columns     dim mycols string = ""     each col string in cols         mycols &= col & ", "     next      dim newcols string = mycols.remove(mycols.count - 2, 2)     msgbox(newcols)     dim scols string = newcols.insert(0, "`").replace(", ", "`, `") & "`"     msgbox(scols)        'create new string of parameters     dim myparams string = ""     each param in params         myparams &= param & ", "     next      dim newparams string = myparams.remove(myparams.count - 2, 2)     msgbox(newparams)     dim sparams string = newparams.insert(0, "'").replace(", ", "', '") & "'"     msgbox(sparams)     'end       dim p string = paramcondition.insert(0, "'") & "'"        'try     'dim insremarks string = "done"     con = new mysqlconnection("server=localhost; database=etms; uid=root; pwd=;")     coma = new mysqlcommand      'insert new record.     'this gives error     coma.commandtext = "insert " & tbl & " (" & scols & ") select * (select @params) tmp "     coma.commandtext &= "where not exists (select " & colcondition & " " & tbl & " " & colcondition & " = @param) limit 1"     coma.parameters.addwithvalue("@param", p)     coma.parameters.addwithvalue("@params", sparams)        'this static code works fine.     'coma.commandtext = "insert state (`st_state`, `ctry_id`) select * (select 'a', '1') tmp "     'coma.commandtext &= "where not exists (select st_state state st_state = 'a') limit 1"        coma.connection = con      con.open()     coma.executenonquery()     con.close()      'release used components     coma.parameters.clear()     coma.dispose()     coma = nothing     con = nothing      msgbox("done.")      'return insremarks      'catch ex exception     'msgbox(ex.message.tostring & vbcrlf & vbcrlf & coma.commandtext.tostring)     'return "error"     'end try  end sub

as seen, tried lot of permutations (introducing inverted quotation marks) no avail.

i'll glad if out.


Comments

Post a Comment

Popular posts from this blog

Delphi XE2 Indy10 udp client-server interchange using SendBuffer-ReceiveBuffer -

-
i use delphi xe2 , indy10 udp protocol. can't receive server echo on client side if use receivebuffer method. got "socket error # 10040" although send small echo message server client. console application illustrate problem below. in advance. program project1; {$apptype console} {$r *.res} uses system.sysutils, idglobal, idbasecomponent, idcomponent, idsockethandle, idudpclient, idudpserver, idudpbase, idstack; type tudp_serv = class(tidudpserver) procedure udpsvudpread(athread: tidudplistenerthread; adata: tidbytes; abinding: tidsockethandle); end; var udpserver: tudp_serv; udpcl: tidudpclient; bsnd, brcv: tbytes; s: string; k: integer; //============================================================================== procedure tudp_serv.udpsvudpread(athread: tidudplistenerthread; adata: tidbytes; abinding: tidsockethandle); begin writeln(' server read: ' + tohex(adata, length(adata))); abinding sendto(peerip, peerport, adat...
Read more

Qt ActiveX WMI QAxBase::dynamicCallHelper: ItemIndex(int): No such property in -

-
i new windows programming. here goes code objiwbemlocator = new qaxobject("wbemscripting.swbemlocator"); objwmiservice = objiwbemlocator->querysubobject("connectserver(qstring&,qstring&)",qstring("."),qstring("root\\cimv2")); qaxobject* returnlist = objwmiservice->querysubobject("execquery(qstring&)", qstring("select * %1").arg(domain)); qaxobject* result = returnlist->querysubobject("itemindex(int)", 0); i getting error on runtime qt activex wmi qaxbase::dynamiccallhelper: itemindex(int): no such property in but itemindex method exists msdn says the itemindex method not work collections not contain swbemobjects, such swbemmethodset, swbemnamedvalueset, swbemprivilegeset, swbempropertyset, , swbemqualifierset. what selecting ? have tried iterating on collection ? plus need minimum windows vista itemindex method. hope helps
Read more

Enable autocomplete or intellisense in Atom editor for PHP -

-
i'm first time user of atom editor php code. atom can autocomplete built-in functions of php. possible make editor autocomplete custom function written in separate file? function.php <?php function printsomething() { echo "hello world"; } index.php <?php require_once "function.php"; printsomething(); // autocompleted atom editor while typing thanks in advance. there text file in %userprofile%.atom called snippets.cson. in there can add snippet. more this: http://flight-manual.atom.io/using-atom/sections/snippets/ but need think can use later on other files well. otherwise need copy , paste.
Read more