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 makaleleri » Access ten Mysql'e veri Aktarimi
Ü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

VB Script ile Registry Kullanımı

Yazar: maNga

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!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 10495
Yayın Tar:08.07.2008
Yazar : yusufd54
Hit :2196

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

Accessten Mysql'e Bilgi Aktarimi

'Önce MySql.Data.dll projemie ekliyoruz ve daha sonra asagidaki Uzaylari projenin en üst kismina Ekliyoruz

Imports MySql.Data.MySqlClient
Imports MySql
Imports adodb
Imports System.Data.OleDb
Imports System.Data
Imports System.Collections


Public Class Form1
' Simdi Degiskenlere Geldik alltaki 2 degisken mysql baglanti icin
Public mybaglanti As New MySqlConnection
Public myveri As New MySqlCommand
'burdaki 2 degisken access baglanti icin
Public baglanti As New OleDbConnection
Public veri As New OleDbCommand
'm-a degiskenleride databaselerin yollarini gostermek icin kullanacagiz
Dim m, a As String


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'burada databaselerin yollarini gosteriyoruz
m = "server=localhost;database=atesen;uid=root;pwd=;"
a = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|datadirectory|\data.mdb"
baglanti.ConnectionString = a
mybaglanti.ConnectionString = m
End Sub


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'buttonun click olayinda once accessle mysql databaselerini aciyoruz
baglanti.Open()
mybaglanti.Open()
'burada accese gonderecegimiz sql cumlesini yaziyoruz
Dim sql As String = "select*from sehir"
veri.CommandText = sql
'veritabani Baglantisini Kuruyoruz
veri.Connection = baglanti
Dim okunan As OleDbDataReader
okunan = veri.ExecuteReader
While okunan.Read
'eger okunan varsa Mysqlin icindeki sehir tablosuna Kayit yapar
Dim s As String = "insert into sehir(ad,soyad) values ('" & okunan("ad") & "','" & okunan("soyad") & "')"
myveri.CommandText = s
myveri.Connection = mybaglanti
myveri.ExecuteNonQuery()
End While
baglanti.Close()
mybaglanti.Close()
End Sub

Kodlar Hiç Bir Yerden Alinti Degildir Kodlar tamamen şahsima Aittir




Yorumlar, eklemeler ve düşünceler
        Kod parçasını denemek mümkün olamadı. Çünkü ilgili eri tabanı dosyaları yok

   mkkaynak, 18.08.2008 08:20
© 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