SQL DAO

USUARIO.EXCLUIDOS 07/05/2006 19:52:47
#145398

olá pessoal

como que eu faço pra montar uma sql utilizando o microsoft dao 3.6????

aguardo uma resposta

obrigado.

LOOZE 07/05/2006 20:08:49
#145400

Public Banco As Database
Public TbVenda As Recordset

'com isso eu abro o banco de dados
Public Sub AbreBanco()
Set Banco = DBEngine.Workspaces(0).OpenDatabase(app.path & "sistema.mdb")
End Sub

'com isso eu abro a tabela
public sub AbreTabela
set TbVenda = Banco.OpenRecordset("select * from SuaTabela")
end sub

USUARIO.EXCLUIDOS 07/05/2006 20:23:46
#145405

LOOZE você me ajudou bastante, só q eu preciso montar uma sql mais ou menos assim:

Set tbclientes = basedados.OpenRecordset("select * from clientes where clientes.nome=" & txtnome.text)

só que esta dando um erro 3061 "parametros insuficientes".

aguardo uma resposta.

obrigado.

MARCOSAV 07/05/2006 21:11:58
#145410

BRUNOLSA, nesse caso, vc deve usar algo deste tipo...
No Form_Load (ou no evento que vc está utilizando), tente colocar a sql desta forma...

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Seu_Form.Data1.RecordSource = "Select * FROM Sua_Tabela where nome =" & txtnome.text
Seu_Form.Data1.Refresh
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Usei dessa forma e funcionou...
Caso não funcione aÃ, volte a postar, vlw ??? Caso vc queira fazer um teste, substitua o txtNome por um Nome gravado na tabela: "Select ... where nome = 'Marcos'"

Abraço
T+

USUARIO.EXCLUIDOS 07/05/2006 21:38:08
#145417

Marcos,

eu não estou trabalhando com o objeto data, portanto a sua sql não me vai me servir.

obrigado Marcos.

MARCOSAV 07/05/2006 22:30:29
#145420

Sem o Data, uso assim...

++++++++++++++++++++++++++++++++++++++++++++++++++
Dim WS As Workspace
Dim query As String
Dim bco As Database

Set WS = DBEngine.Workspaces(0)
Set bco = WS.OpenDatabase(App.Path & "\Banco.Mdb", False, False)
query = "Select * From Tabela where Nome = '" & txtNome & "'"
Set DYN = xbco.OpenRecordset(query)
++++++++++++++++++++++++++++++++++++++++++++++++++

Vê agora...

Abraço
T+

DANITNK 08/05/2006 10:58:06
#145455

vc ja tentou assim
Set tbclientes = basedados.OpenRecordset("select * from clientes where clientes.nome=""" & txtnome & """")

LOOZE 08/05/2006 12:50:07
#145495 Resposta escolhida

FAÃ‡A ASSIM... COPIE E COLE
Set tbclientes = basedados.OpenRecordset("select * from clientes where nome='" & txtnome & "'")

mais o erro que esta dando. esta te dizendo que o campo nome não existe na tabela cliente...

VERIFIQUE CORRETAMENTE O NOME DO CAMPO NA SUA TABELA...

Página única

Tópico encerrado , respostas não são mais permitidas

Voltar