[alfaiz678]

الدرس الرابع تنفيذ العمليات على قاعدة البيانات

رابط المثال

الاكواد المستخدمة

كود :

************************************

    

    If M_ListName.ValueX <>0 Then
    
        cmd= SQL1.ExecQuery("select * from phone where id = " & M_ListName.ValueX & "")
        cmd.Position = 0
        ETAddress.Text= cmd.getString("Address")
        ETEmail.Text= cmd.getString("Email")
        ETid.Text= cmd.GetInt("id")
        ETMemo.Text= cmd.getString("Memo")
        ETName.Text= cmd.getString("Name")
        ETTel.Text= cmd.getString("Tel")
        M_ListName.ValueX=0
End If


***********************************

Dim SQL1 As SQL
    Dim cmd As Cursor
    Dim ValueX As Int


Activity.LoadLayout("Lu_ListName")

    If SQL1.IsInitialized = False Then
        SQL1.Initialize(File.DirInternal, "DBPhone.db", False)
    End If
    
    '
    ListView1.SingleLineLayout.Label.Width=ListView1.Width-20dip
    ListView1.SingleLineLayout.Label.TextSize = 24
    ListView1.SingleLineLayout.Label.TextColor=Colors.Blue
    'ListView1.SingleLineLayout.Label.Left=0dip
    ListView1.SingleLineLayout.ItemHeight=45dip
    
    
    '
    ListView1.Clear'need to clear the list
    cmd = SQL1.ExecQuery("SELECT * FROM Phone  ")
    For i = 0 To cmd.RowCount - 1
        cmd.Position = i
        ListView1.AddSingleLine2(cmd.GetString("Name"),cmd.GetInt("id"))
    Next


Sub ListView1_ItemClick (Position As Int, Value As Object)
    ValueX=Value
    StartActivity(M_Proc_Contact)
End Sub