INICIANDO EM FLEXGRID

GESSINGER 22/03/2011 23:07:20
#368859
Ola galera como conectar esse Flexgrid com o banco de dados access usando Ado 2.1

O flex ja ta montado e banco tb so precisa da conexao....Fiquem com Deus
TECLA 22/03/2011 23:22:35
#368860
Via código e no modo desvinculado.
GESSINGER 22/03/2011 23:50:31
#368862
ele funcionou ai ?
ta dando erro nessa linha:

rs.Open [Ô]Select * from Fiados order by ID[Ô], conex, adOpenKeyset, adLockOptimistic
GESSINGER 23/03/2011 00:01:56
#368863
erro é :

Run_time error [ô]3001[ô]
Os argumentos são incirretos. estao fora do intervalo aceitável ou
estao em conflito
LLAIA 23/03/2011 00:23:42
#368865
Se sua conexão se chama conn, vc não pode passar conex no método open do recordset. Troque conex por conn.

Percebo que vc tá desenvolvendo na base do copy/paste mesmo não conhecendo bem a ADO. Aconselho a pegar a referência da ADO e conhecer os métodos e propriedades, para começar, do objeto Connection e do objeto Recordset.
GESSINGER 23/03/2011 00:42:34
#368866
alterei para conex e agora esta abrindo o form sem dar nenhum erro, mas ainda não ta carregando o flex...help me please
GESSINGER 23/03/2011 00:44:13
#368867
olha o arquivo ai
MARCELO.TREZE 23/03/2011 02:38:28
#368868 Resposta escolhida
veja como fiz
mudei a forma de se criar o cabeçalho também, deixei mais enxuto


Private Sub Form_Load()
With GridDados

    .Rows = 1
    .Cols = 6
    .FormatString = [Ô]ID|NOME|PRODUTO|PRECO R$|DATA|Status[Ô]
    .ColWidth(0) = 500
    .ColWidth(1) = 1200
    .ColWidth(2) = 1500
    .ColWidth(3) = 1500
    .ColWidth(4) = 1500
    .ColWidth(5) = 3000
    
    [ô]Conexão
    
    sConnString = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & App.Path & [Ô]\Banco.mdb;Persist Security Info=False[Ô]
 conex.Open sConnString
  rs.Open [Ô]Select * from Fiados order by Nome[Ô], conex, adOpenKeyset, adLockOptimistic
  Do While Not rs.EOF
  .Rows = .Rows + 1
  .TextMatrix(.Rows - 1, 0) = rs!id & [Ô][Ô]
  .TextMatrix(.Rows - 1, 1) = rs!nome & [Ô][Ô]
  .TextMatrix(.Rows - 1, 2) = rs!produto & [Ô][Ô]
  .TextMatrix(.Rows - 1, 3) = rs!preco & [Ô][Ô]
  .TextMatrix(.Rows - 1, 4) = rs!Data & [Ô][Ô]
  .TextMatrix(.Rows - 1, 5) = rs!Status & [Ô][Ô]
  rs.MoveNext
  Loop
  
  End With

End Sub
GESSINGER 23/03/2011 17:50:58
#368932
MARCELO-TREZE Obrigado, a conexao ta ok agora, ja ta carregando o Flexgrid. só tem um probleminha:

quando faço referencia ao função [Ô]VerificaStatus[Ô] da o seguinte erro!!

Run-time errot [ô]13[ô]:
Type mismatch

e ao depurar a aparece o que esta na imagem acima: vou deixar o zip ai.......Obrigado a todos
GESSINGER 23/03/2011 17:53:09
#368933
de novo o arq zip
GESSINGER 23/03/2011 18:38:40
#368942
alguem sabe me dizer pq ta dando esse erro ?
Página 1 de 2 [16 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar