vb6 raporda seçenek

[Fuat Şirin]

değerli hocalarım

konunun yerinin burası olmadığını biliyorum

ama değerli hocalarımın bu konuda bilgisi olduğunu göz önüne alarak

vb6 da datareport ekliyorum buna datainvert ile verileri proparties penceresinden bağlamasınıda yapıyorum

sıkıntım şu

tabloların hepsinin yapısı aynı
müşteri hesapları yani

istediğim
seçtiğim müşterinin tablosunun
raporunu almak
yani text e
müşteri numarasını girince

raporda o müşterinin

raporunu almak
şimdidien çok teşekkür saygılar

 

[modalı]

Sayın Fuat Şirin,

Umarım Excel den etkilenip her müşteri için ayrı tablo oluşturmamışsınızdır. Access de üç adet tablo olacak,

MüşteriBilgileri
Alacak
Borç.

Rapor alırken de müşteri no sunun belirtildiği bir SQL cümlesi kullanacaksınız.

İyi çalışmalar

 

[Fuat Şirin]

hocam tek tek sayfa açtım evet
ama şöyle bişey hangi tarihte ne kadar işlem yapılmış
ne alınmış ne verilmiş
bilmem için tek tek sayfa açtım
aynı girişle iki adodc tanıttım birinde
borç
alacak
kısmına işliyor
birindede
müşterinin kendi sayfasına işliyor

bunda bana değişik çözüm nasıl olabilir
rapor alırken sql cümlesi nasıl yapabilirim
açıklama yaparsanız
çok memnun olurum saygılar

 

[modalı]

Sayın Fuat Şirin,

Yani 1000 müşteriniz olursa 1000 tablo mu oluşturacaksınız. Hatırladığım kadarıyla bu konuyu tartışmıştık daha önceleri. Ancak tavsiyem bir an önce tabloları düzenlemeniz ve verileri sorgularla çekmeniz.

Gelelim sorununuza:

strSQL = "SELECT * FROM Table1 WHERE id=" & Combo1.Text

Combo1 in içinde müşteri id ve Adları var

Diyelim ki sorgu cümleniz bunu datareport da uygulayalım:

Option Explicit
Private Sub Command1_Click()
Dim Db As New ADODB.Connection
Dim Rs As New ADODB.Recordset

Dim strPath As String

strPath = App.Path & "\test1.mdb"
 

Db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                         "Data Source=" & strPath

Db.Open


Rs.ActiveConnection = Db

strSQL =  "SELECT * FROM Table1 WHERE id=" & Combo1.Text

Rs.Open strSQL, Db, adOpenKeyset, adLockOptimistic, adCmdTableDirect

With DataReport1.Sections("Section1").Controls
   .Item("text1").DataField = Rs("isim").Name
   .Item("text2").DataField = Rs("Adres").Name
   .Item("text3").DataField = Rs("yas").Name
End With

With DataReport1.Sections("Section2").Controls
   .Item("Label2").Caption = "İsim"
   .Item("Label3").Caption = "Adres"
   .Item("Label4").Caption = "Yaş"
End With

With DataReport1.Sections("Section4").Controls
   .Item("Label1").Caption = "Adres Defterim"
End With

Set DataReport1.DataSource = Rs

DataReport1.Show

End Sub

İyi çalışmalar

 

[Fuat Şirin]

syn modalı;

hocam şöyle satıcılar sabit
buda maximum 50 firma
onlarada tablo oluşturdum

verdiğiniz kodları
nasıl yapabilirim nereye eklemem gerek
strSQL = "SELECT * FROM Table1 WHERE id=" & Combo1.Text

mesela bu satırda mantık olarak söliyim "FROM Table1" yerine
mantık olarak sölüyorum tabi FROM " & text1.text & " gibi yapmak istiyorum bunu nasıl yaparım

yani yeni bir tablo oluşturmada problemim yok var olan tablolardan

seçileni yazdırmak istiyorum

saygılar hocam

 

[modalı]

Sayın Fuat Şirin,

Siz yine de tablo sayısını düşürün. İlerde başınız ağrıyacak demedi demeyin.

strSQL = "SELECT * FROM " & Text1.Text & " WHERE id=" & Combo1.Text

gibi olacak.

İyi çalışmalar

 

[Fuat Şirin]

saolun hocam çok teşekkür ettim