仅在D盘根目录下新建dbf文件时报错
我写了一个新建dbf的小程序,指定新建的dbf路径在其他目录或C盘根目录都可以成功,但是偏偏在D盘根目录就报错,提示表Barcode#dbf已存在。也不知道这个#号是怎么回事,分明是Barcode.dbf,却提示Barcode#dbf,哪位知道原因
附原代码:
If objDailog.ShowDialog() = DialogResult.OK Then
Me.TextBox1.Text = Path.Combine(objDailog.SelectedPath, "Barcode.dbf")
File.Copy("D:\Temp\Barcode_Blank.dbf", Me.TextBox1.Text, True)
' 去掉只读属性
SetAttr(Me.TextBox1.Text, FileAttribute.Normal)
'dbf文件操作
Dim objDbfconn As OleDb.OleDbConnection = New OleDb.OleDbConnection
Dim strFilePath As String = ""
Dim strFileName As String = ""
strFileName = Me.TextBox1.Text
strFilePath = strFileName.Substring(0, strFileName.LastIndexOf("") + 1)
objDbfconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFilePath & ";Extended Properties=dBASE 5.0;User ID=;Password=;"
Dim DbfCmd As OleDb.OleDbCommand = objDbfconn.CreateCommand()
objDbfconn.Open()
File.Delete(strFileName)
DbfCmd.CommandText = " CREATE TABLE " & strFileName & "(ITEM VARCHAR(30),BARCODE VARCHAR(16),COSC VARCHAR(16),PRICE VARCHAR(16),PHOTO1 VARCHAR(100),PHOTO2 VARCHAR(100))"
DbfCmd.ExecuteNonQuery()
objDbfconn.Close()
End If
[解决办法]
检查一下 objDailog.SelectedPath,strFileName,strFilePath 的值。
是否出现了没有斜杠的 "D:" 路径,这样表示当前目录而不是根目录。
[解决办法]
检查一下Me.TextBox1.Text 内容是什么
仅在D盘根目录上新建dbf文件时报错
仅在D盘根目录下新建dbf文件时报错我写了一个新建dbf的小程序,指定新建的dbf路径在其他目录或C盘根目录都
