可以用lazarus方便地操作sqlite数据库。 @H_403_1@

@H_403_1@

sqlite3Connection1.Close;@H_403_1@

sqlite3Connection1.CharSet := PChar('UTF8');@H_403_1@

sqlite3Connection1.DatabaseName := 'D:\yyy.db';@H_403_1@

sqlite3Connection1.UserName := trim(EditDbUser_sqlite.Text);@H_403_1@

sqlite3Connection1.Password := trim(EditDbPwd_sqlite.Text);@H_403_1@

try@H_403_1@

//sqlite3Connection1.createDb; // 不用这个，会出错@H_403_1@

sqlite3Connection1.Connected:=true;@H_403_1@

showmessage('sqlite数据库 ' + EditDbName_sqlite.Text + ' 创建操作完成。');@H_403_1@

except@H_403_1@

on E: Exception do@H_403_1@

begin@H_403_1@

memo1.Lines.Add(sysToUtf8(E.Message));@H_403_1@

memo1.Lines.Add('请检查sqlite数据库是否配置正确。');@H_403_1@

showmessage(sysToUtf8(E.Message));@H_403_1@

end;@H_403_1@

end;@H_403_1@