vb操作dbf 源代码

Dim CNN     As New ADODB.Connection
Dim STRSQL     As String

'打开
Private Sub Form_Load()Sub Form_Load()
    CNN.ConnectionString = "Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDb=E:DBF"
    CNN.Open

End Sub

'创建
Private Sub Command1_Click()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()Sub Command2_Click()

    STRSQL = "insert into   demo([ida],[NAME])   values('1','sdf')"
    CNN.Execute STRSQL
End Sub

'显示
Private Sub Command3_Click()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()Sub Command4_Click()
    STRSQL = "update demo set name='好好' where ida='1'"
    CNN.Execute STRSQL
End Sub