AccessTr.neT
SQL ile sayma - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-6-cevaplanmis-sorulari.html)
+--- Konu Başlığı: SQL ile sayma (/konu-sql-ile-sayma.html)



SQL ile sayma - ynlmz - 13/03/2013

Sayın hocalarım; veritabanındaki gorusmeler tablomdaki okulno alanında seçtiğim öğrenci ile kaç defa görüştüğümü saymak ve Label1 e yazmasını istiyorum. Aşağıdaki Sql kodunu yazdım ama bir türlü yapamadım.

Dim SqlStr
Call Connection
SqlStr = "Count(okulno) As Integer FROM T200_Rehberlik WHERE okulno= '" & Text1.Text & "'"
Label1.Caption = SqlStr


Cvp: SQL ile sayma - direnist - 13/03/2013

Merhaba;
Benim gördüğüm sorgu cümlenizin başında "SELECT" ifadesi eksikliği var. Onun dışında kodun doğruluğu hakkında hocalarımızda yardımcı olurlar.
İyi çalışmalar.


Cvp: SQL ile sayma - ynlmz - 13/03/2013

Hocam; select ile de denedim ama olmadı.


Cvp: SQL ile sayma - ogulcan92 - 13/03/2013

Sn:ynlmz
Aşağıdaki kodu kullanınız.
Private Sub Command1_Click()
Adodc1.RecordSource = "SELECT * FROM T200_Rehberlik WHERE okulno LIKE '" & Text1 & "%'"
Adodc1.Refresh
Label1.Caption = Adodc1.Recordset.RecordCount
End Sub



Cvp: SQL ile sayma - ynlmz - 13/03/2013

Sayın oğulcan; öncelikle ilginize teşekkür ederim.
Benim veritabanı bağlantım

Public Sub Gorusme_Rehberlik()
'The Purpose of this function is to manage the recordset "Inpatient_Maintenance"
Set rs_rehber = New ADODB.Recordset
With rs_rehber
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.ActiveConnection = con
.Source = "Select * from gorusme"
.CursorLocation = adUseClient
.Open
End With
End Sub
bu şekilde.
yapmak istediğimde yeni bir görüşme yaparken daha önce o öğrenci ile daha önce kaçtane görüşme yaptığımın sayısını bulmak ve o sayıyı Label1e yazdırmak istiyorum. Görüşme yaptığım öğrencinin numarası Text1 e yazılıyor. "gorusme" tablomdaki OkulNo alanında o numaradan kaçtane olduğunu bulmaya çalışıyorum.
Yardımınızı bekliyorum.