DATAGRIDVIEW COLUNA E TAMANHO

AISLANSANTOS 23/02/2013 22:35:44
#419565
Estou usando o seguinte código pra uma pesquisa:

If Rb_RazSoc.Checked Then
Dgv_Associados.DataSource = Nothing
Dgv_Associados.Rows.Clear()
Da = New Odbc.OdbcDataAdapter([Ô]SELECT * from Associados where razao_social like [ô][Ô] & filtro & [Ô]%[ô][Ô], conn)
ds = New DataSet
Da.Fill(ds, [Ô]TABLE[Ô])
If ds.Tables(0).Rows.Count <> 0 Then
Me.Dgv_Associados.DataSource = ds.Tables(0)
End If
conn.Close()
End If

ele esta colocando o no nome da coluna conforme o o nome do campo no banco de dados ....
gostaria de saber se alguém sabe me informar como mudar o o nome da culuna e o tamanho dela que também esta puxando automatico.
ALTAIR148 23/02/2013 23:39:51
#419570
Boa noite, tente com o código abaixo, depois basta adaptar. 

If Rb_RazSoc.Checked Then
            Dgv_Associados.DataSource = Nothing
            Dgv_Associados.Rows.Clear()
            Da = New Odbc.OdbcDataAdapter([Ô]SELECT * from Associados where razao_social like [ô][Ô] & filtro & [Ô]%[ô][Ô], conn)
            ds = New DataSet
            Da.Fill(ds, [Ô]TABLE[Ô])
            If ds.Tables(0).Rows.Count <> 0 Then
                Me.Dgv_Associados.DataSource = ds.Tables(0)

With Dgv_Associados
 .Columns([Ô]razao_social[Ô]).HeaderText = [Ô]Razão Social[Ô]
.Columns([Ô]razao_social[Ô]).Width= 200
 End With
            End If
            conn.Close()
        End If
AISLANSANTOS 23/02/2013 23:59:57
#419572
Citação:

:
Boa noite, tente com o código abaixo, depois basta adaptar. 

If Rb_RazSoc.Checked Then
            Dgv_Associados.DataSource = Nothing
            Dgv_Associados.Rows.Clear()
            Da = New Odbc.OdbcDataAdapter([Ô]SELECT * from Associados where razao_social like [ô][Ô] & filtro & [Ô]%[ô][Ô], conn)
            ds = New DataSet
            Da.Fill(ds, [Ô]TABLE[Ô])
            If ds.Tables(0).Rows.Count <> 0 Then
                Me.Dgv_Associados.DataSource = ds.Tables(0)

With Dgv_Associados
 .Columns([Ô]razao_social[Ô]).HeaderText = [Ô]Razão Social[Ô]
.Columns([Ô]razao_social[Ô]).Width= 200
 End With
            End If
            conn.Close()
        End If



acho que eu mandei o código pela metade e naum deu muito certo ele continua aparecendo os campos do mesmo jeito, vlw pela mão se puder olhar o codigo completo que vou mandar agora jah fico agradecido desde ja.


Private Sub CarregaDados(ByVal filtro As String)
conn.ConnectionString = [Ô]Driver={Microsoft Access Driver (*.mdb)};Dbq=F:\Inicio projeto final liga\cadastro.mdb;Uid=Admin;Pwd=;[Ô]
conn.Open()

If Rb_RazSoc.Checked Then
Dgv_Associados.DataSource = Nothing
Dgv_Associados.Rows.Clear()
Da = New Odbc.OdbcDataAdapter([Ô]SELECT * from Associados where razao_social like [ô][Ô] & filtro & [Ô]%[ô][Ô], conn)
ds = New DataSet
Da.Fill(ds, [Ô]TABLE[Ô])
If ds.Tables(0).Rows.Count <> 0 Then
Me.Dgv_Associados.DataSource = ds.Tables(0)

End If
conn.Close()
End If

If Rb_NomeFanta.Checked Then
Dgv_Associados.DataSource = Nothing
Dgv_Associados.Rows.Clear()
Da = New Odbc.OdbcDataAdapter([Ô]SELECT * from Associados where nome_fantasia like [ô][Ô] & filtro & [Ô]%[ô][Ô], conn)
ds = New DataSet
Da.Fill(ds, [Ô]TABLE[Ô])
If ds.Tables(0).Rows.Count <> 0 Then
Me.Dgv_Associados.DataSource = ds.Tables(0)

End If
conn.Close()
End If

If Rb_CNPJ.Checked Then
Dgv_Associados.DataSource = Nothing
Dgv_Associados.Rows.Clear()
Da = New Odbc.OdbcDataAdapter([Ô]SELECT * from Associados where cnpj like [ô][Ô] & filtro & [Ô]%[ô][Ô], conn)
ds = New DataSet
Da.Fill(ds, [Ô]TABLE[Ô])
If ds.Tables(0).Rows.Count <> 0 Then
Me.Dgv_Associados.DataSource = ds.Tables(0)
End If
conn.Close()
End If

If Rb_Cidade.Checked Then
Dgv_Associados.DataSource = Nothing
Dgv_Associados.Rows.Clear()
Da = New Odbc.OdbcDataAdapter([Ô]SELECT * from Associados where cidade like [ô][Ô] & filtro & [Ô]%[ô][Ô], conn)
ds = New DataSet
Da.Fill(ds, [Ô]TABLE[Ô])
If ds.Tables(0).Rows.Count <> 0 Then
Me.Dgv_Associados.DataSource = ds.Tables(0)
End If
conn.Close()
End If

If Rb_Cidade.Checked = False And Rb_CNPJ.Checked = False And Rb_NomeFanta.Checked = False And Rb_NomeFanta.Checked = False And Rb_RazSoc.Checked = False Then
MsgBox([Ô]Um filtro de pesquisa necessario, enquanto não escolher o sistema fara o filtro por Cidade !!!![Ô], vbCritical, [Ô]Advertencia[Ô])
Rb_Cidade.Checked = True
conn.Close()
End If
End Sub
ALTAIR148 24/02/2013 00:04:28
#419574
Posta seu código como ficou com o exemplo que te mandei.
ARCADYUM 24/02/2013 10:51:35
#419577
Ou pode colocar um alias na instrução Sql tipo [Ô]Select Razao_Social as [ô]Razão Social[ô] e configurar o grid antes das intruções.
FELLIPEASSIS 24/02/2013 18:24:48
#419582
If Rb_RazSoc.Checked = true Then
[ô]sua instruçao
exit sub
end if
e retira conn.Close()
e coloca circudado no bloco try e catch
com menssagem msgbox(ex.tostring)
AISLANSANTOS 01/03/2013 23:07:58
#419794
Galera vlw pela força mais naum deu muito certo ... vou estar olhando algumas coisas mais urgentes no sisteminha que estou fazendo depois volto a ver mais sobre isso ....
... novamente muito obrigado pela força ....
Tópico encerrado , respostas não são mais permitidas
Voltar