这个老程序的原代码我没有,好像是修改不到。
还有一个问题就是,DBF文件一但有备注型字段里,我用ODBC找开DBF文件也要报错。
代码如下:
'装载数据库文件到ListBox1中
Dim conn As New System.Data.OleDb.OleDbConnection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\VB4DBF\bin\Data;Extended Properties=dBASE IV;User ID=Admin;Password="
Dim myCommand As New System.Data.OleDb.OleDbCommand
'下面的几种形式都可以使用
myCommand.CommandText = "select * from Src_Data"
'myCommand.CommandText = "select xm from Src_Data.dbf"
'myCommand.CommandText = "select xm from [Src_Data]"
'myCommand.CommandText = "select xm from [Src_Data.dbf]"
''''表名大于8个字符,只取前八个
'myCommand.CommandText = "select xm from Src_Data_NoProblem"
'myCommand.CommandText = "select xm from [Src_Data_NoProblem.dbf]"
myCommand.Connection = conn
ListBox1.Items.Clear()
Try
conn.Open()
Dim myReader As System.Data.OleDb.OleDbDataReader
myReader = myCommand.ExecuteReader()
While myReader.Read()
ListBox1.Items.Add(myReader.Item("xh")) '数据加载到ListBox1
End While
myReader.Close()
conn.Close()
Catch ex As Exception
MessageBox.Show(ex.ToString)
Me.Close()
End Try