Sql den tek hücreye veri çekme

[mursist]

Merhabalar,
yapmış olduğum proje içerisinde sql den kullanıcı bilgilerini çekerek login ekranlı bir excel dosyası oluşturdum. lakin kullanıcı bazlı filtreleme yapmam lazım. bunun içinde geliştirdiğimiz database içerisindeki kullanıcıların id numaralarını belirli bir hücreye direk yazmam gerekiyor. yani datadan gelip sorgulama yapıp bu kısıma yazması gerekecek. onu ne şekilde yapabilirim?

 

[tamer42]

Merhabalar,
yapmış olduğum proje içerisinde sql den kullanıcı bilgilerini çekerek login ekranlı bir excel dosyası oluşturdum. lakin kullanıcı bazlı filtreleme yapmam lazım. bunun içinde geliştirdiğimiz database içerisindeki kullanıcıların id numaralarını belirli bir hücreye direk yazmam gerekiyor. yani datadan gelip sorgulama yapıp bu kısıma yazması gerekecek. onu ne şekilde yapabilirim?

Örnek dosya ekleme imkanı yok mu?

 

[mursist]

maalesef biraz hassas veriler olduğu için paylaşmam bana sorun yaratacaktır. resimdeki hücreye yazmak istiyorum.

Sorgumda geçen name ile id çekmem gerekiyor. o kısmı belirtmemişim.
sorgumda bu şekilde
----------------------
Private Sub cmdLogin_Click()
Dim password As String
Dim rs As ADODB.Recordset
Dim con As ADODB.Connection
Set con = New ADODB.Connection
user = Me.txtUserID.Value
password = Me.txtPassword.Value
ID = Me.txtUserID
con.Open "Driver={SQL Server};Server=xxDatabase=RAPOR_KULLANICI;Uid=xx;Pwd=xx;"
Set rs = con.Execute("SELECT COUNT(*) as control FROM USERS WHERE NAME='" & user & "' AND PASSWORD='" & password & "'")

If (user = "xx" And password = "xx") Or (rs.Fields("control").Value = 1) Then
Unload Me
Application.Visible = True
MsgBox " Hoşgeldiniz. Veriler Yüklenecektir Lütfen Bekleyiniz. ", vbInformation
Else
If LoginInstance < 2 Then
MsgBox "Geçersiz giriş bilgileri. Lütfen tekrar deneyiniz.", vbOKOnly + vbCritical, "Geçersiz Giriş Detayları"
LoginInstance = LoginInstance + 1

Else
MsgBox "Maksimum deneme girişimini aştınız!", vbOKOnly + vbCritical, "Geçersiz Giriş Bilgileri"
Unload Me
ThisWorkbook.Close savechanges:=False
Application.Visible = True
LoginInstance = 0
End If
End If


End Sub
---------------------------------

 

[RBozkurt]

Sql içinde örneğin rbozkurt kullanıcısı tanımlı,

Bende dosyayı açtım login ekranında rbozkurt ve sizin bana tanımladığınız şifreyi girdim, dosya açıldı;

Tam tersini düşünelim; kullanıcı adı yazdım karşılığı olmadığı için uyarı verdi.

Bu veriyi sql içinden excelde hücreye indirip doğrulama işlemini burada yaptırmak yerine direk login ekranınızı sql ile doğrulama yaptırılması daha doğru olmaz mı?

Ek olarak bu sql verisi ile bağlantınız nasıl yapılıyor? Ulaşılabilecek bir adreste ise açıp düzenlenmesi kolay olur.

Benimde bu şekilde bir doğrulama uygulaması hazırlamıştım; sql yok veri google sheets sayfasında. Sadece dosya okuma yetkisi var. Oradan tanimlarsam açılır; tanımlama yapmazsam açılmaz gibi..

2. Mesaj, 24. Mesajda uygulanma mantığı.

Çözüldü - VBA ile Google Sheets Sayfasında Arama veya Kıyaslama

Merhaba değerli forum üyeleri; Excel VBA ile Google Sheets üzerinde birtakım kıyaslama yaptırmak istiyorum. Sayın @Haluk üstadın hazırlamış olduğu bu mesajdaki işlem veriyi excel sayfasına çekiyor, bu veriyi çekip farklı bir kod ile arama işlemi yaptırılır; fakat bu işlemi excelde herhangi bir...

www.excel.web.tr

 

[mursist]

tamda sizin yaptığınızı yaptırıyorum ama sorunumu çok basit bir kod eklemesi ile çözülemdim . alt kısımda da ekledim ihtiyacı olan faydalanabilir.
yardımlarınız için çok teşekkürler
Set Rs = Con.Execute("SELECT ID,NAME FROM USERS WHERE NAME='" & user & "' AND PASSWORD='" & password & "'")
Range("G1", "H1").CopyFromRecordset Rs

Rs.Close: Con.Close

Sorgu = vbNullString: Set Rs = Nothing: Set Con = Nothing

 

[RBozkurt]

Sql verisi online olarak nerde durmaktadır

 

[mursist]

sunucuda bulunuyır