Olá! os peritos,
I têm WinForm que tem 3 controles preliminares; lbTeamLeader do txtTeamName (caixa de texto) (escolhir a caixa de lista seleta) e lbTeamMembers (multi-selecionar a caixa de lista). O usuário dará entrada com um nome da equipe no txtTeamName, selecionará uma equipe Leadr do lbTeamLeader e adicionará membros em trabalhos do código de lbTeamMembers.
This na janela da pergunta:
USE IP_MASTER
GO
DECLARE
@TeamName nvarchar (50),
@LeaderCode nvarchar (10),
@Leader nvarchar (50), @TeamName nvarchar do
Set do
@MemberCode (50) = do “@LeaderCode do Br/>Set TEAM_PARKER'< = “@Leader do Br/>Set de PAR01'< = “PETER PARKER, @MemberCode do Br/>Set do PT'< = “BUC01 - FANFARRÃO do AL, Br/>
INSERT do PTA'< no
VALUES dos 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 do )))o código do
This retorna o erro, “comprimento inválido passado à função do SUBSTRING: o
escurece i como Integer
se NC. NC do estado = do ConnectionState.Closed Then
. () A extremidade aberta If
do
escurece o strTeamName como a corda = o strLeader não ofuscante de txtTeamName.Text
como a corda = o strLeaderCode não ofuscante de lbTeamLeader.Text
como a corda = o myAdapter não ofuscante de lbTeamLeader.SelectedValue
como SqlClient.SqlDataAdapter
myAdapter.InsertCommand = SqlClient.SqlCommand
myAdapter.InsertCommand.Connection = cn
myAdapter.InsertCommand.CommandType = CommandType.Text
myAdapter.InsertCommand.CommandText =” INSERÇÃO VALORES do _
dos tblUserTeams (em TeamName, em LeaderCode, em LeaderDiscipline, em MemberCode, em MemberDiscipline) “& em “(@TeamName, @LeaderCode,” & SUBSTRING do _
“(@Leader, CHARINDEX (“,”, @Leader) +1, LEN (@Leader) - de CHARINDEX (“, ”, @Leader)),” & _
“DEIXADO (@MemberCode, (CHARINDEX (“-”, @MemberCode) - 1))“
myAdapter.InsertCommand.Parameters.
myAdapter.InsertCommand.Parameters de AddWithValue (“@TeamName”, strTeamName).
myAdapter.InsertCommand.Parameters de AddWithValue (“@LeaderCode”, strLeaderCode).
myAdapter.InsertCommand.Parameters de AddWithValue (“@Leader”, strLeader).
Try
de AddWithValue (“@MemberCode”, "") para i = 0 a lbTeamMember.SelectedItems.Count - 1
myAdapter.InsertCommand.Parameters (“@MemberCode”). O valor = o prendedor do
Next
do
myAdapter.InsertCommand.ExecuteNonQuery de lbTeamMember.SelectedItems(i).ToString () () erram como SqlException
MsgBox (errar. NC do
Finally
da mensagem). A ajuda de Try
Any do fim do
do fim () será apreciada extremamente, o
JackW9653
class= do
|
