- Katılım
- 4 Tem 2023
- Mesajlar
- 81
- Excel Versiyonu
- Excel 2016
- Excel Sürümü
- 32 Bit
- Excel Dili
- Türkçe
Merhaba ekteki kodlarda phpmyadminden verileri çekme kodları mevcuttur .Daha öncede açmıştım konuyu cevaplayan üye textboxlar ve comboboxlara göre revize etmelisiniz dedi ama ben hangilerini combo veya textbox yapacağım .
VBA:
Dim oConn As ADODB.Connection
Private Sub txt_kimlik_sorgu_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If txt_kimlik_sorgu.Value <> "" Then
Set rs = CreateObject("ADODB.Recordset")
Set rs1 = CreateObject("ADODB.Recordset")
Set rs2 = CreateObject("ADODB.Recordset")
Set oConn = New ADODB.Connection
Call BAGLANTI_MySQL
rs.Open "select tc,adsoyad,sicilno,unvan,kurumkod from personel WHERE tc='" & txt_kimlik_sorgu.Text & "' ;", oConn, 1, 1
If Not rs.EOF Then
txt_kimlik_sorgu.Value = rs("tc")
txt_adi_soyadi = rs("adsoyad")
txt_sicil_no = rs("sicilno")
txt_sicil_sorgu = rs("sicilno")
unvan_sorgu = rs("unvan")
kurum_sorgu = rs("kurumkod")
txt_kadro_yeri = rs("kurumkod")
ElseIf rs.EOF Then
MsgBox txt_kimlik_sorgu & " Kimlik Numaralı Bir Personel Kaydı Bulunmamaktadır. Emekli Olmuş Olabilir.!!" & vbCrLf & vbCrLf & "ÇKYS'den Son Durumuna Bakınız", vbInformation, "UYARI"
'Me.txt_kimlik_sorgu.SetFocus
txt_kimlik_sorgu.Text = ""
Exit Sub
End If
rs.Close
'-------------------------------------- ÜNVAN SORGU ------------------------------------------------------
rs1.Open "select unvanadi,unvankodu from unvan WHERE unvankodu='" & unvan_sorgu.Text & "' ;", oConn, 1, 1
If Not rs1.EOF Then
txt_unvani = rs1("unvanadi")
ElseIf rs1.EOF Then
MsgBox unvan_sorgu & " Ünvan Kaydı Bulunamadı.!!", vbInformation, "UYARI"
Me.unvan_sorgu.SetFocus
unvan_sorgu.Text = ""
Exit Sub
End If
rs1.Close
'---------------------------------------------------------------------------------------------------------
rs2.Open "select kurumadi,kurumkod from kurumlar WHERE kurumkod='" & kurum_sorgu.Text & "' ;", oConn, 1, 1
If Not rs2.EOF Then
txt_kadro_yeri = rs2("kurumadi")
ElseIf rs2.EOF Then
MsgBox kurum_sorgu & " Görev Yeri Bulunamadı.!!", vbInformation, "UYARI"
Me.kurum_sorgu.SetFocus
kurum_sorgu.Text = ""
Exit Sub
End If
rs2.Close
End If
End Sub