این کد چرخه کامل کار با دیتابیس SQLite را نشان میدهد: فایل store٫db داخل حافظه خصوصی برنامه باز میشود، جدول products اگر نبود ساخته میشود، یک رکورد («لپتاپ ایسوس» با قیمت 27885772 تومان) به روش امن ExecNonQuery2 درج میشود و در پایان رکوردهای گرانتر از 6223652 تومان خوانده و در لاگ چاپ میشوند. حتماً از ExecNonQuery2 با علامت ? استفاده کنید تا ورودیها مستقیم داخل دستور SQL ننشیند و حمله SQL Injection ممکن نباشد. Cursor را هم بعد از استفاده با Close ببندید تا حافظه آزاد شود.
کتابخانههای مورد نیاز: SQL
این قطعهکد بهصورت خودکار توسط «موتور مولد B4A» ساخته و قبل از انتشار از نظر تکرارینبودن بررسی شده است. برای دیدن تکهکدهای جدید، همین بخش را دنبال کنید؛ هر بازه زمانی یک کد کاربردی جدید اضافه میشود.
| دستهبندی | تکهکدها |
| تعداد بازدید | ۰ |
| تعداد فروش | ۰ |
| فرمت تحویل | کد نمونهٔ رایگان در همین صفحه |
| پشتیبانی | تیکت پشتیبانی در پنل کاربری |
ویژگیهای کلیدی
- کد B4A آماده استفاده
- توضیح کامل فارسی
- کاملاً رایگان
- کتابخانه: SQL
هنوز نظری ثبت نشده است. اولین نفر باشید!
برای ثبت نظر وارد شوید. (ثبت نظر پس از خرید فعال میشود)
Sub DatabaseWork
Dim sql1 As SQL
sql1.Initialize(File.DirInternal, "store.db", True)
' ساخت جدول products فقط بار اول اجرا میشود
sql1.ExecNonQuery("CREATE TABLE IF NOT EXISTS products (id INTEGER PRIMARY KEY, name TEXT, price INTEGER)")
' درج رکورد به روش امن و بدون خطر SQL Injection
sql1.ExecNonQuery2("INSERT INTO products (name, price) VALUES (?, ?)", Array As Object("لپتاپ ایسوس", 27885772))
' خواندن رکوردهای گرانتر از 6223652 تومان
Dim cur As Cursor = sql1.ExecQuery("SELECT * FROM products WHERE price > 6223652")
Do While cur.NextRow
Log(cur.GetString("name") & " => " & cur.GetInt("price") & " تومان")
Loop
cur.Close
End Sub
محصولات مشابه
پرسشهای متداول
این تکهکد در چه پروژهای به کار میآید؟
برای کارهای تکرارشوندهٔ روزمره مثل فرم، اعتبارسنجی، تاریخ و فایل. کد کوتاه است و داخل پروژهٔ خودت کپی میشود.
کد را چطور به پروژه اضافه کنم؟
فایل کد را باز کن و بخش لازم را در ماژول خودت بگذار. توضیح هر تکه در همان صفحه آمده است.
برای این کد پشتیبانی هم میدهید؟
بله. اگر کد در پروژهات خطا داد، در تیکت توضیح بده تا بررسی کنیم.
آیا نمونه کد: کار با دیتابیس SQLite — درج و جستوجوی شرطی — گامبهگام بهروزرسانی رایگان دارد؟
بله. برای این محصول در دستهٔ تکهکدها بهروزرسانیها رایگان است و در پنل کاربری اطلاع داده میشود.