Üye ol
Şifremi unuttum | Onay kodum gelmedi
Yardım

Visual Basic de Veri Tabanına veri Kaydetmek
esnamarak
Koordinatör
esnamarak


esnamarak şu anda çevrimdışı
Gönderilme Tarihi: 21 Şubat 2010 00:36:26

Aşağıda ekleme olayını basamak basamak açıkladım.Uygularsanız, arkadaşlar sizde visual basic de veri tabanına çok kolay veri tabanına veri kaydı yapabilirsiniz.
YAPIM:
Ornek.png
Öncelikle Acces de veri tabınımızı oluşturalım resimdeki gibi oluşturalım.

Formunuza İki tane label ,iki tane textbox ve bir tane button ekleyin.
Label 1 in text ine 1.giriş
label 2 nin text ine 2.giriş diyelim.

Şimdik Button 1 in click olayına aşağıdaki kodları yazalım.Nerde neleri yaptığıma iyi dikkat ediniz!
Imports System.Data.OleDb 'Burda oledb yi systemden çağırdık
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'Nesneler oluşturuluyor
Dim oTbl As New DataTable
Dim Baglantim As New OleDbConnection
'Baglanti olusturulup aciliyor
Baglantim = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\ornek.mdb")
Baglantim.Open()
'Adaptorler olusturuluyor
Dim YeniNesne As OleDbDataAdapter = New OleDbDataAdapter
'Sorgu belirleniyor
Dim Kayit As String = "Select * From kayit"
'Komut belirleniyor
YeniNesne.SelectCommand = New OleDbCommand(Kayit, Baglantim)
YeniNesne.Fill(oTbl)
'Veri ekleniyor
Dim oRow As DataRow
oRow = oTbl.NewRow()
oRow.Item("kayit_1") = TextBox1.Text
oRow.Item("kayit_2") = TextBox2.Text

oTbl.Rows.Add(oRow)
'Burda veri tabanı yenileniyor
Dim oCb As New OleDbCommandBuilder
oCb.DataAdapter = YeniNesne
YeniNesne.Update(oTbl)
MsgBox("Kayıt yapıldı.")
_

play a basıp programınızı çalıştırın.Kayıt yapın.Çalışıp çalışmadını veri tabanından kontrol edin.
Bu içeriğin geçmişi:
12 Ekim 2010 19:31:34 tarihinde sendetiklat tarafından taşınmış.
Anahtar kelimeler:


scripter
Üye
scripter

Puan: 344

scripter şu anda çevrimdışı
Gönderilme Tarihi: 01 Ekim 2010 20:12:06 | # 1

Bu tip sık kullanılan kod bloklarını fonksiyon olarak (function) tanımlarsak gerektiğinde kolayca çağırabilir ve tekrar tekrar yazmakla uğraşmak zorunda kalmayız.
Sayfalar:
[1]
1.3.0
Kullanım Şartları - İletişim - Öner
29 Temmuz 2014 Salı 15:14:34