Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic hazır kodlar » VB DE ACCESS E RESİM YÜKLEMEK
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

Derecelendirmek Vbasic

Yazar: dracula
simdi asagida verecegim kod ile 0dan 10 a kadar derecelendirme yapacaksiniz. 0dan4e kadar kötü - - 5ten 7 ye kadar iyi - - 8den 10 a kadar iyi...
kolay gelsin !!!


Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Çevrimiçi Üyeler
halilyaman85

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 3010
Yayın Tar:06.05.2005
Yazar : volkantr
Hit :6420

Bu Yazarın Yazıları Sadece bu yazarın  göster
Bu Yazıyı Tavsiye Et

?-----------Declarations ----------------------------

Dim cn As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim DataFile As Integer, Fl As Long, Chunks As Integer
Dim Fragment As Integer, Chunk() As Byte, i As Integer, FileName As String
Const ChunkSize As Integer = 16384
Const conChunkSize = 100



?------------Vb de access e resim ekleme hikayesi ----------------------

?formunuza bir adet command button adını (cmdSave) olarak belirleyin.
?strFileNm adlı değişkenede resim dosyanız neredeyse onu atayın gerisini fonsiyona 've programa bırakın
?bağlantı sürekli açık olduğundan her tıkladığınızda ekleme gerçekleşecektir.
Private Sub cmdSave_Click()
rs.AddNew

SavePicture

rs.Update

End Sub
Private Sub SavePicture()

Dim strFileNm As String
DataFile = 1
Open strFileNm For Binary Access Read As DataFile
Fl = LOF(DataFile) ' Length of data In file
If Fl = 0 Then Close DataFile: Exit Sub
Chunks = Fl ChunkSize
Fragment = Fl Mod ChunkSize
ReDim Chunk(Fragment)
Get DataFile, , Chunk()
rs!logo.AppendChunk Chunk()
ReDim Chunk(ChunkSize)
For i = 1 To Chunks
Get DataFile, , Chunk()
rs!logo.AppendChunk Chunk()
Next i
Close DataFile
End Sub




Yorumlar, eklemeler ve düşünceler
        bende böle bi?eyin nas?l yap?laca??n? merak ediyodum saolas?n..


   barispekcan, 24.11.2005 21:51
   çal???yor de?il mi bu bende varda birtane bu kadar k?sa de?il umar?m i?e yarar so?ol

   odikmen, 28.12.2007 21:58
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin