VB中调用VF数据库

VB中调用VF数据库

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

Dim CNN As New ADODB.Connection

Dim STRSQL As String

'打开

Private Sub Form_Load()

CNN.ConnectionString = "Driver={Microsoft Visual FoxPro

Driver};SourceType=DBF;SourceDb=E:DBF"

CNN.Open

End Sub

'创建

Private Sub Command1_Click()

CNN.CursorLocation = adUseClient

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

CNN.Execute STRSQL

'CNN.Close

End Sub

'添加

Private Sub Command2_Click()

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

CNN.Execute STRSQL

End Sub

'显示

Private Sub Command3_Click()

Dim rs As New ADODB.Recordset

STRSQL = "select * from demo"

Set rs = CNN.Execute(STRSQL)

If Not rs.EOF Then

Text1.Text = rs.Fields(1)

End If

End Sub

'修改

Private Sub Command4_Click()

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

CNN.Execute STRSQL

End Sub