nefrat
شنبه 11 دی 1389, 13:24 عصر
خطای
child list for table1 cannot be crated!
چرا ؟ در هنگام اتصال این خطا رو میده!؟
این کل برنامه است که نوشتم!
Imports System.Data
Imports System.Data.SqlClient
Public Class form2
Dim constr As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=Data Source=.\SQLEXPRESS;AttachDbFilename=Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\IKAR US\Desktop\Hospital\Hospital\shafagh.Hospital.mdf; Integrated Security=True;Connect Timeout=30;User Instance=True"
Dim con As New SqlConnection(constr)
Dim da As SqlDataAdapter
Dim ds As New DataSet
Private Sub form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Dim con As New SqlConnection
con.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\IKAR US\Desktop\Hospital\Hospital\shafagh.Hospital.mdf; Integrated Security=True;Connect Timeout=30;User Instance=True"
con.Open()
Dim cmdstr As String = "select * from pa_orj"
da = New SqlDataAdapter(cmdstr, con)
da.Fill(ds, "doctor")
TextBox1.DataBindings.Add(New Binding("text", ds, "pa_orj.Name_bim"))
TextBox2.DataBindings.Add(New Binding("text", ds, "pa_orj.Family_bim"))
TextBox3.DataBindings.Add(New Binding("text", ds, "pa_orj.SHSH"))
TextBox4.DataBindings.Add(New Binding("text", ds, "pa_orj.Birth_ye"))
TextBox5.DataBindings.Add(New Binding("text", ds, "pa_orj.Birth_mo"))
TextBox6.DataBindings.Add(New Binding("text", ds, "pa_orj.Birth_da"))
TextBox7.DataBindings.Add(New Binding("text", ds, "pa_orj.Bime_code"))
TextBox8.DataBindings.Add(New Binding("text", ds, "pa_orj.Address_1"))
TextBox9.DataBindings.Add(New Binding("text", ds, "pa_orj.Address_2"))
TextBox10.DataBindings.Add(New Binding("text", ds, "pa_orj.Tell_bim"))
TextBox11.DataBindings.Add(New Binding("text", ds, "pa_orj.mobile_bim"))
TextBox12.DataBindings.Add(New Binding("text", ds, "pa_orj.Info"))
TextBox13.DataBindings.Add(New Binding("text", ds, "pa_orj.[Dr.bim]"))
TextBox14.DataBindings.Add(New Binding("text", ds, "pa_orj.Birth_ye"))
TextBox15.DataBindings.Add(New Binding("text", ds, "pa_orj.Birth_mo"))
TextBox16.DataBindings.Add(New Binding("text", ds, "pa_orj.Birth_da"))
TextBox17.DataBindings.Add(New Binding("text", ds, "pa_orj.SHSH"))
TextBox18.DataBindings.Add(New Binding("text", ds, "pa_orj.Bime_code"))
CheckBox1.DataBindings.Add(New Binding("checked", ds, "pa_orj.SEX"))
Label31.Text = "اتصال به بانک اطلاعاتی بر قرار است"
con.Close()
Catch ex As Exception
Label31.Text = ex.Message
Finally
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
Dim con As New SqlConnection
con.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\IKAR US\Desktop\Hospital\Hospital\shafagh.Hospital.mdf; Integrated Security=True;Connect Timeout=30;User Instance=True;Connect Timeout=30;User Instance=True"
con.Open()
Dim cmd As New SqlCommand("insert into doctor(name,family,sex,course,department,shsh,cod_ m,birth_d,birth_m,birth_y,onvan_es,saz_bim,estekhd am_d,married,cod_bim,cod_p,adress1,tel1,adress2,sa beghe_d,hoghogh)Values(@name,@family,@sex,@course, @department,@shsh,@cod_m,@birth_d,@birth_m,@birth_ y,@onvan_es,@saz_bim,@estekhdam_d,@married,@cod_bi m,@cod_p,@adress1,@tel1,@adress2,@sabeghe_d,@hogho gh)", con)
cmd.Parameters.Add("@Name_bim", SqlDbType.NChar).Value = TextBox1.Text
cmd.Parameters.Add("@Family_bim", SqlDbType.NChar).Value = TextBox2.Text
cmd.Parameters.Add("@SHSH", SqlDbType.NChar).Value = TextBox3.Text
cmd.Parameters.Add("@Birth_ye", SqlDbType.NChar).Value = TextBox4.Text
cmd.Parameters.Add("@Birth_mo", SqlDbType.NChar).Value = TextBox5.Text
cmd.Parameters.Add("@Birth_da", SqlDbType.NVarChar).Value = TextBox6.Text
cmd.Parameters.Add("@Bime_code", SqlDbType.NVarChar).Value = TextBox7.Text
cmd.Parameters.Add("@Address_1", SqlDbType.NChar).Value = TextBox8.Text
cmd.Parameters.Add("@Address_2", SqlDbType.NChar).Value = TextBox9.Text
cmd.Parameters.Add("@Tell_bim", SqlDbType.NChar).Value = TextBox10.Text
cmd.Parameters.Add("@mobile_bim", SqlDbType.NChar).Value = TextBox11.Text
cmd.Parameters.Add("@Info", SqlDbType.NChar).Value = TextBox12.Text
cmd.Parameters.Add("@[Dr.bim]", SqlDbType.NVarChar).Value = TextBox13.Text
cmd.Parameters.Add("@Birth_ye", SqlDbType.NChar).Value = TextBox14.Text
cmd.Parameters.Add("@cBirth_mo", SqlDbType.NChar).Value = TextBox15.Text
cmd.Parameters.Add("@Birth_da", SqlDbType.NChar).Value = TextBox16.Text
cmd.Parameters.Add("@SHSH", SqlDbType.Char).Value = TextBox17.Text
cmd.Parameters.Add("@Bime_code", SqlDbType.NChar).Value = TextBox18.Text
cmd.Parameters.Add("@SEX", SqlDbType.NChar).Value = CheckBox1.Checked
cmd.Parameters.Add("@Bime_bim", SqlDbType.NChar).Value = ComboBox1.Text
cmd.Parameters.Add("@SAZ_bi", SqlDbType.Char).Value = ComboBox2.Text
cmd.ExecuteNonQuery()
ds.Clear()
da.Fill(ds, "pa_orj")
da.Update(ds, "pa_orj")
Label31.Text = "اتصال به بانک اطلاعاتی بر قرار است"
con.Close()
Catch ex As Exception
Label31.Text = ex.Message
Finally
End Try
End Sub
End Class
child list for table1 cannot be crated!
چرا ؟ در هنگام اتصال این خطا رو میده!؟
این کل برنامه است که نوشتم!
Imports System.Data
Imports System.Data.SqlClient
Public Class form2
Dim constr As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=Data Source=.\SQLEXPRESS;AttachDbFilename=Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\IKAR US\Desktop\Hospital\Hospital\shafagh.Hospital.mdf; Integrated Security=True;Connect Timeout=30;User Instance=True"
Dim con As New SqlConnection(constr)
Dim da As SqlDataAdapter
Dim ds As New DataSet
Private Sub form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Dim con As New SqlConnection
con.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\IKAR US\Desktop\Hospital\Hospital\shafagh.Hospital.mdf; Integrated Security=True;Connect Timeout=30;User Instance=True"
con.Open()
Dim cmdstr As String = "select * from pa_orj"
da = New SqlDataAdapter(cmdstr, con)
da.Fill(ds, "doctor")
TextBox1.DataBindings.Add(New Binding("text", ds, "pa_orj.Name_bim"))
TextBox2.DataBindings.Add(New Binding("text", ds, "pa_orj.Family_bim"))
TextBox3.DataBindings.Add(New Binding("text", ds, "pa_orj.SHSH"))
TextBox4.DataBindings.Add(New Binding("text", ds, "pa_orj.Birth_ye"))
TextBox5.DataBindings.Add(New Binding("text", ds, "pa_orj.Birth_mo"))
TextBox6.DataBindings.Add(New Binding("text", ds, "pa_orj.Birth_da"))
TextBox7.DataBindings.Add(New Binding("text", ds, "pa_orj.Bime_code"))
TextBox8.DataBindings.Add(New Binding("text", ds, "pa_orj.Address_1"))
TextBox9.DataBindings.Add(New Binding("text", ds, "pa_orj.Address_2"))
TextBox10.DataBindings.Add(New Binding("text", ds, "pa_orj.Tell_bim"))
TextBox11.DataBindings.Add(New Binding("text", ds, "pa_orj.mobile_bim"))
TextBox12.DataBindings.Add(New Binding("text", ds, "pa_orj.Info"))
TextBox13.DataBindings.Add(New Binding("text", ds, "pa_orj.[Dr.bim]"))
TextBox14.DataBindings.Add(New Binding("text", ds, "pa_orj.Birth_ye"))
TextBox15.DataBindings.Add(New Binding("text", ds, "pa_orj.Birth_mo"))
TextBox16.DataBindings.Add(New Binding("text", ds, "pa_orj.Birth_da"))
TextBox17.DataBindings.Add(New Binding("text", ds, "pa_orj.SHSH"))
TextBox18.DataBindings.Add(New Binding("text", ds, "pa_orj.Bime_code"))
CheckBox1.DataBindings.Add(New Binding("checked", ds, "pa_orj.SEX"))
Label31.Text = "اتصال به بانک اطلاعاتی بر قرار است"
con.Close()
Catch ex As Exception
Label31.Text = ex.Message
Finally
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
Dim con As New SqlConnection
con.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\IKAR US\Desktop\Hospital\Hospital\shafagh.Hospital.mdf; Integrated Security=True;Connect Timeout=30;User Instance=True;Connect Timeout=30;User Instance=True"
con.Open()
Dim cmd As New SqlCommand("insert into doctor(name,family,sex,course,department,shsh,cod_ m,birth_d,birth_m,birth_y,onvan_es,saz_bim,estekhd am_d,married,cod_bim,cod_p,adress1,tel1,adress2,sa beghe_d,hoghogh)Values(@name,@family,@sex,@course, @department,@shsh,@cod_m,@birth_d,@birth_m,@birth_ y,@onvan_es,@saz_bim,@estekhdam_d,@married,@cod_bi m,@cod_p,@adress1,@tel1,@adress2,@sabeghe_d,@hogho gh)", con)
cmd.Parameters.Add("@Name_bim", SqlDbType.NChar).Value = TextBox1.Text
cmd.Parameters.Add("@Family_bim", SqlDbType.NChar).Value = TextBox2.Text
cmd.Parameters.Add("@SHSH", SqlDbType.NChar).Value = TextBox3.Text
cmd.Parameters.Add("@Birth_ye", SqlDbType.NChar).Value = TextBox4.Text
cmd.Parameters.Add("@Birth_mo", SqlDbType.NChar).Value = TextBox5.Text
cmd.Parameters.Add("@Birth_da", SqlDbType.NVarChar).Value = TextBox6.Text
cmd.Parameters.Add("@Bime_code", SqlDbType.NVarChar).Value = TextBox7.Text
cmd.Parameters.Add("@Address_1", SqlDbType.NChar).Value = TextBox8.Text
cmd.Parameters.Add("@Address_2", SqlDbType.NChar).Value = TextBox9.Text
cmd.Parameters.Add("@Tell_bim", SqlDbType.NChar).Value = TextBox10.Text
cmd.Parameters.Add("@mobile_bim", SqlDbType.NChar).Value = TextBox11.Text
cmd.Parameters.Add("@Info", SqlDbType.NChar).Value = TextBox12.Text
cmd.Parameters.Add("@[Dr.bim]", SqlDbType.NVarChar).Value = TextBox13.Text
cmd.Parameters.Add("@Birth_ye", SqlDbType.NChar).Value = TextBox14.Text
cmd.Parameters.Add("@cBirth_mo", SqlDbType.NChar).Value = TextBox15.Text
cmd.Parameters.Add("@Birth_da", SqlDbType.NChar).Value = TextBox16.Text
cmd.Parameters.Add("@SHSH", SqlDbType.Char).Value = TextBox17.Text
cmd.Parameters.Add("@Bime_code", SqlDbType.NChar).Value = TextBox18.Text
cmd.Parameters.Add("@SEX", SqlDbType.NChar).Value = CheckBox1.Checked
cmd.Parameters.Add("@Bime_bim", SqlDbType.NChar).Value = ComboBox1.Text
cmd.Parameters.Add("@SAZ_bi", SqlDbType.Char).Value = ComboBox2.Text
cmd.ExecuteNonQuery()
ds.Clear()
da.Fill(ds, "pa_orj")
da.Update(ds, "pa_orj")
Label31.Text = "اتصال به بانک اطلاعاتی بر قرار است"
con.Close()
Catch ex As Exception
Label31.Text = ex.Message
Finally
End Try
End Sub
End Class