(04/02/2012, 21:39)ayhan2122 yazdı:
Dim Sql As New String("INSERT INTO data (Firmaunvani) values ('" & TextBox1.Text & "')")
Dim sql2 As New String("INSERT INTO ortak (Firmaunvani,ortakadbir, ortakadiki) values ('" & TextBox1.Text & "', '" & TextBox2.Text & "', '" & TextBox3.Text & "')")
Sql = String.Format(sql, TextBox1.Text)
Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='tablolar.mdb'")
Dim komutnesnesi As New OleDb.OleDbCommand(sql, baglanti)
Dim komutnesnesi2 As New OleDb.OleDbCommand(sql2, baglanti)
Dim sonuc As Integer
Dim sonuc2 As Integer
baglanti.Open()
sonuc = komutnesnesi.ExecuteNonQuery()
sonuc2 = komutnesnesi2.ExecuteNonQuery()
If sonuc = 1 And sonuc2 = 1 Then
MsgBox("Yandaki Girdiğiniz Veriler Veri Tabanına Kayıt Olmuştur.", MsgBoxStyle.Exclamation, "Tebrikler")
End If
Listele("SELECT * FROM data'")
baglanti.Close()
Temizle()
Çok ama çok teşekürler....
Tek eksik şu :
datagride bir isme tıklanınca hem "data" hem "ortak" tablosunun verilerini getirmek kaldı.
Silme ve düzenlemeyi ben yaptım.