aşğıdaki kod ile windowsda ekleme yapıyorum android de boş insert yapıyor ama bir alana birşey eklemek isteyince hata veriyor yanlış olan nedir acaba
bu şekilde ekleme yapıyor.
UniQuery1.Insert;
UniQuery1.Post;
ama burada ekleme yapınca hata veriyor mobilde windosta çalışıyor sıkıntı yok
UniQuery1.Insert;
UniQuery1TURU.Text:=Edit1.Text;
UniQuery1.Post;
Kod: Tümünü seç
unit Unit1;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, Data.DB, MemDS, DBAccess,
Uni, FMX.Gestures, FMX.Layouts, FMX.Memo, FMX.Objects, FMX.StdCtrls, FMX.Edit,
FMX.ListBox, SQLiteUniProvider, PostgreSQLUniProvider, OracleUniProvider,
MySQLUniProvider, UniProvider, InterBaseUniProvider, VirtualTable, CRBatchMove,
SQLServerUniProvider, Data.Bind.EngExt, Fmx.Bind.DBEngExt, System.Rtti,
System.Bindings.Outputs, Fmx.Bind.Editors, Data.Bind.Components,
Data.Bind.DBScope, FMX.EditBox, FMX.NumberBox, FMX.ScrollBox,
FMX.Controls.Presentation;
type
DataBases = (dbSQLite, dbOracle, dbMySQL, dbPostgreSQL, dbInterBase, dbSQLServer);
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
UniConnection1: TUniConnection;
UniQuery1: TUniQuery;
UniQuery1TURU: TStringField;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.fmx}
procedure TForm1.Button1Click(Sender: TObject);
begin
UniQuery1.SQL.Clear;
UniQuery1.SQL.Add('INSERT INTO EVRAKLAR (TURU) VALUES ( '''+Edit1.Text+''') GO');
UniQuery1.Execute;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
UniQuery1.Insert;
UniQuery1.FieldByName('TURU').AsString := Edit1.Text;
UniQuery1.Post;
{
UniQuery1.Insert;
UniQuery1TURU.Text:=Edit1.Text;
UniQuery1.Post; }
end;
end.
teşekkürler