Evvela yeni bir mssql veri tabanı açtım. buda aktif oldu.
ekte düzenlenmiş halini yayınladım. Olcay hocamda ilk mesajda düzeltebilirse memnun kalırım. Ayrıca aşağıda form form kodları da ayrıca yayınlıyorum. Faydalı olması dileğiyle.
accesstr_net Formu
Option Compare Database
Option Explicit
Private Sub Form_Load()
' Form ilk yüklendiğinde kayıt listesini getirir
Call ListeyiGetir
End Sub
Private Sub sil_Click()
If MsgBox("Kayıt Silinsin Mi?", 36, "Siliniyor... www.accesstr.net") = vbYes Then
Dim rs As New ADODB.Recordset
rs.Open "SELECT * FROM accesstr", SqlServerConnStringGetir, adOpenKeyset, adLockOptimistic
rs.Find "[id]=" & Me.id
rs.Delete
rs.Close: Set rs = Nothing
MsgBox "Silinme Gerçekleşmiştir.", , "www.accesstr.net"
Call ListeyiGetir
Else
MsgBox "Silme İşleminden Vaz Geçtiniz.", 48, "www.accesstr.net"
End If
Me.ad.Locked = True
Me.soyad.Locked = True
Me.odak.SetFocus
Me.sil.Visible = False
Me.duzenle.Visible = False
End Sub
Private Sub duzenle_Click()
If MsgBox("Değişiklikler Güncellensin Mi?", 36, "Güncelleniyor... www.accesstr.net") = vbYes Then
Dim rs As New ADODB.Recordset
rs.Open "SELECT * FROM accesstr", SqlServerConnStringGetir, adOpenKeyset, adLockOptimistic
rs.Find "[id]=" & Me.id
rs.Fields("ad") = Me.ad
rs.Fields("soyad") = Me.soyad
rs.Fields("tarih") = Date
rs.Fields("saat") = Time()
rs.Update
rs.Close: Set rs = Nothing
MsgBox "Güncelleme Gerçekleşmiştir.", , "www.accesstr.net"
Call ListeyiGetir
Else
MsgBox "Güncelleme İşleminden Vaz Geçtiniz.", 48, "www.accesstr.net"
End If
Me.ad.Locked = True
Me.soyad.Locked = True
End Sub
Private Sub ListeyiGetir()
Dim cagribaglantisi As ADODB.Connection
Dim rs As New ADODB.Recordset
Set cagribaglantisi = New ADODB.Connection
cagribaglantisi.ConnectionString = SqlServerConnStringGetir
cagribaglantisi.Open
If cagribaglantisi.State = adStateOpen Then
rs.CursorLocation = adUseClient
rs.Open "SELECT * FROM accesstr", cagribaglantisi, adOpenKeyset, adLockOptimistic
Set Form_accesstr_net_alt.Recordset = rs
Else
MsgBox ("Bağlantı Kurulamıyor!!")
End If
rs.Close
cagribaglantisi.Close
Set rs = Nothing
Set cagribaglantisi = Nothing
End Sub
Private Sub kaydet_Click()
If MsgBox("Kayıt Gerçekleştirilsin Mi?", 36, "Kaydediliyor... www.accesstr.net") = vbYes Then
Dim rs As New ADODB.Recordset
Dim rst As New ADODB.Recordset
rs.Open "SELECT * FROM accesstr", SqlServerConnStringGetir, adOpenKeyset, adLockOptimistic
rs.AddNew
rs.Fields("ad") = Me.ad
rs.Fields("soyad") = Me.soyad
rs.Fields("tarih") = Date
rs.Fields("saat") = Time()
rs.Update
rs.Close
Set rs = Nothing
Call ListeyiGetir
MsgBox "Kayıt İşlemi Gerçekleşmiştir.", , "www.accesstr.net"
Me.odak.SetFocus
Me.kaydet.Visible = False
Me.yeni.Visible = True
Else
MsgBox "GKayıt İşleminden Vaz Geçtiniz.", 48, "www.accesstr.net"
End If
Me.ad.Locked = True
Me.soyad.Locked = True
End Sub
Private Sub yeni_Click()
Me.id = ""
Me.ad = ""
Me.soyad = ""
Me.ad.Locked = False
Me.soyad.Locked = False
Me.kaydet.Visible = True
Me.odak.SetFocus
Me.yeni.Visible = False
Me.duzenle.Visible = False
Me.sil.Visible = False
Me.ad.SetFocus
End Sub
accesstr_net_alt formu
Option Compare Database
Option Explicit
Private Sub ad_DblClick(Cancel As Integer)
Call esitle
End Sub
Private Sub id_DblClick(Cancel As Integer)
Call esitle
End Sub
Private Sub saat_DblClick(Cancel As Integer)
Call esitle
End Sub
Private Sub soyad_DblClick(Cancel As Integer)
Call esitle
End Sub
Private Sub esitle()
With Form_accesstr_net
.id = Me.id
.ad = Me.ad
.soyad = Me.soyad
.ad.Locked = False
.soyad.Locked = False
.kaydet.Visible = False
.yeni.Visible = True
.duzenle.Visible = True
.sil.Visible = True
End With
End Sub
Private Sub tarih_DblClick(Cancel As Integer)
Call esitle
End Sub
SqlServerConnStr Modül
Option Compare Database
Public Function SqlServerConnStringGetir() As String
Dim BaglantiTuru As String
Dim ServerName As String: ServerName = "185.149.100.60\mssqlserver2012"
Dim DatabaseName As String: DatabaseName = "Accesstr"
Dim UserName As String: UserName = "accesstr"
Dim Password As String: Password = "accesstr"
' BaglantiTuru = "Windows Auth"
'
' If (BaglantiTuru = "Windows Auth") Then
' SqlServerConnStringGetir = "DRIVER={SQL Server};SERVER=" & ServerName & ";DATABASE=" & DatabaseName & ";Trusted_Connection=Yes"
'
' Else
SqlServerConnStringGetir = "DRIVER={SQL Server};SERVER=" & ServerName & ";DATABASE=" & DatabaseName & ";UID=" & UserName & ";PWD=" & Password
' End If
End Function
SqlServerAdoÖrnek.rar
(Dosya Boyutu: 25,62 KB | İndirme Sayısı: 52)
POWER 'un Çekirgesi :=)
ozguryasin,
23-09-2009 tarihinden beri
AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter.
Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.