Hola foreros...
Por disposiciones de mi empresa, lo que antes trabajaba con Interbase, tengo que hacerlo con SQLServer 2000.
Con respecto a lo anterior, he buscado en el foro, pero no he encontrado (o no supe buscar bien
), las sentencias para realizar dichos procedimientos...
por lo cual pondre las sentencias que utilizaba yo en Interbase 6, y si pueden indicarme como hacer lo mismo pero con SQLServer...
Las conexiones las estoy realizando co ADO, utilizando un TADOConnection y TADOQuery...
Otra consulta.. con Interbase utilizaba las Transaction... hay algun componente ADO que las reemplace ... y es necesario ???
Proceso para Seleccionar
Código Delphi
[-]
IBQ_Edit.Close;
IBQ_Edit.SQL.Clear;
IBQ_Edit.SQL.Add('Select * From "Proveedor" Order By "Pro_Rut"');
IBQ_Edit.Open;
Proceso para Insertar
Código Delphi
[-]
IBQ_Edit.SQL.Clear;
IBQ_Edit.SQL.Add('Insert Into "Proveedor" ("Pro_Rut","Pro_Razon","Pro_Direccion","Pro_Poblacion","Pro_Comuna","Pro_Fono","Pro_Fax")');
IBQ_Edit.SQL.Add('Values (:P1, :P2, :P3, :P4, :P5, :P6, :P7)');
IBQ_Edit.Params[0].AsString := vRut.Text;
IBQ_Edit.Params[1].AsString := vRaz.Text;
IBQ_Edit.Params[2].AsString := vDir.Text;
IBQ_Edit.Params[3].AsString := vPob.Text;
IBQ_Edit.Params[4].AsString := vCom.Text;
IBQ_Edit.Params[5].AsString := vTel.Text;
IBQ_Edit.Params[6].AsString := vFax.Text;
IBQ_Edit.ExecSQL;
IBT_Edit.Commit;
Proceso para Actualizar
Código Delphi
[-]
IBQ_Edit.SQL.Clear;
IBQ_Edit.SQL.Add('Update "Proveedor" Set "Pro_Razon"=:Var1, "Pro_Direccion"=:Var2, "Pro_Poblacion"=:Var3, "Pro_Comuna"=:Var4, "Pro_Fono"=:Var5, "Pro_Fax"=:Var6');
IBQ_Edit.SQL.Add('Where "Pro_Rut"=:Var7');
IBQ_Edit.Params[0].AsString := sRaz.Text;
IBQ_Edit.Params[1].AsString := sDir.Text;
IBQ_Edit.Params[2].AsString := sPob.Text;
IBQ_Edit.Params[3].AsString := sCom.Text;
IBQ_Edit.Params[4].AsString := sTel.Text;
IBQ_Edit.Params[5].AsString := sFax.Text;
IBQ_Edit.Params[6].AsString := sRut.Text;
IBQ_Edit.ExecSQL;
IBT_Edit.Commit;
Proceso para eliminar
Código Delphi
[-]
IBQ_Edit.SQL.Clear;
IBQ_Edit.SQL.Add('Delete From "Proveedor" Where "Pro_Rut"=:Var1');
IBQ_Edit.Params[0].AsString := Rut.Text;
IBQ_Edit.ExecSQL;
IBT_Edit.Commit;
Bueno amigos... espero me puedan ayudar... y orientarme como realizar estos procesos o en donde buscar... gracias...