CONSULTA SQL
ESTOU COM O SEGUINTE PROBLEMA
QUANDO FAÇO UMA 1º CONSULTA ME SÃO TRAGOS OS DADOS CORRETAMENTE
MAS POREM PARA FAZER UMA 2º CONSULTA PRECISO FECHAR O PROGRAMA E ABRIR NOVAMENTE
SE NÃO FIZER ISSO ELE ME MOSTRA OS MESMOS DADOS DA 1º CONSULTA
CODIGO USADO:
cn.Open()
strsql = ([Ô]SELECT PLACA, MODELO, ANO, COR, CLIENTE, TELEFONE, SERVICO, VALOR, SINAL, SDEVEDOR, DATA FROM TBORCAMENTO WHERE PLACA = [ô][Ô] & mkdPlaca1.Text & [Ô][ô][Ô])
da = New SqlCeDataAdapter(strsql, cn)
cn.Close()
da.Fill(ds, [Ô]busca[Ô])
If ds.Tables([Ô]busca[Ô]).Rows.Count > 0 Then
mkdPlaca1.Text = ds.Tables([Ô]busca[Ô]).Rows(0).Item(0)
txtModelo1.Text = ds.Tables([Ô]busca[Ô]).Rows(0).Item(1)
mkdano1.Text = ds.Tables([Ô]busca[Ô]).Rows(0).Item(2)
txtcor1.Text = ds.Tables([Ô]busca[Ô]).Rows(0).Item(3)
txtnomecli1.Text = ds.Tables([Ô]busca[Ô]).Rows(0).Item(4)
mkdtel1.Text = ds.Tables([Ô]busca[Ô]).Rows(0).Item(5)
txtdeserv1.Text = ds.Tables([Ô]busca[Ô]).Rows(0).Item(6)
txtVaServ1.Text = ds.Tables([Ô]busca[Ô]).Rows(0).Item(7)
txtSinal1.Text = ds.Tables([Ô]busca[Ô]).Rows(0).Item(8)
txtSaldoDevedor1.Text = ds.Tables([Ô]busca[Ô]).Rows(0).Item(9)
txtData1.Text = ds.Tables([Ô]busca[Ô]).Rows(0).Item(10)
QUANDO FAÇO UMA 1º CONSULTA ME SÃO TRAGOS OS DADOS CORRETAMENTE
MAS POREM PARA FAZER UMA 2º CONSULTA PRECISO FECHAR O PROGRAMA E ABRIR NOVAMENTE
SE NÃO FIZER ISSO ELE ME MOSTRA OS MESMOS DADOS DA 1º CONSULTA
CODIGO USADO:
cn.Open()
strsql = ([Ô]SELECT PLACA, MODELO, ANO, COR, CLIENTE, TELEFONE, SERVICO, VALOR, SINAL, SDEVEDOR, DATA FROM TBORCAMENTO WHERE PLACA = [ô][Ô] & mkdPlaca1.Text & [Ô][ô][Ô])
da = New SqlCeDataAdapter(strsql, cn)
cn.Close()
da.Fill(ds, [Ô]busca[Ô])
If ds.Tables([Ô]busca[Ô]).Rows.Count > 0 Then
mkdPlaca1.Text = ds.Tables([Ô]busca[Ô]).Rows(0).Item(0)
txtModelo1.Text = ds.Tables([Ô]busca[Ô]).Rows(0).Item(1)
mkdano1.Text = ds.Tables([Ô]busca[Ô]).Rows(0).Item(2)
txtcor1.Text = ds.Tables([Ô]busca[Ô]).Rows(0).Item(3)
txtnomecli1.Text = ds.Tables([Ô]busca[Ô]).Rows(0).Item(4)
mkdtel1.Text = ds.Tables([Ô]busca[Ô]).Rows(0).Item(5)
txtdeserv1.Text = ds.Tables([Ô]busca[Ô]).Rows(0).Item(6)
txtVaServ1.Text = ds.Tables([Ô]busca[Ô]).Rows(0).Item(7)
txtSinal1.Text = ds.Tables([Ô]busca[Ô]).Rows(0).Item(8)
txtSaldoDevedor1.Text = ds.Tables([Ô]busca[Ô]).Rows(0).Item(9)
txtData1.Text = ds.Tables([Ô]busca[Ô]).Rows(0).Item(10)
Amigo tente dar um clear antes de inserir fazer a consulta assim ele poderá eliminar a consulta anterior antes de fazer a nova consulta!!!!
abç
abç
Coloquei ds.clear no fim e funcionou
Muito obrigado pela dica
topico encerrado !
Muito obrigado pela dica
topico encerrado !
Tópico encerrado , respostas não são mais permitidas