Author | Topic: Error with dsDbServer in Xclass. | |
---|---|---|
César Calvo | Error with dsDbServer in Xclass. on Thu, 21 Mar 2013 22:26:42 +0100 Hi, Can you tell me what is this error and how resolve the matter? Thanks, César. --- CREACION DE TABLA DE CAMBIOS V --- DbeSetDefault("DELDBE") DbeInfo( COMPONENT_DATA, DELDBE_FIELD_TOKEN, "©" ) DbeInfo( COMPONENT_DATA, DELDBE_DELIMITER_TOKEN, "©" ) cImp := "" cCon1 := 'DBQ=' + ::cDir + "DATOS.accdb" + ';Driver={Microsoft Access Driver (*.mdb, *.accdb)};UID=admin;' oCon1 := SQLConnection():new() IF !oCon1:driverConnect(nil, cCon1) Infobox("No conectado a " + ::cDir + "DATOS.accdb" ) ELSE oStmt1 := oCon1:NewStatement() oStmt1:DisplayErrors := .f. oStmt1:SQLString := 'DROP TABLE CAMBIOS_V' oStmt1:Execute() oStmt1:DisplayErrors := .t. oStmt1:SQLString := 'CREATE TABLE CAMBIOS_V ( T TEXT (01), MPR TEXT (03), MDE TEXT (03), TCA NUMERIC, FVA TEXT(10) )' oStmt1:Execute() oStmt1:destroy() ENDIF oCur1 := oCon1:Cursor('SELECT * FROM CAMBIOS_V') oCur1:execute() cFIL := ::cDir + "CAMBIOS_V.TXT" oSrv := dsDbServer():new(cFIL,.F.,.F.,.T.,"DELDBE") error.docx |