teşekkür ederim hocam
Ado İle Yapılmış Tüm özellikleri ile bir form uygulaması
bu metin kutusuna değer girdiğimde diğer metin kutular güncellenmiyor..
Burda olmaktan MUTLUYUMM .... 
benim bu konuda sormak istediğim bir konu var hocam. kayıtları kodla güncelleyebiliyoruz. form üzerindeki güncelle butonunu kayıttaki herhangi bir alan da değişiklik yaptığımızda aktif hale gelmesi için herhangi bir kod yazılabilirmi.
kayıt ilk açıldığıda güncelle butonu pasif olacak ama alanların herhangi birinde değişiklik olduğunda aktif hale gelecek.
kayıt ilk açıldığıda güncelle butonu pasif olacak ama alanların herhangi birinde değişiklik olduğunda aktif hale gelecek.
İyiki Varsın Access
http://support.microsoft.com/kb/239114/
bu adresdeki sisteminize uygun Jet 4.0 Service Pack 8 paketini yükleyin
2.bunu mutlaka deneyin
regsvr32.exe Msjetoledb40.dll
bu adresdeki sisteminize uygun Jet 4.0 Service Pack 8 paketini yükleyin
2.bunu mutlaka deneyin
regsvr32.exe Msjetoledb40.dll
meşhur çin atasözü "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Kod:
Option Compare Database
Option Explicit
Public conn As ADODB.Connection
Public rst As ADODB.Recordset
Private Sub Form_Load()
Set conn = CurrentProject.Connection
Set rst = New ADODB.Recordset
Me.error.Visible = False
End Sub
Private Sub iesire_Click()
Application.Quit
End Sub
Private Sub intrare_Click()
If IsNull(Me.nume) Or Me.nume = "" Then
Me.error.Visible = True
MsgBox "Greşit nume "
Error_ = True
End If
If IsNull(Me.parola) Or Me.parola = "" Then
Me.error.Visible = True
MsgBox "Greşit parola "
Error_ = True
End If
If Error_ = False Then
strSql = "SELECT DISTINCT nume FROM `agentii` WHERE nume=" & Me.nume & " and parola=" & Me.parola
rst.Open strSql, CurrentProject.Connection, adOpenStatic, adLockReadOnly
If rst.RecordCount = 1 Then
MsgBox "ok"
Else
MsgBox ":("
End If
Me.error.Visible = False
End If
End Sub
acces ve vbde yeniyimde [/align]
Konuyu Okuyanlar: 2 Ziyaretçi
