我问的问题难道没人愿意告诉我吗？急！！！在线等

Question

我现在想用VB编一段代码，在指定路径下生成指定的foxpro的数据表单(.dbf文件），共4段数据。多谢

Answer 1

Private Sub Command1_Click()
       Dim CNN As New ADODB.Connection
       Dim STRSQL As String
       CNN.CursorLocation = adUseClient
       CNN.ConnectionString = "Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDb=E:\DBF"
       CNN.Open
        '在指定的路径上生成DBF文件
       STRSQL = "CREATE TABLE E:\DBF\DEMO.DBF ([IDA] CHAR(32) ,[NAME] CHAR(32) )"
       CNN.Execute STRSQL
       CNN.Close
End Sub