بررسی کد ثبت اطلاعات

[شهابسلطانی]

سلام
لطفا کد زیر رو چک کنید و مشکلم رو بفرمایید ضمنا:
1-اتصال با بانک اطلاعاتی برقراره
2-سیستم هیچ اروری نمیگیره
با وجود این ولی اطلاعات فرم به بانک اطلاعاتی انتقال پیدا نمیکنه


Imports
System.Data.SqlClient
Public
Class Form1
Dim my_cn As New SqlConnection(" server=(local);database=student;Integrated Security=True")
Dim sh_s As SqlCommand
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
TextBox1.Text = my_cn.Database
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
my_cn.Open()
If RadioButton1.Checked Then
sh_s =
New SqlCommand("insert into person(code_person,name,family,bed) values('" & Val(TextBox2.Text.Trim()) & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & Val(TextBox5.Text.Trim()) & "','", my_cn)
sh_s.Connection = my_cn
sh_s.ExecuteNonQuery()
ElseIf RadioButton2.Checked Then

sh_s =

New SqlCommand("insert into person(code_person,name,family,best) values('" & Val(TextBox2.Text.Trim()) & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & Val(TextBox5.Text.Trim()) & "','", my_cn)

sh_s.Connection = my_cn
sh_s.ExecuteNonQuery()
End If
End Sub

[Mani_rf]

اگه کانکشنت رو بعد از این که کارت تموم میشه ببندی احتمالا مشکلت حل میشه.

[شهابسلطانی]

سلام
بفرمایید این سورس خدمت شما یه نگاهی بهش بندازی
ممنونم

[Naghibi]

من نتونستم فایل ضمیمه رو باز کنم
یعنی هیچ خطایی هم نشون نمیده؟

[شهابسلطانی]

سلام
نه هیچ خطایی هم نشون نمیده
دیوونه شدم

[r. salehi]

سلام
از این روش کد استفاده کنید که بسیار ساده تر و گویا تره


Public Class Form1
Dim PersonTap As New studentDataSetTableAdapters.personTableAdapter

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

If RadioButton1.Checked Then
PersonTap.Insert(TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, 0)
ElseIf RadioButton2.Checked Then
PersonTap.Insert(TextBox2.Text, TextBox3.Text, TextBox4.Text, 0, TextBox5.Text)
End If

End Sub

End Class


من خودم تست کردم و جواب گرفتم
در ضمن اون کوئری دومی که در دیتا ست درست کردید اضافه است. به عبارتی کافیه یک دیتا ست درست کنید و جدول Student را از Server Explorer بگیرید و بندازید داخلش و تمام.
اگر با مشکلی مواجه شدید خبر بدید.
موفق باشید