Case uygulaması ile kapalı dosyadan veri

[kelkitli]

Selamlar,
C: altında veri isimli dosya var. İşlem isimli dosyadaki UserForm1 deki TextBox1 e yaka no yazınva kapalı veri dosyasındaki A sütunundaki yaka no yu bulup, B ve C sütunundaki karşılık gelen veriyi diğer TextBox lara almak istiyorum.
Şöyle bir şekil düşündüm ama arama kriteri ve bağlanma işlemi yapamadım.

Private Sub TextBox1_Change()
Select Case TextBox1.Text
Case 1: TextBox2 = "C:\veri\Sayfa1\2.sütundaki karşılık gelen veri": TextBox3 = "C:\veri\Sayfa1\3.sütundaki karşılık gelen veri"
Case Else: TextBox2 = "": TextBox3 = ""
End Select
End Sub

 

[Orion1]

Oda neymiş.
Case uygulaması ile kapalı dosyadan veri alma yöntemini bilmiyom.Ne yaparsın cahillik işte.
Ben bildiğim yöntemle yaptım.
ADO ile veri alma.
Dosyanız ektedir.

'Alttaki satır userfomun declarition bölümünde general kımına
Dim conn As Object, rs As Object

Private Sub TextBox1_Change()


End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2.Text = ""
TextBox3.Text = ""
If Not IsNumeric(TextBox1.Text) Then
    MsgBox "YAKA sayısal bir dğer olmalıdır." & vbLf & "İşlem iptal edildi", vbCritical, "UYARI"
    TextBox1.SetFocus
    Exit Sub
End If
rs.Open "select * from [Sayfa1$A2:C65536] where F1 =" & CDbl(TextBox1.Text) & ";", conn, 1, 1
If rs.RecordCount > 0 Then
    TextBox2.Text = rs(1).Value
    TextBox3.Text = rs(2).Value
End If
rs.Close
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
Set conn = CreateObject("adodb.connection")
Set rs = CreateObject("Adodb.recordset")
conn.Open "Provider=Microsoft.jet.oledb.4.0;data source=C:\Veri.xls;" _
& "extended properties=""excel 8.0;hdr=no;imex=1"";"
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
conn.Close
Set rs = Nothing
Set conn = Nothing
End Sub

 

[sonsuzkalp]

selamlar evren hocam bu dosyada isime göre bulmasını istediğimizde nereyi değiştirmemiz gerekir

 

[Orion1]

selamlar evren hocam bu dosyada isime göre bulmasını istediğimizde nereyi değiştirmemiz gerekir

Sadece ad giriniz
Soy ad değil.
Örnek ali

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2.Text = ""
TextBox3.Text = ""
rs.Open "select * from [Sayfa1$B2:D65536] where F1 ='" & TextBox1.Text & "';", conn, 1, 1
If rs.RecordCount > 0 Then
    TextBox2.Text = rs(1).Value
    TextBox3.Text = rs(2).Value
End If
rs.Close
End Sub

 

[sonsuzkalp]

çok teşekkür ederim

 

[Orion1]

çok teşekkür ederim

Rice ederim.
Önemli değil.

 

[kelkitli]

Selamlar,
Teşekkür ederim Evren Hocam,
Böyle daha iyi olmuş elinize sağlık.
Size cahillik yakışmaz. Aslen bize de yakışmaz. Çabamız o yönde hoş görün lütfen.
Bir günümüz öncekinden farklı olsun diye uğraşmaktayız. Sizleri sevmekteyiz, bilgilerinizden, emeğinizden, katkılarınızdan ve yeni nesillere sağladığınız eğitimden dolayı. Yeni nesil siz gönüllü öğretmenlerin eseri olacaktır. Yeni dönemde güçlü Türkiye de! Biz de karınca kararınca yanınızdayız işte.
Hoşcakalın.

 

[Orion1]

Selamlar,
Teşekkür ederim Evren Hocam,
Böyle daha iyi olmuş elinize sağlık.
Size cahillik yakışmaz. Aslen bize de yakışmaz. Çabamız o yönde hoş görün lütfen.
Bir günümüz öncekinden farklı olsun diye uğraşmaktayız. Sizleri sevmekteyiz, bilgilerinizden, emeğinizden, katkılarınızdan ve yeni nesillere sağladığınız eğitimden dolayı. Yeni nesil siz gönüllü öğretmenlerin eseri olacaktır. Yeni dönemde güçlü Türkiye de! Biz de karınca kararınca yanınızdayız işte.
Hoşcakalın.

Rica ederim
İyi çalışmalar.