VB Excel Rapor Kullanima Hazir

Asagida verilen örnek excel izin basvuru formu ile ilgilidir.

Örnek 1;

Ekrandan aldigi degeri Personel dosyasindan arama yapmakta ve forma deger döndürmekte

Dim A As Integer

Dim CNN As New ADODB.Connection

Dim RSPER As New ADODB.Recordset

CNN.ConnectionString = "PROVIDER=SQLOLEDB;Persist Security Info=False;DATA SOURCE=<server ip>;DATABASE=PER30;Auto Translate=False;user id=sa;password=<sifre>;trusted_connection=False"

CNN.Open

A = 0

LstPersonel.Clear

RSPER.Open "SELECT SICILNO, ADI, SOYADI FROM TBLSICIL WHERE TBLSICIL.ADI Like '%" & txtAdi & "%' AND TBLSICIL.SOYADI Like '%" & txtSoyadi & "%' AND TBLSICIL.CIKISTAR Is Null ORDER BY TBLSICIL.ADI", CNN, adOpenKeyset, adLockOptimistic

If Not RSPER.EOF = True Then

RSPER.MoveFirst

Do While Not RSPER.EOF

LstPersonel.AddItem

LstPersonel.List(A, 0) = RSPER!SICILNO

LstPersonel.AddItem

LstPersonel.List(A, 1) = RSPER!ADI

LstPersonel.AddItem

LstPersonel.List(A, 2) = RSPER!SOYADI

A = A + 1

RSPER.MoveNext

Loop

LstPersonel.ColumnCount = 3

RSPER.Close

End If

CNN.Close

Örnek 2;

Ekrandan aldigi degerden sonra view ile sheet'e dönüs yapmaktadir.

    Dim CNN As New ADODB.Connection
    CNN.ConnectionString = "PROVIDER=SQLOLEDB;Persist Security Info=False;DATA SOURCE=<server ip>;DATABASE=PER30;Auto Translate=False;user id=sa;password=<sifre>;trusted_connection=False"
    CNN.Open
    Dim RSPER As New ADODB.Recordset

    A = LstPersonel.ListIndex

    If LstPersonel.ListIndex >= 0 Then
    A = LstPersonel.Column(0)

    RSPER.Open "SELECT     SOYADI, ADI, ISYERI, SICILNO, GIRISTAR, GOREVI, BUNYE_GIRTAR, HAKEDIS, KULLANILAN, BUYILKULLANILAN FROM dbo.EST_IZINGOR WHERE SICILNO = '" & A & "'", CNN, adOpenKeyset, adLockOptimistic

    If Not RSPER.EOF = True Then

    Sheets("santiye").Select
    Cells(7, 4).Value = RSPER!ADI & " " & RSPER!SOYADI
    Cells(8, 4).Value = RSPER!SICILNO
    Cells(9, 4).Value = RSPER!GOREVI
    Cells(24, 4).Value = RSPER!BUNYE_GIRTAR
    Cells(25, 4).Value = (RSPER!HAKEDIS - RSPER!KULLANILAN) + RSPER!BUYILKULLANILAN
    Cells(26, 4).Value = RSPER!BUYILKULLANILAN
    Cells(27, 4).Value = RSPER!HAKEDIS - RSPER!KULLANILAN

    End If

    RSPER.Close
    Else
        MsgBox "Personel Seçiniz.", 64, "Uyari"
        LstPersonel.SetFocus

    End If

    CNN.Close

Serhat ÜLKER, www.eston.com

Gömleğin ilk düğmesi yanlış iliklenince diğerleri de yanlış gider.

emegine saglik kolay gelsin

Bilmediklerimi ayağımın altına alsaydım başım göğe ererdi

Yeni dosyayi ben de indirdim. sorunsuz çalisiyor.

Ancak alici, satici, diger vb. seçeneklerin yanina "hepsi" seçenegide olsa daha iyi olur gibime geliyor. Kolay gelsin.

Arkadaslar stok modülünde ki tarih arali icmal listesi de dosyaya eklenmistir. Iyi günlerde kullanmaniz dilegi ile.

valla bende calistiramadim aam bilmiyorum eskisi calisiyordu bu onarma falan diyor acaba hata bendemi tesekkür ederim

jung Yazdı:

Compile error in hidden module: sheet1 hatasi verdi

Sorun giderilmistir. Dosya güncellenmistir.

dosya kesinlikle tek kelime ile mükemmel kusursuz yani ama çok ciddi bir sorun var tarih arali icmal kisminda 10000. satirdan sonra dosyayi kullanan firmanin bilgileri var silinirse güzel olur market malzemelerinin alis fiyatlarini görmekte çok ilginçç oldu ama gerçekten dosya çok güzel keske tarih arali icmal listesinde stok koduna göre gruplama ve fifo olsa simdiden çok çok tesekkürler.

NeTSiSFoReVeR Yazdı:

Arkadaslar dosya güncellenmistir. Tekrar indirip kullanabilirsiniz.Malesef çok istedigim düzeltmeler vardi onlari zamanim yetmedigi için yapamadim. Kasa da yürüyen bakiye sorunlu idi onu giderdim. Bir kaç küçük degisiklik yaptim.

dostum!
tarih aralikli icmail listesini kontrol edermisin excel de 10891 nolu satirdan itibaren sana ait stoklar listeleniyor.

netsis bir tutkudur.Yaşamak Lazım

problemleri giderdim sorun yok simdi.

netsisi databse sql sfr olmadan baglintiyi netsis giris sfr ile yapmamiz mumkunmu

bi arkdas asagidkai gibi birsey dedi nasil yapabiliriz....

Sizdedki:::::

honal (Uzman) : Data Source=myServerAddress;Initial Catalog=myDataBase;User Id=myUsername;Password=myPassword;

bizim istedigimiz:::::::

honal (Uzman) : Data Source=myServerAddress;Initial Catalog=myDataBase;Integrated Security