Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > Diğer Yazılımlar > SQL
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

SQL Yapısal sorgulama dili hakkında sorularınızı buraya sorabilirsiniz.

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 12-06-2015, 09:39   #1
merakli_72
Destek Ekibi
 
Giriş: 24/07/2007
Şehir: Bursa
Mesaj: 713
Excel Vers. ve Dili:
Excel 2010 tr
Varsayılan Satır verileri sutunda olacak şekilde sorgu

Selam arkadaşlar,
Ekteki mdb dosyasındaki tablodan
SonucResim de ekran görüntüsü verilen sonucu üretecek sorguyu yazmak mümkünmüdür

Teşekkürler
Eklenmiş Resimler
Dosya Türü: jpg SonucResim.JPG (117.8 KB, 21 Görüntülenme)
Eklenmiş Dosyalar
Dosya Türü: mdb Ornek.mdb (244.0 KB, 25 Görüntülenme)
merakli_72 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-06-2015, 18:39   #2
systran
Destek Ekibi
 
Giriş: 15/12/2007
Mesaj: 1,360
Excel Vers. ve Dili:
2007 [TR]
Varsayılan

(benim anladığım)
istediğin, yüklediğin resimdeki alanlar ile mdb dosyasına bakarak
veritabanı dosyasındaki tabloların ilk 2 sütunundaki veriler olarak görülüyor.
1. yol (tablo adlarını bildiğini varsaydığımızda SQL ile tek tek çekersin, ancak destek ekibinde olduğunuz düşünerek bunu bildiğini varsayıyorum.
2. yol ise tablodaki tablo adlarını ve ilk 2 sütun adını çekip (çünkü yüklediğin resime göre alan adları farklı olduğu için sabit bir sorgu ile veri çekilemez diye düşünüyorum) ona göre SQL sorgusu oluşturmak olabilir.
bulduğum bir kodda ufak değişiklik yaptım.
tablonun adını ve ilk 2 sütun adını buluyor. bundan sonrası buna uygup SQL ifadesi ile verileri çekmek olabilir.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Example1()
'an Access object
Dim objAccess As Object
'connection string to access database
Dim strConnection As String
'catalog object
Dim objCatalog As Object
'connection object
Dim cnn As Object
Dim i As Integer
Dim intRow As Integer

Set objAccess = CreateObject("Access.Application")
'open access database
Call objAccess.OpenCurrentDatabase("C:\test\Ornek.mdb")
'get the connection string
strConnection = objAccess.CurrentProject.Connection.ConnectionString
'close the access project
objAccess.Quit
'create a connection object
Set cnn = CreateObject("ADODB.Connection")
'assign the connnection string to the connection object
cnn.ConnectionString = strConnection
'open the adodb connection object
cnn.Open
'create a catalog object
Set objCatalog = CreateObject("ADOX.catalog")
'connect catalog object to database
objCatalog.activeconnection = cnn
'loop through the tables in the catalog object
intRow = 1

Dim tablocuk As Object
Dim aralık As Range
For i = 0 To objCatalog.tables.Count - 1
    
    'Çünkü veri tabanında 1 tane tablomuz olsa bile başka sistem tablolarıda var.
    Set tablocuk = objCatalog.tables.Item(i)
    With tablocuk
        If .Type = "TABLE" Then
            Cells(intRow, 1) = .Name                'Tablo Adı
            Cells(intRow, 2) = .Columns(0).Name     'ilk sütun adı
            Cells(intRow, 3) = .Columns(1).Name     'ikinci sütun adı
            intRow = intRow + 1
        End If
    End With
    
Next i
End Sub
systran Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-06-2015, 10:47   #3
merakli_72
Destek Ekibi
 
Giriş: 24/07/2007
Şehir: Bursa
Mesaj: 713
Excel Vers. ve Dili:
Excel 2010 tr
Varsayılan

Sayın systran cevap için teşekkür ederim,
fakat tablodaki verileri bir şekilde o hale getirebilmek ile ilgili sıkıntım yok
Ben bu işlemin SQL ile olup olamayacağı araştırması içindeyim
yani
Select ....

şeklinde bir sorgu o sonucu verirmi,

Tekrar teşekkür eder, iyi günler dilerim
merakli_72 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-06-2015, 12:26   #4
nafis
Altın Üye
 
Giriş: 07/08/2007
Şehir: Yozgat
Mesaj: 229
Excel Vers. ve Dili:
2003 Türkçe
Varsayılan

Merhaba,,

Çapraz soru diye bir şey var. Belki onunla olur. Bir araştırın çapraz soru oluşturma yöntemlerini.

Saygılarımla.
nafis Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-08-2015, 18:37   #5
Teknik27
 
Giriş: 11/02/2015
Şehir: DİYARBAKIR
Mesaj: 12
Excel Vers. ve Dili:
C# 2007 2010 2013
Varsayılan

sql sorgularda pivot mantıgınından bahsediyorsunuz sanırım arastırmanızı bu yönde yapınız..

SQL PİVOT
Teknik27 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 24-08-2015, 01:54   #6
Trilenium
Destek Ekibi
 
Trilenium kullanıcısının avatarı
 
Giriş: 16/09/2008
Şehir: İstanbul
Mesaj: 520
Excel Vers. ve Dili:
2007
Varsayılan

Sayin merakli , sql sorgusu degismez hep aynidir..

Select satkod,satinalma,muhkod.....diger alan adlarini yaziniz. from tablo adi

Cep telden baglandifim icin access dosyasini inceleyedim..eger bu veriler farki farki tablolardab aliniyor ise. Inner join yontemini kulllaniniz..dikkat!! Innee joinde ortak alan adi olmalidir veya ortak bag bulunmalidir..ornegin musterikodu gibi.. kolay gelsin
__________________
Suzuki Gsxr 1300 Hayabusa Turbo Racing
Trilenium Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 13:16


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden