vb操作dbf 源代码


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
 
评论 7
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值