Hakan GÜMÜŞKAYA (Blog)

Merhaba Arkadaşlar. İki ayrı veritabanı ile çalışan ms access programcıları veritabanının birinde formlardan raporlar dan ve sorgulardan faydalanır, diğer veritabanın da ise veriyi yani tabloları tutarlar. Bu yöntem veritabanının kararlılığını arttırır boyutunu azaltır. Ayrıca Çok kullanıcılı bir program yazıldığında da gereklidir. Konumuzda bu iki ayrı veritabanının bir birine bağlanması. formların bulunduğu uygulamada kaynak veritabanının  adı, yolu,adresi değiştiğinde yeni adresin güncellenmesi gerekir. Bu adres güncelleme işlemi otomasyonu için aşağıdaki kodları kullanınız. Function TabloBaglaGuncelle() Dim cdb As DAO.Database Set cdb = CurrentDb cdb.TableDefs("remoteTable").Connect = ";DATABASE=\\192.168.1.2\Paylasim\veriler2015.accdb" cdb.TableDefs("remoteTable").RefreshLink Set cdb = Nothing End Function

Merhaba MySql Query içinde değiken nasıl kullanılır örnekleme yapacağım.  Mevcutta bulunan bir stok tablosundan skodkodu ve açıklama alanlarını değiştireceğiz. Diğer alanlar bire bir kopyalacak. Bunun için aynı ürün gurubundan bilgileri girişmiş database de kayıtlı bir stokkodu ve yeni stokkodu ile stok adı gerekecek. SET ifadesi ile değere atama yapılır Değişken adının başına '@' işareti koyarak değişken adını atanır Değişken değeri ise = ile atanır. Veri tipine metin ise 'tırnak' işareti kullanmayı unutmayın. Değişkenler sorgu içinde başında @ olacak şekilde kullanılır. `dbstok`.`STOKKODU` = @eskikod gibi ÖRNEK SORGU : SET @yenikod = '100L31'; SET @yeniAciklama = '100L31 Kapı Takozu Küçük'; SET @eskikod = '126L67'; INSERT INTO  `dbstok` (`dbstok`.`STOKKODU`,   `dbstok`.`ACIKLAMA`,   `dbstok`.`GRUP`,   `dbstok`.`TIP`,   `dbstok`.`AGIRLIK`,   `dbstok`.`TEKLIFAGIR`,   `dbstok`.`KDV`,   `dbstok`.`BIRIM`,   `dbstok`.`BIRIMM`,   `dbstok...

DEFRAG.exe (Windows 10 / Sunucu 2012 / 2012R2 / 2016) Sabit sürücü birimlerini birleştirin.  Sözdizimi       Yalnızca analiz gerçekleştirin:       DEFRAG / A vol_to_defrag [Seçenekler]         Birleştir (varsayılan işlem)       DEFRAG [/ D] vol_to_defrag [Seçenekler]         Her ortam türü için uygun optimizasyonu gerçekleştirin:       DEFRAG / O vol_to_defrag [Seçenekler]         Boş alan birleştirme gerçekleştirin:       DEFRAG / X vol_to_defrag [Seçenekler]         Bir ciltte halihazırda devam eden bir işlemi izleyin:       DEFRAG /T volume  vol_to_defrag:       Bu şunlardan herhangi biri olabilir:       birim Birleştirilecek veya anali...

  Logo Şifresini Sıfırlamak Logo Go Plus, Logo Tiger Plus, Logo Tiger Enterprise programlarında Logo kullanıcısının şifresini sıfırlamak   LOGO programlarının kkullanıcı şifreleri  L_CAPIUSER tablosunda KEY_ alanında tutulmaktadır.  Şifreler şifrelenmiş olarak tutulduğundan silmeniz bir şey ifade etmez. Bu nedenle "NULL" yani "Boş" şifre için bile bir değer girilmesi gerekmektedir.  SQL Server Management Studio içinde veya VTYONET.exe programı içinde veya SQL Servere bağlanıp SQL scripti çalıştırabileceğiniz MS ACCESS gibi başka bir program üzerinde "UPDATE L_CAPIUSER SET KEY_=’VuJCA0w141JDSO/VilLs5Q==’ WHERE NAME=’LOGO’ " SQL komutunu çalıştırmanız yada direk editörde "VuJCA0w141JDSO/VilLs5Q==" kodunu şifre bölümüne elle girmeniz gerekir .   SQL sorgusu olarak UPDATE L_CAPIUSER SET KEY_=’VuJCA0w141JDSO/VilLs5Q==’

Merhaba Excelde uzun uzadıya hesaplamalar ile uğraşmaktansa kendi fonsiyonunuzu oluşturabilirsiniz. Bunun için Excel açıkken Alt + F11 tuşuan basıp Visual Basic For Applications a girin. Üstteki menüden insert > Module e tıklayın Kod yazma bölümüne Aşağıdaki örnekten esinlenerek kendi kodunuzu yazın. Bu örnek bir sayının dizide belirtilen aralıkta olup olmadığını denetler ve yanıt verir. Elimizdeki Ölçü sayısal değeri 1000 olsun Değer aralığı text (String) formatında "1225-1500" değerinde olsun Öncelikle Aralığı split ile ayırıp çıkan değerleri sayıya çevirip sayı dizesine atamak olacaktır. Sonra Aralık değerlerini atanmış i değişekeni sayı dizesi ile ölçüyü >= <= karşılaştırması ile aralıktamı değilmi if deyimi içinde değerlendirip sonunca göre "ok" yada "no" yanıtı gönderelim. Kodlar. Function AralikDenetle ( Olcu , Aralik As String ) As String Dim i (2) As Long 'Sayıları atayacağımız array değişken Dim str () As String ...

LOGO GO MS SQL TOPLU TABLO VE ViEW SiLME aşağıdaki kodu sql komutunu çalıştırınca toplu tablo ve view silme komut scriptini oluşturur. sonra scripti kopyala yapıştır ile yeni sql komut sayfasında çalıştırınız. mavi renkli kodlar table ve views ismidir. siz silmek istediğiniz isimle değiştirin. USE [lksdb] GO DECLARE @sql NVARCHAR(MAX) = N''; SELECT @sql += ' DROP VIEW '     + QUOTENAME(s.name)     + '.' + QUOTENAME(t.name) + ';'     FROM sys.views AS t     INNER JOIN sys.schemas AS s     ON t.[schema_id] = s.[schema_id]     WHERE t.name LIKE ' LV_220_02_ %'; PRINT @sql; USE [lksdb] GO DECLARE @sqlv NVARCHAR(MAX) = N''; SELECT @sqlv += ' DROP TABLE '     + QUOTENAME(s.name)     + '.' + QUOTENAME(t.name) + ';'     FROM sys.tables AS t     INNER JOIN sys.schemas AS s     ON t.[schema_id] = s.[schema_id]     WHERE t.name LIKE ' LG_220_02_ %';...