急,VB语言对vf数据库的调用

'在工程中引用Microsoft ActiveX Data Objects 25 Libary

Dim CNN As New ADODBConnection

Dim STRSQL As String

'打开

Private Sub Form_Load()

CNNConnectionString = "Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDb=E:DBF"

CNNOpen

End Sub

'创建

Private Sub Command1_Click()

CNNCursorLocation = adUseClient

STRSQL = "CREATE TABLE E:DBFDEMODBF ([IDA] CHAR(32),[NAME] CHAR(32))"

CNNExecute STRSQL

'CNNClose

End Sub

'添加

Private Sub Command2_Click()

STRSQL = "insert into demo([ida],[NAME]) values('1','sdf')"

CNNExecute STRSQL

End Sub

'显示

Private Sub Command3_Click()

Dim rs As New ADODBRecordset

STRSQL = "select from demo"

Set rs = CNNExecute(STRSQL)

If Not rsEOF Then

Text1Text = rsFields(1)

End If

End Sub

'修改

Private Sub Command4_Click()

STRSQL = "update demo set name='好好' where ida='1'"

CNNExecute STRSQL

End Sub

VF（数据库软件VisualFoxpro）一般指visual foxpro。Visual FoxPro简称VFP，是Microsoft公司推出的数据库开发软件，用它来开发数据库，既简单又方便。

Visual FoxPro 60 的特点

Visual FoxPro 60 能够得到广泛的使用，这是与其具有的强大的功能分不开的，Visual FoxPro 60 与其前期的版本相比，有更高的性能指标和鲜明的特点。

1 提供多种可视化编程工具，最突出的是面向对象编程。

2 在表的设计方面，增添了表的字段和控件直接结合的设置。

3 对项目及数据库控制的增强

在 Visual FoxPro 60 中可以借助“项目管理器”创建和集中管理应用程序中的任何元素；可以访问所有向导、生成器、工具栏和其他易于使用的工具。

4 提高应用程序开发的效率

Visual FoxPro 60 增加了面向对象的语言和方式。借助 Visual FoxPro 60 的对象模型，可以充分使用面向对象程序设计的所有功能。

5 互 *** 作性和支持 Internet

Visual FoxPro 60 支持具有对象的链接与嵌入（OLE）拖放，可以在 Visual FoxPro 60 和其他应用程序之间，或在 Visual FoxPro 60 应用程序内部移动数据。

6 充分利用已有数据

Visual FoxPro 60 为升级数据库提供了一个方便实用的转换器工具，可以将早期版本中的数据移植过来使用；对于电子表格或文本文件中的数据，Visual FoxPro 60 也可以方便的实现数据共享。

除此之外，Visual FoxPro 60 具有一系列的新特色，如：

① 成功解决了计算机2000年的问题。

② 增强了 Internet 技术和 >

请参阅以下本人做的一个VB工程代码,在VB中直接使用VFP数据库,同样能做得非常灵活:

>

使用SPT

(SQL

PASS

THROUGH)技术，通过VFP的函数SQLCONNECT()来和SQL

SERVER建立连接,

然后用SQLEXEC()函数把要执行的SQL命令

送到SQL

SERVER上去执行。

从VFP连接到SQL

SERVER

lnHandle=SQLConnect("SharedData","用户名”，“密码”)

If

lnHandle>0

&&连接成功

从库里获得数据(比如从EMP表里得到部门号为‘01’的职工)

lnReturn=SQLExec(lnHandle,"Select

from

Emp

Where

cDept='01'","CursorEmp")

If

lnReturn>0

&&运行成功

Browse

Else

&&失败

&&出错处理

EndIf

Else

&&连接失败

MessageBox("连接SQL

SERVER失败”，16，“BUFFER”)

EndIf

用完连接后

=SQLDisconnect(lnHandle)

用菜单设计器设计好的菜单后缀名为mnx在vfp主窗口上面的主菜单里生成后缀名为mpr,才可以使用

在命令窗口modify

command

菜单名mpr

按回车就会出现菜单的命令代码，可以修改，可以复制到prg文件直接做程序调用。

以上就是关于急,VB语言对vf数据库的调用全部的内容，包括:急,VB语言对vf数据库的调用、计算机里面的VF是啥、怎么实现用vb程序对vf数据库的调用等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！