نوشته شده توسط
titbasoft
کد کامل رو اینجا بزارید.
Private Sub btnCreate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreate.Click
If Me.TxtRoleName.Text.Trim.Length <> 0 Then
Dim cn As New SqlConnection(stConnection)
Dim cmdSearch As SqlCommand
Dim parmRoleName, parmCnt As New SqlParameter
Dim DA As SqlDataAdapter
cmdSearch = New SqlCommand("Role_Count_Add", cn)
cmdSearch.CommandType = CommandType.StoredProcedure
parmRoleName = cmdSearch.Parameters.Add("RoleName", SqlDbType.NVarChar, 50)
parmRoleName.Value = Me.TxtRoleName.Text.Trim
DA = New SqlDataAdapter(cmdSearch)
cn.Open()
DA.Fill(Me.Ds1.Role)
Dim cnt As Int16 = Me.Ds1.Role.Rows.Count
cn.Close()
Me.Ds1.Clear()
If cnt = 0 Then
Me.RoleDA.Connection.ConnectionString = stConnection
Me.RoleDA.Fill(Me.Ds1.Role)
Dim DR As DataRow
DR = Me.Ds1.Role.NewRow
DR.Item(1) = Me.TxtRoleName.Text.Trim
Me.Ds1.Role.Rows.Add(DR)
Me.RoleDA.Update(Me.Ds1.Role)
Me.TxtRoleName.Text = ""
Me.Ds1.Clear()
Me.Ds1.Dispose()
Else
MsgBox(" Role Name Exist,Please Enter another name", MsgBoxStyle.Critical, "Error")
Me.Ds1.Clear()
Me.Ds1.Dispose()
Exit Sub
End If
Else
MsgBox("Please Enter Role Name", MsgBoxStyle.Critical, "Error")
End If
End Sub
DS1: دیتاستی که خود VB می سازد و Insert , Update , ... برای آن تعریف شده
RoleDA: دیتا آداپتری که به DS1 متصل است
البته ترنزکشن ها را حذف کردم
قسمت اول یعنی select درست کار می کنه ولی قسمتی که باید insert کنه مشکل داره
پاسخ با نقل قول
