Ay: Eylül 2008

Autocad son açılan dosyayının önizlemesini sağlamak

Autocad üzerinde bir dosya açtıktan sonra File / Open dediğimizde normalinde son açılan dosyayının ad nın gelmesi,dosyanın seçilmiş olması ve Preview pencersinden önizlemesinin gelmesi gerekirken. Open dediğinizde eğer sadece adı geliyor önizlemesi gelmiyor ve işaretli değilse;
Herhangi bir klasör açıkken Araçlar / Klasör seçeneklerini açarak
Bilinen dosyaların uzantılarını gizle işareti kaldırılarak sorunu çözebiliriz  İlginç

1. Başlat menüsünden Windows gezgini veya herhangi bir açık klasör penceresi (Start Windows Explorer) .
2. Araçlar -> Klasör Seçenekleri (Select Tools > Folder Options).
3. Görünüm sekmesini açın ( In the dialog box, click the View tab).
4. Bilinen dosya türleri için uzantıları gizle seçeneğindeki işareti kaldırın. (Clear the Hide File Extensions for Known File Types option)
Bu kadar.

SQL de aynı tablodan iki tane id kullarak farkli verileri çekme

Bir tabloda yer alan iki farklı kullanıcıya ait id lerden kullanıcı tablosundaki verileri çekme
SELECT departman.departmanid, departman.sirketid, sirket.sirket, departman.departman, departman.sorumluid, kullanici.adi, kullanici.soyadi,
departman.mudurid, kullanici_1.adi AS Expr1, kullanici_1.soyadi AS Expr2
FROM departman LEFT OUTER JOIN
sirket ON departman.sirketid = sirket.sirketid LEFT OUTER JOIN
kullanici ON kullanici.kullaniciid = departman.sorumluid LEFT OUTER JOIN
kullanici AS kullanici_1 ON departman.mudurid = kullanici_1.kullaniciid
iki tane LEFT JOIN yapılarak ikincisi için farkı bir alias yapıp kullanıcıları oradan çekerek verileri alabiliriz.

Vb.net DataGridView hücre değişikliğinde fonksiyon çalıştırma

(liste= datagridview1)

Private Sub liste_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles liste.CellEndEdit
‘Bu fonksiyon yalnızca hücrenin düzenleme moduna getirilip çıkması sonucunda çalışır
If liste.CurrentRow.Cells(0).Value = “mustafa54” Then
MsgBox(1test1)
End If
End Sub

Private Sub liste_CellLeave(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles liste.CellLeave

‘ Bu satır ise herhangi bir hücre değişikliğinde çalışır. Eğer o anki çalıştığınız hücreye göre düzenleme yapıyorsanız önce DataGridView in edit modunu sonlandırlalısın.
‘ liste.EndEdit()
If liste.CurrentRow.Cells(0).Value = “mustafa54” Then
MsgBox(“test”)
End If
End Sub

Vb.net keypreview özelliklerinden türkçe yararlanarak arama oluşturma

evet bu seferde nedenini anlamadığım bir vb.net sorunu daha keypreview ile gelen değerleri chr ile dönüştürdüğümüzde farklı / yanlış karakterler çıkması.

Alternatif çözüm yolu.

Private Sub listelefatura_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyValue = 27 Then
Me.Close()
ElseIf e.KeyValue = 13 Then
Call cifttiklama()
Exit Sub
End If Okumaya devam et “Vb.net keypreview özelliklerinden türkçe yararlanarak arama oluşturma”

Sabit sürücülerinize autorun.inf yazan trojanlardan bıktıysanız

Bilgisayarınıza sürekli bulaşan genelde flash belleklere ile gelen trojanlardan bıktıysanız.En azından sabit sürücülerinize autorun.inf dosyası oluşturulmamasını sağlayabilirsiniz.
Nasıl mı?
Şöyle ki tüm sabit sürücülerinizin ana dizinlerine AUTORUN.INF isimli bir klasör oluşturarak.
Bu klasör sürücünüzün ana dizininde olduğu müddetçe sabit sürücünüze autorun(otomatik çalıştır) dosyası eklenemeyecektir. Biraz daha paranoyaklaşırsak eğer basit dosya paylaşımı devre dışı ise bu dosyayı gizli hale getirip tüm kullanıcıların yetkilerini silerek biraz daha güvende hissedebilirsiniz kendinizi.
Unutmayın ki bu sürücülerinizin root dizinlerine trojanın bulaşmasını engellemez.Sadece her sürücüye girdiğinizde tekrar tekrar bulaşmasını engeller sadece. Bir tavsiye daha bilgisayarınıza flash bellek taktığınızda bilgisayarımı açıp çift tıklama yöntemi ile açmaktansa başlat/çalıştır seçeneğinden flash sürücünüzün harfini yazarak (örn: e: ) tamam butonuna tıklarsanız eğer flash belleğinizde autorun.inf varsa bile çalıştırmadan içini listeleye bileceksiniz.

Sqldatareader ile kayıt sayısını kontrol etmek

Dim a As String
Dim sayi As Integer
a = InputBox(”Firma Adının birkaç harfini giriniz”)
sqlbaglanti.Open()
sqlkomut.CommandText = “SELECT COUNT(*) FROM firma WHERE firmaadi LIKE ‘%” + UCase(a) + “%’”
sqlkomut.ExecuteNonQuery()
veriler = sqlkomut.ExecuteReader(CommandBehavior.SingleResult)
Do While veriler.Read
sayi = veriler(0)
Loop
If sayi > 1 Then
MsgBox(”birden fazla”)
End If
sqlbaglanti.Close()