Hallo haben Experten,
I WinForm, das 3 Primärkontrollen hat; txtTeamName (Textkasten) lbTeamLeader (auserwählten Listenkasten aussondern) und lbTeamMembers (Listenkasten multi-vorwählen). Der Benutzer trägt einen Mannschaft-Namen in txtTeamName ein, wählt eine Mannschaft Leadr vom lbTeamLeader vor und fügt Mitglieder lbTeamMembers.
This in den Codearbeiten im Fragen-Fenster hinzu:
USE IP_MASTER
GO
DECLARE
@TeamName nvarchar (50),
@LeaderCode nvarchar (10),
@Leader nvarchar (50),
@MemberCode nvarchar (50)
Set @TeamName = „TEAM_PARKER'< Br/>Set @LeaderCode = „PAR01'< Br/>Set @Leader = „PETER PARKER, PT'< Br/>Set @MemberCode = „BUC01 - AL-DOLLAR, PTA'< Br/>
INSERT IN tblUserTeams (TeamName, LeaderCode, LeaderDiscipline, MemberCode, MemberDiscipline)
VALUES (@TeamName, @LeaderCode,
SUBSTRING (@Leader, CHARINDEX (“,“, @Leader) +1, LEN (@Leader) - CHARINDEX (“,“, @Leader)),
LEFT (@MemberCode, (CHARINDEX („-“, @MemberCode) - 1)),
SUBSTRING (@MemberCode, CHARINDEX („,“, @MemberCode) +1, LEN (@MemberCode) - CHARINDEX („,“, @MemberCode)))
This Code bringt die Störung, „die unzulässige Länge zurück, die zur TEILKETTEN-Funktion geführt wird:
verdunkeln i als Integer
wenn KN. Zustand- = ConnectionState.Closed-Then
KN. Geöffnetes ()
Ende If
verdunkeln strTeamName als Schnur = txtTeamName.Text
schwaches strLeader als Schnur = lbTeamLeader.Text
schwaches strLeaderCode als Schnur = lbTeamLeader.SelectedValue
schwaches myAdapter als neues SqlClient.SqlDataAdapter
myAdapter.InsertCommand = neues SqlClient.SqlCommand
myAdapter.InsertCommand.Connection = cn
myAdapter.InsertCommand.CommandType = CommandType.Text
myAdapter.InsertCommand.CommandText =“ EINSATZ tblUserTeams (in TeamName, in LeaderCode, in LeaderDiscipline, in MemberCode, in MemberDiscipline) „u. _
„IN WERTE (@TeamName, @LeaderCode,“ u. _
„TEILKETTE (@Leader, CHARINDEX („,“, @Leader) +1, LEN (@Leader) - CHARINDEX („, “, @Leader) ),“ u. _
„GELASSEN (@MemberCode, (CHARINDEX („-“, @MemberCode) - 1)), „u. _
„(@MemberCode, CHARINDEX TEILKETTE („,“, @MemberCode) +1, LEN (@MemberCode) - CHARINDEX („,“, @MemberCode)))„
myAdapter.InsertCommand.Parameters. AddWithValue („@TeamName“, strTeamName)
myAdapter.InsertCommand.Parameters. AddWithValue („@LeaderCode“, strLeaderCode)
myAdapter.InsertCommand.Parameters. AddWithValue („@Leader“, strLeader)
myAdapter.InsertCommand.Parameters. AddWithValue („@MemberCode“, "")
Try
für i = 0 zu lbTeamMember.SelectedItems.Count - 1
myAdapter.InsertCommand.Parameters („@MemberCode“). Wert = lbTeamMember.SelectedItems(i).ToString ()
myAdapter.InsertCommand.ExecuteNonQuery ()
Next
Fang irren sich als SqlException
MsgBox (sich irren. Mitteilung)
Finally
KN. Abschluss ()
Ende Try
Any Hilfe wird sehr,
JackW9653 geschätzt
|
