شهابسلطانی
دوشنبه 18 شهریور 1392, 11:44 صبح
سلام
لطفا کد زیر رو چک کنید و مشکلم رو بفرمایید ضمنا:
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
لطفا کد زیر رو چک کنید و مشکلم رو بفرمایید ضمنا:
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