Ado İle Yapılmış Tüm özellikleri ile bir form uygulaması

1 2 3 4 5 6
17/02/2009, 22:55

BKCAN

teşekkür ederim hocam
17/02/2009, 23:43

atlantis8334

bu metin kutusuna değer girdiğimde diğer metin kutular güncellenmiyor..
18/02/2009, 11:07

naimelik

teşekkürler
19/02/2009, 21:11

Nurullah_Serdar

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.
07/03/2009, 00:01

esrefigit

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
21/05/2009, 03:26

candasm

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

bu kodu çalıştırdığımda hep hata alıyorum acaba nerede hata yapıyorum acces ve vbde yeniyimde [/align]
1 2 3 4 5 6