DBGRID - USANDO DAO

REIS 08/12/2010 11:00:10
#359065
bom dia, uma rotina que funcionou durante anos parou de funcionar.

tenho um dbgrid que era abastecido com uma SQl.

Com o access atualizado ela parou de funcionar.

Pergunto, tem como eu atualizar os dados no DBGRID sem usar o controle DATA?
Eu poderia usar a sql direto no dbgrid?

Estou passando a tela de erro do sql anexada.
WEBIER 08/12/2010 11:33:30
#359068
Cola a sql do proprio vb para analisarmos melhor o erro
REIS 08/12/2010 11:44:43
#359069
Ai esta o codigo com erro
WEBIER 08/12/2010 12:51:07
#359082
abre o bd assim:

exemplo:
[ô]num modulo (declaration)
Global BD As Database
Global AreaTrabalho As Workspace


[ô] no mesmo modulo
Sub ABRIR_BD_SEM_DATA1()
Set AreaTrabalho = DBEngine.Workspaces(0)
Set BD = AreaTrabalho.OpenDatabase(App.Path & [Ô]\cyberbase.mdb[Ô], False, False)
End Sub


[ô]no form (declaration)
Dim SQL As String
Dim RS As Recordset


[ô]no form para usar a SQL
Call ABRIR_BD_SEM_DATA1
SQL = [Ô]SUA SQL AQUI[Ô]
Set RS = BD.OpenRecordset(SQL)


ai vc troca esse CYBERBASE.MDB para seu banco de dados
REIS 08/12/2010 13:18:05
#359089
blz, e para que o dbgrid mostre este sql, por gentileza com faço?
WEBIER 08/12/2010 13:25:06
#359091 
dbgrid.datasource = rs
REIS 08/12/2010 14:36:50
#359106
olha, nao quer aceitar a sql

fiz ate uma simples e esta dando erro.

Set RS = BD.OpenRecordset(sSql, dbOpenTable)
tem erro nesta linha?
REIS 08/12/2010 14:44:28
#359109
sSql = [Ô]select * from tbl_mercadorias[Ô]
Set RS = BD.OpenRecordset(sSql, dbOpenTable)
WEBIER 08/12/2010 14:56:21
#359111
tira esse dbOpenTable e coloca DbOpenSnapshot
REIS 08/12/2010 15:06:31
#359113
blz, passou esta linha e deu outro erro agora;

DBGrid1.DataSource = RS

ai deu o erro que esta anexo...
WEBIER 08/12/2010 16:35:56
#359124
qual o nome de seu dbgrid?
Página 1 de 2 [13 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar