Skip to main content

AccessTr.neT


vb ile oto kira yardımcı olursanız sevinirim

vb ile oto kira yardımcı olursanız sevinirim

Çözüldü #7
peki teşekkürler.
Cevapla
Çözüldü #8
Kodları kendinize göre değiştirirsiniz.Kaydet ve sil kodları..

Imports System.Data.OleDb
Imports System.Data



Kaydet butonu


Dim vtabani As New OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=C:/VeTC.mdb")
Dim baglan As New OleDbCommand
vtabani.Open()
baglan.Connection = vtabani
baglan.CommandType = CommandType.Text
baglan.CommandText = "insert into HASTA1(Hastano,Hastasahibi,Cep,Ev,Hastaadı,Petkimlik,Dogumtarihi,Cinsiyet,Nevi,Safkan,Kull​​anilanmama)values('" & TextBox1.Text & "','" & TextBox18.Text & "','" & TextBox17.Text & "', '" & TextBox16.Text & "','" & TextBox15.Text & "','" & TextBox14.Text & "','" & TextBox13.Text & "', '" & ComboBox16.Text & "','" & ComboBox15.Text & "','" & ComboBox14.Text & "','" & ComboBox13.Text & "')"
baglan.ExecuteNonQuery()
baglan.Dispose()

Dim getir As New OleDb.OleDbDataAdapter("select Hastano,Hastasahibi,Cep,Ev,Hastaadı,Petkimlik,Dogumtarihi,Cinsiyet,Nevi,Safkan,Kullanilanm​​ama from HASTA1", vtabani)
Dim goster As New DataSet
getir.Fill(goster, "a")
DataGrid1.DataSource = goster.Tables("a")
getir.Dispose()
goster.Dispose()


sil butonu

Dim vtabani As New OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=C:/VeTC.mdb")
vtabani.Open()
Dim baglan As New OleDb.OleDbCommand
baglan.Connection = vtabani
baglan.CommandType = CommandType.Text
baglan.CommandText = "delete * from HASTA1 where Petkimlik='" & TextBox14.Text & "'"
baglan.ExecuteNonQuery()
baglan.Dispose()


Dim getir As New OleDb.OleDbDataAdapter("select Hastano,Hastasahibi,Cep,Ev,Hastaadı,Petkimlik,Dogumtarihi,Cinsiyet,Nevi,Safkan,Kullanilanm​​ama from HASTA1", vtabani)
Dim goster As New DataSet
getir.Fill(goster, "a")
DataGrid1.DataSource = goster.Tables("a")
getir.Dispose()
goster.Dispose()
Insan ancak anladığı şeyleri duyar..Angel
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task