|
|
|
|
|
|
|
|
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
|
|
|
|
|
