ADO + SQL Server + CLientDataSet

[Rockin]

Hola amigos:

Estoy empezando a un proyecto nuevo para la empresa, y el cliente lo solicita SQL Server. Tengo experiencia en Firebird pero nunca he hecho nada en SQL Server, y me da un error al insertar un registro por medio de un ClientDataSet de la siguiente manera:

Código Delphi [-]
 
CDSUsuarios.Close;
CDSUsuarios.CommandText:= 'insert into usuarios (nombre,fecha,hora) values (:nombre,:fecha,:hora)';
CDSUsuarios.Open;
CDSUsuarios.Insert;
CDSUsuarios.FieldByName('nombre').AsString:= txtNombre.Text;
CDSUsuarios.FieldByName('fecha').AsDatetime:= strtodate(txtfecha.Text);
CDSUsuarios.FieldByName('hora').AsDateTime:= strtotime(txthora.Text);
CDSUSuarios.Post;
CDSUsuarios.ApplyUpdates(0);

El error que me da es el siguiente :'Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros.'

Las consultas me las ejecuta perfectamente.
¿Que estoy haciendo mal?

Saludos y gracias de antemanos

[*Caro*]

Hola Rockin, no necesitas un ClientDataSet para trabajar con ADO, has directamente la inserción de tu registro sobre tu ADOTable.

Saluditos

[Rockin]

Me hace falta porque tengo un servidor de capa intermedia implementado, y tengo que acceder a el por el ClientDataSet.

[[basti]]

No entiendo el código. Por un lado pones un Insert dentro del CommandText y por otro añades el registro con un Append. Supongo que tendrías que hacer una cosa u otra.

[Rockin]

En firebird hay que ponerlo así, por eso lo estoy haciendo igual pero hay algo que falla. El error me da cuando llego a la linea

Código Delphi [-]
CDSUsuarios.Open;

Pero si quito esto me sale que no se puede realizar la operecion en un dataset cerrado.

Seguire intentandolo.

[luisgutierrezb]

Lo que pasa es que intenta hacer la insercion pero como no le has dado valor a los parametros por eso te marca el error intenta con:

CDSUsuarios.CommandText:= 'Select nombre,fecha,hora from usuarios where 1=2';

el 1=2 es para que no regrese ningun registro, y luego ya haces la insercion como lo estas haciendo...

[*Caro*]

Hola de nuevo Rockin, debes poner el Open antes que el commandText, para que te acepte lo que tienes dentro del CommandText y los parametros que le pasas luego.

Código Delphi [-]
CDSUsuarios.Close;
CDSUsuarios.Open;
CDSUsuarios.CommandText:= 'insert into usuarios (nombre,fecha,hora) values (:nombre,:fecha,:hora)';
CDSUsuarios.Insert;
CDSUsuarios.FieldByName('nombre').AsString:= txtNombre.Text;
CDSUsuarios.FieldByName('fecha').AsDatetime:= strtodate(txtfecha.Text);
...........

Saluditos

[Rockin]

He probado asi, y hora me da el siguiente error de DataSetUsuarios: missing CommandText property.

Seguire investigando.
Saludos.

[Rockin]

Lo tengo solucionado por si a alguien le sirve de ayuda:

Código Delphi [-]
  
CDSUsuarios.Close;
CDSUsuarios.CommandText:= 'select nombre,fecha,hora from usuarios';
CDSUsuarios.Open;
CDSUsuarios.Insert;
CDSUsuarios.FieldByName('nombre').AsString:= txtNombre.Text;
CDSUsuarios.FieldByName('fecha').AsDatetime:= strtodate(txtfecha.Text);
CDSUsuarios.FieldByName('hora').AsDateTime:= strtotime(txthora.Text);
CDSUSuarios.Post;
CDSUsuarios.ApplyUpdates(0);

Habia que cambiar esa consulat tal como dijo basti, gracias a todos.