Soru ListBox veri maskeleme?

[s.savas]

Merhaba arkadaşlar.
Aşağıdaki kod ile listbox'a acces veritabanından veri alınıyor.

Private Sub listeye_al()
ListBox1.Clear
Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")

Call BAGLANTI
    rs.Open "select * from [REHBER]", baglan, 1, 1
With ListBox1
    .RowSource = Empty
    .ColumnCount = 25
    .ColumnWidths = "0;90;70;75;75;60;180;180;100;75;150;180;150;90;70;30;30;70;70;30;70;70;100;70;70;70"
    .Column = rs.getrows
End With
    rs.Close
Set rs = Nothing
    
cmbSinif.Column = baglan.Execute("select distinct [SINIF_ADI]  from [SINIFLAR]").getrows
cmbKurum.Column = baglan.Execute("select distinct [KURUM_ADI]  from [KURUMLAR]").getrows
cmbBaskanlik.Column = baglan.Execute("select distinct [baskanlik_ADI]  from [baskanlik]").getrows
cmbIL.Column = baglan.Execute("select distinct [il]  from [iller]").getrows
cmbUnvan.Column = baglan.Execute("select distinct [UNVAN]  from [UNVANLAR]").getrows
cmbistihdam.Column = baglan.Execute("select distinct [ISTIHDAM]  from [ISTIHDAMI]").getrows
cmbYerleske.Column = baglan.Execute("select distinct [YERLESKE_ADI]  from [YERLESKE]").getrows

Label6.Caption = "Toplan kayıt sayısı= " & ListBox1.ListCount
yeniid = ListBox1.ListCount + 1
End Sub

ListBox'ın 2. kolonuna gelen veriler 123*****911 şeklinde baştan 3 sondan 3 karakteri gözüksün ortadaki 5 karakter ** şeklinde maskelensin istiyorum.

 

[Korhan Ayhan]

Merhaba,

Bildiğim kadarıyla direkt maskeleme yapamazsınız. Gelen veriyi döngüye alıp bahsettiğiniz sütunu biçimlendirdikten sonra listbox nesnesine yüklersiniz.

 

[s.savas]

Merhaba,

Bildiğim kadarıyla direkt maskeleme yapamazsınız. Gelen veriyi döngüye alıp bahsettiğiniz sütunu biçimlendirdikten sonra listbox nesnesine yüklersiniz.

Korhan hocam teşekkürler.
Aşağıdaki kod ile maskeleme işi gerçekleşti

rs.Open "select KIMLIK,ADI_SOYADI,mid(TC_KIMLIK,1,3)& '*****' & mid(TC_KIMLIK,9,11),IL,ILCE,SICIL,SINIF,UNVAN,GOREV,FIRMA,KURUM,BASKANLIK,BIRIM,ISTIHDAMI,YERLESKESI,KAT,ODA_NO,IS_TEL,FAKS,DAHILI,CEP,E_POSTA,ADRES,VERGI_D,VERGI_N,NOTU,RESIM from [REHBER]", baglan, 1, 1

Ancak veri güncellemede sorun yaşıyorum.
Aşağıdaki kod da hata veriyor.

Function GetBytes(ByVal FileName As String) As Byte()
    Dim b() As Byte
    Open FileName For Binary As #1
        ReDim b(1 To LOF(1)) As Byte
        Get #1, , b
    Close #1
    GetBytes = b
End Function

 

[Korhan Ayhan]

Merhaba,

Mesajı yazdıktan sonra SQL sorgusunda bu iş çözülebilir gibi gelmişti. Zaten çözümü de bu yönde bulmuşsunuz.

Verinin hem maskelenmiş halini hem de maskelenmemiş halini listbox nesnesine yükleyin. Maskelenmemiş halini sıfır sütun genişliği ile gizleyin. Kayıt işlemlerinde bu gizli sütunu kullanın.