CONEXAO COM DATA GRID
BOA TARDE,
PESSOAL ESTOU CRIANDO UMA CONEXAO COM BANCO DE DADOS, MAS POREM QUERO QUE ESTE BANCO DE DADOS SEJA MOSTRADO EM UM DATA GRID,
O CODIGO QUE ESTOU USANDO PARA FAZER A CONEXAO E ESTE.
AGORA QUAL O CODIGO QUE EU USO PARA CONECTAR ESTE BANCO DE DADOS NO MEU DATA GRID., NAO ESTOU CONSEGUINDO.
DESDE JA AGRADEÇO A ATENÇAO DE TODOS
PESSOAL ESTOU CRIANDO UMA CONEXAO COM BANCO DE DADOS, MAS POREM QUERO QUE ESTE BANCO DE DADOS SEJA MOSTRADO EM UM DATA GRID,
O CODIGO QUE ESTOU USANDO PARA FAZER A CONEXAO E ESTE.
Citação:CAMINHO = [Ô]C:\SISTEMA-QUADRA\BANCO\QUADRA.mdb[Ô]
SQL = [Ô]SELECT * FROM AGENDA[Ô]
Set CONEXAO = New ADODB.Connection
If CONEXAO.State = 0 Then
CONEXAO.Open [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] + CAMINHO + [Ô];Persist Security Info=False[Ô]
TESTE.Show
Else
MsgBox [Ô]Banco já conectado![Ô], vbExclamation, [Ô]Atenção[Ô]
End If
AGORA QUAL O CODIGO QUE EU USO PARA CONECTAR ESTE BANCO DE DADOS NO MEU DATA GRID., NAO ESTOU CONSEGUINDO.
DESDE JA AGRADEÇO A ATENÇAO DE TODOS
Meu caro
Basta conectar um objeto Adodc Data Control ao seu grid
e setar o recordsource do data control ao banco
Prontinho
Boa tarde,
Sinkertec, eu nao estou querendo usar o componente Adodc data Control, eu quero usar somente este tipo de conexao.
mas desde ja agradeço a atençao.
Sinkertec, eu nao estou querendo usar o componente Adodc data Control, eu quero usar somente este tipo de conexao.
mas desde ja agradeço a atençao.
Sub CarregarGrid()
Set Rs = New ADODB.Recordset
Sql = [Ô]Select * From TabFunc Order BY Nome[Ô]
Rs.CursorLocation = adUseClient
Rs.Open Sql, Cnn, adOpenKeyset, adLockPessimistic
Set Grid.DataSource = Rs
Grid.Refresh
End Sub
O DataGrid e o MshflexGrid são controles ADO e podem ser carregados de forma parecida:
Set Grid.DataSource = Rs
Click aqui para tutorial MsFlexGrid ou MsHflexgrid tem mais funções que o DataGrid. Veja aqui
Tópico encerrado , respostas não são mais permitidas