Архив форумов ЦИТФорума

[AntonS]

Вопрос первый:
Подключился к Access`у через ODBC-драйвер. Создал псевдоним, связал компоненты. Набор данных отображается, но недоступен для редактирования (хотя в настройках базы в свойстве таблиц стоит Read/Write). В чём тут дело?

Вопрос второй:
Как перенести приложение Delphi для работы с локальной базой Access на другой компьютер, где Delphi не установлен? Что и где надо создать?

[TacitListener]

Сразу по поводу второго вопроса: если использовать ADO-компоненты, то в общем-то создавать ничего не требуется, надо в строке подключения указать путь к базе (лучше, чтобы он не содержал пробелов и символов кирилицы и был не очень длинным). Если не принципиально ODBC или OLE DB, используй последнее, не требуется настравать источники ODBC. Вот пример формы для большей наглядности:

object Form1: TForm1
Left = 269
Top = 154
Width = 562
Height = 347
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object DBGrid1: TDBGrid
Left = 0
Top = 0
Width = 554
Height = 295
Align = alClient
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'ID_ITEM'
Visible = True
end
item
Expanded = False
FieldName = 'NOTE'
Visible = True
end>
end
object DBNavigator1: TDBNavigator
Left = 0
Top = 295
Width = 554
Height = 25
DataSource = DataSource1
Align = alBottom
TabOrder = 1
end
object ADOConnection1: TADOConnection
Connected = True
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Temp\Test.mdb;Mo' +
'de=Share Deny None;Extended Properties="";Persist Security Info=' +
'False;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Je' +
't OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:D' +
'atabase Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet O' +
'LEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password=' +
'"";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Data' +
'base=False;Jet OLEDB:Don''t Copy Locale on Compact=False;Jet OLED' +
'B:Compact Without Replica Repair=False;Jet OLEDB:SFP=False'
LoginPrompt = False
Mode = cmShareDenyNone
Provider = 'Microsoft.Jet.OLEDB.4.0'
Left = 120
Top = 80
end
object ADODataSet1: TADODataSet
Active = True
Connection = ADOConnection1
CursorType = ctStatic
CommandText = 'select * from TestTable'
Parameters = <>
Left = 264
Top = 80
object ADODataSet1ID_ITEM: TAutoIncField
FieldName = 'ID_ITEM'
ReadOnly = True
end
object ADODataSet1NOTE: TWideStringField
FieldName = 'NOTE'
Size = 50
end
end
object DataSource1: TDataSource
DataSet = ADODataSet1
Left = 392
Top = 80
end
end


База C:\Temp\Test.mdb с одной таблицей TestTable с двумя полями 'ID_ITEM'-счетчик и 'NOTE'-текстовое. Собери, проверь - все должно работать и редактироваться...