FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Problema con variable tipo TIBSQL en Delphi 2009
Buen dia a todos, me encuentro aprendiendo Delphi por mi cuenta, y me he topado con el problema de que no me reconoce el tipo de dato TIBSQL (me lo subraya con rojo ), la utilizo para una conexion con firebirt y baciar los datos a un TListView, o almenos eso creo. ya antes me habia marcado este tipo de error con TIBDatabase, pero lo solucione agregando a la linea
Código Delphi [-] uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, DB, IBDatabase,Dialogs, System.ComponentModel, Borland.Vcl.ComCtrls; no se si me falte agregar algo mas para que me acepte el TIBSQL dejo el codigo por si sirve de algo Código Delphi [-] unit PruebaB; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, DB, IBDatabase,Dialogs, System.ComponentModel, Borland.Vcl.ComCtrls; type TForm1 = class(TForm) TListView: TListView; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.nfm} function ConectarBaseDatos( sBaseDatos: String ): TIBDatabase; var DB: TIBDatabase; begin DB := TIBDatabase.Create( nil ); DB.Name := 'IB'; DB.DatabaseName := '127.0.0.1:' + sBaseDatos; DB.Params.Add( 'user_name=SYSDBA' ); DB.Params.Add( 'password=masterkey' ); DB.SQLDialect := 3; DB.LoginPrompt := False; try DB.Open; except raise Exception.Create( 'No puedo conectar con INTERBASE/FIREBIRD.' + #13 + #13 + 'Consulte con el administrador del programa.' ); end; Result := DB; end; procedure ListarTabla( DB: TIBDatabase; sTabla: String; Listado: TListView ); var Campos: TStringList; i: Integer; Consulta: TIBSQL; Transaccion: TIBTransaction; begin if DB = nil then Exit; // Creamos un stringlist para meter los campos de la tabla Campos := TStringList.Create; DB.GetFieldNames( sTabla, Campos ); // Creamos una transacción para la consulta Transaccion := TIBTransaction.Create( nil ); Transaccion.DefaultDatabase := DB; // Creamos una consulta Consulta := TIBSQL.Create( nil ); Consulta.Transaction := Transaccion; Consulta.SQL.Add( 'SELECT * FROM ' + sTabla ); Transaccion.StartTransaction; try Consulta.ExecQuery; except Transaccion.Rollback; raise; end; // Creamos en el listview una columna por cada campo Listado.Columns.Clear; Listado.Columns.Add; Listado.Columns[0].Width := 0; for i := 0 to Campos.Count - 1 do begin Listado.Columns.Add; Listado.Columns[i+1].Caption := Campos[i]; Listado.Columns[i+1].Width := 100; end; // Listamos los registros Listado.Clear; while not Consulta.Eof do begin Listado.Items.Add; for i := 0 to Campos.Count - 1 do Listado.Items[Listado.Items.Count-1].SubItems.Add( Consulta.FieldByName( Campos[i] ).AsString ); Consulta.Next; end; // Una vez hemos terminado liberamos los objetos creados FreeAndNil( Campos ); FreeAndNil( Consulta ); FreeAndNil( Transaccion ); end; procedure TForm1.FormCreate(Sender: TObject); var DB: TIBDatabase; begin DB := ConectarBaseDatos( 'c:\ch datos\ch.fdb' ); // PARA FIREBIRD if DB = nil then Exit; end; end. De antemano gracias por ayudar a un autodidacta |
#2
|
||||
|
||||
Tenes que agregar en el uses IBSQL
Saludos |
#3
|
|||
|
|||
Gracias
En efecto ese era le problema, gracias por la respuesta , y ya que estamos en esto, sabes como podrea gregar datos a la tabla ?
|
#4
|
||||
|
||||
#5
|
|||
|
|||
De nueva cuenta Gracias
De nueva cuenta gracias, le hechare un ojo
|
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Evento Delphi 2009 y C++ Builder 2009 en Guadalajara y Mexico con David | poliburro | Noticias | 14 | 15-09-2008 01:03:58 |
conocer el tipo de una variable | ercrizeporta | Varios | 3 | 29-05-2007 02:51:20 |
Tipo de Variable | gabriel3 | Varios | 5 | 13-01-2006 20:46:55 |
Simple TIBSQL | NeWNeO | Conexión con bases de datos | 3 | 22-12-2004 10:52:40 |
Como Asignar Variable Tipo Array de Tform a otro Array del Mismo tipo | morfeo21 | Varios | 5 | 17-08-2004 17:39:51 |
|