CARREGAR GRID COM ADO

GESSINGER 18/02/2010 16:30:48
#334717
tenho um banco de dados access com os seguintes campos
Nome
Telefone
Celular
mas não to conseguindo carregar o DATAGRID.......segue o codigo



Dim conex As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub cmdAnterior_Click()
With rs
If .BOF And .EOF Then
MsgBox [Ô]Não há dados no arquivo [Ô], vbInformation
Else
.MovePrevious
If .BOF Then
.MoveFirst
cmdAnterior.Enabled = False
MsgBox [Ô]Chegamos ao primeiro registro ![Ô]
Else
mostra_dados
End If
End If
End With

End Sub



Private Sub cmdGravar_Click()
rs.AddNew
rs!Nome = txtNome.Text [ô] Trim retira ecesso de espaços
rs!Telefone = txtTelefone.Text
rs!Celular = txtCelular.Text
rs.Update

MsgBox [Ô]Registro incluido com sucesso...[Ô], vbInformation, [Ô]Aviso[Ô]
End Sub

Private Sub cmdNovo_Click()
txtNome.Text = [Ô][Ô]
txtTelefone.Text = [Ô][Ô]
txtCelular.Text = [Ô][Ô]
End Sub





Private Sub cmdProximo_Click()
With rs
If .BOF And .EOF Then
MsgBox [Ô]Não há dados no arquivo [Ô], vbInformation
Else
.MoveNext
If .EOF Then
[ô].MoveLast
cmdProximo.Enabled = False
MsgBox [Ô]Chegamos ao ultimo registro ![Ô]

Else
mostra_dados
End If
End If
End With

End Sub

Private Sub cmdSair_Click()
If MsgBox([Ô]Deseja encerrar o sistema ?[Ô], vbYesNo) = vbYes Then
Unload Me
End If
End Sub





Private Sub Form_Load()
conex.Open [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Wilton\Meus documentos\QSL + Ado\base.mdb;Persist Security Info=False[Ô]
rs.Open [Ô]Select * from Tab order by Nome[Ô], conex, adOpenKeyset, adLockOptimistic


txtNome.Text = rs!Nome
txtTelefone.Text = rs!Telefone
txtCelular.Text = rs!Celular

[ô]--------------------------------------------------------------------------
[ô]**** Carregando DATAGRID ****


Set Grid.DataSource = rs [ô]Carregando o Grid com Ado



Grid.Columns(0).Width = 200 [ô]Formantando as colunas do Grid
Grid.Columns(2).Width = 300 <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<erro aqui
Grid.Columns(3).Width = 300

End Sub
Private Sub mostra_dados()
With rs
If .BOF And .EOF Then
MsgBox [Ô]Não há dados para exibir ! [Ô]
Else

txtNome.Text = rs!Nome
txtTelefone.Text = rs!Telefone
txtCelular.Text = rs!Celular

End If
End With


End Sub


o erro é esse:

Run-time error[ô]9[ô]:
Subscript out of range






alguem pode ajudar
GESSINGER 18/02/2010 16:44:35
#334719
ta ai
GESSINGER 18/02/2010 18:14:32
#334732
o que esta faltando no codigo ?
JOSIMARCSILVA 18/02/2010 18:16:54
#334733 Resposta escolhida
Citação:

:Grid.Columns(0).Width = 200 [ô]Formantando as colunas do Grid

Grid.Columns(2).Width = 300 <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<erro aqui

Grid.Columns(3).Width = 300



Edite o DataGrid em tempo de projeto, dai vc não precisa do código acima.
Click com botao direito no Grid escolha a opção editar e ajuste as colunas no tamanho que quiser.
GESSINGER 18/02/2010 18:20:47
#334734
o problema é q não ta carregando o datagrid
GESSINGER 18/02/2010 20:20:28
#334743
como faço para carregar o datagrid
JOSIMARCSILVA 19/02/2010 18:08:32
#334840
rs.CursorLocation= userClient
rs.Open [Ô]Select * from Tab order by Nome[Ô], conex, adOpenKeyset, adLockOptimistic
Set Grid.DataSource = rs [ô]Carregando o Grid com Ado
JOSIMARCSILVA 19/02/2010 22:08:58
#334860
Então vamos desde o início ....

1 - Em tempo de projeto, click com o botão direito no DataGrid e escolha a opção EDIT.
2 - Logo em seguida click novamente com o botão direito no DataGrid e va clicando na opção INSERT até inserir o total de colunas que irá utilizar.
3 - Apos inserir todas as colunas, click com o botão direito no DataGrid e escolha a opção propriedades.
4 - Na guia COLUMNS va selecionando cada coluna (opção columns) e va configurando os campos CAPITON (que vai aparecer nas colunas) e DATAFIELD como os nomes dos campos da tabela.
5 - No evento LOAD do form coloque o código abaixo:

rs.CursorLocation= userClient
rs.Open [Ô]Select * from Tab order by Nome[Ô], conex, adOpenKeyset, adLockOptimistic
Set Grid.DataSource = rs [ô]Carregando o Grid com Ado


Acho que é isto .... at+
Tópico encerrado , respostas não são mais permitidas
Voltar