BASE DE DADOS PARADOX

 Tópico anterior Próximo tópico Novo tópico

BASE DE DADOS PARADOX

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#15791 - 17/03/2004 19:42:28

JOAO SOARES
PORTUGAL
Cadast. em:Dezembro/2003


Algum tem um exemplo de como se trbalha com base de dados DB. ou o codigo para abrir, alterar, gravar em base de dados db.



Resposta escolhida #20305 - 13/04/2004 13:22:45

USUARIO.EXCLUIDOS

Cadast. em:


Segue

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=""Paradox 7.X;"";"
  Set OpenDBFConn = Conn
  
End Function
Private Sub Command1_Click()

'Abir Conexo para ficheiros DBF em C:\[Nome do Directorio]
Dim DBConn As Connection
Set DBConn = OpenDBFConn(App.Path)

'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(App.Path)
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(App.Path)
Dim Persons As Recordset
Set Persons = DBConn.Execute("Select * from [Persons]")


End Sub




 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por WEBMASTER em 18/08/2009 10:03:45