Изменение базы данных, не распознанное ADO с использованием Delphi и SQL Server

Question

Я запускаю небольшое приложение db с 2 TADOConnection на мой SQL Server. Первое подключение предназначено только для просмотра с использованием ADOTable, Datasource и DBNavigator. Второго соединения создаются во время выполнения, используя следующий код

aConnection:=TADOConnection.create(nil); 

aTable:= TADOTable.create(nil); 
aConnection.LoginPrompt := false; 

..... 
aTable.Edit; 

aTable.Insert; 

aTable.FieldByName(' ... ').AsInteger := .... ; 

aTable.FieldByName(' .... ').AsString := ... ; 

aTable.FieldByName(' .... ').AsString := ..... ; 

aTable.Post; 

aTable.active := false; 

aConnection.connected :=false; 

aTable.free; 

aConnection.free; 

Если я вставляю записи с этим кодом, я не могу видеть измененные данные, если нажать кнопку Update Навигатора. Мне нужно перезапустить мое приложение, чтобы увидеть все мои новые вставленные данные. Почему первое dbconnection, не признающее изменения, сделало мое второе соединение?

Answer 1

Попробуйте это, если я правильно отвечу, возникла проблема в старых Delphi/Adoverions с обновлением, которое не работает, как ожидалось, в то время как исправление выполнено.

procedure TForm2.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn); 
begin 
    if Button = nbRefresh then 
    BEGIN 
    if Assigned(TDBNavigator(Sender).DataSource) then 
     if Assigned(TDBNavigator(Sender).DataSource.DataSet) then 
     if TDBNavigator(Sender).DataSource.DataSet is TCustomAdoDataset then 
      TADODataSet(TDBNavigator(Sender).DataSource.DataSet).Requery; 
    END; 
end; 

Answer 2

У вас есть Edit, а затем сразу Insert. Это означает, что ваше редактирование ничего не меняет (поэтому изменений не видно), и весь ваш код фактически обновляет вновь созданную строку. Другими словами, вы указываете базу данных, которую хотите изменить, используя Edit, сразу сообщите ей «Я хочу добавить новую строку» (это означает, что никакие данные не изменяются Edit), а затем изменяют значения в этом новом добавлении ряд. Вы также должны использовать один TADOConnection.

aTable.Edit; 

aTable.Insert; 

Просто удалите aTable.Insert;, и все должно быть в порядке.

// Change a row that already exists. 
aTable.Edit; 
aTable.FieldByName(' ... ').AsInteger := .... ; 
aTable.FieldByName(' .... ').AsString := ... ; 
aTable.FieldByName(' .... ').AsString := ..... ; 
aTable.Post; 

Основываясь на вашем комментарии к моему ответу, кажется, что вы хотите добавить новую строку. В этом случае просто используйте Insert без Edit (вставка новой строки автоматически переводит вас в режим изменения данных, вам не нужен отдельный вызов Edit).

aTable.Insert; 
aTable.FieldByName(' ... ').AsInteger := .... ; 
aTable.FieldByName(' .... ').AsString := ... ; 
aTable.FieldByName(' .... ').AsString := ..... ; 
aTable.Post; 

Edit изменяет текущую строку, в то время как Insert добавляет новую строку в текущей позиции (что может измениться после основан на индексе в эксплуатации) и Append добавляет новую строку в конец набора данных (опять же, это может измениться в зависимости от используемого индекса).