+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-6-cevaplanmis-sorulari.html)
+--- Konu Başlığı: vb ile oto kira yardımcı olursanız sevinirim (/konu-vb-ile-oto-kira-yardimci-olursaniz-sevinirim.html)
Sayfalar:
1
2
Cvp: vb ile oto kira yardımcı olursanız sevinirim - ali.0 - 05/06/2011
peki teşekkürler.
Cvp: vb ile oto kira yardımcı olursanız sevinirim - qroniq_wqha - 05/06/2011
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,Kullanilanmama)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,Kullanilanmama 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,Kullanilanmama from HASTA1", vtabani)
Dim goster As New DataSet
getir.Fill(goster, "a")
DataGrid1.DataSource = goster.Tables("a")
getir.Dispose()
goster.Dispose()