Prova De Aptidão Profissional - SoS PeoPleWaRe

[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 ^^