123s0ran
جمعه 08 دی 1391, 12:26 عصر
سلام دوستان و اساتید محترم...
خدایش قبل این که سوالمو بپرسم جای داره از همه اساتید و کسانی که توی این انجمن بخصوص بخش vb.net فعالیت می کنن تشکر کنم و به جرات می تونم بگم این انحمن توی سطح ایران تک هستش....
خوب دوستای گلم من چند قطعه کد دارم و در موردشون چیز زیادی سر در نمیارم اگه ی توضیح و بگید کارایشون چیه ممنون میشم....
کد اول
Private cnnString As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=G:\WINDOWSAPP LICATION3\WINDOWSAPPLICATION3\TEST35.MDF;Integrate d Security=True;Connect Timeout=30;User Instance=True"
Private cnn As New SqlConnection(cnnString)
Private cmd As SqlCommand
Private ad As SqlDataAdapter
Private dt As DataTable
Private ds As DataSet
Dim bs As New BindingSource
کد دوم
Try
cmd = New SqlCommand("Select fname,lname,mbda,maqsad,sat,tar,sandali,mablaq from table1", cnn)
If cnn.State = ConnectionState.Closed Then cnn.Open()
Dim reader As SqlDataReader
reader = cmd.ExecuteReader
Dim value As Boolean = False
While reader.Read
If firstname = reader.GetString(0) And lastname = reader.GetString(1) And mbda = reader.GetString(2) And maqsad = reader.GetString(3) And sat = reader.GetString(4) And tar = reader.GetString(5) And sandali = reader.GetString(6) And mablaq = reader.GetString(7) Then
Return True
Exit While
End If
End While
If value Then
reader.Close()
Return True
Else
reader.Close()
Return False
End If
Catch ex As Exception
cnn.Close()
End Try
کد سوم
If txt1.Text = String.Empty Or txt2.Text = String.Empty Then
MsgBox("لطفاً نام و نام خانوادگی را بنویسید", MsgBoxStyle.Exclamation)
Exit Sub
End If
If CheckPersonExist(txt1.Text, txt2.Text, TextBox1.Text, ComboBox3.Text, ComboBox2.Text, TextBox2.Text, TextBox3.Text, ComboBox4.Text) = False Then
If cnn.State = ConnectionState.Closed Then cnn.Open()
Try
cmd = New SqlCommand("Insert Into table1 (fname,lname,mbda,maqsad,sat,tar,sandali,mablaq) Values( @fname,@lname,@mbda,@maqsad,@sat,@tar,@sandali,@ma blaq ) ", cnn)
With cmd
.Parameters.Clear()
.Parameters.AddWithValue("@fname", txt1.Text)
.Parameters.AddWithValue("@lname", txt2.Text)
.Parameters.AddWithValue("@mbda", TextBox1.Text)
.Parameters.AddWithValue("@maqsad", ComboBox3.Text)
.Parameters.AddWithValue("@sat", ComboBox2.Text)
.Parameters.AddWithValue("@tar", TextBox2.Text)
.Parameters.AddWithValue("@sandali", TextBox3.Text)
.Parameters.AddWithValue("@mablaq", ComboBox4.Text)
.ExecuteNonQuery()
End With
Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Critical, "Error Happened For Add New Record")
End Try
ReloadRecord()
Else
MsgBox("مشخصات این شخص قبلاً در دیتابیس ثبت شده است")
End If
cnn.Close()
Catch ex As Exception
cnn.Close()
خدایش قبل این که سوالمو بپرسم جای داره از همه اساتید و کسانی که توی این انجمن بخصوص بخش vb.net فعالیت می کنن تشکر کنم و به جرات می تونم بگم این انحمن توی سطح ایران تک هستش....
خوب دوستای گلم من چند قطعه کد دارم و در موردشون چیز زیادی سر در نمیارم اگه ی توضیح و بگید کارایشون چیه ممنون میشم....
کد اول
Private cnnString As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=G:\WINDOWSAPP LICATION3\WINDOWSAPPLICATION3\TEST35.MDF;Integrate d Security=True;Connect Timeout=30;User Instance=True"
Private cnn As New SqlConnection(cnnString)
Private cmd As SqlCommand
Private ad As SqlDataAdapter
Private dt As DataTable
Private ds As DataSet
Dim bs As New BindingSource
کد دوم
Try
cmd = New SqlCommand("Select fname,lname,mbda,maqsad,sat,tar,sandali,mablaq from table1", cnn)
If cnn.State = ConnectionState.Closed Then cnn.Open()
Dim reader As SqlDataReader
reader = cmd.ExecuteReader
Dim value As Boolean = False
While reader.Read
If firstname = reader.GetString(0) And lastname = reader.GetString(1) And mbda = reader.GetString(2) And maqsad = reader.GetString(3) And sat = reader.GetString(4) And tar = reader.GetString(5) And sandali = reader.GetString(6) And mablaq = reader.GetString(7) Then
Return True
Exit While
End If
End While
If value Then
reader.Close()
Return True
Else
reader.Close()
Return False
End If
Catch ex As Exception
cnn.Close()
End Try
کد سوم
If txt1.Text = String.Empty Or txt2.Text = String.Empty Then
MsgBox("لطفاً نام و نام خانوادگی را بنویسید", MsgBoxStyle.Exclamation)
Exit Sub
End If
If CheckPersonExist(txt1.Text, txt2.Text, TextBox1.Text, ComboBox3.Text, ComboBox2.Text, TextBox2.Text, TextBox3.Text, ComboBox4.Text) = False Then
If cnn.State = ConnectionState.Closed Then cnn.Open()
Try
cmd = New SqlCommand("Insert Into table1 (fname,lname,mbda,maqsad,sat,tar,sandali,mablaq) Values( @fname,@lname,@mbda,@maqsad,@sat,@tar,@sandali,@ma blaq ) ", cnn)
With cmd
.Parameters.Clear()
.Parameters.AddWithValue("@fname", txt1.Text)
.Parameters.AddWithValue("@lname", txt2.Text)
.Parameters.AddWithValue("@mbda", TextBox1.Text)
.Parameters.AddWithValue("@maqsad", ComboBox3.Text)
.Parameters.AddWithValue("@sat", ComboBox2.Text)
.Parameters.AddWithValue("@tar", TextBox2.Text)
.Parameters.AddWithValue("@sandali", TextBox3.Text)
.Parameters.AddWithValue("@mablaq", ComboBox4.Text)
.ExecuteNonQuery()
End With
Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Critical, "Error Happened For Add New Record")
End Try
ReloadRecord()
Else
MsgBox("مشخصات این شخص قبلاً در دیتابیس ثبت شده است")
End If
cnn.Close()
Catch ex As Exception
cnn.Close()