نمونه سورس کد ارتباط با دیتابیس SQLite در بیسیک فور اندروید B4A


در دنیای برنامه‌نویسی اندروید، یکی از مهم‌ترین نیازها، ایجاد ارتباط با دیتابیس‌ها است. دیتابیس SQLite، به دلیل سادگی، حجم کم و کارایی بالا، یکی از محبوب‌ترین گزینه‌ها برای ذخیره‌سازی داده‌های محلی در برنامه‌های اندروید محسوب می‌شود. در این متن، قصد داریم به صورت کامل و جامع، نحوه پیاده‌سازی ارتباط با دیتابیس SQLite در محیط برنامه‌نویسی بیسیک فور اندروید B4A را شرح دهیم، و نمونه سورس کدهای کاربردی را ارائه کنیم که بتوانید در پروژه‌های خود از آن بهره‌مند شوید.
مزایای استفاده از SQLite در برنامه‌های اندروید
قبل از شروع، لازم است بدانید که چرا SQLite انتخاب مناسبی است. اول اینکه، این دیتابیس بسیار سبک است و در هر دستگاه اندرویدی، به صورت پیش‌فرض نصب شده است. دوم اینکه، عملیات بر روی آن سریع است و قابلیت‌های کامل SQL را پشتیبانی می‌کند. سوم، به راحتی می‌توان آن را در برنامه‌های مختلف به کار گرفت و به صورت محلی داده‌ها را مدیریت کرد، بدون نیاز به سرورهای خارجی یا اتصال اینترنت. و نهایتاً، امنیت و کنترل کامل بر داده‌ها، از دیگر مزایای آن است.
نحوه طراحی دیتابیس در B4A
برای شروع، باید تصمیم بگیرید که چه ساختاری برای دیتابیس خود نیاز دارید. معمولا، در برنامه‌های ساده، یک یا چند جدول با فیلدهای مختلف تعریف می‌شود. فرض کنیم قصد دارید یک جدول به نام "Contacts" داشته باشید، که شامل ستون‌هایی مانند "ID"، "Name"، "Phone" و "Email" باشد. اولین قدم، ایجاد فایل دیتابیس است. در B4A، می‌توان این کار را با استفاده از کلاس SQL است انجام داد، یا حتی فایل‌های دیتابیس را پیش‌تر ساخته و در برنامه کپی کرد.
ایجاد و باز کردن دیتابیس
برای ایجاد یا باز کردن دیتابیس، باید از کلاس SQL استفاده کنیم. در ادامه، نمونه کد برای این کار آورده شده است:
b4a  


Dim SQL1 As SQL  


SQL
  1. Initialize(File.DirDefaultExternal, "contacts.db", True)

در اینجا، با استفاده از متد Initialize، فایل "contacts.db" در مسیر خارجی دستگاه ساخته یا باز می‌شود. پارامتر سوم، Boolean، مشخص می‌کند که اگر فایل وجود نداشت، ساخته شود.
ایجاد جدول‌ها
پس از باز کردن دیتابیس، باید جدول‌های مورد نیاز را تعریف کنیم. برای این کار، از دستور SQL استفاده می‌کنیم:
b4a  


Dim createTable As String  


createTable = "CREATE TABLE IF NOT EXISTS Contacts (ID INTEGER PRIMARY KEY AUTOINCREMENT, Name TEXT, Phone TEXT, Email TEXT)"


SQL
  1. ExecNonQuery(createTable)

این کد، جدولی با ستون‌های مشخص شده، در صورت عدم وجود، ایجاد می‌کند. توجه کنید که در اینجا، "ID" به عنوان کلید اصلی و با قابلیت افزایش خودکار تعریف شده است.
درج داده‌ها در جدول
برای افزودن اطلاعات به جدول، از دستور INSERT استفاده می‌کنیم. نمونه کد:
b4a  


Dim insertQuery As String  


insertQuery = "INSERT INTO Contacts (Name, Phone, Email) VALUES (?, ?, ?)"


SQL
  1. ExecNonQuery2(insertQuery, Array...  ← ادامه مطلب در magicfile.ir