Saludos Amigos, donde quiera que se encuentren,
tengo un problemita con una situacion, quiza a ustedes les ha pasado anteriormente,
quisiera copiar los datos de una BD a otra, pero en el ultimo paso me quedo trancado,
y no tengo idea de que pudiera hacer, he estado buscando pero no encuentro algo que me ayude,
les muestro lo que he hecho,
Gracias Infinitas por su tiempo y su ayuda
Código Delphi
[-]
procedure TForm7.Button1Click(Sender: TObject);
Var
User, Pass:String;
begin
with ZConnection1 do
try
if ZConnection1.Connect=True then
begin
Disconnect;
end;
DataBase:='F:\Hola.sqlite';
Protocol:='sqlite';
Properties.Add('CreateNewDatabase= CREATE DATABASE '+QuotedStr('F:\Hola.sqlite')+'');
Properties.Add(' User '+QuotedStr(User)+' PASSWORD '+QuotedStr(Pass)+' PAGE_SIZE 4096 DEFAULT CHARACTER SET ISO8859_1');
finally
Connect;
end;
With ZQuery1 Do
try
Close;
SQL.Text:='CREATE TABLE Prueba (Codigo Integer, Nombre Char(20))';
finally
Open;
end;
end;
procedure TForm7.Button2Click(Sender: TObject);
begin
With ZQuery1 Do
try
Close;
SQL.Text:='Insert Into Hola Values(1, '+QuotedStr('Martin')+')';
finally
ExecSQL
end;
end;
Código Delphi
[-]
procedure TForm7.Button3Click(Sender: TObject);
Var
User, Pass:String;
begin
with ZConnection1 do
try
if ZConnection1.Connect=True then
begin
Disconnect;
end;
DataBase:='F:\Mundo.sqlite';
Protocol:='sqlite';
Properties.Add('CreateNewDatabase= CREATE DATABASE '+QuotedStr('F:\Mundo.sqlite')+'');
Properties.Add(' User '+QuotedStr(User)+' PASSWORD '+QuotedStr(Pass)+' PAGE_SIZE 4096 DEFAULT CHARACTER SET ISO8859_1');
finally
Connect;
end;
With ZQuery1 Do
try
Close;
SQL.Text:='CREATE TABLE Mundo (Codigo Integer, Nombre Char(20))';
finally
Open;
end;
end;
procedure TForm7.Button4Click(Sender: TObject);
begin
if ZConnection1.Connect=True then
begin
ZConnection1.Disconnect;
end;
ZConnection1.DataBase:='F:\Hola.sqlite';
ZConnection1.Protocol:='sqlite';
ZConnection1.Connect:=True;
ZQuery1.Close;
ZQuery1.SQL.Text:='Select * From Hola';
ZQuery1.Open;
end;