DUVIDA COM SQL PESQUISANDO USUARIO POR ID
Bom dia a todos...
Faz muito tempo que não apareço por aqui.
Mas vamos la, pessoal estou tendo um certo problema que aparentemente não vai ser complicado pra ninguem aqui. rsrsrsrs.
Estou tentando fazer uma pesquisa utilizando sql para me retornar em um Data Report os dados da tela de 1 usuario.
Botão imprimir esta assim:
Explicando melhor é um cadastro de atestados medicos aqui na Fundação aonde trabalho, quando o aluno falta ele tras o atestado e lançamos no sistema isso para que depois podemos tirar as faltas dele e talz. Portanto se eu clicar no Botão imprimir mostra a seguinte msg:
Alguem pode me ajudar?
att
Eleno
Faz muito tempo que não apareço por aqui.
Mas vamos la, pessoal estou tendo um certo problema que aparentemente não vai ser complicado pra ninguem aqui. rsrsrsrs.
Estou tentando fazer uma pesquisa utilizando sql para me retornar em um Data Report os dados da tela de 1 usuario.
Botão imprimir esta assim:
Citação:AbreImpressao
Dim RstTemp As ADODB.Recordset
Set RstTemp = New ADODB.Recordset
RstTemp.Open [Ô]SELECT * FROM Atestados WHERE ID = [ô][Ô] & MskID.Text & [Ô][ô][Ô], BD, adOpenStatic, adLockOptimistic, adCmdText
If RstTemp.EOF = False Then
[ô]Define o DataSource do relatório
Set DRTAtestados.DataSource = RstTemp
[ô]Mostra o relatório
DRTAtestados.Orientation = rptOrientLandscape
DRTAtestados.Refresh
DRTAtestados.Show
End If
RstTemp.Close
FechaImpressao
Explicando melhor é um cadastro de atestados medicos aqui na Fundação aonde trabalho, quando o aluno falta ele tras o atestado e lançamos no sistema isso para que depois podemos tirar as faltas dele e talz. Portanto se eu clicar no Botão imprimir mostra a seguinte msg:
Alguem pode me ajudar?
att
Eleno
snake,
se o campo no banco de dados for do tipo numero (inteiro), coloque assim;
RstTemp.Open [Ô]SELECT * FROM Atestados WHERE ID = [Ô] & val(MskID.Text &) [Ô], BD, adOpenStatic, adLockOptimistic, adCmdText
e poste o resultado.
se o campo no banco de dados for do tipo numero (inteiro), coloque assim;
RstTemp.Open [Ô]SELECT * FROM Atestados WHERE ID = [Ô] & val(MskID.Text &) [Ô], BD, adOpenStatic, adLockOptimistic, adCmdText
e poste o resultado.
Tópico encerrado , respostas não são mais permitidas