В своё время, убедившись, что ни ODBC, ни ole db не дают должной скорости записи в DBF — портировал из DOS-овского Turbo Pascal в Delphi нехитрую процедуру. Не так давно в очередной раз — портировал её в C#, вот что получилось:
private void DataTableSaveToDBF(DataTable DT, string Folder)
{
// Создаю таблицу
System.IO.File.Delete(Folder+"
\\"+DT.TableName+".DBF");
System.IO.FileStream FS = new System.IO.FileStream(Folder+"
\\"+DT.TableName+".DBF", System.IO.FileMode.Create);
// Формат dBASE III 2.0
byte[] buffer = new byte[]{0x03, 0x63, 0x04, 0x04}; // Заголовок 4 байта
FS.Write(buffer, 0, buffer.Length);
buffer = new byte[]{
(byte)(((DT.Rows.Count % 0x1000000) % 0x10000) % 0x100),
(byte)(((DT.Rows.Count % 0x1000000) % 0x10000) / 0x100),
(byte)(( DT.Rows.Count % 0x1000000) / 0x10000),
(byte)( DT.Rows.Count / 0x1000000)
}; // Word32 -> кол-во строк 5-8 байты
FS.Write(buffer, 0, buffer.Length);
int i = (DT.Columns.Count+1)*32+1; // Изврат
buffer = new byte[]{
(byte)( i % 0x100),
(byte)( i / 0x100)
}; // Word16 -> кол-во колонок с извратом 9-10 байты
FS.Write(buffer, 0, buffer.Length);
string[] FieldName = new string[DT.Columns.Count]; // Массив названий полей
string[] FieldType = new string[DT.Columns.Count]; // Массив типов полей
byte[] FieldSize = new byte[DT.Columns.Count]; // Массив размеров полей
byte[] FieldDigs = new byte[DT.Columns.Count]; // Массив размеров дробной части
int s = 1; // Считаю длину заголовка
foreach (DataColumn C in DT.Columns)
{
string l = C.ColumnName.ToUpper(); // Имя колонки
while (l.Length < 10) {l = l + (char)0;} // Подгоняю по размеру (10 байт)
FieldName[C.Ordinal] = l.Substring(0, 10) + (char)0; // Результат
FieldType[C.Ordinal] = "C";
FieldSize[C.Ordinal] = 50;
FieldDigs[C.Ordinal] = 0;
switch (C.DataType.ToString())
{
case "System.String" :
{
DataRow[] DR = DT.Select("", C.ColumnName+" DESC");
if (DR.Length > 0)
{
if (DR[0][C].ToString().Trim().Length > 255)
FieldSize[C.Ordinal] = 255;
else
FieldSize[C.Ordinal] = (byte)DR[0][C].ToString().Trim().Length;
}
break;
}
case "System.Boolean" : {FieldType[C.Ordinal] = "L"; FieldSize[C.Ordinal] = 1; break;}
case "System.Byte" : {FieldType[C.Ordinal] = "N"; FieldSize[C.Ordinal] = 1; break;}
case "System.DateTime" : {FieldType[C.Ordinal] = "D"; FieldSize[C.Ordinal] = 8; break;}
case "System.Decimal" : {FieldType[C.Ordinal] = "N"; FieldSize[C.Ordinal] = 38; FieldDigs[C.Ordinal] = 5; break;}
case "System.Double" : {FieldType[C.Ordinal] = "F"; FieldSize[C.Ordinal] = 38; FieldDigs[C.Ordinal] = 5; break;}
case "System.Int16" : {FieldType[C.Ordinal] = "N"; FieldSize[C.Ordinal] = 6; break;}
case "System.Int32" : {FieldType[C.Ordinal] = "N"; FieldSize[C.Ordinal] = 11; break;}
case "System.Int64" : {FieldType[C.Ordinal] = "N"; FieldSize[C.Ordinal] = 21; break;}
case "System.SByte" : {FieldType[C.Ordinal] = "N"; FieldSize[C.Ordinal] = 6; break;}
case "System.Single" : {FieldType[C.Ordinal] = "F"; FieldSize[C.Ordinal] = 38; FieldDigs[C.Ordinal] = 5; break;}
case "System.UInt16" : {FieldType[C.Ordinal] = "N"; FieldSize[C.Ordinal] = 6; break;}
case "System.UInt32" : {FieldType[C.Ordinal] = "N"; FieldSize[C.Ordinal] = 11; break;}
case "System.UInt64" : {FieldType[C.Ordinal] = "N"; FieldSize[C.Ordinal] = 21; break;}
}
s = s + FieldSize[C.Ordinal];
}
buffer = new byte[]{
(byte)(s % 0x100),
(byte)(s / 0x100)
}; // Пишу длину заголовка 11-12 байты
FS.Write(buffer, 0, buffer.Length);
for (int j = 0; j < 17; j++) {FS.WriteByte(0x00);} // Пишу всякий хлам — 17 байт
buffer = new byte[]{0x26, 0x00, 0x00}; // И ещё 3 байта
FS.Write(buffer, 0, buffer.Length); // Итого: 32 байта — базовый заголовок DBF
// Заполняю заголовок
foreach (DataColumn C in DT.Columns)
{
buffer = System.Text.Encoding.Default.GetBytes(FieldName[C.Ordinal]); // Название поля
FS.Write(buffer, 0, buffer.Length);
buffer = new byte[]{
System.Text.Encoding.ASCII.GetBytes(FieldType[C.Ordinal])[0],
0x00,
0x00,
0x00,
0x00
}; // Размер
FS.Write(buffer, 0, buffer.Length);
buffer = new byte[]{
FieldSize[C.Ordinal],
FieldDigs[C.Ordinal]
}; // Размерность
FS.Write(buffer, 0, buffer.Length);
buffer = new byte[]{0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00}; // 14 нулей
FS.Write(buffer, 0, buffer.Length);
}
FS.WriteByte(0x0D); // Конец описания таблицы
System.Globalization.NumberFormatInfo nfi = new System.Globalization.CultureInfo("en-US", false).NumberFormat;
string Spaces = "";
while (Spaces.Length < 255) Spaces = Spaces + " ";
foreach (DataRow R in DT.Rows)
{
FS.WriteByte(0x20); // Пишу данные
foreach (DataColumn C in DT.Columns)
{
string l = R[C].ToString();
if (l != "") // Проверка на NULL
{
switch (FieldType[C.Ordinal])
{
case "L" :
{
l = bool.Parse(l).ToString();
break;
}
case "N" :
{
l = decimal.Parse(l).ToString(nfi);
break;
}
case "F" :
{
l = float.Parse(l).ToString(nfi);
break;
}
case "D" :
{
l = DateTime.Parse(l).ToString("yyyyMMdd");
break;
}
default : l = l.Trim() + Spaces; break;
}
}
else
{
if (FieldType[C.Ordinal] == "C"
|| FieldType[C.Ordinal] == "D")
l = Spaces;
}
while (l.Length < FieldSize[C.Ordinal]){l = l + (char)0x00;}
l = l.Substring(0, FieldSize[C.Ordinal]); // Корректирую размер
buffer = System.Text.Encoding.GetEncoding(866).GetBytes(l); // Записываю в кодировке (MS-DOS Russian)
FS.Write(buffer, 0, buffer.Length);
}
}
FS.WriteByte(0x1A); // Конец данных
FS.Close();
}
данное сообщение получено с www.gotdotnet.ru
ссылка на оригинальное сообщение
Я создаю dbf таблицу следующим образом (код на vb.net, но я думаю это не проблема
Есть структурка описания полей:
Public Structure DbfFieldDefinition
Public Name As String
Public DataType As OdbcType
Public Width As Integer
Public Precision As Integer
End Structure
И метод формирующий SQL запрос:
Public Sub CreateTable(ByVal filename As String, ByVal fields As ArrayList)
' строим запрос на создание DBF таблицы
Dim strCreateTable As String = "CREATE TABLE [" & filename.ToUpper & "] ("
For Each f As DbfFieldDefinition In fields
strCreateTable &= f.Name & " "
Dim fieldtype As String
Select Case f.DataType
Case OdbcType.Date
fieldtype = "D"
Case OdbcType.Double
fieldtype = String.Format("N({0},{1})", f.Width — f.Precision, f.Precision)
Case OdbcType.Char
fieldtype = String.Format("C({0})", f.Width)
End Select
strCreateTable &= fieldtype & ","
Next
strCreateTable = strCreateTable.TrimEnd(",")
strCreateTable &= ")"
'
CreateTable(strCreateTable) ' — просто выполнение команды через ExecuteNonQuery
End Sub
данное сообщение получено с www.gotdotnet.ru
ссылка на оригинальное сообщение
Вот весь класс которым я пользуюсь:
using System;
using System.Data;
using System.Windows.Forms;
using System.IO;
namespace Master
{
public class DBF
{
public static void Save(DataTable DT, string Folder)
{
// Создаю таблицу
System.IO.File.Delete(Folder+"[url=file://%22+DT.TableName+%22.DBF/]\\+DT.TableName+.DBF[/url]");
System.IO.FileStream FS = new System.IO.FileStream(Folder+"[url=file://%22+DT.TableName+%22.DBF/]\\+DT.TableName+.DBF[/url]", System.IO.FileMode.Create);
// Формат dBASE III 2.0
byte[] buffer = new byte[]{0x03, 0x63, 0x04, 0x04}; // Заголовок 4 байта
FS.Write(buffer, 0, buffer.Length);
buffer = new byte[]{
(byte)(((DT.Rows.Count % 0x1000000) % 0x10000) % 0x100),
(byte)(((DT.Rows.Count % 0x1000000) % 0x10000) / 0x100),
(byte)(( DT.Rows.Count % 0x1000000) / 0x10000),
(byte)( DT.Rows.Count / 0x1000000)
}; // Word32 -> кол-во строк 5-8 байты
FS.Write(buffer, 0, buffer.Length);
int i = (DT.Columns.Count+1)*32+1; // Изврат
buffer = new byte[]{
(byte)( i % 0x100),
(byte)( i / 0x100)
}; // Word16 -> кол-во колонок с извратом 9-10 байты
FS.Write(buffer, 0, buffer.Length);
string[] FieldName = new string[DT.Columns.Count]; // Массив названий полей
string[] FieldType = new string[DT.Columns.Count]; // Массив типов полей
byte[] FieldSize = new byte[DT.Columns.Count]; // Массив размеров полей
byte[] FieldDigs = new byte[DT.Columns.Count]; // Массив размеров дробной части
int s = 1; // Считаю длину заголовка
foreach (DataColumn C in DT.Columns)
{
string l = C.ColumnName.ToUpper(); // Имя колонки
while (l.Length < 10) {l = l + (char)0;} // Подгоняю по размеру (10 байт)
FieldName[C.Ordinal] = l.Substring(0, 10) + (char)0; // Результат
FieldType[C.Ordinal] = "C";
FieldSize[C.Ordinal] = 50;
FieldDigs[C.Ordinal] = 0;
switch (C.DataType.ToString())
{
case "System.String" :
{
DataTable tmpDT = DT.Copy();
tmpDT.Columns.Add("StringLengthMathColumn", Type.GetType("System.Int32"), "LEN("+C.ColumnName+")");
DataRow[] DR = tmpDT.Select("", "StringLengthMathColumn DESC");
if (DR.Length > 0)
{
if (DR[0]["StringLengthMathColumn"].ToString() != "")
{
int n = (int)DR[0]["StringLengthMathColumn"];
if (n > 255)
FieldSize[C.Ordinal] = 255;
else
FieldSize[C.Ordinal] = (byte)n;
}
if (FieldSize[C.Ordinal] == 0)
FieldSize[C.Ordinal] = 1;
}
break;
}
case "System.Boolean" : {FieldType[C.Ordinal] = "L"; FieldSize[C.Ordinal] = 1; break;}
case "System.Byte" : {FieldType[C.Ordinal] = "N"; FieldSize[C.Ordinal] = 1; break;}
case "System.DateTime" : {FieldType[C.Ordinal] = "D"; FieldSize[C.Ordinal] = 8; break;}
case "System.Decimal" : {FieldType[C.Ordinal] = "N"; FieldSize[C.Ordinal] = 38; FieldDigs[C.Ordinal] = 5; break;}
case "System.Double" : {FieldType[C.Ordinal] = "F"; FieldSize[C.Ordinal] = 38; FieldDigs[C.Ordinal] = 5; break;}
case "System.Int16" : {FieldType[C.Ordinal] = "N"; FieldSize[C.Ordinal] = 6; break;}
case "System.Int32" : {FieldType[C.Ordinal] = "N"; FieldSize[C.Ordinal] = 11; break;}
case "System.Int64" : {FieldType[C.Ordinal] = "N"; FieldSize[C.Ordinal] = 21; break;}
case "System.SByte" : {FieldType[C.Ordinal] = "N"; FieldSize[C.Ordinal] = 6; break;}
case "System.Single" : {FieldType[C.Ordinal] = "F"; FieldSize[C.Ordinal] = 38; FieldDigs[C.Ordinal] = 5; break;}
case "System.UInt16" : {FieldType[C.Ordinal] = "N"; FieldSize[C.Ordinal] = 6; break;}
case "System.UInt32" : {FieldType[C.Ordinal] = "N"; FieldSize[C.Ordinal] = 11; break;}
case "System.UInt64" : {FieldType[C.Ordinal] = "N"; FieldSize[C.Ordinal] = 21; break;}
}
s = s + FieldSize[C.Ordinal];
}
buffer = new byte[]{
(byte)(s % 0x100),
(byte)(s / 0x100)
}; // Пишу длину заголовка 11-12 байты
FS.Write(buffer, 0, buffer.Length);
for (int j = 0; j < 20; j++) {FS.WriteByte(0x00);} // Пишу всякий хлам - 20 байт,
// итого: 32 байта - базовый заголовок DBF
// Заполняю заголовок
foreach (DataColumn C in DT.Columns)
{
buffer = System.Text.Encoding.Default.GetBytes(FieldName[C.Ordinal]); // Название поля
FS.Write(buffer, 0, buffer.Length);
buffer = new byte[]{
System.Text.Encoding.ASCII.GetBytes(FieldType[C.Ordinal])[0],
0x00,
0x00,
0x00,
0x00
}; // Размер
FS.Write(buffer, 0, buffer.Length);
buffer = new byte[]{
FieldSize[C.Ordinal],
FieldDigs[C.Ordinal]
}; // Размерность
FS.Write(buffer, 0, buffer.Length);
buffer = new byte[]{0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00}; // 14 нулей
FS.Write(buffer, 0, buffer.Length);
}
FS.WriteByte(0x0D); // Конец описания таблицы
System.Globalization.DateTimeFormatInfo dfi = new System.Globalization.CultureInfo("en-US", false).DateTimeFormat;
System.Globalization.NumberFormatInfo nfi = new System.Globalization.CultureInfo("en-US", false).NumberFormat;
string Spaces = "";
while (Spaces.Length < 255) Spaces = Spaces + " ";
foreach (DataRow R in DT.Rows)
{
FS.WriteByte(0x20); // Пишу данные
foreach (DataColumn C in DT.Columns)
{
string l = R[C].ToString();
if (l != "") // Проверка на NULL
{
switch (FieldType[C.Ordinal])
{
case "L" :
{
l = bool.Parse(l).ToString();
break;
}
case "N" :
{
l = decimal.Parse(l).ToString(nfi);
break;
}
case "F" :
{
l = float.Parse(l).ToString(nfi);
break;
}
case "D" :
{
l = DateTime.Parse(l).ToString("yyyyMMdd", dfi);
break;
}
default : l = l.Trim() + Spaces; break;
}
}
else
{
if (FieldType[C.Ordinal] == "C"
|| FieldType[C.Ordinal] == "D")
l = Spaces;
}
while (l.Length < FieldSize[C.Ordinal]){l = l + (char)0x00;}
l = l.Substring(0, FieldSize[C.Ordinal]); // Корректирую размер
buffer = System.Text.Encoding.GetEncoding(866).GetBytes(l); // Записываю в кодировке (MS-DOS Russian)
FS.Write(buffer, 0, buffer.Length);
Application.DoEvents();
}
}
FS.WriteByte(0x1A); // Конец данных
FS.Close();
}
public static System.Data.DataTable Load(string FileName)
{
DataTable DT = new DataTable();
System.IO.FileStream FS = new System.IO.FileStream(FileName, System.IO.FileMode.Open);
byte[] buffer = new byte[4]; // Кол-во записей: 4 байтa, начиная с 5-го
FS.Position = 4; FS.Read(buffer, 0, buffer.Length);
int RowsCount = buffer[0]+(buffer[1]*0x100)+(buffer[2]*0x10000)+(buffer[3]*0x1000000);
buffer = new byte[2]; // Кол-во полей: 2 байтa, начиная с 9-го
FS.Position = 8; FS.Read(buffer, 0, buffer.Length);
int FieldCount =(((buffer[0]+(buffer[1]*0x100))-1) / 32)-1;
string[] FieldName = new string[FieldCount]; // Массив названий полей
string[] FieldType = new string[FieldCount]; // Массив типов полей
byte[] FieldSize = new byte[FieldCount]; // Массив размеров полей
byte[] FieldDigs = new byte[FieldCount]; // Массив размеров дробной части
buffer = new byte[32 * FieldCount]; // Описание полей: 32 байтa * кол-во, начиная с 33-го
FS.Position = 32; FS.Read(buffer, 0, buffer.Length);
int FieldsLength = 0;
for (int i = 0; i < FieldCount; i++)
{
// Заголовки
FieldName[i] = System.Text.Encoding.Default.GetString(buffer, i*32, 10).TrimEnd(new char[]{(char)0x00});
FieldType[i] = ""+(char)buffer[i*32 + 11];
FieldSize[i] = buffer[i*32 + 16];
FieldDigs[i] = buffer[i*32 + 17];
FieldsLength = FieldsLength + FieldSize[i];
// Создаю колонки
switch (FieldType[i])
{
case "L" : DT.Columns.Add(FieldName[i], Type.GetType("System.Boolean")); break;
case "D" : DT.Columns.Add(FieldName[i], Type.GetType("System.DateTime")); break;
case "N" :
{
if (FieldDigs[i] == 0)
DT.Columns.Add(FieldName[i], Type.GetType("System.Int32"));
else
DT.Columns.Add(FieldName[i], Type.GetType("System.Decimal"));
break;
}
case "F" : DT.Columns.Add(FieldName[i], Type.GetType("System.Double")); break;
default : DT.Columns.Add(FieldName[i], Type.GetType("System.String")); break;
}
}
FS.ReadByte(); // Пропускаю разделитель схемы и данных
System.Globalization.DateTimeFormatInfo dfi = new System.Globalization.CultureInfo("en-US", false).DateTimeFormat;
System.Globalization.NumberFormatInfo nfi = new System.Globalization.CultureInfo("en-US", false).NumberFormat;
buffer = new byte[FieldsLength];
DT.BeginLoadData();
for (int j = 0; j < RowsCount; j++)
{
FS.ReadByte(); // Пропускаю стартовый байт элемента данных
FS.Read(buffer, 0, buffer.Length);
System.Data.DataRow R = DT.NewRow();
int Index = 0;
for (int i = 0; i < FieldCount; i++)
{
string l = System.Text.Encoding.GetEncoding(866).GetString(buffer, Index, FieldSize[i]).TrimEnd(new char[]{(char)0x00}).TrimEnd(new char[]{(char)0x20});
Index = Index + FieldSize[i];
if (l != "")
switch (FieldType[i])
{
case "L" : R[i] = l=="T"?true:false; break;
case "D" : R[i] = DateTime.ParseExact(l, "yyyyMMdd", dfi); break;
case "N" :
{
if (FieldDigs[i] == 0)
R[i] = int.Parse(l, nfi);
else
R[i] = decimal.Parse(l, nfi);
break;
}
case "F" : R[i] = double.Parse(l, nfi); break;
default : R[i] = l; break;
}
else
R[i] = DBNull.Value;
}
DT.Rows.Add(R);
Application.DoEvents();
}
DT.EndLoadData();
FS.Close();
return DT;
}
public static void Append(DataTable DT, string FileName)
{
DataTable table = DBF.Load(FileName);
table.BeginLoadData();
foreach(DataRow r in DT.Rows)
table.Rows.Add(r.ItemArray);
table.EndLoadData();
table.TableName = Path.GetFileNameWithoutExtension(FileName);
DBF.Save(table, Path.GetDirectoryName(FileName));
}
}
}
данное сообщение получено с www.gotdotnet.ru
ссылка на оригинальное сообщение
