使用 Visual FoxPro 将数据库转储导入到 mysql

Question

我使用 leaves stru2mysql.prg 和 vfp2mysql_upload.prg 从 DBF 创建一个 .sql 转储文件。我使用 ODBC 从 vfp 连接到 mysql 数据库。我知道如何上传 sql 转储文件，但我需要自动化整个过程，即创建转储文件后，我的 Visual FoxPro 程序可以在没有第三方的情况下上传转储文件（自动）。我想过使用 source 命令，但需要在 mysql 提示符下运行。这里的假设是我的最终用户不知道如何导入（其中大多数人不知道）。请建议我如何自动将 sql 文件导入到mysql数据库。谢谢

Answer 1

我认为您正在寻找的是 Foxpro 中的各种 SQL* 函数。请参阅有关 SQLCONNECT（或 SQLSTRINGCONNECT）、SQLEXEC 和 SQLDISCONNECT 函数的 VFP 帮助或 MSDN 以开始使用。 Microsoft 在文档中为每个内容提供了很好的示例。

您可能还想使用FILETOSTR 将Leafe 程序的输出获取到SQLEXEC 函数的字符串中。

Answer 2

以下是我从 Visual FoxPro 数据库获取数据并上传到 MySql 数据库的步骤。这些都被放入表单上的自定义方法中，该方法由命令按钮触发。例如，方法为“uploadnewdata”，我为所需的数据表传递参数

1) 连接到服务器 - 我使用 MySql ODBC
2）验证用户（这使用 SQLEXEC 为用户表提取正确的匹配记录
IF M.WorkingDatabase<>-1
nRetVal=SQLEXEC(m.WorkingDatabase,"SELECT * FROM users", "csrUsersOnServer")

SELECT csrUsersOnServer
SELECT userid,FROM csrUsersOnServer;
WHERE ALLTRIM(UPPER(userid))=ALLTRIM(UPPER(lcRanchUser));
 AND ALLTRIM(UPPER(lcPassWord))=ALLTRIM(UPPER(lchPassWord));
INTO CURSOR ValidUsers
IF _TALLY>=1
     ELSE
=MESSAGEBOX("Your Premise ID Does Not Match Any Records On The Server","System Message")
RETURN 0
ENDIF
ELSE
=MESSAGEBOX("Unable To Connect To Your Database", "System Message")
RETURN 0
ENDIF

3) 一旦成功，我将创建我的基本游标（这是我发送的游标）
4）然后我循环遍历该游标，为字段中的值创建变量
5）然后使用SQLEXEC和INSERT INTO，我更新每条记录
6) 一旦程序完成对光标的处理，它会生成一个带有“完成”消息的消息框，并且控制返回到表单。

用户所要做的就是选择起始表并输入他们的登录信息