Здравствуйте!
Начну с проблемы. У меня есть Excel файл 2003, и там есть столбец, в котором и числа и буквы. Но когда программа открывает это файл, "разнотипный" столбец в DBGrid определяется как числовой, и ячейки в которых текст не отображаются. Можно как-нибудь жестко задать тип столбца в Delphi?
Ниже открытие базы.
В DBGrid есть column "0 - Карта", так вот он почему-то определяется как числовой B)
Help me please!
Начну с проблемы. У меня есть Excel файл 2003, и там есть столбец, в котором и числа и буквы. Но когда программа открывает это файл, "разнотипный" столбец в DBGrid определяется как числовой, и ячейки в которых текст не отображаются. Можно как-нибудь жестко задать тип столбца в Delphi?
Ниже открытие базы.
В DBGrid есть column "0 - Карта", так вот он почему-то определяется как числовой B)
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
Button2.Enabled:=false;
btn1.Enabled:=false;
if dlgOpen1.Execute then
begin
Form1.ADOConnection1.ConnectionString:='Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="DSN=Файлы Excel;DBQ='+dlgOpen1.FileName+';DefaultDir='+ExtractFilePath(dlgOpen1.FileName)+';DriverId=790;MaxBufferSize=2048;PageTimeout=5;"';
Form1.ADOConnection1.DefaultDatabase:=dlgOpen1.FileName;
end;
Form1.Left:=0;
Form1.Top:=0;
Form1.ClientWidth:=Screen.Width-8;
Form1.ClientHeight:=Screen.Height-100;
Form1.DBGrid1.Width:=Form1.ClientWidth-100;
Form1.DBGrid1.Height:=Form1.ClientHeight;
try
id:=1;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM [Лист1$]');
ADOQuery1.Active:=True;
id_count:=ADOQuery1.RecordCount+1;
except
on e:Exception do
end;
end;