VB6 ATUALIZACAO DE GRID
Fala Galera!
preciso de ajuda!
Estou criando um projeto que contém um data grid vinculado a 3 adodc .(datimpressão, datpedido, datentrega)
tenho uma combo box com 3 situações de status: Impressão, Entrega e pendente.
Quando seleciono impressão na combo box associo meu datagrid com dat impressão que faz um select no bco onde status=impressão e ai então meu grid carrega normalmente. Criei um botão que quando clico ele atualiza o status no bco para [Ô]entrega[Ô] , so que a grid não exclui a linha que foi atualizada . é necessário fechar o form e abrir novamente para atualizar as informações.
segue o código:
Public Sub Combo_Status()
cboStatus.AddItem [Ô]Impressão[Ô]
cboStatus.AddItem [Ô]Entrega[Ô]
cboStatus.AddItem [Ô]Pendente[Ô]
End Sub
Private Sub cboStatus_Click()
Select Case cboStatus
Case [Ô]Impressão[Ô]
Set DataGrid2.DataSource = datImpressão
Case [Ô]Entrega[Ô]
Set DataGrid2.DataSource = datEntrega
Case [Ô]Pendente[Ô]
Set DataGrid2.DataSource = datPendente
End Select
End Sub
Private Sub cmdatualizar_Click()
Dim cnnComando As New ADODB.Command
Dim rsSelecao As New ADODB.Recordset
With cnnComando
.ActiveConnection = cnnbanco
.CommandType = adCmdText
Select Case cboStatus
Case [Ô]Impressão[Ô]
.CommandText = [Ô]UPDATE Pedidos SET Status = [ô]Entrega[ô] WHERE OS = [Ô] & DataGrid2 & [Ô][Ô]
Case [Ô]Entrega[Ô]
.CommandText = [Ô]UPDATE Pedidos SET Status = [ô]Pendente[ô] WHERE OS = [Ô] & DataGrid2 & [Ô][Ô]
Case [Ô]Pendente[Ô]
.CommandText = [Ô]UPDATE Pedidos SET Status = [ô]Pago[ô] WHERE OS = [Ô] & DataGrid2 & [Ô][Ô]
End Select
.Execute
End With
End Sub
Private Sub Form_Load()
Me.Left = (frmImpressão.ScaleWidth - Me.Width) / 2
Me.Top = (frmImpressão.ScaleHeight - Me.Height) / 2
Combo_Status
End Sub
Alguém pode me ajudar?
preciso de ajuda!
Estou criando um projeto que contém um data grid vinculado a 3 adodc .(datimpressão, datpedido, datentrega)
tenho uma combo box com 3 situações de status: Impressão, Entrega e pendente.
Quando seleciono impressão na combo box associo meu datagrid com dat impressão que faz um select no bco onde status=impressão e ai então meu grid carrega normalmente. Criei um botão que quando clico ele atualiza o status no bco para [Ô]entrega[Ô] , so que a grid não exclui a linha que foi atualizada . é necessário fechar o form e abrir novamente para atualizar as informações.
segue o código:
Public Sub Combo_Status()
cboStatus.AddItem [Ô]Impressão[Ô]
cboStatus.AddItem [Ô]Entrega[Ô]
cboStatus.AddItem [Ô]Pendente[Ô]
End Sub
Private Sub cboStatus_Click()
Select Case cboStatus
Case [Ô]Impressão[Ô]
Set DataGrid2.DataSource = datImpressão
Case [Ô]Entrega[Ô]
Set DataGrid2.DataSource = datEntrega
Case [Ô]Pendente[Ô]
Set DataGrid2.DataSource = datPendente
End Select
End Sub
Private Sub cmdatualizar_Click()
Dim cnnComando As New ADODB.Command
Dim rsSelecao As New ADODB.Recordset
With cnnComando
.ActiveConnection = cnnbanco
.CommandType = adCmdText
Select Case cboStatus
Case [Ô]Impressão[Ô]
.CommandText = [Ô]UPDATE Pedidos SET Status = [ô]Entrega[ô] WHERE OS = [Ô] & DataGrid2 & [Ô][Ô]
Case [Ô]Entrega[Ô]
.CommandText = [Ô]UPDATE Pedidos SET Status = [ô]Pendente[ô] WHERE OS = [Ô] & DataGrid2 & [Ô][Ô]
Case [Ô]Pendente[Ô]
.CommandText = [Ô]UPDATE Pedidos SET Status = [ô]Pago[ô] WHERE OS = [Ô] & DataGrid2 & [Ô][Ô]
End Select
.Execute
End With
End Sub
Private Sub Form_Load()
Me.Left = (frmImpressão.ScaleWidth - Me.Width) / 2
Me.Top = (frmImpressão.ScaleHeight - Me.Height) / 2
Combo_Status
End Sub
Alguém pode me ajudar?
Citação:criei um botão que quando clico ele atualiza o status no bco para [Ô]entrega[Ô] , so que a grid não exclui a linha que foi atualizada .
Tente dar um refresh no DataFrid após a operação:
DataGrid1.Refresh
Ou um refresh no controle de dados vinculado ao DataGrid.
Oi Hiden!
Já tentei os dois e não funcionou. Quando eu seleciono [Ô]entrega[Ô] no combobox a grid ja exibe a atualização, o que não esta atualizando é a exclusão da linha do datagrid quando combobox = [Ô]Impressão[Ô].
Já tentei os dois e não funcionou. Quando eu seleciono [Ô]entrega[Ô] no combobox a grid ja exibe a atualização, o que não esta atualizando é a exclusão da linha do datagrid quando combobox = [Ô]Impressão[Ô].
Tópico encerrado , respostas não são mais permitidas