Accessing Visual FoxPro COM server from VB 6.0 -

-

the problem related usage of vfp com server visual basic 6.0 (sp 6).

code (relevant)

private movfpserver f_vfpsvr.vfpserver

in sub:

dim orec f_vfpsvr.vfprecord  set orec = movfpserver.newrecord("loanmstr")     orec       .setfield "ssn", sssn       .setfield "awdyr", sawardyear       .setfield "tran_date", format(now, "mm/dd/yyyy")       .commit     end

method "newrecord" movfpserver returns object represents new, empty record in vfp table "loanmstr".

code follows populate properties/fields , save data.

all works if vfp com server built using vfp 8.0 , does not work when built using vfp 9.0.

specifically, vb application errors out @ line of code:

set orec = movfpserver.newrecord("stdmstr")

com server throws exception: automation error -2147417851.

this happening on same machine.

vfp built com objects can behave little oddly @ times, when comes trickling errors stack.

but seems strange manifests when built in vfp9. believe there breaking changes in database stuff between 8 , 9 possibly you've hit 1 of them?

do have error function in vfp code? if not, try setting error properties in , interrogating them in vb when error?

ie, have like

function error(nerror, cmethod, nline)     this.cerrdesc = "error number: " + transform(nerror) + crlf + "message: " + message() + crlf  + "method: " + cmethod + crlf  + "line #: " + transform(nline)      comreturnerror(cmethod, this.cerrdesc)  endfunc

Comments

Post a Comment

Popular posts from this blog

jasper reports - Fixed header in Excel using JasperReports -

-
how can create excel report fixed header using japserreports? mean need header fixed when scroll excel file. this possible adding couple properties in jrxml file each report. take @ advanced excel features freeze panes. if wanted freeze after first column header (down left side basically) this: <statictext> <reportelement style="sans_bold" mode="opaque" x="0" y="60" width="104" height="20" forecolor="#ffffff" backcolor="#666666"> <property name="net.sf.jasperreports.export.xls.auto.filter" value="start"/> <property name="net.sf.jasperreports.export.xls.column.width" value="110"/> <property name="net.sf.jasperreports.export.xls.freeze.column.edge" value="left"/> </reportelement> &
Read more

media player - Android: mediaplayer went away with unhandled events -

-
i need duration of audio file series of voice announcements need play app. have added audio files resources , play fine. sample code below works perfect intended purpose: return duration of audio files. here code: float getdurationofaudioresource(locationenum loc, context context){ float duration = 0; try { mediaplayer mp; mp = mediaplayer.create(context, getaudioresource(loc)); duration = mp.getduration(); mp.release(); mp = null; } catch (illegalstateexception e) {e.printstacktrace(); logerror(25, "testdescitem:fault::could not open mediaplayer object audio resource.");} return duration; } here's weird thing. code called in main activity prepares set of audio instructions given test. there no errors within activity. second activity called, long string of errors on logcat. 03-07 13:23:43.820: i/actionlogger(21435): gentest_info_test #0 created. 03-07 13:23:43.830: i/actionlogger(21435): gente
Read more

python - ('The SQL contains 0 parameter markers, but 50 parameters were supplied', 'HY000') or TypeError: 'tuple' object is not callable -

-
import pyodbc,nltk,array cnxn = pyodbc.connect('driver={mysql odbc 5.1 driver};server=127.0.0.1;port=3306;database=information_schema;user=root; password=1234;option=3;') cursor = cnxn.cursor() cursor.execute("use collegedatabase ;") cursor.execute("select * sampledata ; ") cnxn.commit() s=[] j=[] x=[] words = [] w = [] sfq = [] pos=[] entry in cursor: s.append(entry.injury_type),j.append(entry.injury_desc) nltk.tokenize import punktwordtokenizer nltk.corpus import stopwords tokenizer = punktwordtokenizer() english_stops = set(stopwords.words('english')) in range(0,26): # filter stop words tokenizer.tokenize(j[i]) w.append([word word in tokenizer.tokenize(j[i]) if word not in english_stops]) in range(0 , 26):#converting tokenzied text ito string sfq.append(" ".join(w[a])) replacers import regexpreplacer replacer = regexpreplacer() in range (0,26):#pos tagging replacer.repl
Read more