1]放FDConnection1和FDQuery1到界面上
一定要 放一个 FDPhysSQLiteDriverLink1到ServerModule上
2]在OnFormCreate事件里写
FDQuery1.Connection := FDConnection1;
FDConnection1.LoginPrompt:=false; //取消登录提示框
FDConnection1.Open('DriverID=SQLite;Database=test1.Sqlite3');//test1.Sqlite数据库要与E:\UniGui_Learn\04OnLineIditom\Win32\Debug\Project1.exe位置一致
3]单条数据
FDQuery1.Open('select id,info from atb where id = 11111 ' );
unimemo1.Text:= FDQuery1.fieldbyname('info').asstring;
4]多条数据
FDQuery1.Open('select id,name,info from atb where 1=1’); //FDQuery1.First; // while not FDQuery1.eof do begin unilistbox1.Items.Add( FDQuery1.fieldbyname('name').asstring); FDQuery1.next; end;
5]插入数据
var xzxx:string; maxId:integer; begin FDQuery1.Open('select max(id) as maxId from atb; '); maxId:= FDQuery1.fieldbyname('maxId').AsInteger+1;{当数据为空里,maxId为null, 要将 ID设为 AUTOINCREMENT} xzxx := stringreplace(uniMemo2.Text, '''', '''''', [rfReplaceAll]); //将 (')-> ('') xzxx := stringreplace(xzxx, #13#10, 'Z~z~', [rfReplaceAll]); //将 (^p)-> (Z~z~) xzxx := 'insert into atb values(' + IntToStr(maxId) + ',''' + StringReplace(uniedit2.Text, '''', '''''', [rfReplaceAll]) + ''',''' + xzxx + ''')'; FDQuery1.ExecSQL(xzxx); Caption:= IntToStr(maxId)+'插入新记录 成功!' ; end;
1]好像 不能有英文的感叹号!
2]{当数据为空里,maxId为null, 要将 ID设为 [Id]
INTEGER
PRIMARY
KEY
AUTOINCREMENT,
-- 自增
}
INSERT INTO ToDoListTable VALUES(null, 'aaa',0)//自增列 值 为null
总是说我字少总是说我字少总是说我字少总是说我字少总是说我字少总是说我字少总是说我字少总是说我字少总是说我字少总是说我字少总是说我字少总是说我字少
联系客服