formda tablo verisi kod ile nasıl gösterilir?

[zindizayn]

Merhaba Arkadaşlar,
Bu foruma ilk sorum olacak bu o yüzden basit bi soru da olsa hoşgörünüze sığınıyorum.
Access ta sihirbazları kullanarak bi çok şey yapılabiliyor ama ben kodlarla bunu yapmayı öğrenmek istiyorum. O yüzden basit bi telefondefteri yaptım. içine 5 kaydı elle ekledim. üzerinde bir text kutusu ve bir buton olan Bir form yaptım. Formdaki butona tıkladığımda text kutusuna sira değeri 3 olan kaydı yazdırmak istiyorum. Asp veya vbasic te bağlantı ve sql cümle ile recordset oluşturduktan sonra metin0=rs("Adi") demek yetiyor. Burada nasıl bir mantık kullanılıyor öğrenmek istedim. Bi sürü dosya indirip baktım ama bana en basit ve sade kodu lazım. Gidip sıra değeri 3 olan kaydı bulacak ve metin0 kutusuna Adi değerini yazacak.

Teşekkürler.

 

[modalı]

Sayın zindizayn,

En kolay olarak DLookUp fonksiyonu ile gerçekleşebilir.

Private Sub Komut4_Click()
Metin0.Value = DLookup("Telefonu", "telefonrehberi", "Sira = 3")
End Sub

İyi çalışmalar

 

[zindizayn]

Teşekkürler modalı

Çok teşekkür ederim,
Peki bu tür fonksiyonları öğrenebileceğim bi e-kitap veya döküman var mı bildiğin.

 

[modalı]

Sayın zindizayn,

Programcılıkla ilgili düzeyinizi bilemediğim için şu an herhangi bir tavsiyede bulunamayacağım.
Ancak Access in kod ekleme penceresinin yardım bölümünde ve web deki microsoftun msdn kütüphanesinde açıklamalı bilgiler var.

İyi çalışmalar

 

[herdogan]

Sayın modalı
İlgili kayıtların silinebilen kayıtlar olduğunu düşünürsek, 3. sıradaki kayıt silinirse 3. sırada 4 yazan kayıt olacaktır. Bu durumda kod çalışmayacaktır.
üç yazan kayıt değlde 3. sıradaki kaydı göstermek mümkün olurmu?
Veya aralık berlirterek şu aralıktaki bilgileri sıralamak mümkünmü?
Bıkmadan verdiğiniz cevaplar için teşekkürler

 

[zindizayn]

Teşekkürler modalı

İlgin için teşekkürler modalı,
Seviyemi şöyle tarif edeyim. Asp yi iyi derecede biliyorum. Arasıra vbasic ile basit şeyler yapıyorum. Access ta sihirbazları kullanarak bişeyler yapabiliyorum ama şimdi asp de veritabanından istediğim bilgiyi istediğim şekilde ekrana yazabiliyorum ya access ta da bunu kodla yapmak istiyorum. Sql sorgusu veritabanı üzerinde nasıl çalıştırılıyor ve kutucuklara sorgu sonucu nasıl yazdırılıyor? Benim asıl merak ettiğim bu gerisini kendim çalışarak geliştirebilirim. Sitenizde de bay örnek var onları inceleyebilirim o zaman.

Biraz uzun oldu.
Teşekkürler

 

[modalı]

Sayın zindizayn,

Örnek olarak bir kod parçası yolluyorum.

Private Sub cmdSearch_Click()
    Dim strSQLHead      As String
    Dim strSQLWhere     As String
    Dim strSQLOrderBy   As String
    Dim strSQL          As String
    Dim strJoin         As String
    
    strJoin = " AND "
    strSQLHead = "SELECT * FROM tblEmployee "
    
    If Len(Me.txtEmployeeName & vbNullString) Then
        If (Me.chkLike) Then
            strSQLWhere = "WHERE [EmployeeName] Like " & Chr$(39) & "*" & Me.txtEmployeeName & "*" & Chr$(39)
        Else
            strSQLWhere = "WHERE [EmployeeName] = " & Chr$(39) & Me.txtEmployeeName & Chr$(39)
        End If
    
        strSQLWhere = strSQLWhere & strJoin
    
    End If
   
    If Len(Me.txtDOBStart & vbNullString) Then
        If Len(strSQLWhere) = 0 Then
            strSQLWhere = "WHERE "
        End If
    
        If Len(Me.txtDOBEnd & vbNullString) Then
            strSQLWhere = strSQLWhere & "[EmployeeDOB] Between #" & Me.txtDOBStart & "# AND #" & Me.txtDOBEnd & "#"
        Else
            strSQLWhere = strSQLWhere & "[EmployeeDOB] >= #" & Me.txtDOBStart & "#"
        End If
    
        strSQLWhere = strSQLWhere & strJoin
    
    End If
    
    If Len(Me.cboPosition & vbNullString) Then
        If Len(strSQLWhere) = 0 Then
            strSQLWhere = "WHERE "
        End If
        
        strSQLWhere = strSQLWhere & "[EmployeePosition] = " & Me.cboPosition
        
        strSQLWhere = strSQLWhere & strJoin
    End If
   
    If Len(strSQLWhere) Then
        strSQLWhere = Left$(strSQLWhere, Len(strSQLWhere) - (Len(strJoin) - 1))
    End If
    
    strSQLOrderBy = "ORDER BY "
    Select Case Me.fraOrderBy
    Case 1
        strSQLOrderBy = strSQLOrderBy & "[EmployeeName]"
    Case 2
        strSQLOrderBy = strSQLOrderBy & "[EmployeeDOB]"
    Case 3
        strSQLOrderBy = strSQLOrderBy & "[EmployeePosition]"
    End Select
    
    strSQL = strSQLHead & strSQLWhere & strSQLOrderBy
    
    Me.fsubEmployee.Form.RecordSource = strSQL
    
End Sub

Ama daha önce dediğim gibi Microsoftun web deki MSDN Library sayfalarında yüzlerce sayfa var.

İyi çalışmalar