خطا در هنگام اتصال بانک!!

[nefrat]

خطای
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

[mansourii]

من که سر در نیاوردم چی کار کردی!

http://barnamenevis.org/images/editor/smilie.pngImports System.Data
Imports System.Data.SqlClient
Public Class Form1
Dim MyObjectConnection As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=" & Application.StartupPath & "\database1.mdf;Integrated Security=True;User Instance=True")
Dim MyObjectCommand As New SqlCommand
Dim str As String = "insert into tbl_test"
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MyObjectConnection.Open()
MyObjectCommand = New SqlCommand(str & "(fld_name,fld_family,fld_id)values(@name,@family,@ id)", MyObjectConnection)
MyObjectCommand.Parameters.AddWithValue("@name", TextBox1.Text)
MyObjectCommand.Parameters.AddWithValue("@family", TextBox2.Text)
MyObjectCommand.Parameters.AddWithValue("@id", TextBox3.Text)
MyObjectCommand.ExecuteNonQuery()
MsgBox("Your Information Register!")
MyObjectConnection.Close()
End Sub
End Class

[mansourii]

نمونه ـــــــــــــــــــــــــ ـــــــــــــــــ

[nefrat]

خودم مشکل و فهمیدم ممنون!
من اسم جدول و اشتباه دادم توی خط


Dim cmdstr As String = "select * from pa_orj"
da = New SqlDataAdapter(cmdstr, con)
da.Fill(ds, "doctor")


در حالی که باید میشد



خودم مشکل و فهمیدم ممنون!
من اسم جدول و اشتباه دادم توی خط


Dim cmdstr As String = "select * from pa_orj"
da = New SqlDataAdapter(cmdstr, con)
da.Fill(ds, "pa_pakhsh")





و اینکه من فیلد info رو تعریف نکرده بودم توی حدول!
بازم ممنون!