Listbox ve Data Aktarımı

[VeriSign]

Merhabalar,

Sorunumu yazmadan önce Forumda Emegi Geçen Herkese Kolay Gelsin Dileklerimi iletmek isterim..

Problemimi Ã?rnekleyerek açıklamak Gerekirse;

SQL 2000 Kullanmaktayım. Ve SQLde bulunan Databasemin adı

Veri olsun. Bu ABC Databasemde 5 tanede alanlarım var bu alanlarımın adları : X,Y,Z,W,Q . Bu alanları ben Listbox1 e getiriyorum ve Bu listboxtaki alanlardan istediklerimi Listbox2 ye seciyorum.

Ben 3 tane alan secti isem eger bu 3 alan sırasıyla Excelde A,B,C
sütunlarında A2 , B2, C2 satırlarına bilgileri yazmasını istiyorum. Eger 5 alanın 5inide secti isem 5 alanında sırasıyla A2,B2,C2..... diye devam eden sutunların satırlarına yazması gerekli. Buradaki For veya Dountil döngüm nasıl olmalı ?
Ve Birde Acaba bu secimleri ben listviewe aktarırsam Listview1 de alanlar
listview2 dede secilenler oldugunda listview2 ye 2.bir kolon açarak gelen alanların yanında bir combobox kullanıp hangi alanın hangi satırda basılması gerektigini nasıl yapabilirim ?

Teşekkürler.

 

[Levent Menteşoğlu]

Sorunuz için bir örnek dosya eklermisiniz, bu şekilde cevaplamak çok zor.

 

[VeriSign]

Peki..Ben Dosyayı Ekleyeyim..Fakat SQL icin Baglantınız olmayacak...

 

[VeriSign]

Dosya Ektedir

 

[ALPEN]

[vb:1:8114e79bad]i = 2


Do Until rst.EOF = True

' Takıldıgım Nokta Burası....Buraya yazmam gerekli sanırım Kodları
.
.
.
.

i = i + 1
rst.MoveNext
Loop
rst.Close
cnn.Close[/vb:1:8114e79bad]

Evet o bölüme yazmanız gerekiyor.

[vb:1:8114e79bad]i = 2


Do Until rst.EOF = True

' Takıldıgım Nokta Burası....Buraya yazmam gerekli sanırım Kodları
For alan = 0 To rst.FieldCount - 1
Cells(i, alan + 1) = rst.Field(alan).Value
Next alan

i = i + 1
rst.MoveNext
Loop
rst.Close
cnn.Close[/vb:1:8114e79bad]

Sizin durumda sorgudan dönecek alan sayısı parametrik olduğu için
rs.FieldCount ile sorgudan dönen alan sayısını buluyoruz.

Daha sonra sorgudan dönen alan sayısı kadar do loop'un içine bir for next koyup bitiriyoruz.

 

[VeriSign]

Cümle icin Teşekkür ederim. Cümleyi Aşagıdaki gibi düzelttigimde çalıştı...

For ALAN = 0 To rst.Fields.Count - 1
Cells(i, ALAN + 1) = rst.Fields(ALAN).Value
Next ALAN


Acaba 2.sorum icin bir cevabı varmıdır? soru = Ve Birde Acaba bu secimleri ben listviewe aktarırsam Listview1 de alanlar
listview2 dede secilenler oldugunda listview2 ye 2.bir kolon açarak gelen alanların yanında bir combobox kullanıp hangi alanın hangi satırda basılması gerektigini nasıl yapabilirim ?

 

[ALPEN]

listview2 ye 2.bir kolon açarak gelen alanların yanında bir combobox kullanıp hangi alanın hangi satırda basılması gerektigini nasıl yapabilirim ?

burayı anlamadım. Satır derken sütun mu demek istediniz?

Eğer öyle ise,

Bence listview bu durumda işi karıştırır.

Ã?nerim ikinci listbox2'nin hemen sağ tarafına, üst üste 2 buton ekleyin ( ^, v şeklinde).

Listbox2 deki sıralama işlerini bu butonlarla yapın.

 

[VeriSign]

Þöyle anlatayım.. Listviewin 1.ColumnHeadarina Alanlar Gelicek. 2.Columnheadarınada Bir Combobox yerleştirecem bu comboboxun icinde A z ye kadar bütün harfler olucak..Ben her alanın karşılıgına geldigimde X alanın karşılıgındaki comboboxa diycemki A satırında basılsın. Y alanı icin diycemki C satırında basıl..
Böyle birşey

 

[ALPEN]

X alanın karşılıgındaki comboboxa diycemki A satırında basılsın. Y alanı icin diycemki C satırında basıl..

Ben hala anlaşamadığımız kanaatindeyim.

A Satırı derken bence A sütunu demek istiyorsunuz.

 

[VeriSign]

Evet A Sutunun A1 hücresine...Basılmasını istiyorum... digerleri icinde aynı şey gecerli...hangi harf ise o harfin exceldeki secilen harfin sutununun satırına basılması işlemi...

 

[ALPEN]

Þöyle anlatayım.. Listviewin 1.ColumnHeadarina Alanlar Gelicek. 2.Columnheadarınada Bir Combobox yerleştirecem bu comboboxun icinde A z ye kadar bütün harfler olucak

yazdıkarınızdan buraya kadar yapabileceğiniz anlaşılıyor.

Buraya kadar yapılmış dosyayı eklerseniz üzerinden gideriz.

 

[VeriSign]

tamam öyle yapayım ben