Imports System.Data.OleDb
Imports System.Data
Public Class Form1
Public cnn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=F:\Kopyası SINIF REHBERLİK PROGRAMI_1\SINIF_REHBERLIK_PROG\db1.mdb")


Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs ) Handles LinkLabel1.LinkClicked

Dim cmd As New OleDbCommand("select * from cocuk where adsoyad = '" + TextBox1.Text + "'", cnn)
Dim dr As OleDbDataReader
dr = cmd.ExecuteReader()
While dr.Read
TextBox7.Text = (dr("adsoyad").ToString)
End While
Public Class Form6
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click



If ComboBox1.Text = "" Or ComboBox2.Text = "" Or ComboBox3.Text = "" Or ComboBox4.Text = "" Or ComboBox5.Text = "" Or ComboBox6.Text = "" Then
MsgBox("Lutfen Tum Alanları Doldurun")
If ComboBox1.Text = "" Then
ComboBox1.Text = "Alan Boş Bırakılmış"
End If
If ComboBox2.Text = "" Then
ComboBox2.Text = "Alan Boş Bırakılmış"
End If
If ComboBox3.Text = "" Then
ComboBox3.Text = "Alan Boş Bırakılmış"
End If
If ComboBox4.Text = "" Then
ComboBox4.Text = "Alan Boş Bırakılmış"
End If
If ComboBox5.Text = "" Then
ComboBox5.Text = "Alan Boş Bırakılmış"
End If
If ComboBox6.Text = "" Then
ComboBox6.Text = "Alan Boş Bırakılmış"
End If

Dim cmd1 As New OleDbCommand("insert into cocuk(adsoyad,sınıf,no,okul,dt,dy,babaad,babayas,b abaogrenim,babameslek,babadurum,babapara,annead,an neyas,anneogrenim,annemeslek,annedurum,annepara,ek gelir,ekmiktar,kardes,okulk,beraber,kal,ev,dairemu stakil,kira,oda,calisma,isinma,ev,dairemustakil,ki ra,oda,calisma,isinma) values (@1,@2,@3,@4,@5,@6,@1,@2,@3,@4,@5,@6,@1,@2,@3,@4,@ 5,@6,@1,@2,@3,@4,@5,@6,@1,@2,@3,@4,@5,@6,@1,@2,@3, @4,@5,@6)", Form1.cnn)
cmd1.Parameters.AddWithValue("@1", Form1.TextBox1.Text)
cmd1.Parameters.AddWithValue("@2", Form1.TextBox2.Text)
cmd1.Parameters.AddWithValue("@3", Form1.TextBox3.Text)
cmd1.Parameters.AddWithValue("@4", Form1.TextBox4.Text)
cmd1.Parameters.AddWithValue("@5", Form1.TextBox5.Text)
cmd1.Parameters.AddWithValue("@6", Form1.TextBox6.Text)
cmd1.Parameters.AddWithValue("@1", Form2.TextBox1.Text)
cmd1.Parameters.AddWithValue("@2", Form2.TextBox2.Text)
cmd1.Parameters.AddWithValue("@3", Form2.TextBox3.Text)
cmd1.Parameters.AddWithValue("@4", Form2.TextBox4.Text)
cmd1.Parameters.AddWithValue("@5", Form2.ComboBox1.Text)
cmd1.Parameters.AddWithValue("@6", Form2.TextBox5.Text)
cmd1.Parameters.AddWithValue("@1", Form3.TextBox1.Text)
cmd1.Parameters.AddWithValue("@2", Form3.TextBox2.Text)
cmd1.Parameters.AddWithValue("@3", Form3.TextBox3.Text)
cmd1.Parameters.AddWithValue("@4", Form3.TextBox4.Text)
cmd1.Parameters.AddWithValue("@5", Form3.ComboBox1.Text)
cmd1.Parameters.AddWithValue("@6", Form3.TextBox5.Text)
cmd1.Parameters.AddWithValue("@1", Form4.ComboBox1.Text)
cmd1.Parameters.AddWithValue("@2", Form4.TextBox1.Text)
cmd1.Parameters.AddWithValue("@3", Form4.TextBox2.Text)
cmd1.Parameters.AddWithValue("@4", Form4.ComboBox2.Text)
cmd1.Parameters.AddWithValue("@5", Form4.ComboBox3.Text)
cmd1.Parameters.AddWithValue("@6", Form4.ComboBox4.Text)
cmd1.Parameters.AddWithValue("@1", Form5.ComboBox1.Text)
cmd1.Parameters.AddWithValue("@2", Form5.ComboBox2.Text)
cmd1.Parameters.AddWithValue("@3", Form5.TextBox1.Text)
cmd1.Parameters.AddWithValue("@4", Form5.TextBox2.Text)
cmd1.Parameters.AddWithValue("@5", Form5.ComboBox3.Text)
cmd1.Parameters.AddWithValue("@6", Form5.TextBox3.Text)
cmd1.Parameters.AddWithValue("@1", Me.ComboBox1.Text)
cmd1.Parameters.AddWithValue("@2", Me.ComboBox2.Text)
cmd1.Parameters.AddWithValue("@3", Me.ComboBox3.Text)
cmd1.Parameters.AddWithValue("@4", Me.ComboBox4.Text)
cmd1.Parameters.AddWithValue("@5", Me.ComboBox5.Text)
cmd1.Parameters.AddWithValue("@6", Me.ComboBox6.Text)
cmd1.ExecuteNonQuery()
MsgBox("Kayıdınız Başarılı")
Form7.Show()




cmd1.ExecuteNonQuery() kodunda soz dizimi hatası veriyor...
birde

F:\Kopyası SINIF REHBERLİK PROGRAMI_1\SINIF_REHBERLIK_PROG\db1.mdb
bu yolu varmeden kaydetme imkanım var mı yani surucu yolu gostermeden ...
cok acil bir durum.
şimdiden teşekkur ederim....



__________________