insertکردن به چند جدول

[shina jun]

سلام
من میخوام اطلاعات یک فرم را ذخیره کنم که داده های ان فرم وارد چند جدول میشوند
مثلا یک فرم با textboxهای (نام-نام خانوادگی-نمرهی کتبی-نمره ی عملی-دوره ازمون)
که نام ونام خانوادگی در یک جدول دوتای بعدی در یک جدول و تکست اخر هم در یک جدول دیگر ذخیره می شود چطور باید از insert into استفاده کنم که با یک باتن همه در جدول ها ذخیره شوند؟

خیلی فوری بش نیاز دارم ممنون

[ali_ahr7]

سلام.منم يه برنامه داشتم كه دقيقا مثل مال شما بود.كه به صورت زير عمل كردم.
اطلاعات داخل جدول هاي فرعي رو داخل آرايه ريختم و كد هارو طوري تنظيم كردك تا كاربر وقتي روي دكمه ثبت هايي(دكمه ثبت در فرم اصلي) كليك ميكنه اطلاعات ذخيره شده در آرايه ها و همچنين جدول اصلي به ديتا بيس ريخته بشه.اگه خواستي بگو تا مزيتشو هم برات بگم.

[worldvomputer]

با سلام دوست عزیز لطفا کدش رو بذارید
با تشکر

[shina jun]

سلام.منم یه برنامه داشتم که دقیقا مثل مال شما بود.که به صورت زیر عمل کردم.
اطلاعات داخل جدول های فرعی رو داخل آرایه ریختم و کد هارو طوری تنظیم کردک تا کاربر وقتی روی دکمه ثبت هایی(دکمه ثبت در فرم اصلی) کلیک میکنه اطلاعات ذخیره شده در آرایه ها و همچنین جدول اصلی به دیتا بیس ریخته بشه.اگه خواستی بگو تا مزیتشو هم برات بگم.
سلام دوست خوبم!
واقعا ممنون میشم اگه کد و اطلاعاتتون رو بذارید:تشویق:

[ali_ahr7]

ابتدا بذاريد در مورد مزيتش بگم.خوبيش اينه كه اگر اطلاعات فرم اصلي وارد ديتابيس نشد،بقيه اطلاعات (اطلاعات جداول فرعي هم وارد نخواهد شد.و كد ها.لطفا نظرات خودتون رو درباره كد ها بگين:
ريختن محتويات ديتا گريلد به آرايه:


Dim arr(5) As String
Dim i As Integer = 0
Dim b As Integer = 0
Do While (i < 6)
aray(i) = DataGridView1.Rows(i).Cells(0).Value.ToString
i += 1
Loop
MsgBox("end")

[ali_ahr7]

و اينم ريختن محتويات آرايه به ديتا بيس.در مورد مطالب گفته شده توي سايت توضيح چنداني پيدا نكردم.
بنابر اين تصميم گرفتم خودم اينا رو بزارم.كد ها هر دو تست شده و جواب دادن.به هر حال اگه مشكل انتقاد،پيشنهاد يا سوالي بود در صورتي كه بتونم جواب بدم در خدمتتون خواهم بود.
راستي :INSNAME در كد پايين StoredProcedure
هست.كه فقط يه دستور ساده INSERT توش نوشته شده.



Dim a, B As String
Dim arr(1, 1) As String
Dim x, y As Integer
Dim x1, y1 As Integer
x = 0
y = 0
For x = 0 To 1
For y = 0 To 1
arr(x, y) = DataGridView1.Rows(x).Cells(y).Value.ToString
Next
Next
MsgBox("end")
For x = 0 To 1
Dim SqlCommand1 As New SqlClient.SqlCommand
Dim sqlconnection1 As New SqlClient.SqlConnection
Dim cmd As New SqlClient.SqlDataAdapter
SqlCommand1.CommandText = "insname"
sqlconnection1.ConnectionString = "Persist Security Info=False;Integrated Security=true;Initial Catalog=test;server=COMPUTER1"
SqlCommand1.Connection = sqlconnection1
cmd.SelectCommand = (SqlCommand1)
cmd.SelectCommand.CommandType = CommandType.StoredProcedure
a = arr(x, 0)
cmd.SelectCommand.Parameters.AddWithValue("@name", a)
B = arr(x, 1)
cmd.SelectCommand.Parameters.AddWithValue("@lname", B)
SqlCommand1.Connection.Open()
SqlCommand1.ExecuteNonQuery()
sqlconnection1.Close()
Next