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