Turbo Delphi y Firebird???

[b3nshi]

Bueno... les cuento q con los q dijo eduarcol logre establecerla a la conexion... por supuesto q no lo hice solo... jajaja... en realidad busque por internet y encontré el metodo q el dice... por ahora voy a explicar los paso para la conexion... mas adelante ire descubriendo bien el porq de todas estas cosas... jajaja... y por las dudas... lo saque de una web de brazil...

Debemos insertar un SQLconnection, SQLDataSet, DataSetProvider, ClientDataSet y un DataSource.

SQLconnection
Login Prompt = False
Connected = True
Name = sqlconnection1
(Por supuesto q hay q establecer la conexion como lo veniamos haciendo)


SQLDataSet
SqlConnection = sqlconnection1
Name = sdstabla
CommandText = select * from TABLA
Active = False

(Le hacemos doble clic al componente y presionamos control+F y asi se agregar todos los campos)

DataSetProvider
Propriedade = Valor
dataset = sdstabla
Name = dsptabla

ClientDataSet
Propriedade = Valor
Providername = dsptabla
Name = cdstabla
Active = True

(Hay q adicionar todos los campos como se hizo con el SQLDataSet)

DataSource
Propriedade = Valor
DataSet = cdsTabla
Name = dsTabla

Finalmente solo se trata de insertar un dbgrid o donde quieran mostrar la info de la tabla y conectar con el data source... por las dudas si no les muestra los campos en el datasource insertenlo manualmente

Despues sigo completando! El q quiera puede seguir ayudando!
{Saludos}

[[eduarcol]]

Bueno a mi esa solucion me parece mas bien un truco

habria que ver el porq??

[b3nshi]

jaja... si puede ser... depende como lo veas... en realidad no encontre otra forma de establecer la conexion con las dbexpress... por lo q no creo q sea un truco... si se puede decir q es un metodo...

Ahora la cuestion es como hacer para agregar, modificar y eliminar registros de la tabla... alguna idea? o truco?...

Estoy intentando pero la verdad q ya no se como hacerlo... lo intente con:

sqltable1.append;
sqltable1.fieldbyname('').asstring := '' ; //Lo estoy escribiendo de memoria, por
//lo q puede haber algun error pero creo q se entiende cual es el metodo...
 
//Tambien lo intente haciendo uso de un query... pero no dio resultado...

Alguna idea
Gracias!!
{Saludos}

[JosepGA]

Hola, como bien dices es la forma de implementar el acceso a la base de datos con dbexpress, el ClientDataSet el el componente que te permite navegar con una tabla unidireccional a traves del DataSetProvider. Para guardar registros, en el momento que te interese, deberas llamar al metodo ApplyUpdates( nRegistrosConErroresPermitidos ) para que guarde los cambios realizados en el componente ClientDataSet (mirate la implementación del ReconcileError ). Tanto en el SQLDataSet como en el ClientDataSet, tendrás que indicar en las columnas de estos componentes (FieldColumns), cuales son los campos clave para la actualización (propiedad ProviderFlags, las tres primeras a TRUE, y en el resto de campos solo la primera a TRUE ). Tambien deberás aplicar los parametros pertinentes al DataSetProvider para permitir eliminación de registros en cascada, actualización de varios registros, etc...

Si quieres establecer una relación maestro-detalle, deberas conectar dos SQLDataSet mediante un DataSource y dos ClientDataSet, conectando el segundo al primero mediante su propiedad DataSetField, el cual es una columna del primer ClientDataSet ( al añadir las columnas en el ClientDataSet, el ultimo campo es del tipo ClientDataSet ). La sentencia SQL para el segundo SQLDataSet es del tipo siguiente:

Código SQL [-]
SELECT * FROM TABLA2 WHERE CAMPOCLAVE = :CAMPOCLAVE ORDER BY CAMPOCLAVE2

la declaración

:CAMPOCLAVE

significa que agui tienes que poner el nombre del campo del SQLDataSet1 que se identifica con el del SQLDataSet2, al poner los dos puntos indicas que es un parametro que se recibe del SQLDataSet1 en forma de campo de la tabla y sin que tu lo tengas que especificar.

Espero que te aclare un poco el uso de DBExpress.

un saludo

[b3nshi]

Hola... de nuevo estuve retomando la idea de usar dbexpress, y bueno lo que hice fue insertar un sqlquery, en la propiedad sql, en tiempo de ejecucion le cargo la siguiente sintaxis:

Código Delphi [-]
sqlquery.sql.add(widestring('insert into PASCIENTES ( APELLIDO, NOMBRE, DIRECCION, 
EDAD, NACIMIENTO, TELEFONO, SEXO)  values (' + edit1.Text + ',' + edit2.Text + ',' 
+ edit3.Text + ',' + edit4.Text + ',' + edit5.Text + ',' + edit6.Text + ',' 
+ edit7.Text + ')');
sqlquery.active:= true;

Algo asi es el codigo, pero me aparece un error, por lo que no logro guardar los datos, no se si el error que me aparece sera importante de colocar, porq ni siquiera se si estoy haciendo bien las cosas... por eso si alguien cree q esta bien, entonces posteo el mensaje, y sino alguien puede ayudarme para guardar la info en una tabla?

Muchisimas Gracias!

{Saludos}

[[basti]]

Los campos que no sean numéricos debes ponerlos entre comillas

Código Delphi [-]
sqlquery.sql.add(widestring('insert into PASCIENTES ( APELLIDO, NOMBRE, ...)  values (' + quotedstr(edit1.Text) + ',' + quotedstr(edit2.Text) + ... + ')');
sqlquery.active:= true;

[b3nshi]

Muchas Gracias Basti por la correccion, y evidentemente iba por ahi la cuestion, pero ahora tengo otro problema, me aparece el siguiente error:

'query: Cursor not returned from Query'

Por las dudas lo unico q cambie en mi TSQLQuery de las propiedades es la propiedad: SqlConnection, luego le dejo el active en false ya que no tiene ningun codigo ingresado en la propiedad sql...

Alguna idea?

Y tambien como hago para guardar una fecha?

Una vez mas muchas gracias!

{Saludos}