USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Banco de Dados)

Título da Dica:  ADO + DBF
Postada em 29/2/2004 por :: Renato ::         
Eis alguns exemplos de como trabalhar com ado + DBFs:

function openDBFconn(path)
  dim conn as connection
  set conn = createobject("adodb.connection")
  conn.open "provider=microsoft.jet.oledb.4.0;" & _
                   "data source=" & path & ";" & _
                   "extended properties=""dbase iv;"";"
  set openDBFconn = conn  
end function

private sub command1_click()
'abir conexão para ficheiros DBF em c:\[nome do directorio]
dim dbconn as connection
set dbconn = openDBFconn("c:\testes")
'criar um novo ficheiro DBF chamado persons.DBF
dbconn.execute "create table persons (name char(50), city char(50), phone char(20), zip decimal(5))"
end sub

private sub command2_click()
'inserir alguns registos na tabela persons
dim dbconn as connection
set dbconn = openDBFconn("c:\testes")
dbconn.execute "insert into persons values('alex p. nor', 'mexico','458962146','14589')"
end sub

private sub command3_click()
'abir  recordset da tabela  persons
dim dbconn as connection
set dbconn = openDBFconn("c:\testes")
dim persons as recordset
set persons = dbconn.execute("select * from [persons#DBF]")
end sub

Renato
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página