Bonjour les experts, le I ont WinForm qui a 3 commandes primaires ; lbTeamLeader de txtTeamName (boîte des textes) (choisir la boîte de liste choisie) et lbTeamMembers (multi-choisir la boîte de liste). L'utilisateur écrira un nom d'équipe dans le txtTeamName, choisira une équipe Leadr à partir du lbTeamLeader et ajoutera des membres dans des travaux de code de lbTeamMembers.
This dans la fenêtre de question : USE IP_MASTER GO
DECLARE @TeamName nvarchar (50), @LeaderCode nvarchar (10), @Leader nvarchar (50), @TeamName nvarchar de
Set de @MemberCode (50) = « @LeaderCode de Br/>Set de TEAM_PARKER'< = « @Leader de Br/>Set de PAR01'< = « PETER PARKER, @MemberCode de Br/>Set de PT'< = « BUC01 - MÂLE d'AL, Br/>
INSERT de PTA'< DANS le VALUES (@TeamName, @LeaderCode, SUBSTRING (@Leader, CHARINDEX ( », », @Leader) +1, LEN (@Leader) de tblUserTeams (TeamName, LeaderCode, LeaderDiscipline, MemberCode, MemberDiscipline) - CHARINDEX ( », », @Leader)), LEFT (@MemberCode, (CHARINDEX (« - », @MemberCode) - 1)), SUBSTRING (@MemberCode, CHARINDEX (« , », @MemberCode) +1, LEN (@MemberCode) - CHARINDEX (« , », @MemberCode de )))le code du
This renvoie l'erreur, « longueur inadmissible passée à la fonction de SOUS-CHAÎNE : le
obscurcissent I comme Integer
si NC. NC d'état = de ConnectionState.Closed Then . () L'extrémité ouverte If
du obscurcissent le strTeamName comme corde = strLeader de txtTeamName.Text le faible comme corde = strLeaderCode de lbTeamLeader.Text faible comme corde = myAdapter de lbTeamLeader.SelectedValue
le faible en tant que nouveau SqlClient.SqlDataAdapter
myAdapter.InsertCommand = nouveau SqlClient.SqlCommand myAdapter.InsertCommand.Connection = cn myAdapter.InsertCommand.CommandType = CommandType.Text myAdapter.InsertCommand.CommandText = » INSERTION DANS VALEURS du _ de tblUserTeams (TeamName, LeaderCode, LeaderDiscipline, MemberCode, MemberDiscipline) « et « (@TeamName, @LeaderCode, » et SOUS-CHAÎNE de _ « (@Leader, CHARINDEX (« , », @Leader) +1, LEN (@Leader) - de CHARINDEX (« , », @Leader)), » et _ « LAISSÉ (@MemberCode, (CHARINDEX (« - », @MemberCode) - 1)), « et du _ « (@MemberCode, CHARINDEX SOUS-CHAÎNE (« , », @MemberCode) +1, LEN (@MemberCode) - CHARINDEX (« , », @MemberCode)))«
myAdapter.InsertCommand.Parameters. myAdapter.InsertCommand.Parameters d'AddWithValue (« @TeamName », strTeamName). myAdapter.InsertCommand.Parameters d'AddWithValue (« @LeaderCode », strLeaderCode). myAdapter.InsertCommand.Parameters d'AddWithValue (« @Leader », strLeader).
Try d'AddWithValue (« @MemberCode », "") pour I = 0 à lbTeamMember.SelectedItems.Count - 1 myAdapter.InsertCommand.Parameters (« @MemberCode »). La valeur = le crochet du Next du myAdapter.InsertCommand.ExecuteNonQuery de lbTeamMember.SelectedItems(i).ToString () () errent comme SqlException MsgBox (errer. NC du Finally de message). L'aide de Try
Any de fin du de fin () sera considérablement appréciée, le
JackW9653
class= de
|