O problema é que isto devolve-me 8 registos enquanto que na base de dados apenas estão 2. Ou seja 4 para cada 1. Não consigo compreender porque. (Se quiserem editem o titulo da pergunta)
Tenho esta BD:
E tenho este select:
select alunos.numero,faltas_licao.tipo
from turma,alunos,disciplinas,licao,faltas_licao
where faltas_licao.aluno_id = alunos.id_aluno
and licao.id_turma = turma.id_turma
and faltas_licao.id_disciplina = licao.id_disciplina
and licao.id_disciplina = disciplinas.id_disciplina
and faltas_licao.licao = '" & currentlicao & "'
and disciplinas.nome = '" & F_Topo.CB_Disciplina.SelectedItem.ToString & "'
and turma.nome = '" & F_Topo.CB_Turma.SelectedItem.ToString & "'
and alunos.Numero = '" & aluno & "'"
Aqui esta o codigo "todo":
Dim con3 As New SqlConnection(cs)
Dim currentlicao As Integer = get_licao()
'MsgBox("current: " & currentlicao)
Using con3
Dim aluno As Integer = linha.Index
Dim sql As String = "select alunos.numero,faltas_licao.tipo from turma,alunos,disciplinas,licao,faltas_licao where faltas_licao.aluno_id = alunos.id_aluno and licao.id_turma = turma.id_turma and faltas_licao.id_disciplina = licao.id_disciplina and licao.id_disciplina = disciplinas.id_disciplina and faltas_licao.licao = '" & currentlicao & "' and disciplinas.nome = '" & F_Topo.CB_Disciplina.SelectedItem.ToString & "' and turma.nome = '" & F_Topo.CB_Turma.SelectedItem.ToString & "' and alunos.Numero = '" & aluno & "'"
'MsgBox(sql)
Dim sqlCom As New SqlCommand(sql, con3)
con3.Open()
Dim dr3 As SqlDataReader = sqlCom.ExecuteReader()
Dim miau As Integer = 0
If dr3.HasRows Then
While dr3.Read()
miau = miau + 1
'F_Principal.DataGridView2.Rows.Add(F_Principal.DataGridView2.RowCount + 1, dr3.Item(0))
MsgBox(miau)
MsgBox("ID: " & dr3.Item(0) & "TIPO:" & dr3.Item(1))
End While
Else
' Aqui faça o que quiser caso não tenha linha '
End If
dr3.Close()
Dados na base de dados:
Não entendo como é que ele me devolve quatro registos(alias 8 registos, sendo 4 repetidos).
Alguém com experiência em base de dados me consegue detectar o erro?
EDIT:
Erro:
System.Data.SqlClient.SqlException (0x80131904): The objects "faltas_licao" and "faltas_licao" in the FROM clause have the same exposed names. Use correlation names to distinguish them. em System.Data.SqlClient.SqlConnection.OnError(SqlException exception, Boolean breakConnection, Action
1 wrapCloseInAction) em System.Data.SqlClient.SqlInternalConnection.OnError(SqlException exception, Boolean breakConnection, Action
1 wrapCloseInAction) em System.Data.SqlClient.TdsParser.ThrowExceptionAndWarning(TdsParserStateObject stateObj, Boolean callerHasConnectionLock, Boolean asyncClose) em System.Data.SqlClient.TdsParser.TryRun(RunBehavior runBehavior, SqlCommand cmdHandler, SqlDataReader dataStream, BulkCopySimpleResultSet bulkCopyHandler, TdsParserStateObject stateObj, Boolean& dataReady) em System.Data.SqlClient.SqlDataReader.TryConsumeMetaData() em System.Data.SqlClient.SqlDataReader.get_MetaData() em System.Data.SqlClient.SqlCommand.FinishExecuteReader(SqlDataReader ds, RunBehavior runBehavior, String resetOptionsString) em System.Data.SqlClient.SqlCommand.RunExecuteReaderTds(CommandBehavior cmdBehavior, RunBehavior runBehavior, Boolean returnStream, Boolean async, Int32 timeout, Task& task, Boolean asyncWrite, SqlDataReader ds, Boolean describeParameterEncryptionRequest) em System.Data.SqlClient.SqlCommand.RunExecuteReader(CommandBehavior cmdBehavior, RunBehavior runBehavior, Boolean returnStream, String method, TaskCompletionSource`1 completion, Int32 timeout, Task& task, Boolean asyncWrite) em System.Data.SqlClient.SqlCommand.RunExecuteReader(CommandBehavior cmdBehavior, RunBehavior runBehavior, Boolean returnStream, String method) em System.Data.SqlClient.SqlCommand.ExecuteReader(CommandBehavior behavior, String method) em System.Data.SqlClient.SqlCommand.ExecuteReader() em Trabalho_mod_16.F_Contentor.get_faltas() em C:\Users\AlunoP\Desktop\Trabalho modulo 16\Trabalho mod 16\Trabalho mod 16\F_Contentor.vb:line 163 ClientConnectionId:03d47535-a3d9-4723-b704-2649901d693e Error Number:1013,State:1,Class:16