Arkadaşlar kullanmakta olduğum aşağıdaki kodlara ek olarak eklemek istediğim bazı uygulamalar daha olacak. Bu konuda yardımlarınızı beklemekteyim.
1. Cells(1, 1).CopyFromRecordset KayitSeti olarak hücrelere otomatik veri getirme şeklinde değilde istediğim hücrelere istediğim veriyi nasıl getiririm.
baslamasaati = A3
ymkodu = A4
opkodu = A5
ilkonay = A6
ortaonay = A7
2. SQL tablodaki verileri sicilno (A1) ile sorgulama yaptığımda aynı sicil numaralı kayıtların hepsini değilde son girilen sicil numaralı kaydın gelmesini istiyorum. Açmak gerekirse A1 hücresine sicil numarasını yazdığımda o yazılan sicil numarasının son kaydının gelmesini istiyorum
1. Cells(1, 1).CopyFromRecordset KayitSeti olarak hücrelere otomatik veri getirme şeklinde değilde istediğim hücrelere istediğim veriyi nasıl getiririm.
baslamasaati = A3
ymkodu = A4
opkodu = A5
ilkonay = A6
ortaonay = A7
2. SQL tablodaki verileri sicilno (A1) ile sorgulama yaptığımda aynı sicil numaralı kayıtların hepsini değilde son girilen sicil numaralı kaydın gelmesini istiyorum. Açmak gerekirse A1 hücresine sicil numarasını yazdığımda o yazılan sicil numarasının son kaydının gelmesini istiyorum
Kod:
Sub opgetir()
Dim Baglanti As New ADODB.Connection
Dim KayitSeti As New ADODB.Recordset
Dim sicilno As String, baslamasaati As String, ymkodu As String, opkodu As String, ilkonay As String, ortaonay As String
sicilno = Sheets("Data2").Range("A1").Value
baslamasaati = Sheets("Data2").Range("A3").Value
ymkodu = Sheets("Data2").Range("A4").Value
opkodu = Sheets("Data2").Range("A5").Value
ilkonay = Sheets("Data2").Range("A6").Value
ortaonay = Sheets("Data2").Range("A7").Value
sorgu = "SELECT [baslamasaati], [ymkodu], [opkodu], [ilkonay], [ortaonay] FROM [optakip] WHERE ([sicilno] = '" & sicilno & "')"
Baglanti.Open "Provider=SQLOLEDB.1;Password=********;Persist Security Info=True;User ID=**;Initial Catalog=********;Data Source=********"
KayitSeti.Open sorgu, Baglanti
[B]Cells(3, 1).CopyFromRecordset KayitSeti[/B]
KayitSeti.Close
Baglanti.Close
Set KayitSeti = Nothing
Set Baglanti = Nothingthing
End Sub