Information générale
Catégorie:
Produits tierce partie
I have figured it out, without using ODBC. I have a VB6 Form with a command button on it:
Private Sub Command1_Click()
Dim oFox As Object
Set oFox = CreateObject("VisualFoxPro.Application")
ChDrive ("f:\")
ChDir ("f:\_test database\")
oFox.DoCmd "set library to 'f:\_test database\c40fox70.fll' additive"
oFox.DoCmd "x = CRYPTOR('Bmtpat.dbf','david', 0, 8)"
oFox.DoCmd "x = CRYPTOR('Bmtpat.cdx','david', 0, 8)"
oFox.DoCmd "x = CRYPTOR('Bmtpat.fpt','david', 0, 8)"
oFox.DoCmd "USE 'f:\_test database\Bmtpat.dbf'"
oFox.DoCmd "SELECT * from Bmtpat into cursor bmt"
oFox.DataToClip "bmt", , 3
End
End Sub
This puts the contents of my Bmtpat table into the clipboard.
David Reeves.
"I poured Spot remover on my dog. Now he's gone."
"What happens if you get scared half to death twice?"
"Eagles may soar, but weasels don't get sucked into jet engines."
"If a mime is arrested do they tell him he has the right to talk?"
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement