Update - Where / MS Access Dosyasını Güncellemek Visual Basic

 Dim myConn As New OleDbConnection

        Dim myCmd As New OleDbCommand

        myConn = New OleDbConnection("Provider=Microsoft.ace.OLEDB.12.0;Data Source= 'Access Veritabanının Adresi'")


        myConn.Open()


        myCmd = myConn.CreateCommand

        myCmd.CommandText = "Update Tabloadı set   alan1 = '" & Text1.Text & "', alan2 = '" & Text2.Text & "', 

        alan3 = '" & Text3.Text & "', alan4 = '" & Text4.Text & "', 

        alan5 = '" & Text5.Text & "', alan6 = '" & Text6.Text & "' where indeks = '23' "


Şayet indeks değişken ise

  myCmd.CommandText = "Update Tabloadı set   alan1 = '" & Text1.Text & "', alan2 = '" & Text2.Text & "', 

        alan3 = '" & Text3.Text & "', alan4 = '" & Text4.Text & "', 

        alan5 = '" & Text5.Text & "', alan6 = '" & Text6.Text & "' where indeks = ' " & Text1.Text & ' "



        myCmd.ExecuteNonQueryAsync()

        myConn.Close()

        MsgBox("Güncellendi.")


Not: 'Not: Sorgu stringi içinde text yazmak istiyorsan ' ' tırnakları içine alacaksın, içindekini olduğu gibi yazar

        ' texbox'taki bir değeri kullanmak için örnek '" & TextBox2.Text & "'

Yorumlar

Bu blogdaki popüler yayınlar

AUTOLISP DOSYALARININ KALICI KULLANIMI

AUTOLISP PROGRAMLARINI ÇALIŞTIRMAK

MS Access Veritabanı Tablosuna Visual Basic ile Veri Eklemek