如何用VB访问Foxpro的数据库 用 data 控件很容易!只需选定 connect 属性 为foxpro就行!和访问access 一样!能 添,改,删 什么的!用代码的话,我没编过! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 试一下下面的方法:1、建立一个数据源,选择驱动程序时选择dBase V;2、在VB中使用ADO对象; A、建立数据库连接 Set cn=New ADODB.Connection cn.ConnectionString="dns=****" cn....... cn.Open B、建立记录集 Set rs=New ADODB.Recordset rs.Open "Select * From TableX Where ****",cn 上面这行代码中的SQL语句中的TableX代表实际的FoxPro记录文件(*.dbf)文件,但TableX中只写文件名。接下来可以操作记录集做你想做的操作; C、可以通过cn执行动作性的SQL语句 cn.Execute "Delete From TableX Where ****" cn.Execute "Update TableX Set FieldX=**** Where ****" cn.Execute "Insert ****"当然,可以不建立数据源而省略步骤1,而是通过设置驱动程序直接写Connection对象的连接字符串 cn.ConnectionString="Provider=***; ********" 和操作Access的方法想同,主要是设置数据源但有个问题,你不可以彻底删除记录,只能是给记录加删除标记。因为在vfp里delete只是给记录加删除标记,而vfp的彻底删除命令在odbc里不支持。 Private Const gsFOXPRO20 = "FoxPro 2.0;"Private Const gsFOXPRO25 = "FoxPro 2.5;"Private Const gsFOXPRO26 = "FoxPro 2.6;"Private Const gsFOXPRO30 = "FoxPro 3.0;"Private gwsMainWS As WorkspacePrivate gdbCurrentDB As DatabasePrivate strConnect As String Set gwsMainWS = DBEngine.CreateWorkspace("MainWS", "admin", vbNullString)strConnect =gsFOXPRO30Set gdbCurrentDB = gwsMainWS.OpenDatabase("數据庫路徑", False, True, strConnect) 用data控件正如楼上: Vb支持Foxpro的.DBF格式哦!!Private Const gsFOXPRO20 = "FoxPro 2.0;"Private Const gsFOXPRO25 = "FoxPro 2.5;"Private Const gsFOXPRO26 = "FoxPro 2.6;"Private Const gsFOXPRO30 = "FoxPro 3.0;"Private gwsMainWS As WorkspacePrivate gdbCurrentDB As DatabasePrivate strConnect As String Set gwsMainWS = DBEngine.CreateWorkspace("MainWS", "admin", vbNullString)strConnect =gsFOXPRO30Set gdbCurrentDB = gwsMainWS.OpenDatabase("源路徑", False, True, strConnect ODBC连接字符串:1、Visual FoxPro(带有一个数据库容器):Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;SourceDb=指向.dbc文件的物理路径2、Visual FoxPro(不带数据库容器):Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDb=指向.dbf文件的物理路径一本介绍ASP的书上抄来的,没试过,不知道在vb下能不能照搬。 arcgis vba 开发 特殊字符 请高手帮忙.在线等,解决了马上给分 关于DAO 请问如果窗体没有焦点, 但处于激活状态, 能得到它的hwnd吗? 请教:所需要的数据已经从数据库取出,显示在界面上的控件中,请问如何按照规定的报表格式做打印预览和打印啊? 进者有分~~~~~~~~~~~~~~~~. 如何获得图片的原始尺寸??? 请教如何在VB程序中获得指定文件的属性(如建立时间,最后修改时间,文件大小等) vb6如何发送pop3邮件和发送exchange邮件? 拜托各位大哥,我问一下accp的培训有用吗? 控件更新数据的速度能否提高??急!
2、在VB中使用ADO对象;
A、建立数据库连接
Set cn=New ADODB.Connection
cn.ConnectionString="dns=****"
cn.......
cn.Open
B、建立记录集
Set rs=New ADODB.Recordset
rs.Open "Select * From TableX Where ****",cn
上面这行代码中的SQL语句中的TableX代表实际的FoxPro记录文件(*.dbf)文件,但TableX中只写文件名。接下来可以操作记录集做你想做的操作;
C、可以通过cn执行动作性的SQL语句
cn.Execute "Delete From TableX Where ****"
cn.Execute "Update TableX Set FieldX=**** Where ****"
cn.Execute "Insert ****"当然,可以不建立数据源而省略步骤1,而是通过设置驱动程序直接写Connection对象的连接字符串
cn.ConnectionString="Provider=***; ********"
但有个问题,你不可以彻底删除记录,只能是给记录加删除标记。
因为在vfp里delete只是给记录加删除标记,而vfp的彻底删除命令在odbc里不支持。
Private Const gsFOXPRO25 = "FoxPro 2.5;"
Private Const gsFOXPRO26 = "FoxPro 2.6;"
Private Const gsFOXPRO30 = "FoxPro 3.0;"
Private gwsMainWS As Workspace
Private gdbCurrentDB As Database
Private strConnect As String Set gwsMainWS = DBEngine.CreateWorkspace("MainWS", "admin", vbNullString)
strConnect =gsFOXPRO30
Set gdbCurrentDB = gwsMainWS.OpenDatabase("數据庫路徑", False, True, strConnect)
正如楼上: Vb支持Foxpro的.DBF格式哦!!
Private Const gsFOXPRO20 = "FoxPro 2.0;"
Private Const gsFOXPRO25 = "FoxPro 2.5;"
Private Const gsFOXPRO26 = "FoxPro 2.6;"
Private Const gsFOXPRO30 = "FoxPro 3.0;"
Private gwsMainWS As Workspace
Private gdbCurrentDB As Database
Private strConnect As String Set gwsMainWS = DBEngine.CreateWorkspace("MainWS", "admin", vbNullString)
strConnect =gsFOXPRO30
Set gdbCurrentDB = gwsMainWS.OpenDatabase("源路徑", False, True, strConnect
1、Visual FoxPro(带有一个数据库容器):
Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;SourceDb=指向.dbc文件的物理路径
2、Visual FoxPro(不带数据库容器):
Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDb=指向.dbf文件的物理路径一本介绍ASP的书上抄来的,没试过,不知道在vb下能不能照搬。