Ir para conteúdo
Fórum Script Brasil
  • 0

problemas com com o retorno dos dados


other

Pergunta

fala ai galera tudo bem com vocês

po eu tenho eu problema e que eu tenho uma conexão com mysql utilizando o driver odbc tudo certo ta funcionando perfeitamente, so que com eu executo ela eu retorno o dados em um odbcdatareade so que sempre ele com um dados a menos e mais proriedades recordesaffects tem 17 linhas e na propriedade fieldcount tem 16 linhas você sabe como eu resolvo isso.

o sql não é porque eu já testei no mysql

vlw

minha conexão

Try

cn = New OdbcConnection()

strsql = "DSN=BASEDADOSETER"

cn.ConnectionString = strsql

cmd = New OdbcCommand(str, cn)

'adt = New OdbcDataAdapter(str, cn)

cn.Open()

'adt.Fill(ds)

dr = cmd.ExecuteReader()

dr.Read()

Catch ex As Exception

MsgBox("ERRO AO EFETUAR CONEXÃO COM A BASE DE DADOS: " + ex.Message)

End Try

boletim = DR

meus sql carregando datagrid

query = "SELECT D.NOME_ALU, D.MATR_ALU, D.MODAL_ALU, A.DESC_DIS AS DISCIPLINA,"

query = query & " B.NOME_PRO AS PROFESSOR,"

query = query & " C.TURM_DIA AS TURMA,"

query = query & " @NOTA1:=FORMAT(IF(C.P1_DIA>C.REC1_DIA, C.P1_DIA,C.REC1_DIA),2) AS 'NOTA 1',"

query = query & " C.FAL1_DIA AS 'FALTAS 1',"

query = query & " @NOTA2:=FORMAT(IF(C.P2_DIA>C.REC2_DIA, C.P2_DIA,C.REC2_DIA),2) AS 'NOTA 2',"

query = query & " C.FAL2_DIA AS 'FALTAS 2',"

query = query & " @NOTA3:=FORMAT(IF(C.P3_DIA>C.REC3_DIA, C.P3_DIA,C.REC3_DIA),2) AS 'NOTA 3',"

query = query & " FAL3_DIA AS 'FALTAS 3',"

query = query & " @MEDIA:=FORMAT(IF(D.MODAL_ALU=0,((@NOTA1+@NOTA2+@NOTA3)/3),(@NOTA1+@NOTA2+@NOTA3)/2),2) AS 'MEDIA FINAL',"

query = query & " (C.FAL1_DIA+C.FAL2_DIA+C.FAL3_DIA) AS 'TOTAL DE FALTAS',"

query = query & " IF(@MEDIA >= 6.00,'AP','RP') as 'SITUÇÃO FINAL'"

query = query & " FROM aluno D, disciplina A, professor B, diario_" & cmbAno.Text & " C"

query = query & " WHERE D.MATR_ALU=C.ALUN_DIA AND B.MATR_PRO=C.PROF_DIA AND A.CODI_DIS=C.DISC_DIA AND ALUN_DIA=" & txtMatricula.Text & ";"

dr = aluno.boletim(query)

dt.Load(dr)

'dt.

dtNotas.DataSource = dt

Editado por other
Link para o comentário
Compartilhar em outros sites

0 respostass a esta questão

Posts Recomendados

Até agora não há respostas para essa pergunta

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,1k
    • Posts
      651,8k
×
×
  • Criar Novo...