(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.