OK muchachos, lo que pasa es que he estado siguiendo los pasos en el post, pero la linea de código que dice:
If IBQuery1Clave.AsString = Edit2.Text then
es porque lo puse tal cual aparece en el post, realice todos los pasos, pero al darle doble clic al
IBQuery1 de la forma para identificarse y tratar de adicionar los campos me sale este otro error
Unknown SQL Data type (0).
y los detalles que me salen son:
[407A5A3B]{ibxpress140.bpl} Ib.IBError + $97
[40778C4E]{ibxpress140.bpl} Ibsql.TIBXSQLDA.Initialize + $3BE
[4077AE95]{ibxpress140.bpl} Ibsql.TIBSQL.Prepare + $391
[4076BBC5]{ibxpress140.bpl} Ibcustomdataset.TIBCustomDataSet.InternalPrepare + $ED
[4076DE0E]{ibxpress140.bpl} Ibcustomdataset.TIBCustomDataSet.InternalInitFieldDefs + $42
[50690D9F]{dbrtl140.bpl} DB.TDataSet.OpenCursor (Line 11348, "DB.pas" + 2) + $4
[50690F8D]{dbrtl140.bpl} DB.TDataSet.InitFieldDefs (Line 11419, "DB.pas" + 5) + $7
[407BFFF0]{ibxpress140.bpl} Ibquery.TIBQuery.InitFieldDefs + $0
[5067F6B7]{dbrtl140.bpl} DB.TDefCollection.UpdateDefs (Line 3396, "DB.pas" + 6) + $3
[506802EC]{dbrtl140.bpl} DB.TFieldDefs.Update (Line 3774, "DB.pas" + 1) + $A
[22AE849B]{dcldb140.bpl} DSDesign.TFieldsEditor.DoAddFields (Line 823, "DSDesign.pas" + 5) + $C
[22AE8425]{dcldb140.bpl} DSDesign.TFieldsEditor.AddFields (Line 808, "DSDesign.pas" + 1) + $2
[22AE8646]{dcldb140.bpl} DSDesign.TFieldsEditor.AddItemClick (Line 855, "DSDesign.pas" + 0) + $2
[502801CB]{vcl140.bpl } Menus.TMenuItem.Click (Line 2520, "Menus.pas" + 19) + $8
[50281787]{vcl140.bpl } Menus.TMenu.DispatchCommand (Line 3383, "Menus.pas" + 5) + $2
[50282966]{vcl140.bpl } Menus.TPopupList.WndProc (Line 4489, "Menus.pas" + 4) + $E
[502828B5]{vcl140.bpl } Menus.TPopupList.MainWndProc (Line 4464, "Menus.pas" + 2) + $5
[50076360]{rtl140.bpl } Classes.StdWndProc (Line 13014, "Classes.pas" + 8) + $0
[502C98F5]{vcl140.bpl } Forms.TApplication.StopHintTimer (Line 10515, "Forms.pas" + 3) + $6
[502C8749]{vcl140.bpl } Forms.TApplication.ProcessMessage (Line 9784, "Forms.pas" + 30) + $1
[502C878E]{vcl140.bpl } Forms.TApplication.HandleMessage (Line 9814, "Forms.pas" + 1) + $4
[502C8AB9]{vcl140.bpl } Forms.TApplication.Run (Line 9951, "Forms.pas" + 26) + $3
[0042D94A]{bds.exe } bds.bds (Line 200, "" + 8) + $FFFB
No he entendido nada de lo que dice
.
Ha se me olvidaba decirles que estoy utilizando el Delphi 2010, perdonen por la demora para responder he tenido que salir. Y muchas gracias por responder tan prontamente
