Prova De Aptidão Profissional - SoS PeoPleWaRe

[P3dr0]

Bom é verdade que não tenho feito muito pela voça ajuda, mas vamos la ver se isto anda para a frente...

ta ai o projecto...

bom vão ver prai uma grande confusão em código...

se repararem as consultas na parte dos clientes tao a dar mal, pois estou a tentar fazer nelas consultas detalhadas.... apartir do nome da pessoa, ou seja escrevo uma letra na textbox e carrego no botao e era suposto aparacer no datagridview todos os campos onde o nome da pessoa começasse por "a", mas aparentemente nada disso acontece...

na tabela dos produtos ja consigo guardar imagens na BD, mas depois nao consigo recuperala, vou começar agora a tentar programar o código de forma a que isso aconteça...

depois ao de encontrar um form sem nada dentro que é suposto ser o form em que irá ser efectuada a venda de produtos, não tem la nada porque sinceramente nem sei que lhe meta la dentro...

bem vou tentar continuar a programar noite dentro...

mas se alguem quiser começar prai a mandar umas dicas de como fazer consultas personalizadas, ou como carregar uma imagem apartir de uma BD...

forçaaaaaa... xD

[P3dr0]

BEm ninguem respondeu mas eu vou ja tirar aqui uma duvida...

eu para guardar a imagem na BD com o seguinte codigo:

Dim fs As New IO.FileStream (TextBox1.Text,IO.FileMode.Open, IO.FileAccess.Read)
Dim imagedata(fs.Length() - 1) As Byte
fs.Read(imagedata, 0, imagedata.Length)
fs.Close()

e para carregala apartir da base de dados estou a usar o seguinte:

Dim improdutos As New DataSet
If improdutos.Tables("Produto").Rows.Count > 0 Then


Dim bytePicData() As Byte = improdutos.Tables("Produto").Rows(Me.BindingContext(improdutos, "Produto").Position)("Imagem_Produto")


Dim PicMemStream As New System.IO.MemoryStream(bytePicData)
PictureBox1.Image = Image.FromStream(PicMemStream)

End If



Epah gravar imagem na BD consigo, mas para carregala é que ja não consigo...
epah isso dame erro que nao consegue converção, portanto se alguem souber de outro código para fazer upload da imagem força ^^

tenho mais umas duvidas, mas agora durante a manha vou tentar resolvelas, senão tambem as coloco por aqui...

[P3dr0]

hmmm já consegui resolver o meu problema, vou optar por colocar na bd caminho da imagem, e depois para abrir vou ao caminho que gravei na bd e abro a imagem ^^

agora a 2º duvida....

é assim no meu projecto eu faço as consultas ás bds num datagridview, só que no momento as consultas que consigo fazer são gerais, ou seja com todos os campos da tabela em questão...

agora gostava de fazer consultas filtradas á mesma ou seja, tenho uma textbox e escrevia la dentro a letra "A" e ele só me dava os campos da tabela em que o nome da pessoa começasse com "a", perceberam?

epah eu vi 2 tipos de códigos na net mas nenhum resultou, vou meter aqui os 2 para ver se conseguem descobrir algo de anormal no código ^^

1º:

DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
DataGridView1.AllowUserToAddRows = False
DataGridView1.AllowUserToDeleteRows = False
DataGridView1.EditMode = DataGridViewEditMode.EditProgrammatically

Dim adapter_cliente As New GesturoDBDataSet3TableAdapters.ClienteTableAdapter()
Dim tab_cliente As New GesturoDBDataSet3.ClienteDataTable

Dim sql As String = "SELECT * FROM Cliente WHERE Nome = '" & TextBox1.Text & "'"

adapter_cliente.Fill(tab_cliente.DataSet.Tables(sql))
Dim coluna As DataColumn
For Each coluna In tab_cliente.Columns
DataGridView1.Columns.Add(coluna.ColumnName, coluna.ColumnName)
Next
Dim linha As DataRow
Dim idx_linha As Integer
Dim idx_colunas As Integer

idx_linha = 0
For Each linha In tab_cliente.Rows
Dim linha_datagrid As New DataGridViewRow


DataGridView1.Rows.Add(linha_datagrid)
idx_colunas = 0
For Each colunas In tab_cliente.Columns


DataGridView1.Rows(idx_linha).Cells(idx_colunas).Value = tab_cliente.Rows(idx_linha).Item(idx_colunas)

idx_colunas = idx_colunas + 1
Next
idx_linha = idx_linha + 1
Next

Epah este tipo mostra o titulo dos campos no datagridview e nada mais...

2º

Dim num_campos As Integer
Dim idx As Integer
Dim campo As String

Const constr As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\Pedro Fernandes\Desktop\my precious\escola\PRojecto final de curso\Gesturo\Gesturo\GesturoDB.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"
Dim db As New SqlConnection(constr)
db.Open()
Dim varsql As String
varsql = "SELECT * FROM Cliente WHERE [Nome] = @textbox"
Dim cmd_dgrid As New SqlCommand(varsql, db)
Dim dr_dgrid As SqlDataReader
cmd_dgrid.Parameters.Add("@textbox", SqlDbType.VarChar).Value = TextBox1.Text
dr_dgrid = cmd_dgrid.ExecuteReader()
num_campos = dr_dgrid.FieldCount
For idx = 0 To num_campos - 1
campo = dr_dgrid.GetName(idx)
DataGridView1.Columns.Add(campo, campo)
Next
Dim idx_linha As Integer
idx_linha = 0


While dr_dgrid.Read()
Dim linha As DataGridViewRow()

DataGridView1.Rows.Add(linha)
DataGridView1.Rows(idx_linha).Cells(0).Value = dr_dgrid.Item(0)
DataGridView1.Rows(idx_linha).Cells(1).Value = dr_dgrid.Item(1)
DataGridView1.Rows(idx_linha).Cells(2).Value = RTrim(dr_dgrid.Item(2))
DataGridView1.Rows(idx_linha).Cells(3).Value = dr_dgrid.Item(3)
DataGridView1.Rows(idx_linha).Cells(4).Value = RTrim(dr_dgrid.Item(4))
DataGridView1.Rows(idx_linha).Cells(5).Value = RTrim(dr_dgrid.Item(5))
DataGridView1.Rows(idx_linha).Cells(6).Value = RTrim(dr_dgrid.Item(6))
DataGridView1.Rows(idx_linha).Cells(7).Value = RTrim(dr_dgrid.Item(7))

idx_linha = idx_linha + 1

End While
DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
dr_dgrid.Close()

db.Close()

Neste aqui ele cria os campos com as linhas e tal mas não escreve nada la dentro ^^

bem se perceberem disto e souberem algo força ^^

[P3dr0]

Pronto esta parte ja está ja consegui fazer

isto tinha que fazer um datareader e depois correr ali o as posições todas do mesmo era ai que me tava a falhar e no na parte do select tava a fazer mal tava me a esquecer do "LIKE" tendo que ficar assim: " select * From Cliente WHERE Nome Like ' " & ME.Textbox1.text.Trim & " % ' "

se quiserem que mostre o código todo digam

agora vou passar para as vendas e quando tiver alguma duvida concreta ja vos digo

PS: Aqueles que me tentaram ajudar no inicio peço desculpa, por ter desperdiçado na altura a sua ajuda e agora aceito se tiverem a burrifar se para mim, pois na altura fui eu que me burrifei para a ajuda que me queriam dar, compreendo isso, mas prontos eu até dia 9 vou dando sinais de vida, já que ando a programar 12 em 12 horas por dia ^^

[P3dr0]

Bem Agora vou passar a parte mais dificil ^^

isto em prencipio será a venda de produtos a clientes...

Agora a minha duvida é saber como faço para quando inserir isto na tabela "Vender produtos", a quantidade vendida de produtos, seja subtraida na tabela produtos...

ou seja eu tenho uma tabela chamada produtos onde tenho os produtos registados, e onde tenho la a quantidade de produtos que tenho em stock, então quando for vender 1 produto, vendo x quantidades do mesmo, então quero que quando efectuar a venda, faça um update á tabela produtos em que subtraia o quantidade de produtos vendida, pela existente no momento...

e isso não sei lá muito bem fazer, nem tenho grande noção de como fazer ^^

se alguem me desse uma ajudinha/empurrãozinho

[P3dr0]

Bem isto a programação não está a fluir lá muito bem...


como é que eu igualo uma variavel a um campo na BD?

epah ando aqui a martelada... e o que tenho andado a experimentar tem sido algo deste género:


Dim a As Integer

strsql = "SELECT Quantidade_Em_Stock FROM Produto WHERE Quantidade_Em_Stock =" & a

MsgBox(a)


so que quando vai fazer o msgbox pa ver o valor de a, é sempre 0, e por mais voltas que de o diabo nao passa do 0 -.-

dicas?

[P3dr0]

bom ja consegui igualar a variavel ao valor do campo quantidade em stock ^^

agora o que tenho de fazer é inserir os valores na tabela Vender produtos, que não deve ser dificil, penso eu...

e actualizar a tabela produtos de forma a subtrair a quantidade de produtos vendidos pela em stock, isso é que ja me parece um pouco mais dificil ^^

bem vamos la ver

[P3dr0]

opah isto agora ta me aqui a dar um problema...

Const constr As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\Pedro Fernandes\Desktop\my precious\escola\PRojecto final de curso\Gesturo\Gesturo\GesturoDB.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"
Dim db As New SqlConnection(constr)
db.Open()
Dim varsql As String
varsql = "UPDATE Produto SET Quantidade_Em_Stock = '" & Quantidade_pos_venda & "' WHERE Cod_produto ='" & Codigo_produto & "'"
Dim cmd As New SqlCommand(varsql, db)
cmd.ExecuteNonQuery()
db.Close()
MsgBox("Venda realizada com sucesso!", MsgBoxStyle.Information, "Sucesso!")

E que finalizo a venda e tal, mas o programa não actualiza nada xD, se alguem souber o que ta mal neste código força ^^

[kasy]

qual o mensagem de erro que te da
tenho a minha PAP parecida a tu so que é de gestao de uma loja de informatica

[P3dr0]

ele não da erro nenhum xD

ele "supostamente" faz tudo bem, mas ao actualizar a tabela produtos, nao subetrai o stock existente pelo vendido ^^

so isso xD