Access den Veri Getirmek ?

[efeksk]

Access veri tabanında bulunan son satırdaki ID'yi userform üzerindeki textbox'a nasıl getiririz?

 

[Murat OSMA]

Deneyiniz...

sira = baglantiadi.Execute("select top 1 ID from TabloAdi order by ID desc").fields(0).Value
TextBox1.value = sira + 1

 

[efeksk]

Deneyiniz...

sira = baglantiadi.Execute("select top 1 ID from TabloAdi order by ID desc").fields(0).Value
TextBox1.value = sira + 1

ÇÖZÜLDÜ MURAT BEY TEŞEKKÜR EDERİM

Private Sub CommandButton1_Click()
Call baglanti
sira = baglan.Execute("select top 1 ID from GİRİŞ order by ID desc").fields(0).Value
TextBox6.Value = sira + 1
End Sub

Murat Bey bir türlü uyarlayamadım.

Bağlantı Protokolüm aşağıdaki gibi

Access Dosya Adı: malzeme.mdb
Tablo Adı: bolum

Dim objAccess As Object
Private baglan As Object, rs As Object

Sub baglanti()
Set baglan = CreateObject("adodb.connection")
baglan.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\malzeme.mdb"
End Sub

 

[Murat OSMA]

Dosyanızın durumunu bilmiyorum. Bu nedenle Değişkenleri Public yaptım.

Dilerseniz bu kodları Module içerisine;

Public baglan As Object, rs As Object
Public dosya As String
Sub baglanti()
    Set baglan = CreateObject("adodb.connection")
    Set rs = CreateObject("adodb.recordset")
    dosya = ThisWorkbook.Path & "\malzeme.mdb"
    baglan.Open "provider=microsoft.jet.oledb.4.0;data source=" & dosya
    rs.Open "select * from bolum", baglan, 1, 3
End Sub

Bu kodları da UserForm içerisine yazabilirsiniz;

Sub CommandButton1_Click()
    Call baglanti
    sira = baglan.Execute("select top 1 ID from bolum order by ID desc").fields(0).Value
    TextBox6.Value = sira + 1
    dosya = vbNullString: Set rs = Nothing: Set baglan = Nothing
End Sub

------------------------------------------------------------------------------------------
Ya da bu şekilde bütün kodları UserForm'un kod penceresine yazabilirsiniz;

Sub CommandButton1_Click()
    Dim baglan As Object, rs As Object
    Dim dosya As String
    Set baglan = CreateObject("adodb.connection")
    Set rs = CreateObject("adodb.recordset")
    dosya = ThisWorkbook.Path & "\malzeme.mdb"
    baglan.Open "provider=microsoft.jet.oledb.4.0;data source=" & dosya
    rs.Open "select * from bolum", baglan, 1, 3
    sira = baglan.Execute("select top 1 ID from bolum order by ID desc").fields(0).Value
    TextBox6.Value = sira + 1
    dosya = vbNullString: Set rs = Nothing: Set baglan = Nothing
End Sub

İyi günler.