[vahid1363]

درود دوستان عزیز 
کسی میتونه در مورد کار با دیتابیس توضیحاتی بده؟
ساخت
برنامه نویسی
رکورد جدید
جستجو
حذف
و...
خیلی ممنون میشم
اگه سورس هم داشتید و بذارید که دیگه عالیه

 

?

[Amin_Mansouri]

سلام
دوست عزیز توجه نمیکنی
همین فایل های که ارائه دادم توی سورس کدها همین صفحه نگاه کنی
کار با دیتابیس به همراه سورس هست

[vahid1363]

BASIC4ADNROID ساپورت بسیار خوبی از SQL میکند و همچنین برای استفاده باید در کتابخانه در قسمت LIBS برنامه یا کتابخانه تیک SQL رو بزنید.
بعد از اینکار در داخل برنامه باید SQL رو معرفی کنیم که بتونیم از کتابخانه استفاده کنیم.
به این صورت :

کد:

Sub Process_Globals
Dim SQL1 As SQL
End Sub

برای بارگذاری دیتابیس به این روش عمل میکنیم :

کد:

Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
SQL1.Initialize(File.DirDefaultExternal, "test1.db", True)
End If

End Sub

در سورس زیر همه چیز رو برای شما بازگو میکند.

کد :

کد پی‌اچ‌پی:

'Activity module
'PUBLIC BY : PARSICODERS.COM
Sub Process_Globals
    Dim SQL1 As SQL
End Sub

Sub Globals

End Sub

Sub Activity_Create(FirstTime As Boolean)
    If FirstTime Then 
        SQL1.Initialize(File.DirDefaultExternal, "PARSICODERS.db", True)
    End If
    CreateTables
    FillSimpleData
    LogTable1
    InsertManyRows
    Log("Number of rows = " & SQL1.ExecQuerySingleResult("SELECT count(*) FROM table1"))
    
    InsertBlob 'stores an image in the database.
    ReadBlob 'load the image from the database and displays it.
End Sub

Sub CreateTables
    SQL1.ExecNonQuery("DROP TABLE IF EXISTS table1")
    SQL1.ExecNonQuery("DROP TABLE IF EXISTS table2")
    SQL1.ExecNonQuery("CREATE TABLE table1 (col1 TEXT , col2 INTEGER, col3 INTEGER)")
    SQL1.ExecNonQuery("CREATE TABLE table2 (name TEXT, image BLOB)") 
End Sub

Sub FillSimpleData
    SQL1.ExecNonQuery("INSERT INTO table1 VALUES('abc', 1, 2)")
    SQL1.ExecNonQuery2("INSERT INTO table1 VALUES(?, ?, ?)", Array As Object("def", 3, 4))
End Sub

Sub InsertManyRows
    Dim start As Long
    start = DateTime.Now
    SQL1.BeginTransaction
    Try
        For i = 1 To 500
            SQL1.ExecNonQuery2("INSERT INTO table1 VALUES ('def', ?, ?)", Array As Object(i, i))
        Next
        SQL1.TransactionSuccessful
    Catch
        Log(LastException.Message)
    End Try
    SQL1.EndTransaction
    Log(DateTime.Now - start)
End Sub

Sub LogTable1
    Dim Cursor1 As Cursor
    Cursor1 = SQL1.ExecQuery("SELECT col1, col2, col3 FROM table1")
    For i = 0 To Cursor1.RowCount - 1
        Cursor1.Position = i
        Log("************************")
        Log(Cursor1.GetString("col1"))
        Log(Cursor1.GetInt("col2"))
        Log(Cursor1.GetInt("col3"))
    Next
    Cursor1.Close
End Sub

Sub InsertBlob
    'convert the image file to a bytes array
    Dim InputStream1 As InputStream
    InputStream1 = File.OpenInput(File.DirAssets, "smiley.gif")
    Dim OutputStream1 As OutputStream
    OutputStream1.InitializeToBytesArray(1000)
    File.Copy2(InputStream1, OutputStream1)
    Dim Buffer() As Byte
    Buffer = OutputStream1.ToBytesArray
    
    'write the image to the database
    SQL1.ExecNonQuery2("INSERT INTO table2 VALUES('smiley', ?)", Array As Object(Buffer))
End Sub

Sub ReadBlob
    Dim Cursor1 As Cursor
    'Using ExecQuery2 is safer as it escapes special characters automatically.
    'In this case it doesn't really matter.
    Cursor1 = SQL1.ExecQuery2("SELECT image FROM table2 WHERE name = ?", Array As String("smiley"))
    Cursor1.Position = 0
    Dim Buffer() As Byte 'declare an empty byte array
    Buffer = Cursor1.GetBlob("image")
    Dim InputStream1 As InputStream
    InputStream1.InitializeFromBytesArray(Buffer, 0, Buffer.Length)
    
    Dim Bitmap1 As Bitmap
    Bitmap1.Initialize2(InputStream1)
    InputStream1.Close
    Activity.SetBackgroundImage(Bitmap1)
End Sub
Sub Activity_Resume

End Sub

Sub Activity_Pause (Finishing As Boolean)

End Sub 


توجه این پروژه های که میزارم بشتریشون در مجموعه برنامه نویسی BASIC4ANDORID که ارائه دادم وجود دارند .

دانلود سورس کد :


 

آقای منصوری خسته نباشید
اگه امکانش هست درمورد دیتابیس کمی مطلب بگید
من خیلی پیگیر این مطلب هستم
 

[parsvb]

درود به همه دوستان
میشه از داخل برنامه فهمید که برنامه کی unistall میشه و بعد یه کاری انجام داد.
مثلا یه فایلی رو پاک کنم.
لطفا اگه کسی اطلاعاتی در این مورد داره بگه
سپاس فراوان

[vahid1363]

سلام
من هرچی سورس درباره دیتا بیس دریافت کردم یا خواستم پروژه بسازم
رو این خط ارور میده

کد پی‌اچ‌پی:

SQL.Initialize(File.DirAssets , "1.db", True) 


پایین تو یه خط قرمز اینو مینویسه

کد پی‌اچ‌پی:

android.database.sqlite.SQLiteException: unable to open database file 


باید چکار کنم؟
دیتا بیس هم ساختم و در پوشه file کپی کردم بازهم درست نشد
 

[Amin_Mansouri]

درود
من هرچی سورس درباره دیتا بیس دریافت کردم یا خواستم پروژه بسازم
رو این خط ارور میده

کد پی‌اچ‌پی:

SQL.Initialize(File.DirAssets , "1.db", True) 


پایین تو یه خط قرمز اینو مینویسه

کد پی‌اچ‌پی:

android.database.sqlite.SQLiteException: unable to open database file 


باید چکار کنم؟
دیتا بیس هم ساختم و در پوشه file کپی کردم بازهم درست نشد
 

 

درود
اینجا ببین
http://www.parsicoders.com/showthread.php?tid=3286


 

[vahid1363]

اقای منصوری دستت درد نکنه 
خیلی عالی بود
یه سوال دارم
میشه دستور select رو با دوشرط انجام داد؟

کد پی‌اچ‌پی:

Cursor = sql1.ExecQuery2("SELECT col1 FROM table1 WHERE col3 = ?", Array As String(22)) 


یعنی 

کد پی‌اچ‌پی:

where col3=? , col4 = ? 


 

[m.gooooolzar]

سلام
آقا ترو خدا یکی جواب ما روهم بده
چطور میتونم چنتا عکس رو به pdf تبدیل کنم؟
با PDFWriter ورژن 1.00 فقط میشه متن انگلیسی رو تبدیل کرد !
هم متن فارسی میخوام و هم عکس رو تبدیل کنم
کمک لطفاً
 

[parsvb]

درود به همه دوستان
میشه از داخل برنامه فهمید که برنامه کی unistall میشه و بعد یه کاری انجام داد.
مثلا یه فایلی رو پاک کنم.
لطفا اگه کسی اطلاعاتی در این مورد داره بگه
سپاس فراوان

 

نمیدنم منظورم رو خوب رسوندم؟
?????
 

[mhr74]

با سلام خدمت همه می خواستم اگه می شود تا جایی که امکان داره درباره ی Sub Activity_Resume  و  Sub Activity_Pause (UserClosed As Boolean توضیح بدهید که چی هستند چه زمانی اجرا می شوند و ...

ممنون از همه