CONVERTER DAO PARA SQL
Tenho um sistema em DAO (access 97) e estou precisando converter para SQL. O problema é que os comandos sao assim:
Dim tb_cliente as table
Set Arq_cliente = OpenDatabase("cliente.MDB")
Set Tb_cliente = Arq_cliente.OpenTable("cliente")
...
tb_cliente.seek "=", chave
tt_codigo = tb_cliente.fields![cod_cliente]
tb_cliente.close
Existe algum jeito RAPIDO do sistema funcionar com o SQL. Acho que ele nao aceita SEEK, OPEN e etc
Alguma sujestao
Dim tb_cliente as table
Set Arq_cliente = OpenDatabase("cliente.MDB")
Set Tb_cliente = Arq_cliente.OpenTable("cliente")
...
tb_cliente.seek "=", chave
tt_codigo = tb_cliente.fields![cod_cliente]
tb_cliente.close
Existe algum jeito RAPIDO do sistema funcionar com o SQL. Acho que ele nao aceita SEEK, OPEN e etc
Alguma sujestao
Em ado com access 2000 você poderia fazer assim:
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
Cnn.open "Provider=Microsoft.Jet.oledb.4.0;Data source=c:\caminho\Cliente.mdb"
Set Rst.ActiveConnection = Cnn
Sql = "Select * from cliente"
Rst.Open Sql,Cnn,AdOpenKeySet,AdLockOptimistic
Rst.movefirst
'Presumindo que chave seja um nome
Rst.Find("[nome_cliente='" & chave & "'")
tt_codigo = rst![cod_cliente]
Não seria isso que vc quer?
dim sql as string
Set Arq_cliente = OpenDatabase("cliente.MDB")
sql="select * from clientes"
set tb_cliente= arq_cliente.openrecordset(sql,dbopendynaset)
dim sql as string
Set Arq_cliente = OpenDatabase("cliente.MDB")
sql="select * from clientes"
set tb_cliente= arq_cliente.openrecordset(sql,dbopendynaset)
Tópico encerrado , respostas não são mais permitidas