folder Tahribat.com Forumları
linefolder Visual Basic - Basic - PicBasic ve Türevleri
linefolder Gözünüzü Sevem Bir Yardımmmmm!!!



Gözünüzü Sevem Bir Yardımmmmm!!!

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    aacemmi
    aacemmi's avatar
    Kayıt Tarihi: 31/Aralık/2003
    Erkek
    arkadaşlar v.basic6.0"da adodc nesnesi kullanarak oluşturduğum veritabanında ileri geri ilk kayıt sonkayıt ekle sil düzelt vs. yapabiliyorum ama istediğim kayda direk olarak ulaşamıyorum bu konuda acil yardımınıza ihtiyacım var hepinize şimdiden teşekkürler!
    Yol uzun olabilir. Önemli olan yolun neresinde olduğumuzdur
    Reply With Quote Alıntı yap
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    raiser
    raiser's avatar
    Kayıt Tarihi: 05/Ağustos/2003
    Erkek
    SQL sorguları kullanmayı dene. İşini görecektir.
    Reply With Quote Alıntı yap
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    karabasan
    karabasan's avatar
    Kayıt Tarihi: 30/Aralık/2003
    Erkek
    On Error Resume Next
    rs1.Find "soyad = "" & Text10.Text & "" "
    Text1.Text = rs1("dno")
    Text2.Text = rs1("ad")
    Text3.Text = rs1("soyad")
    If IsNull(rs1("alno")) Then
    Text4.Text = ""
    Else
    Text4.Text = rs1("alno")
    End If
    If IsNull(rs1("kazok")) Then
    Text5.Text = ""
    Else
    Text5.Text = rs1("kazok")
    End If
    If IsNull(rs1("tpuan")) Then
    Text6.Text = ""
    Else
    Text6.Text = rs1("tpuan")
    End If
    If IsNull(rs1("fpuan")) Then
    Text7.Text = ""
    Else
    Text7.Text = rs1("fpuan")
    End If


    If Err Then
    MsgBox "Aradığınız kayıt bulunamadı"
    rs1.MoveFirst
    End If
    Text4.SetFocus

    veri tabanı işlemlerini elinden geldiğince kod yazarak yap.

    alan = List1.Text
    kelime = """ & Text1.Text & """
    kriter = alan & isaret & kelime
    Adodc1.Recordset.Find kriter, , adSearchForward, 1

    adodc nesnesi ile böyle birşey işine yarayabilir.
    Reply With Quote Alıntı yap
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Loading
    Loading's avatar
    Kayıt Tarihi: 26/Ekim/2003
    Erkek
    Birtanede ben ekliyeyim istedim...


    Adodc1.RecordSource = "SELECT * FROM STK WHERE MUSTERIADI LIKE "%" & Text1.Text & "%""
    Set DataGrid1.DataSource = Adodc1
    Adodc1.Refresh




    Kod özelliginde Eger Müşteri adına göre tamamlayarak bulma.. Örnegin Ahmet adlı müşteri var siz " Ah yazdıgınızda " " Ah la başlayanları bulur"

    Run Time Error
    Reply With Quote Alıntı yap
Toplam Hit: 2294 Toplam Mesaj: 4