esnamarak Koordinatör  | 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:

Ö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.
|