Vb.net access veritabanı işlemleri kodları.

[0165]

Arkadaşlar vb.net de access veritabanı kullanmak istiyorum bir çok makale bir çok ders yazı aklınıza ne gelirse baktım ama hiç bir şekilde yapamadım bende bir mallık var bu sıralarda sizden isteğim bana access veri tabanına bağlantı + veri ekleme + veri silme + veri okuma ve benzeri kodları verir misiniz.

Bir de bu sıralar Sanal Oyun Bilgisayarı programı yazıyorum akıl hesabı ile tek başıma yapmam 1.5 yıl sürecek çünkü aşırı derecede güzel olacak tam bir oyun bilgisayarı olacak bunu neden söyledim çünkü eyer bana yardım edecek arkadaşlar olursa memnun olurum görsellik veya kodlama fark etmez bana benim en çok istediğim görsellik.

Teşekkür ederim.

 

[Vatansever]

Arkadaşlar vb.net de access veritabanı kullanmak istiyorum bir çok makale bir çok ders yazı aklınıza ne gelirse baktım ama hiç bir şekilde yapamadım bende bir mallık var bu sıralarda sizden isteğim bana access veri tabanına bağlantı + veri ekleme + veri silme + veri okuma ve benzeri kodları verir misiniz.

Bir de bu sıralar Sanal Oyun Bilgisayarı programı yazıyorum akıl hesabı ile tek başıma yapmam 1.5 yıl sürecek çünkü aşırı derecede güzel olacak tam bir oyun bilgisayarı olacak bunu neden söyledim çünkü eyer bana yardım edecek arkadaşlar olursa memnun olurum görsellik veya kodlama fark etmez bana benim en çok istediğim görsellik.

Teşekkür ederim.

Form1'in altına

    Public sanaltablo As DataView
    Public cn As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & Application.StartupPath & "\data\data.mdb")
    Public ds As New DataSet

Formload

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        resetle()
        Me.DataGridView1.DataSource = sanaltablo
End Sub

Fonksiyon accessten bilgileri çekme

Sub resetle()
        Dim adp As New OleDbDataAdapter
        Dim cmd As OleDbCommand
        If (cn.State = ConnectionState.Closed) Then cn.Open()
        ds.Clear()
        sanaltablo = Nothing
        cmd = New OleDbCommand("Select * from liste", cn)
        adp.SelectCommand = cmd
        adp.Fill(ds, "liste")
        Dim Sütun1(0) As DataColumn
        Sütun1(0) = ds.Tables("liste").Columns("id")
        ds.Tables("liste").PrimaryKey = Sütun1
        adp.Dispose()
        cmd.Dispose()
        cn.Close()
        sanaltablo = ds.Tables("liste").DefaultView
        sanaltablo.AllowNew = True
        sanaltablo.AllowDelete = True
        sanaltablo.AllowEdit = True
        sanaltablo.Sort = "adsl ASC"
    End Sub

Bilgi silme

            Dim cmdDelete As New OleDbCommand
            If (cn.State = ConnectionState.Closed) Then cn.Open()
            cmdDelete.CommandText = "DELETE FROM liste WHERE id = " & Me.DataGridView1.Rows(satır).Cells(0).Value & ";"
            cmdDelete.CommandType = CommandType.Text
            cmdDelete.Connection = cn
            cmdDelete.ExecuteNonQuery()
            cn.Close()
            resetle()
            ' MessageBox.Show("Kayıt Başarıyla Silindi.")
            cmdDelete.Dispose()

Bilgi girme (alttaki kod başka projemden alınmadır sütun adları falan farklıdır bu kod en iyisi)

                        Dim isim = New SqlParameter, eposta = New SqlParameter, bilgi = New SqlParameter, grubu = New SqlParameter
                isim.DbType = DbType.String
                eposta.DbType = DbType.String
                bilgi.DbType = DbType.String
                grubu.DbType = DbType.String

                Dim komut1 As New OleDb.OleDbCommand()
                If (cn.State = ConnectionState.Closed) Then cn.Open()
                komut1.Connection = cn
                komut1.CommandText = "INSERT INTO Kisiler(isim, eposta, bilgi, grubu) VALUES (@isim, @eposta, [MENTION=85892]bilgi[/MENTION], @grubu)"
                komut1.Parameters.AddWithValue("@isim", xmlTablo.Rows(x).Item(1).ToString)
                komut1.Parameters.AddWithValue("@eposta", xmlTablo.Rows(x).Item(2).ToString)
                komut1.Parameters.AddWithValue( [MENTION=85892]bilgi[/MENTION]", xmlTablo.Rows(x).Item(3).ToString)
                komut1.Parameters.AddWithValue("@grubu", xmlTablo.Rows(x).Item(4).ToString)
                komut1.ExecuteNonQuery()
                komut1.Dispose()
                cn.Close()
        resetle()

Varolan bilgiyi değiştirme

        If (cn.State = ConnectionState.Closed) Then cn.Open()
        Dim komut1 As OleDb.OleDbCommand = New OleDb.OleDbCommand("UPDATE Liste SET adsl=@adsl, ip=@ip, pwisim=@pwisim, pwpass=@pwpass, bilgi [MENTION=85892]bilgi[/MENTION] WHERE id=@id", cn)
        komut1.Parameters.AddWithValue("@adsl", Me.TextBox1.Text).ToString()
        komut1.Parameters.AddWithValue("@ip", Me.TextBox2.Text).ToString()
        komut1.Parameters.AddWithValue("@pwisim", Me.TextBox3.Text).ToString()
        komut1.Parameters.AddWithValue("@pwpass", Me.TextBox4.Text).ToString()
        komut1.Parameters.AddWithValue( [MENTION=85892]bilgi[/MENTION]", Me.TextBox5.Text).ToString()
        komut1.Parameters.AddWithValue("@id", idnumarası)
        komut1.ExecuteNonQuery()
        komut1.Dispose()
        cn.Close()
        resetle()

 

[Vatansever]

Ayrıca alttaki adrese bakabilirsin
http://www.setha.info/ict-vb2008/43-ict-vb2008-0011.html

 

[0165]

Teşekkür ederim.

 

[annttiigs]

[MENTION=20751]Vatansever[/MENTION] daha önce söylediğim sözü ispatını da verdiğin için geri alıyorum. Paylaşımın için ayrıten teşekkürler!

 

[0165]

Tamamdır sorunu hallettim çok sagolun.