Ver Mensaje Individual
  #1  
Antiguo 14-12-2006
Pook Pook is offline
Miembro
 
Registrado: abr 2006
Posts: 17
Reputación: 0
Pook Va por buen camino
funciones Update e Insert usando libmysql.dll

Pues verán, estoy probando la conexión a mysql desde delphi y a la hora de leer datos desde una bbdd de una página web todo me tira bien, pero hete aqui que no se como hacer ni el update de una tupla ni el insert de una nueva, así que si alguno sabe como hacerlo le ruego me lo explique, o en su defecto, me dejase algún ejemplillo.

Aqui una muestra de mi código:

Código Delphi [-]
procedure TItems.BModClick(Sender: TObject);
  var
    Cadena: string;
  begin
    Conexion; //Crea la conexión a la bbdd
    Trabajando; //Lee una serie de opciones
    Cadena := 'UPDATE bbdd SET ';
    Cadena := Cadena + 'foto = "'+EDirFoto.Text+'"';
    Cadena := Cadena + ' Nombre = "'+ENombre.Text+'"';
    Cadena := Cadena + ' Clase = "'+EClase.Text+'"';
    Cadena := Cadena + ' Peso = "'+EPeso.Text+'"';
    Cadena := Cadena + ' Slots = "'+ESlots.Text+'"';
    Cadena := Cadena + ' Ataque = "'+EAtaque.Text+'"';
    Cadena := Cadena + ' Propiedad = "'+EProp.Text+'"';
    Cadena := Cadena + ' NivelA = "'+ENivel.Text+'"';
    Cadena := Cadena + ' NivelR = "'+ENivReq.Text+'"';
    Cadena := Cadena + ' Drops = "'+EDrop.Text+'"';
    Cadena := Cadena + ' Descripcion = "'+MDesc.Text+'"';
    Cadena := Cadena + ' Trabajos = "'+Trabajos+'"';
    Cadena := Cadena + ' WHERE Nombre="'+ENombre.Text+'";';
    mysql_query(@mysqlcon, PChar(Cadena));
    presults := mysql_store_result(@mysqlcon);
  end;

El código se ejecuta sin errores, pero me da de que la función mysql_query no funciona en un update ni en un insert...

Gracias de antemano.
Responder Con Cita