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 01-02-2012, 17:14   #1
dincay67
 
Giriş: 01/02/2012
Şehir: istanbul
Mesaj: 1
Excel Vers. ve Dili:
excel 2007
Varsayılan excel 2007 userformda sql server baglantı kodları

userformdaki listboxa sql serverdan nasıl bilgi aktarabilirim
dincay67 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 01-02-2012, 17:41   #2
zafer
Super Moderator
 
zafer kullanıcısının avatarı
 
Giriş: 08/03/2005
Mesaj: 3,501
Excel Vers. ve Dili:
OFFICE 2003 TÜRKÇE OFFICE 2010 TÜRKÇE
Varsayılan

Merhaba

Kodları inceleyiniz.
Gerekli yerleri doldurup çalıştırınız

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
 
servername=""
databasename=""
user=""
password=""
 
Set cnt = New ADODB.Connection
strConn = "PROVIDER=SQLOLEDB;"
strConn = strConn & "DATA SOURCE=" & servername & ";INITIAL CATALOG=" & databasename & ";"
strConn = strConn & "UID=" & user & ";PWD=" & password
 
cnt.Open strConn
Set rst = New ADODB.Recordset
With rst
.ActiveConnection = cnt
.Open "SELECT * FROM Tabloismi 
 
Do While Not rst.EOF
For i=0 To rst.Fields.Count
 
    ListBox1.AddItem
           ListBox1.COLUMN(i, x) = rst(i)
 
    Next  
    rst.MoveNext
   x = x + 1
 Loop
.Close
End With
 
cnt.Close
Set rst = Nothing
Set cnt = Nothing
__________________


LÜTFEN TÜRKÇEMİZE SAHİP ÇIKALIM.

MEVZU-U BAHİS VATANSA GERİSİ TEFERRUATTIR

Biz burada hep beraber, sevginin,saygının, alınterinin, mutluluğun makrosunu yazıyoruz
zafer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-08-2017, 12:36   #3
sarigozoglu
Altın Üye
 
Giriş: 26/09/2014
Şehir: Manisa
Mesaj: 49
Excel Vers. ve Dili:
2013 tr 2010 tr 2007 tr 2003 tr
Varsayılan

Merhaba,
Bu kodları userformun "INITALIZE" Bölümüne mi kopyalıyoruz ?
sarigozoglu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-08-2017, 08:34   #4
zafer
Super Moderator
 
zafer kullanıcısının avatarı
 
Giriş: 08/03/2005
Mesaj: 3,501
Excel Vers. ve Dili:
OFFICE 2003 TÜRKÇE OFFICE 2010 TÜRKÇE
Varsayılan

Merhaba

Evet, userformun "INITALIZE" Bölümüne kopyalıyoruz.Açılışta listbox'a bilgiler geliyor
__________________


LÜTFEN TÜRKÇEMİZE SAHİP ÇIKALIM.

MEVZU-U BAHİS VATANSA GERİSİ TEFERRUATTIR

Biz burada hep beraber, sevginin,saygının, alınterinin, mutluluğun makrosunu yazıyoruz
zafer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-08-2017, 15:02   #5
sarigozoglu
Altın Üye
 
Giriş: 26/09/2014
Şehir: Manisa
Mesaj: 49
Excel Vers. ve Dili:
2013 tr 2010 tr 2007 tr 2003 tr
Varsayılan

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub UserForm_Initialize()
On Error GoTo UserForm_Initialize_Err
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset

servername = "192.168.1.8"
databasename = "PERSONEL"
user = "1"
Password = "1"

strConn = "PROVIDER=SQLOLEDB;"
strConn = strConn & "DATA SOURCE=" & servername & ";INITIAL CATALOG=" & databasename & ";"
strConn = strConn & "UID=" & user & ";PWD=" & Password



     cnn.Open strConn
     Set rst = New ADODB.Recordset
With rst
.ActiveConnection = cnt
.Open "SELECT SICILNO, ADI, SOYADI FROM PERSONEL1"
 
Do While Not rst.EOF
For i = 0 To rst.Fields.Count
 
    ListBox1.AddItem
           ListBox1.Column(i, x) = rst(i)
 
    Next
    rst.MoveNext
   x = x + 1
 Loop
.Close
End With
UserForm_Initialize_Exit:
     On Error Resume Next
     rst.Close
     cnn.Close
     Set rst = Nothing
     Set cnn = Nothing
     Exit Sub
UserForm_Initialize_Err:
     MsgBox Err.Number & vbCrLf & Err.Description, vbCritical, "Error!"
     Resume UserForm_Initialize_Exit
End Sub
Hata veriyor, ekte gönderdim
Eklenmiş Resimler
Dosya Türü: jpg HATA.JPG (24.5 KB, 5 Görüntülenme)
sarigozoglu Ç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 09:42


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