Konu Araçları | Konu Seçenekleri | Gösterim Stili
azul20
Tarih
08/04/2011 19:02
Konu Sahibi
azul20
Yorumlar
14
Okunma
12139
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
sherlockholmes

sherlockholmes

Üye
 Belirtilmemiş
 2
 15
 21/01/2015
0
 
 
 -
 12/08/2015,17:34
arkadaşlar tamda ben bu konuyu araştırıyordum vb 6.0 programlama diline yeni başladım bir stok takip programı yazıyorum kendimi geliştireyim diye bu işin vb 6.0 a uyarlanmış kodları nasıldır bunu öğrenmek istiyorum anlatırsanız çok sevinirim teşekkürler



umudunatesi

umudunatesi

Üye
Uğ.... Gü....
 37
 0
 1
 22/02/2012
0
 Adana
 
 Ofis 2007
 14/12/2016,23:01
(27/03/2012 21:02)emremzrk Adlı Kullanıcıdan Alıntı: Verdiğiniz Cevap İçin Teşekkürler ayhan2122 1. Sorumun Cevabını da çözdüm Belki Arkadaşların İşine Yarayabilr. Kodları ve Dosyayı Ekte Yolluyorum
Başarılar.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Imports System.IO

Public Class Form3
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 'veritabanı yedekle
 Dim zaman As New Date 'burada zaman değişkenimizi atadık
 Dim uzanti As String 'burada ise uzantısını atadık "Kayıt.mdb" gibi
 zaman = DateTime.Today 'zaman isimli değişkenimize "today" ile bugünün tarihini verdik
 uzanti = (".mdb") 'uzanti isimli değişkenimizde ise Uzantımızı 
 Dim SaveFileDialog1 As New SaveFileDialog
 SaveFileDialog1.Title = "SaveFileDialog Öğreniyoruz" 'Açılacak olan pencerenenin başlığı
 SaveFileDialog1.DefaultExt = Path.GetFileName(zaman) & uzanti ' Kaydedeceğimiz dosyaya otomatik bi uzantı verdik.
 SaveFileDialog1.FileName = (zaman)
 SaveFileDialog1.Filter = "mdb |*.mdb"


 If SaveFileDialog1.ShowDialog() = DialogResult.OK Then

 FileCopy("Veritabani.mdb", SaveFileDialog1.FileName)

 MsgBox("Veritabanı Yedekleme İşlemi Tamamlanmıştır, Veritabanı" & SaveFileDialog1.FileName & " Klasörünün İçindedir", MsgBoxStyle.Information, "İşlem")

 Else
 MsgBox("Uyarı")
 End If

 End Sub

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 Dim uzanti As String
 've sürekli olarak kullanıcıdan dosya ismi değiştirmesini ister.
 Dim dosyadi As String
 Dim zaman As New Date
 dosyadi = ("Veritabani")
 uzanti = (".mdb")
 Dim dosya As New FileInfo("\Veritabani.mdb")
 Dim Ac As New OpenFileDialog
 'bakın Burada ac diye bir değişken atadık 
 Ac.FileName = vbNullString
 Ac.Filter = "Tüm Dosyalar (*.*) |*.*" 'Hangi Tip Dosyalar Açacağımızı soruyor
 'Ac.InitialDirectory = ("G:\EVRAK TAKİP yedek\database\") 'burada nereden açılacağı
 If Ac.ShowDialog = Windows.Forms.DialogResult.OK Then
 Select Case File.Exists((dosyadi) & (uzanti))
 Case True
 'arkadaşlar kill silme kodudur. yedeğimiz dosyaya alırken aynı dosya olduğu için hata verecektir.
 'eski veritabanını siliyoruz.
 Kill("Veritabani.mdb")
 'File.Copy(Application.StartupPath & "\Veritabani.mdb", Application.StartupPath & "\" & (dosyadi) & (uzanti))
 File.Copy(Ac.FileName, (dosyadi) & (uzanti))

 MsgBox(Path.GetFileName(Ac.FileName) & " Dosyası Başarı İle Değiştirildi", MsgBoxStyle.Information, "Uyarı")
 Case False

 ' File.Copy(Application.StartupPath & "\Veritabani.mdb", Application.StartupPath & "\" & (dosyadi) & (uzanti))
 File.Copy(Ac.FileName, (dosyadi) & (uzanti))
 MsgBox(Path.GetFileName(Ac.FileName) & " Dosyası Başarı İle Taşındı", MsgBoxStyle.Information, "Uyarı")
 Case Else
 MsgBox("İşlemi Tekrar Deneyiniz.", MsgBoxStyle.Information, Me.Text)
 End Select

 End If
 End Sub
End Class

[link=https://www.accesstr.net/resim/do.php?id=2303]WindowsApplication1.rar[/link]


Teşekkürler Üstad emeğine sağlık.



Kaptan35

Kaptan35

Üye
 Belirtilmemiş
 0
 1
 29/09/2017
0
 
 
 
 08/04/2019,20:57
Emekleriniz için ayrı ayrı teşekkürler
bu kodları Access te nasıl uygularız bir türlü yapamadım.
yedeği masaüstüne klasör içine atsın (kalasörün adı "Yedek 29.02.2019" klasörün içindekide örnek  "vtdata.mdb" olarak
geri yükleme yaptığımızdada "mdb" olarak arasın.mümkün ise.
şimdiden teşekkür ederim.




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Vısual Basic Kodlarına Giriş xNexus 2 1.326 21/10/2018, 11:51
Son Yorum: xNexus
Çözüldü Visual Basic 2008 Express Labele Nasıl Veri Çekilir xNexus 0 569 24/01/2018, 16:41
Son Yorum: xNexus
  Visual Basic 'te hesaplama işlemleri (Yeni Başlayanlar için) azul20 5 7.684 05/12/2015, 14:38
Son Yorum: senatorlord
  Visual Studio 2010 Video Türkçe Eğitim Seti steeel 5 4.342 17/03/2014, 16:56
Son Yorum: drummers
Çözüldü Visual Studio 2010 da Programlarımızın Kurulum ( Setup ) Dosyalarını Oluşturma kanka07 9 11.849 02/06/2011, 09:15
Son Yorum: alpeki99

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