نمونه سورس کد ارتباط با دیتابیس sqlite در بیسیک فور اندروید b4a

سورس کد ارتباط با دیتابیس SQLite در بیسیک فور اندروید (B4A) یکی از مهم‌ترین و کاربردی‌ترین مباحث در توسعه برنامه‌های موبایل است. این موضوع به توسعه‌دهندگان کمک می‌کند تا بتوانند داده‌ها را به صورت موثر، سریع، و امن مدیریت کنند. در ادامه، به صورت جامع و کامل، تمامی جنبه‌های مربوط به این موضوع را بررسی خواهیم کرد، از نصب و راه‌اندازی گرفته تا نوشتن کدهای نمونه و مدیریت عملیات CRUD (ایجاد، خواندن، بروزرسانی، و حذف).

مقدمه‌ای بر SQLite و B4A
SQLite، یک سیستم مدیریت پایگاه داده سبک و توکار است که به صورت فایل‌های مستقل کار می‌کند و نیازی به سرور ندارد. این ویژگی، آن را برای توسعه برنامه‌های موبایل بسیار محبوب می‌سازد، چون به راحتی می‌توان آن را در برنامه‌های اندروید یکپارچه کرد. در بیسیک فور اندروید (B4A)، امکانات زیادی برای کار با پایگاه داده وجود دارد، که یکی از مهم‌ترین آن‌ها، کتابخانه SQL است. این کتابخانه، کاربر را قادر می‌سازد تا به راحتی و با کمترین کد، عملیات مختلف روی دیتابیس انجام دهد.
نصب و آماده‌سازی
قبل از شروع، باید مطمئن شد که محیط توسعه B4A نصب شده و پروژه جدیدی ایجاد کرده‌اید. سپس، باید فایل دیتابیس را در مسیر مناسب قرار دهید یا در صورت نیاز، آن را در برنامه خود ایجاد کنید. یکی از روش‌های معمول، استفاده از تابع `CreateDatabase` است، که به صورت خودکار یک فایل دیتابیس جدید می‌سازد. برای این کار، باید یک کلاس یا ماژول جداگانه برای مدیریت دیتابیس ایجاد کنید، تا کدها منظم و قابل نگهداری باشند.
ایجاد و ساخت ساختار دیتابیس
در ابتدا، باید جدول‌هایی که نیاز دارید را تعریف کنید. فرض کنید قصد دارید یک جدول کاربران بسازید. برای این کار، می‌توانید کد زیر را بنویسید:

basic  


Sub CreateUsersTable  
Dim sql As SQL  
sql.Initialize(File.DirDefaultExternal, "mydatabase.db", True)
sql.ExecNonQuery("CREATE TABLE IF NOT EXISTS Users (ID INTEGER PRIMARY KEY, Name TEXT, Email TEXT)")
sql.Close  
End Sub  

در این نمونه، ابتدا دیتابیس ساخته می‌شود اگر وجود نداشته باشد، و سپس جدول `Users` ایجاد می‌شود. این کار باید در مرحله اولیه برنامه انجام شود، مثلا در رویداد `Activity_Create`.
درج داده‌ها در دیتابیس
برای افزودن رکورد جدید، باید از `ExecNonQuery` استفاده کنید. فرض کنید می‌خواهید کاربری جدید اضافه کنید:

basic  
Sub InsertUser(Name As String, Email As String)
Dim sql As SQL  
sql.Initialize(File.DirDefaultExternal, "mydatabase.db", False)
sql.ExecNonQuery2("INSERT INTO Users (Name, Email) VALUES (?, ?)", Array As Object (Name, Email))
sql.Close  
End Sub  

در اینجا، از پارامترهای جایگزین (`?`) استفاده می‌شود تا امنیت و جلوگیری از حملات SQL Injection تضمین گردد.
خواندن داده‌ها و نمایش
برای خواندن داده‌ها، باید از `ExecQuery` بهره ببرید. فرض کنید می‌خواهید تمام کاربران را نمایش دهید:

basic  
Sub GetAllUsers As List  
Dim sql As SQL  
Dim users As List  
users.Initialize  
sql.Initialize(File.DirDefaultExternal, "mydatabase.db", False)
Dim Cursor As Cursor  
Cursor = sql.ExecQuery("SELECT ...  ← ادامه مطلب در magicfile.ir