Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
22/02/2018 21:34
Konu Sahibi
OgulcanErdinc
Yorumlar
0
Okunma
151
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

OgulcanErdinc

Üye
Üye
 23
1
1
22/02/2018
0
23/02/2018,04:39
merhaba arkadaşlar.
   Dim getir As OleDb.OleDbDataReader
        Dim komut As New OleDbCommand("Select * from Kisi", conn)
        Static a
dim b
        getir = komut.ExecuteReader
        dt = New DataTable
        bs = New BindingSource
        dt.Clear()
        DataGridView1.DataSource = ds

        dt.Columns.AddRange({New DataColumn("K_ad"),
                            New DataColumn("K_soy"),
                            New DataColumn("K_foto"),
                            New DataColumn("G_adi"),
                            New DataColumn("Y_adi")})
     
        Static ad, soyad, foto, yetki, gorev, izin As String
        Dim barcode As BusinessRefinery.Barcode.QRCode
        barcode = New BusinessRefinery.Barcode.QRCode
       
        While getir.Read
            Dim save = New SaveFileDialog()
            Dim bmp As New Bitmap(PictureBox1.Image)
            Dim g As Graphics = Graphics.FromImage(bmp)
            a += 1
b+=1
            dt.Rows.Add(
                    getir("K_ad"),
                    getir("K_soy"),
                 getir("K_foto"))
            bs.DataSource = dt
            BindingSource1.DataSource = bs
            DataGridView1.DataSource = bs
            bs.Position = a
            soyad = bs.Current("K_soy")
            ad = bs.Current("K_ad")
foto=bs.Current("K_foto")
PictureBox3.Image=New Bitmap(foto)

            g.DrawString(soyad, New Font("Arial", 14), Brushes.Black, 270, 150)
            g.DrawString(ad, New Font("Arial", 14), Brushes.Black, 120, 150)
            g.DrawImage(PictureBox3.Image, 15, 260, 67, 69) 
     save.InitialDirectory = "C:\WindowsApplication4\WindowsApplication4\bin\Debug"
            save.FileName = b & "*.jpg"
            bmp.Save(b & ".jpg")
 end while
Sorun düzeldi




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  X Veritabanından Ve Bir Nesnedeki Verileri Tek Kodla Y Veritabanına Yazdırma Alpellario 5 186 30/05/2018, 00:17
Son Yorum: ozanakkaya
  Radio Butonuna Göre Rapor yazdırma cturkeli 1 1.314 15/07/2014, 22:02
Son Yorum: atoz112
  form verisini yazdırma ahmetsan 2 1.091 27/09/2013, 17:57
Son Yorum: ahmetsan
  formda arama ve formdan seçili kayıtların herbirini farklı sayılarda yazdırma F.Ç 0 1.232 11/07/2013, 20:01
Son Yorum: F.Ç
  Toplu Yazdırma yorum70 0 959 07/07/2013, 22:41
Son Yorum: yorum70

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.