... ciclos para llenar datos MySQL como este (resumido para preguntar por la lógica): while ... oMyQue := oMyCon:RowSet( 'select count(*) from ' + cTabla + ' where ' + cCMy + ' = "' + &cCDbf + '" limit 1' ) if oMyQue # nil nCmd := 0 if oMyQue:FieldGet( 1 ) = 0 // contó cero reg: clave ...
... tan amables de ayudarme con esto por favor ... Tabla en mysql con 13 campos. Cliente y 12 mas con m01,m02,....m11,m12 que significan los meses ctabla := "saldos" cLugar contiene "m12" ------ hago un ? clugar y muestra m12 csql := oCon:InsertSQL( ctabla ,"cliente , 'clugar' ...
Hi, With MSSQL i do this : csql:="INSERT INTO "+(cTabla)+ " (PATID,LASTNAME) VALUES (" cSql:=cSql+" 'C01', 'CONCEPTO PARA PRUEBAS'+" )" TRY oCon:Execute(cSql) CATCH oErr ShowAdoEr( oCon,csql ) END TRY Hope it will help ...
oCn:Execute("DELETE FROM "+cTABLA+" WHERE LENGTH(DURACION)=0 And LENGTH(POSTER)=0") or oCn:Execute("DELETE FROM "+cTABLA+" WHERE DURACION='' And POSTER='' ")
... local cHost := "127.0.0.1" local cUser := "root" local cPassword := "" local cDbName := "PRUEBA" local cTabla := "test" local n, aCabecera := {} // Creamos el objeto "connexion" oCon := TMSConnect():New() // Nos conectamos al servidor ...
... haciendo asi LOCAL aFields:={} aFields:=oCursor obrw := TXBrowse():New( ownd ) obrw:SetArray( aFields, .t. ) oCursor lo llamo asi oTb := TMsTable( cTabla ):New( oDatabase, cTabla ) // Abrimos la tabla, traemos el resultado a nuestro cliente if !oTb:Open() MsgInfo( "No se puede abrir la tabla: ...
... MAIN() local cHost :="127.0.0.1" local cUser :="root" local cPassword :=" " local cDbName := "Base" local cTabla := "Tabla" local lRet local oMySql, oDb, oDlg MsgInfo( "Empiezo..." ) SET DATE FORMAT TO "DD/MM/YYYY" DEFINE DIALOG ...
... "angel" // MsgInfo( ADOVERSION() ) Catch oErr Alert ("No puedo abrir MySql") End ---- Luego intento abrir una tabla así ---- cTabla := "apuntes1" USE (cTabla ) alias Empresa SHARED NEW Alert ("Despues de use") ---- y me da error en el USE (cEmpresa), se ...
... es posible clonar esto oQSet := TOleAuto():New( "ADODB.Recordset" ) ... oQSet:Open( "Select "+ cSelect +" from " + cTabla + " LIMIT 50" , oApp:StrConnection,1, 3 ) Intento clonar el oQSet no se si es posible, RecordSet has a Clone method in ADO. oRs2 := ...
No No se si es posible clonar esto oQSet := TOleAuto():New( "ADODB.Recordset" ) ... oQSet:Open( "Select "+ cSelect +" from " + cTabla + " LIMIT 50" , oApp:StrConnection,1, 3 )
eh bajado el xharbour de xharbour.org el oficial. eh cambiado el codigo a: PROCEDURE Reorganizar() LOCAL cTabla, aTablas LOCAL lContinuar LOCAL oError, cError, n:=0 IF !MsgNoYes( "Para realizar este proceso, ningun usuario debe estar conectado al programa, desea continuar?" ...