Hello hebben de Deskundigen,
I WinForm die 3 primaire controles heeft; txtTeamName (tekstvakje) lbTeamLeader (kies uitgezocht lijstvakje uit) en lbTeamMembers (multi-uitgezocht lijstvakje). De gebruiker zal een Naam van het Team in txtTeamName ingaan, zal een Team Leadr van lbTeamLeader selecteren en zal Leden in lbTeamMembers.
This de codewerken in het Venster van de Vraag toevoegen:
USE nvarchar IP_MASTER
GO
DECLARE
@TeamName (50), nvarchar
@LeaderCode (10), nvarchar
@Leader (50),
@MemberCode nvarchar (50)
Set @TeamName = „TEAM_PARKER'< br/>Set @LeaderCode = „PAR01'< br/>Set @Leader = „PETER PARKER, PT'< br/>Set @MemberCode = „BUC01 - AL BOK, 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)))de code
This keert de fout terug, „Ongeldige die lengte tot de functie SUBSTRING wordt overgegaan:
Schemerige I als Integer
als cn. Staat =/> cn ConnectionState.Closed Then Schemerige strTeamName van If
als Koord =/> Schemerige strLeader txtTeamName.Text
Schemerige strLeaderCode lbTeamLeader.Text
Schemerige myAdapter lbTeamLeader.SelectedValue
myAdapter.InsertCommand = Nieuwe SqlClient.SqlCommand
myAdapter.InsertCommand.Connection = cn
myAdapter.InsertCommand.CommandType = CommandType.Text
myAdapter.InsertCommand.CommandText =“ NEEMT IN tblUserTeams (TeamName, LeaderCode, LeaderDiscipline, MemberCode, MemberDiscipline) „&/> „WAARDEN _
„SUBSTRING (@Leader, CHARINDEX („,“, @Leader) +1, LEN (@Leader) - CHARINDEX („, “, @Leader) ),“ & _
„GINGEN (@MemberCode, (CHARINDEX („-“, @MemberCode) - 1)) weg, „& _
„SUBSTRING (@MemberCode, CHARINDEX („,“, @MemberCode) +1, LEN (@MemberCode) - CHARINDEX („,“, @MemberCode)))„
myAdapter.InsertCommand.Parameters. Van AddWithValue („@TeamName“, strTeamName)
myAdapter.InsertCommand.Parameters. Van AddWithValue („@LeaderCode“, strLeaderCode)
myAdapter.InsertCommand.Parameters. Van AddWithValue („@Leader“, strLeader)
myAdapter.InsertCommand.Parameters. AddWithValue („@MemberCode“, "")
Try
voor I = 0 aan lbTeamMember.SelectedItems.Count - 1
myAdapter.InsertCommand.Parameters („@MemberCode“). De waarde = lbTeamMember.SelectedItems(i).ToString ()
myAdapter.InsertCommand.ExecuteNonQuery ()
Next
Vangst vergist zich als SqlException
MsgBox (vergis me. Bericht)
Finally
cn. De dichte ()/> hulp/>Any zal van Try
JackW9653
|
