Buscar dados introduzidos a outras tabelas

[hypz]

Boas, como é que eu faço para por numa form nova os dados que introduzi noutra ?

por exemplo,

Carreguei ao Cliente com o código nº 1 com 15€

Agora na fatura quero que apareça o cliente com o montante que eu carreguei

Como faço ?

[Caça]

Queres ir buscar a uma Base de Dados ou passar directamente entre formulários?

[hypz]

Me.Show()
        'TODO: This line of code loads data into the 'PapDataSet.Utilizador' table. You can move, or remove it, as needed.
        Me.UtilizadorTableAdapter.Fill(Me.PapDataSet.Utilizador)
        Dim provider As String
        provider = "provider = Microsoft.ACE.OLEDB.12.0;Data Source=Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Documents and Settings\hypz\Ambiente de trabalho\Trabalho PAP 26-04\Trabalho PAP\Trabalho PAP\pap.accdb; persist security info = false;"
        Dim con As New OleDbConnection(provider)
        con.Open()
        Dim sql As String = "Select * from Utilizador where Cod_Cartao=" & a
        Dim sql1 As String = "Select * from Utilizador where Nome_Utilizador=" & no_u
        Dim sql2 As String = "Select * from Utilizador where Nick_Utilizador=" & nick_u

        Dim da As OleDbDataAdapter
        da = New OleDbDataAdapter(sql, con)
        Dim ds As DataSet
        ds = New DataSet()
        da.Fill(ds)

        Dim db As OleDbDataAdapter
        db = New OleDbDataAdapter(sql1, con)
        Dim dz As DataSet
        dz = New DataSet()
        db.Fill(dz)


        Dim dc As OleDbDataAdapter
        dc = New OleDbDataAdapter(sql2, con)
        Dim dk As DataSet
        dk = New DataSet()
        dc.Fill(dk)

        TextBox2.Text = a
        TextBox4.Text = no_u
        TextBox5.Text = nick_u
        TextBox3.Text = mont
        MsgBox("Qual o modo de Pagamento ? 1 - Cartão, 2 - Monetário", 64, "Modo Pagamento")
        Dim x As Integer
        x = InputBox("Qual o modo de Pagamento ?", "Modo Pagamento")
        TextBox1.Text = x

Agora está a rebentar no

'Dim db As OleDbDataAdapter
        db = New OleDbDataAdapter(sql1, con)
        Dim dz As DataSet
        dz = New DataSet()
        db.Fill(dz)'

OleDbException was unhandled

Dá-me este erro e eu nao o sei resolver !

EDIT: GeSHi adicionado

[hypz]

dou visual basic há pouco tempo por isso se estes erros sao basicos tens que explicar com calma e clareza

[Caça]

Qual é a mensagem de erro completa?

[hypz]

OleDbException was unhandled

Tipo de dados incorrecto na expressão de critérios.

Está aqui, se me pudesses explicar era magnifico 😄

[Caça]

Qual é o conteúdo da variável "no_u" quando dá o erro?

[hypz]

Nao sei se isto responde á tua pergunta mas

Dim sql1 As String = "Select * from Utilizador where Nome_Utilizador=" & no_u

TextBox4.Text = no_u

A variavel no_u é o que eu chamo nesta form mas o nome do campo mesmo da base de dados é Nome_Utilizador e é texto.

[hypz]

eu se usar o 'sql' funciona, mas a tentar adicionar o sql1 e sql2 ja da erro..

[hypz]

Erro de sintaxe (operador em falta) na expressão de consulta 'Nome_Utilizador='.

ve se isto te ajuda mais..

[Caça]

Quando os campos não são numéricos, tens de utilizar plicas ('), tipo

Dim sql1 As String = "Select * from Utilizador where Nome_Utilizador='" & no_u & "'"

[hypz]

eu sei, ja corrigo isso e nao continua a dar, ja estou a bater mesmo mal da cabeça 😄

[hypz]

Dim sql As String = "Select * from Utilizador where Cod_Cartao=" & a
        Dim sql1 As String = "Select * from Utilizador where Nome_Utilizador= '" & no_u & "'"
        'Dim sql2 As String = "Select * from Utilizador where Nick_Utilizador=" & nick_u
        Dim da As OleDbDataAdapter
        Dim db As OleDbDataAdapter
        da = New OleDbDataAdapter(sql, con)
        db = New OleDbDataAdapter(sql1, con)
        Dim ds As DataSet
        Dim dx As DataSet
        dx = New DataSet()
        ds = New DataSet()
        da.Fill(ds)
        db.Fill(dx)

        TextBox2.Text = a
        TextBox4.Text = no_u
        TextBox5.Text = nick_u
        TextBox3.Text = mont

o erro continua a dar-me no mesmo sitio e agora ja esta diferente o código..

[Caça]

Atenção aos posts seguidos, nestes casos podes fazer uma simples edição

---

Onde é que achas que está o problema agora? Ora vê lá como está o teu código?

[hypz]

Desculpa, vou ter mais atenção a isso.

Me.Show()
        'TODO: This line of code loads data into the 'PapDataSet.Utilizador' table. You can move, or remove it, as needed.
        Me.UtilizadorTableAdapter.Fill(Me.PapDataSet.Utilizador)
        Dim provider As String
        provider = "provider = Microsoft.ACE.OLEDB.12.0;Data Source=Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Documents and Settings\hypz\Ambiente de trabalho\Trabalho PAP 26-04\Trabalho PAP\Trabalho PAP\pap.accdb; persist security info = false;"
        Dim con As New OleDbConnection(provider)
        con.Open()
        Dim sql As String = "Select * from Utilizador where Cod_Cartao=" & a
        Dim sql1 As String = "Select * from Utilizador where Nome_Utilizador= '" & no_u & "'"
        'Dim sql2 As String = "Select * from Utilizador where Nick_Utilizador=" & nick_u
        Dim da As OleDbDataAdapter
        Dim db As OleDbDataAdapter
        da = New OleDbDataAdapter(sql, con)
        db = New OleDbDataAdapter(sql1, con)
        Dim ds As DataSet
        Dim dx As DataSet
        dx = New DataSet()
        ds = New DataSet()
        da.Fill(ds)
        db.Fill(dx)

        TextBox2.Text = a
        TextBox4.Text = no_u
        TextBox5.Text = nick_u
        TextBox3.Text = mont
        MsgBox("Qual o modo de Pagamento ? 1 - Cartão, 2 - Monetário", 64, "Modo Pagamento")
        Dim x As Integer
        x = InputBox("Qual o modo de Pagamento ?", "Modo Pagamento")
        TextBox1.Text = x

Está aqui o código, agora nao me está a dar erro, agora nao está é a aparecer nada na form, aparece-me a textbox vazia, enquanto o resto corre tudo ele nao me poe nem o "Nome Utilizador" nem o "Nick Utilizador"

EDIT: GeSHi adicionado

[Caça]

Vê neste tópico como colocar o GeShi: https://www.portugal-a-programar.pt/help/#code

---

O que vai para as textboxes é o valor que estás a por nas variáveis, não os valores que vêm da Base de Dados...

Vê este artigo

https://wiki.portugal-a-programar.pt/dev_net/vb.net/access/

[hypz]

desculpa a teimosia mas continuo sem perceber, eu estou no 12º por isso o meu vb nao é muito avançado

metade das coisas que estao ali eu não dei, logo nao percebo muito bem a funcionalidade dos campos, mas mesmo assim continua a nao listar o que quero..