Erro no codigo para apagar dados na BD

[set#1]

Alo tudo bem!

Tenho um probleminha. Tenho o codigo abaixo num botao "Apagar" que deve apagar um Paciente  com o NID X numa BD (Server 2005) so que tenho o seguinte erro: Expression expected (sublinhado no primeiro &).

Linha:

pacientesDS = pacientesDTA.DeletePaciente(& Trim(txtNID.Text.ToString) &)

DeletePaciente

DELETE FROM t_paciente
WHERE     (nid = @Param1)

O codigo completo:

'Com problemas ainda
Private Sub btApagar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btApagar.Click

'Me tinham sugerido este mas isto so apaga no form e nao na BD
        'Me.T_pacienteBindingSource.RemoveCurrent()
        'Me.Update()

        Dim pacientesDS As BD_TL2009DataSet.t_pacienteDataTable
        Dim pacientesDTA As New BD_TL2009DataSetTableAdapters.t_pacienteTableAdapter
        pacientesDTA = New BD_TL2009DataSetTableAdapters.t_pacienteTableAdapter
        'Dim paciente As BD_TL2009DataSet.t_pacienteRow

        If MsgBox("Tem a certeza que deseja apagar o registo: " & Trim(txtNID.Text) & " ?", MessageBoxButtons.YesNo, "Confime: Apagar Registo") = Windows.Forms.DialogResult.Yes Then
            pacientesDS = pacientesDTA.DeletePaciente(& Trim(txtNID.Text.ToString)&)
            MsgBox("Registo apagado com sucesso!", "Apagou Dados", MessageBoxButtons.OK)
        Else
            MsgBox("Registo nao apagado!", "Cancelou", MessageBoxButtons.OK)
        End If

    End Sub

Obrigado pela atencao

(((Peace&Love)))

[jpaulino]

Experimenta assim:

pacientesDS = pacientesDTA.DeletePaciente(txtNID.Text.ToString.Trim())

O método pacientesDTA.DeletePaciente() devolve alguma coisa ? Caso contrário basta fazer:

pacientesDTA.DeletePaciente(txtNID.Text.ToString.Trim())

[set#1]

Jpaulino, experimentei este:

pacientesDTA.DeletePaciente(txtNID.Text.ToString.Trim())

Clico no botao apagar:

1o - Se esta a visualizar o paciente 001, pergunta na msgbox se quero apagar o paciente 002 (em vez de 001) e tanto Yes como No apaga o paciente anterior, o 001 e assim sucessivamente!

2o - Nao esta a apagar os dados na BD

?

Usando

pacientesDS = pacientesDTA.DeletePaciente(txtNID.Text.ToString.Trim())

Da este erro: Value of type 'Integer' cannot be converted to 'TL2009_SGP.BD_TL2009DataSet.t_pacienteDataTable'.

O DeletePaciente me retorna um inteiro quando experimento e coloco o NID de qualquer paciente.

[jpaulino]

Mostra o código que tens em pacientesDTA.DeletePaciente

[set#1]

Tenho um BD_TL2009DataSet onde ta la o t_paciente DataTable

Nele tenho o t_pacienteTableAdapter onde tenho varias funções e uma delas 'e o DeletePaciente

DELETE FROM t_paciente
WHERE     (nid = @Param1)

O pacientesDTA foi declarado:

Dim pacientesDTA As New BD_TL2009DataSetTableAdapters.t_pacienteTableAdapter
pacientesDTA = New BD_TL2009DataSetTableAdapters.t_pacienteTableAdapter

Espero ter feito perceber!!

[jpaulino]

Mas o que faz a função DeletePaciente ? Mostra o código.

[set#1]

DELETE FROM t_paciente
WHERE     (nid = @Param1)

Deve apagar na tabela t_paciente o paciente com o NID - txtNID

No querybuilder ja executei e coloco um NID e ele apaga. Da pra perceber...??

[set#1]

Sorry jpaulino, eu 'e que falhei aqui:

'Me.T_pacienteBindingSource.RemoveCurrent()
'Me.Update()

Comentei no post mas no programa nao estava comentado.

Ja esta a funcionar

B)

Obrigado

(((Peace&Love)))

[jpaulino]

Agora, ele apaga mas ainda me mostra o paciente, so depois de sair e voltar ao form 'e que actualiza.

Como faco para ele depois actualizar para os dados actuas logo apos apagar.

E como faco para ele mostrar num label o numero total dos pacientes na t_paciente.

Mas mostra onde ?

Esta questão já está resolvida, deves marcar como resolvida (Topic Solved) e criar uma nova questão 😛

[set#1]

Ja esta marcado.

Esse outro ponto comecei em outro topico:

Reload dados no form depois de apagar

Obrigado

(((Peace&Love)))