Delphi ZConnection连接sqlite
Delphi 2011-01-06 18:47:42 阅读0 评论0 字号:大中小 订阅
ZConnection2.Connected := False;
zConnection2.Database := '';
zConnection2.Database := aDataBaseFilePath;
ZConnection2.Protocol:='sqlite-3';
ZConnection2.Connected:=true;
ZQuery1.Close;
ZQuery1.SQL.Clear;
ZQuery1.SQL.Add('select * from sqlite_master where name= ''UR_SYS_USER'' ');
ZQuery1.Open;
Result := not ZQuery1.IsEmpty;
ZConnection2.Disconnect;
zConnection2.Database := '';
zConnection2.Database := aDataBaseFilePath;
ZConnection2.Protocol:='sqlite-3';
ZConnection2.Connected:=true;
ZQuery1.Close;
ZQuery1.SQL.Clear;
ZQuery1.SQL.Add('select * from sqlite_master where name= ''UR_SYS_USER'' ');
ZQuery1.Open;
Result := not ZQuery1.IsEmpty;
ZConnection2.Disconnect;