Aymira Yazılım Bilişim Yazıları

ASP.Net MVC de Admin Lte kullanırken aktif menüyü gösterme konusunda sorunla karşılaştığımızda aşağıdaki gibi bir script ile layout sayfasına eklemeniz sorunu çözecektir. Tıklanan linkiin olduğu menüyü aktif (active class ekler.) ve açık olarak gösterecektir. <script type='text/javascript'> /** add active class and stay open...

SQL Server da Kesişen tarihleri birleştirerek tek zaman olarak almak için ;   ALTER VIEW [dbo].[V_UcustakiPersonel_Vardiyadaki_UcusBilgileri] AS SELECT UcusEkibiPersonelId, MIN(EtkiUcusBaslangicZamani) AS EtkiUcusBaslangicZamani, EtkiUcusBitisZamani, DATEDIFF(MINUTE, MIN(EtkiUcusBaslangicZamani), EtkiUcusBitisZamani) AS ToplamDakika, DATEDIFF(SECOND,...

Verilen her tarih için en erken süreyi döndürecektir. Veritabanının içinde yürütülmesini istiyorsanız: var mod = (from m in lstMachineInfo where m.RegisterationId == EnrollNumber && m.Date >= startDate && m.Date <= endDate select m) .Gr...

  Bir DB'yi ve tüm fiziksel dosyalarını nasıl yeniden adlandırabiliriz? Bunu yapmak için şu adımları izlemeniz gerekir: Aç Microsoft SQL Server Management Studio'yu . Yeniden adlandırmak istediğiniz DB'nin bulunduğu sunucuya bağlanın. Aşağıdaki komut dosyasını değiştirin ve çalıştırın - -- Replace all MyDBs with the name of the DB yo...

Baba Öldüğünde         Çoğumuz,babamız henüz hayattayken onun yüzüne bir kere bile dikkatle bakmayız. Baba, “baba” demeye başladığımız günden itibaren sürekli karşımızda duran bir alışkanlıktır. Yıllarca babamızdan değil, bir alışkanlıktan bahsederiz: Annemize, “babam bugün niçin gecikti?&rd...

HTML5, web siteleri oluşturmak için kullanılan hiper-metin işaretleme dilinin son sürümüdür. Hyper Text Markup Language kelimelerinin, Türkçe ifade ile "Zengin Metin İşaretleme Dili"nin baş harflerinin kısaltması olan HTML, CERN'de müteahhit olarak çalışan Tim Berners-Lee tarafından 80'li yıllarda geliştirilen, 90'lı yıllarda ise adının...

Yöntem veri tabanı üzerinde F7 tuşuna basarak tablo view ve procedureleri seçerek silebilirsiniz. Yöntem: İlişkileri Silmek  için aşağıdaki sorguyu çalıştırın; DECLARE @Sql NVARCHAR(500) DECLARE @Cursor CURSOR SET @Cursor = CURSOR FAST_FORWARD FOR SELECT DISTINCT sql = 'ALTER TABLE [' + TableCons.TABLE_NAME + '] DROP [' + Referen...

Karşı Orman

Lıkır lıkır akan dere

Karşı orman orada her yer neşe

Kelebekler uçar ,böceklerde..

Ne fark eder hepsi canlıdır...

Aymira TÜRKÖZ

VB.Net Sürükle Birak (Drag - Drop) VB.Net Sürükle Bırak (Drag - Drop) Imports System.IO Public Class Form1 Private Sub lbDosya_DragDrop(sender As Object, e As DragEventArgs) Handles lbDosya.DragDrop Dim dosya As String() = e.Data.GetData(DataFormats.FileDrop, True) For Each d In dosya lbDosya.Items.Add(d) Next End Sub Private Sub lbDosya_DragEnter(sender As...

Grafik Çizimi Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load For i = 1 To 20 cbDeger.Items.Add(i.ToString()) Next End Sub Private Sub btnRasgele_Click(sender As Object, e As EventArgs) Handles btnRasgele.Click If cbDeger.SelectedIndex = -1 Then cbDeger.SelectedIndex = 4 End If dgKayitlar.Rows.Clear() Dim r As Random = New Random() For ...

Ödev Dağıtımı Ödev Dağıtımı Public Class Form1 Private Sub btnOgrEkle_Click(sender As Object, e As EventArgs) Handles btnOgrEkle.Click If txtOgr.Text = "" Then MsgBox("Öğrenci Giriniz!", MsgBoxStyle.Critical, "Hata") Return End If For i = 0 To lbOgrenci.Items.Count - 1 If lbOgrenci.Items(i) = txtOgr.Text Then MsgBox("Öğrenci Listede Mevcut!", MsgBoxS...

CSV ve XML Dosya Okuma Yazma CSV ve XML Dosya Okuma Yazma CSV ve XML Dosya Okuma Yazma Imports System.IO Imports System.Text Public Class Form1 Private Sub btnXmlOku_Click(sender As Object, e As EventArgs) Handles btnXmlOku.Click openFileDialog1.Filter = "XML Dosyaları|*.xml" If openFileDialog1.ShowDialog() = DialogResult.Cancel Then Return End If dgKayitlar.D...

Fotoğraflı Üye Kayıt İşlemi       Imports System.IO Public Class Form1 Private Sub btnKaydet_Click(sender As Object, e As EventArgs) Handles btnKaydet.Click If txtAdsoyad.Text = "" Or txtTel.Text = "" Or txtAdres.Text = "" Then MsgBox("Lütfen Tüm Alanları Doldurunuz!", MsgBoxStyle.Critical, "Hata") Return End If If pbFoto.Image Is Nothing Th...

Kitap Takip Programı Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.Top = 50 End Sub Private Sub btnKitap_Click(sender As Object, e As EventArgs) Handles btnKitap.Click Form2.Show() End Sub Private Sub btnKapat_Click(sender As Object, e As EventArgs) Handles btnKapat.Click Application.Exit() End Sub Privat...

Raporlama Örneği Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load cbBolge.DisplayMember = "bolge" cbBolge.DataSource = dtGetir("select distinct(bolge) from ilceler") cbIL.DisplayMember = "il" cbIL.DataSource = dtGetir("select distinct(il) from ilceler") End Sub Private Sub bnIL_Click(sender As Object, e As EventArg...

İş Takip Programı (3.Bölüm) İş Takip Programı (3.Bölüm) Public Class Form6 Private Sub Form6_Load(sender As Object, e As EventArgs) Handles MyBase.Load For i = 2015 To Now.Year + 1 cbYil.Items.Add(i.ToString()) Next cbAy.SelectedIndex = Now.Month - 1 cbYil.Text = Now.Year kayitGetir() End Sub Sub kayitGetir() Dim ay As Integer = cbAy.Sel...

İş Takip Programı (2.Bölüm) İş Takip Programı (2.Bölüm) Public Class Form2 Private Sub btnKapat_Click(sender As Object, e As EventArgs) Handles btnKapat.Click Me.Close() End Sub Private Sub btnkaydet_Click(sender As Object, e As EventArgs) Handles btnkaydet.Click If txtAdsoyad.Text = "" Or txtAdres.Text = "" Or txtTel.Text = "" Then MsgBox("Lüt...

İş Takip Programı (Bölüm 1) İş Takip Programı (Bölüm 1)   Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim dt As DataTable = dtGetir("select * from musteriler order by adsoyad") For i = 0 To dt.Rows.Count - 1 dgMusteri.Rows.Add(dt.Rows(i) ("musteriNo").ToString(), dt.Rows(i)("adsoyad").ToString(),...

Visual Basic Veri Tabanı Uygulamaları Visual Basic Veri Tabanı Uygulamaları Konu İle ilgili tüm ders videolarını izleyerek daha iyi bilgi edinebilirsiniz. Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim dtOgrenci As DataTable = dtGetir("select * from ogrenci") For i = 0 To dtOgrenci.Rows.Count - 1 dgOgrenci.Rows...

NotifyIcon Uygulaması Data.OleDb Public Class Form1 Dim baglanti As OleDbConnection, cmd As OleDbCommand, adp As OleDbDataAdapter Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load baglanti = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "\kelimedata.mdb") baglanti.Open() cmd = New OleDbComman...