{"id":5438,"date":"2012-09-27T16:09:29","date_gmt":"2012-09-27T07:09:29","guid":{"rendered":"http:\/\/www.gesource.jp\/weblog\/?p=5438"},"modified":"2017-07-16T11:08:00","modified_gmt":"2017-07-16T02:08:00","slug":"cbuilder-xe3%e3%81%a7sqlite%e3%82%92%e4%bd%bf%e3%81%a3%e3%81%a6%e3%81%bf%e3%81%9f%e3%80%82","status":"publish","type":"post","link":"https:\/\/www.gesource.jp\/weblog\/?p=5438","title":{"rendered":"C++Builder XE3\u3067SQLite\u3092\u4f7f\u3063\u3066\u307f\u305f\u3002"},"content":{"rendered":"

RAD Studio XE3 Hotfix 3<\/a>\u306b\u3088\u3063\u3066Professional edition\u3067SQLite\u304c\u4f7f\u3048\u308b\u3088\u3046\u306b\u306a\u3063\u305f\u306e\u3067\u3001\u8a66\u3057\u3066\u307f\u307e\u3057\u305f\u3002<\/p>\n

Python\u3067\u30b5\u30f3\u30d7\u30eb\u306e\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u30d5\u30a1\u30a4\u30eb\u3092\u4f5c\u6210\u3057\u307e\u3059\u3002
\n\u4f5c\u6210\u3057\u305f\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u30d5\u30a1\u30a4\u30eb\u306f\u300cC:\test\test.db\u300d\u306b\u914d\u7f6e\u3057\u307e\u3057\u305f\u3002<\/p>\n

#!python2.7\n# -*- coding: utf-8 -*-\nimport sqlite3\n\ncon = sqlite3.connect(u\"test.db\", isolation_level=None)\ncon.execute(u\"create table example (id integer, name varchar(20))\")\ncon.executemany(u\"insert into example values (?, ?)\",\n        [(1, u\"Delphi XE3\"), (2, u\"C++Builder XE3\"), (3,u\"HTML5 Builder\"),\n         (4, u\"\u30c7\u30eb\u30d5\u30a1\u30a4\"), (5, u\"\u30b7\u30fc\u30d7\u30e9\u30b9\u30d7\u30e9\u30b9\")])\n\nc = con.cursor()\nc.execute(u\"select* from example\")\nfor row in c:\n    print row[0], row[1]\ncon.close()\n<\/code><\/pre>\n
\u30c1\u30e5\u30fc\u30c8\u30ea\u30a2\u30eb\uff1aSQLite \u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u306b\u63a5\u7d9a\u3059\u308b\uff08Delphi\uff09<\/a>\u306e\u624b\u9806\u306b\u3057\u305f\u304c\u3063\u3066\u64cd\u4f5c\u3057\u307e\u3059\u3002<\/p>\n
\"\"<\/a><\/p>\n
SQLConnection1\u306eDriver\u30d7\u30ed\u30d1\u30c6\u30a3\u3092\u7de8\u96c6\u3059\u308b\u3068\u304d\u306b\u300cDriver\/Connection \u30ec\u30b8\u30b9\u30c8\u30ea
\n\u30d5\u30a1\u30a4\u30eb ‘C:\\uff5e\dbxconnections.ini’ \u304c\u898b\u3064\u304b\u308a\u307e\u305b\u3093\u3002\u300d\u3068\u3044\u3046\u30a8\u30e9\u30fc\u30e1\u30c3\u30bb\u30fc
\n\u30b8\u304c\u8868\u793a\u3055\u308c\u308b\u5834\u5408\u306f\u3001\u6307\u5b9a\u3055\u308c\u305f\u5834\u6240\u306b\u7a7a\u306edbxconnections.ini\u3092\u4f5c\u6210\u3059\u308b\u3068\u3044\u3044\u3088\u3046\u3067\u3059\u3002<\/p>\n
\u5b9f\u884c\u6642\u306b\u300csqlite3.dll\u304c\u898b\u3064\u304b\u308a\u307e\u305b\u3093\u3002\u300d\u3068\u3044\u3046\u30a8\u30e9\u30fc\u30e1\u30c3\u30bb\u30fc\u30b8\u304c\u8868\u793a\u3055\u308c\u308b\u5834
\n\u5408\u306f\u3001SQLite\u306e\u30da\u30fc\u30b8<\/a>\u304b\u3089sqlite3.dll\u3092\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3057\u3066\u3001\u30d1\u30b9\u306e\u901a\u3063\u305f\u5834\u6240\u306b\u914d\u7f6e\u3057\u307e\u3059\u3002<\/p>\n
\u5b9f\u884c\u6642\u306e\u753b\u9762<\/p>\n
\"\"<\/a><\/p>\n
C++Builder XE3\u3067\u8a18\u8ff0\u3057\u305f\u30bd\u30fc\u30b9\u30b3\u30fc\u30c9<\/p>\n
void __fastcall TForm1::connectButtonClick(TObject *Sender)\n{\n  SQLConnection1->ConnectionName = \"C:\\\\test\\\\test.db\";\n  SQLConnection1->Params->Add(\"Database=C:\\\\test\\\\test.db\");\n  try {\n    SQLConnection1->Connected = true;\n    executeButton->Enabled = true;\n    outputMemo->Text = \"Connection established!\";\n  } catch (EDatabaseError& E) {\n    ShowMessage(\"Exception raised with message: \" + E.Message);\n  }\n}\nvoid __fastcall TForm1::executeButtonClick(TObject *Sender)\n{\n  outputMemo->Clear();\n  UnicodeString query = \"SELECT * FROM example;\";\n  TDataSet* results;\n  try {\n    SQLConnection1->Execute(query, NULL, results);\n  } catch (Exception& E) {\n    outputMemo->Text = \"Exception raised with message: \" + E.Message;\n  }\n  ShowSelectResults(results);\n}\nvoid TForm1::ShowSelectResults(TDataSet* results)\n{\n  if (!results->IsEmpty()) {\n    TStringList* names = new TStringList();\n    results->GetFieldNames(names);\n    for (results->First(); !results->Eof; results->Next()) {\n      UnicodeString currentLine;\n      for (int i = 0; i < names->Count; ++i) {\n        TField* currentField = results->FieldByName(names->Strings[i]);\n        currentLine = currentLine + \" \" + currentField->AsString;\n      }\n      outputMemo->Lines->Add(currentLine);\n    }\n    delete names;\n  }\n}\n<\/code><\/pre>\n