简单问题，解决后给分

pawly 2006-04-28 09:57:09

vb中如何建立一个dbf表文件，并同时建立几个中文字段，最好给个小例子

...全文

154 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

forest8888 2006-04-28

打赏
举报

帮T

zhzhq800204 2006-04-28

打赏
举报

Private Sub CreateDbf() 'mpath为dbf文件路径，UDbfName表名，str1字段字符串
Dim DbfCn as new ADODB.Connection
Dim strCnn as String
strCnn = "Provider=VFPOLEDB.1;Data Source=" & mpath & ";Collating Sequence=MACHINE ;Mode=Share Deny Write"
DbfCn .Open strCnn
DbfCn .Execute "create table " & UDbfName & ".dbf (" & str1 & ")"
End Sub

scjpsz1860 2006-04-28

打赏
举报

友情UP!:)

of123 2006-04-28

打赏
举报

在 Access 数据库上建立一个连接对象 cn

cn.Execute "SELECT '' AS 字符字段1, 0 AS 数字字段2, ... INTO 表名 IN ""C:\DBASE\DATA\SALES"" ""dBASE IV;"" FROM [任意一个Access表名]"

bbhere 2006-04-28

打赏
举报

漏了一句
Private Sub CreateDbf() 'mpath为dbf文件路径，UDbfName表名，str1字段字符串
Dim DbfCn as new ADODB.Connection
Dim strCnn as String
strCnn = "Provider=VFPOLEDB.1;Data Source=" & mpath & ";Collating Sequence=MACHINE ;Mode=Share Deny Write"
DbfCn .Open strCnn
DbfCn .Execute "create table " & UDbfName & ".dbf (" & str1 & ")"
End Sub

bbhere 2006-04-28

打赏
举报

Private Sub CreateDbf() 'mpath为dbf文件路径，UDbfName表名，str1字段字符串
Dim DbfCn as new ADODB.Connection
Dim strCnn as String
strCnn = "Provider=VFPOLEDB.1;Data Source=" & mpath & ";Collating Sequence=MACHINE ;Mode=Share Deny Write"
DbfCn .Execute "create table " & UDbfName & ".dbf (" & str1 & ")"
End Sub

pawly 2006-04-28