اگه سورس كدتون بزاريد شايد بتونم راهنماييتون كنم
براي اينكه بتونيد سورس كدتون بزاريد رو يكي از دكمه هايي كه طراحي كرديد دابل كليك كنيد و بعدش كل متني كه از اول صفحه تا آخرش ميبينيد بزاريد تو فايل تكست و بزاريدش اينجا تا بتونم يه نگاهي بهش بندازم
ممنون این هم سورس کد :
Imports System.Data.SqlClient
Imports System.Data.DataView
Imports System.Data.SqlClient.SqlCommand
Public Class Form1
Dim dv As DataView
Dim answer As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
SqlConnection1.Open()
SqlDataAdapter1.Fill(DataSet11, "library")
DataGridView1.DataSource = DataSet11
DataGridView1.DataMember = "library"
DataGridView1.Columns(0).HeaderText = "نام"
DataGridView1.Columns(1).HeaderText = "نام خانوادگی"
DataGridView1.Columns(2).HeaderText = " نام پدر "
DataGridView1.Columns(3).HeaderText = "سال تولد"
DataGridView1.Columns(4).HeaderText = "محل تولد"
DataGridView1.Columns(5).HeaderText = "شماره شناسنامه"
DataGridView1.Columns(6).HeaderText = "آدرس"
DataGridView1.Columns(7).HeaderText = "تلفن"
dv.Table = DataSet11.Tables("library")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cm As New SqlCommand("insert into library(name,family,father name,date,mahal tav,id,address,tel)values(@name_temp,@family_temp,@fath_temp,@date_temp,@tav_temp,@id_temp,@address_temp,@tel_temp)", SqlConnection1)
cm.Parameters.Add("@name_temp", SqlDbType.NChar).Value = "TextBox1.Text"
cm.Parameters.Add("@family_temp", SqlDbType.NChar).Value = "TextBox2.Text"
cm.Parameters.Add("@fath_temp", SqlDbType.NChar).Value = "TextBox3.Text"
cm.Parameters.Add("@date_temp", SqlDbType.Int).Value = "TextBox4.Text"
cm.Parameters.Add("@tav_temp", SqlDbType.NChar).Value = "TextBox5.Text"
cm.Parameters.Add("@id_temp", SqlDbType.Int).Value = "TextBox6.Text"
cm.Parameters.Add("@address_temp", SqlDbType.NChar).Value = "TextBox7.Text"
cm.Parameters.Add("@tel_temp", SqlDbType.Int).Value = "TextBox8.Text"
cm.ExecuteNonQuery()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox9.Visible = True
Label9.Visible = True
TextBox9.Focus()
dv.Sort = "id"
answer = dv.Find(TextBox9.Text.Trim())
If answer = -1 Then
MessageBox.Show("not found ")
Else
Button2.Enabled = True
Button3.Enabled = True
TextBox1.Text = dv(answer)("name").ToString()
TextBox1.Text = dv(answer)("family").ToString()
TextBox1.Text = dv(answer)("father name").ToString()
TextBox1.Text = dv(answer)("date").ToString()
TextBox1.Text = dv(answer)("mahal tav").ToString()
TextBox1.Text = dv(answer)("id").ToString()
TextBox1.Text = dv(answer)("address").ToString()
TextBox1.Text = dv(answer)("tel").ToString()
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim cm2 As New SqlCommand()
cm2.CommandText = "delete from library where id='" & TextBox9.Text.Trim() & "'"
cm2.Connection = SqlConnection1
cm2.ExecuteNonQuery()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End Sub
End Class
در غیر اینصورت کلیه پست ها حذف می گردد.
