Yazma çakışması hatası

[erkankamilonas]

Set cn = New Connection
cn.Open "Provider=SQLOLEDB;Server=SERVER;User ID=sa;Password=123;Initial Catalog=DATA"
Set rc = cn.Execute("SELECT [TC Kimlik Numarası], [Adı Soyadı], [Doğum Tarihi], [Baba Adı] FROM TcKimlikBilgileri Where [TC Kimlik Numarası]='" & [Tc Kimlik No] & "';")
[Adı Soyadı] = rc![Adı Soyadı]
[Doğum Tarihi] = rc![Doğum Tarihi]
[Baba Adı] = rc![Baba Adı]

ACCESS 2007’de Böyle bir kod ile SQL server’a bağlanıp, [Adı Soyadı], [Doğum Tarihi], [Baba Adı] adlı textboxlara gereken bilgiyi yazdırdığımda, yazma çakışması hatası alıyorum.
1) Bu yazma çakışması hatasını nasıl çözerim.
2) Docmd.RunSQL komutunu kullanarak bu textboxlara nasıl veri yazdırabilirim

 

[erkankamilonas]

Bu kod içerisine düzenlenen kaydın kilitlenmesi için ne eklemem lazım. Optimistic diye bir şey hatırlıyorum, denedim yine olmadı. Teşekkürler.

 

[jon206]

Dim cn As ADODB.Connection
Dim rst As New ADODB.Recordset
Set cn = New ADODB.Connection

cn.ConnectionString = "driver={SQL Server};" & _
"server=Server_ip_Adresi;uid=Kullanici_İsmi;pwd=Şifre;database=Veritabanı_İsmi"

On Error Resume Next
cn.Open
If cn.State = adStateOpen Then
'MsgBox ("Baglantı Kuruldu...")

rst.CursorLocation = adUseClient
rst.Open "tablo1", cn, adOpenKeyset, adLockOptimistic

Set Me.Recordset = rst
Me.KaySay = vbCrLf & " Toplam -- " & rst.RecordCount & " -- Kayıt Bulundu." & vbCrLf & _
" Veriler SQL server üzerinde -tablo1- Tablosundan alınmıştır." & vbCrLf & vbCrLf & vbCrLf & vbCrLf

Else
MsgBox ("Bağlantı Kurulamıyor!!")
End If
rst.Close
cn.Close
Set rst = Nothing
Set cn = Nothing
------------------------
bu şekilde bağlanabilirsin

 

[erkankamilonas]

Dikkat ettiyseniz ben Open değil Execute kullanmışım.
Yani;

Function Execute(CommandText As String, [RecordsAffected], [Options As Long = -1]) As Recordset

İşte bu bağlantı şeklinde kayıtların düzenlenirken kilitlenmesini sordum. Execute ile cevaplarsanız sevinirim. Teşekkürler.