Como hacer un Select, Insert, Update, Delete en SQL Server
 

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 :D ), 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...

Con Sql Server se usan comunmente los componentes de Ado... y funcionan de forma similar...

Busca los TADO.... en la paleta..

Estoy usando esto para inserta un registro...

Código Delphi [-]
AQ_Select.Close;
AQ_Select.SQL.Clear;
AQ_Select.SQL.Add('Insert Into Socio(Soc_Rut, Soc_Nombres, Soc_Apellidos) Values (:vRut.Text, :vNom.Text, :vApe.Text)');
AQ_Select.ExecSQL;

Pero me da el sgte error..

No se puede insertar el valor NULL en la columna 'Soc_Apellidos', tabla 'GYM.dbo.Socio'. La columna no admite valores NULL. Insert falla..

Ahora, se lo que significa esto.(que no puedo ingresar un dato como nulo.. cuando esta marcado como no nulo).... pero el dato del Soc_Apellidos lo ingreso....( e incluso tiene mas campos la tabla.. pero solo deje not null a esos 3 para probar si funciona el ingreso)

que puede ser...??? error de sintaxis.. o algo por el estilo...

Además, como defino si un dato es numerico o con decimales o de tipo fecha???

Pues sin ver mas codigo, Soc_Apellidos esta nulo.

Para saber los tipos de datos es igual... usa la propiedad FieldDefs para obtener la estructura de los campos

¿Y dónde asignas valores a los parámetros? :confused:

// Saludos

Shuata... yo pensaba que con
estaba solucionado... por que esos son los datos .. si no es así.. como debe ser ???

Hola
Supongo que a lo que se refiere Roman es a de donde se sacan esos parametros, para mi no tiene parametros, tiene edits, por lo cual seria asi:

Código Delphi [-]
AQ_Select.Close;
AQ_Select.SQL.Clear;
AQ_Select.SQL.Add('Insert Into Socio(Soc_Rut, Soc_Nombres, Soc_Apellidos) Values (vRut.Text, vNom.Text, vApe.Text)');
AQ_Select.ExecSQL;

En caso de tener parametros no seria .text.
Saludos

Me imagino entonces, que vRut, vNom y vApe son Edits que tienes en tu aplicación. Pero SQL no entiende nada de Edits. En tu primer mensaje de este hilo pones una inserción donde sí sustituyes parámetros, por ello no entiendo que aquí los omitas.

// Saludos

Roman... tienes toda la razon.. lo que pasa es que con ADO.. .no se como hacerlo?

pero igual toy tratando de ver como se hace...:p

¡Ah! Creo ver por donde va el problema. Es que ADO usa una nomenclatura un poco distinta para acceder a los parámetros. Lo similar a lo que tienes con los componentes IB sería así:

Código Delphi [-]
ADOQuery1.Parameters[0].Value := vRut.Text;

// Saludos

Ya me funco...
 

Gracias a todos... ahora si me funco...:p :p

Código Delphi [-]
AQ_Edit.Close;
AQ_Edit.SQL.Clear;
AQ_Edit.SQL.Add('Insert Into Socio(Soc_Rut, Soc_Nombres, Soc_Apellidos) Values (:vRu, :vNom, :vApe)');
AQ_Edit.Parameters[0].Value :=vRut.Text;
AQ_Edit.Parameters[1].Value :=vNom.Text;
AQ_Edit.Parameters[2].Value :=vApe.Text;
AQ_Edit.ExecSQL;

Ahora, solo por preguntar.. existe una forma más fácil... digo ,. .utilizando un QuoteStr.. o algo por el estilo ??? :D :p :confused:

En cuanto a las transacciones, se encuentran en el ADOConnection; Es decir, que ahí tienes los métodos Start..., Commit, RollBack.. y demás.
Debes llamarlas expresamente cuando las necesites y van por conexión.

Lo del QuoteStr, puedes utilizarlo si añades tú los valores de los campos manualmente, pero creo que con pará,metros tendrás menos problemas, ya que no debes preocuparte de si el parámetro en numérico, fecha, string,...