1,216
社区成员
发帖
与我相关
我的任务
分享
Private Sub Command1_Click()
Dim conn As New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\1;Extended Properties=dBASE 5.0;User ID=Admin;Password=;"
conn.Open
conn.Execute "CREATE TABLE TableName (SCRQ varchar(8) NULL,ZQDM varchar(8) NULL,ZQJC varchar(20) NULL,QZ Numeric(10,2) NULL, ZSP Numeric(20,10) NULL,CCSL Numeric(12) NULL,SXSL Numeric(12) NULL,HL Numeric(10,8) NULL,KYTC Numeric(20,2) NULL)"
conn.Execute "INSERT INTO TableName (zsp,KYTC) VALUES (5,6)"
MsgBox "OK"
'执行完成后,你用excel打开TABLENAM.DBF就可看到结果了。
'注意先在C:\下建立叫1的文件夹,然后可以测试本程序。
End Sub