(04/02/2012, 21:03)ayhan2122 yazdı: sql cümlenizi yeniden düzenleyiniz. örn:
Dim Sql As New String("INSERT INTO data (Firmaunvani, ortak2) values ('{0}', '{1}')")
ortak alanında hata alıyorum..
Textbox1 verisini yani "Firmaunvani" "data" tablosuna
Textbox2 verisi yani "ortakadbir" "ortak" tablosuna kaydedilmeli
Eğer sıkıntı olmıyacaksa, örnek dosyam üzerinde yapabilirmisiniz
Teşekkürler
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()
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ı.