Здравствулте! специалисты,
I имеют WinForm которое имеет 3 главным образом управления; lbTeamLeader txtTeamName (коробки текста) (определите отборную коробку списка) и lbTeamMembers (multi-выберите коробку списка). Потребитель впишет имя команды в txtTeamName, выберет команду Leadr от lbTeamLeader и добавит члены в работах Кодего lbTeamMembers.
This в окне вопроса:
USE IP_MASTER
GO
DECLARE
@TeamName nvarchar (50),
@LeaderCode nvarchar (10),
@Leader nvarchar (50), @TeamName
Set
@MemberCode nvarchar (50) = «@LeaderCode br/>Set TEAM_PARKER'< = «@Leader br/>Set PAR01'< = «ПИТЕР PARKER, @MemberCode br/>Set PT'< = «BUC01 - САМЕЦ ОЛЕНЯ AL, br/>
INSERT PTA'< В
VALUES tblUserTeams (TeamName, LeaderCode, LeaderDiscipline, MemberCode, MemberDiscipline) (@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 возвращает ошибку, «инвалидная длина переданная к функции ПОДСТРОКИ:
затемняет I как Integer
если cn. Cn положения = ConnectionState.Closed Then
. Открытый () конец If
затемняет strTeamName как шнур = strLeader txtTeamName.Text
тусклое как шнур = strLeaderCode lbTeamLeader.Text
тусклое как шнур = myAdapter lbTeamLeader.SelectedValue
тусклое как новое SqlClient.SqlDataAdapter
myAdapter.InsertCommand = новое SqlClient.SqlCommand
myAdapter.InsertCommand.Connection = cn
myAdapter.InsertCommand.CommandType = CommandType.Text
myAdapter.InsertCommand.CommandText =» ВСТАВКА В ЗНАЧЕНИЙ _
tblUserTeams (TeamName, LeaderCode, LeaderDiscipline, MemberCode, MemberDiscipline) «& «(@TeamName, @LeaderCode,» & ПОДСТРОКИ _
«(@Leader, CHARINDEX («,», @Leader) +1, LEN (@Leader) - CHARINDEX («, », @Leader)),» & ОЕ _
«(@MemberCode, (CHARINDEX («-», @MemberCode) - 1)), «& _
«(@MemberCode, CHARINDEX ПОДСТРОКА («,», @MemberCode) +1, LEN (@MemberCode) - CHARINDEX («,», @MemberCode)))«
myAdapter.InsertCommand.Parameters.
myAdapter.InsertCommand.Parameters AddWithValue («@TeamName», strTeamName).
myAdapter.InsertCommand.Parameters AddWithValue («@LeaderCode», strLeaderCode).
myAdapter.InsertCommand.Parameters AddWithValue («@Leader», strLeader).
Try
AddWithValue («@MemberCode», "") для I = 0 к lbTeamMember.SelectedItems.Count - 1
myAdapter.InsertCommand.Parameters («@MemberCode»). Значение = задвижка
Next
myAdapter.InsertCommand.ExecuteNonQuery lbTeamMember.SelectedItems (I) .ToString () () заблуждаются как SqlException
MsgBox (заблуждайтесь. Cn
Finally
сообщения). Помощь Try
Any конца
конца () больш будет оценена,
JackW9653
class=
|
