Cześć Ekspert,
I mieć WinForm który mieć 3 początkowy kontrola; txtTeamName (tekst pudełko) lbTeamLeader (przerzedzać wybrany lista pudełko) i lbTeamMembers (wielo--wybierać lista pudełko). The użytkownik wchodzić do Drużynowy Imię w txtTeamName, Drużynowy Leadr od lbTeamLeader i Członek w lbTeamMembers.
This kodować praca w the Zapytanie Okno:
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 SAMIEC, PTA'< br/>
INSERT W 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 kod wracać the błąd, "Nieważny długość przechodzić the SUBSTRING funkcja:
Ćmić i Jako Integer
Jeżeli cn. Stan = ConnectionState.Closed Then
cn. Otwarty ()
Końcówka If
Ćmić strTeamName Gdy Sznurek = txtTeamName.Text
Ćmić strLeader Gdy Sznurek = lbTeamLeader.Text
Ćmić strLeaderCode Gdy Sznurek = lbTeamLeader.SelectedValue
Ćmić myAdapter Jako Nowy SqlClient.SqlDataAdapter
myAdapter.InsertCommand = Nowy SqlClient.SqlCommand
myAdapter.InsertCommand.Connection = cn
myAdapter.InsertCommand.CommandType = CommandType.Text
myAdapter.InsertCommand.CommandText =" WSZYWKA W tblUserTeams (TeamName, LeaderCode, LeaderDiscipline, MemberCode, MemberDiscipline) "& _
"WARTOŚĆ (@TeamName, @LeaderCode," & _
"SUBSTRING (@Leader, CHARINDEX (",", @Leader) +1, LEN (@Leader) - CHARINDEX (", ", @Leader) )," & _
"OPUSZCZAĆ (@MemberCode, (CHARINDEX ("-", @MemberCode) - 1)), "& _
"SUBSTRING (@MemberCode, CHARINDEX (",", @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
Dla i = (0) LbTeamMember.SelectedItems.Count - 1
myAdapter.InsertCommand.Parameters ("@MemberCode"). Wartość = lbTeamMember.SelectedItems (i) .ToString ()
myAdapter.InsertCommand.ExecuteNonQuery ()
Next
Chwyt błądzić Jako SqlException
MsgBox (błądzić. Wiadomość)
Finally
cn. Zakończenie ()
Końcówka Try
Any pomoc ogromnie doceniać,
JackW9653
|
