mixpacheco

Usando o Visual Basic 6.0 e o SQL Server 7.0, tenho que comparar um campo da tabela tbVeiculo do banco de dados com o que estará no campo text do item txtCadastro(0) do formulario frmContrato. Fiz esse código abaixo: Sql = "SELECT tbVeiculo.Placa, tbContratado.Nome " & _ "FROM tbVeiculo INNER JOIN tbContratado ON tbVeiculo.CodContratado = tbContratado.Codigo " & _ "WHERE tbVeiculo.CodContrato = " & frmContrato.TxtCadastro(0).Text & "" Só que quando eu rodo o programa pra testar, ele funciona da primeira vez que eu chamo o formulário, da segunda vez ele apresenta isto: Run-time error '340': Control array element '0' doesn't exist O erro aparece na ultima linha do sql, no caso "WHERE tbVeiculo.CodContrato = " & frmContrato.TxtCadastro(0).Text & "" Grata; Michelle Pacheco de Souza

Valeu kuroi!!! Funcionou sim... Grata; Michelle Pacheco de Souza

A função abaixo deveria selecionar no Banco de Dados SQL Server apenas as datas inferiores a data do sistema operacional e o statusitem diferente de Realizado. Essa função é chamada no Form_Load. Acontece que, a função está mudando tudo para Realizado. Fiz um teste colocando uma hora maior que a hora do sistema operacional e quando eu fechei o formulário e abri novamente o statusitem estava como realizado. Alguém saberia me ajudar? Private Function VerificaCompromisso() Dim rsTabela As ADODB.Recordset Dim Sql As String Set rsTabela = New ADODB.Recordset Sql = "Select * from tbAgenda where Data < '" & Date & "' and StatusItem <> 'Realizado'" rsTabela.Open Sql, cnBanco, adOpenKeyset, adLockOptimistic ' spCategoria é uma stored procedure do SQL Server If Not rsTabela.EOF Then rsTabela.MoveFirst While Not rsTabela.EOF With rsTabela .Fields(4) = "Realizado" .Update .MoveNext End With Wend End If rsTabela.Close Set rsTabela = Nothing End Function Grata; Michelle Pacheco de Souza

Estou com um erro que não faço a mínima ideia do que seja. Quando tento acessar o banco que utilizo (SQL Server) para fazer um relatório, aparece uma mensagem de erro assim: "Run-time error '20536': Unable to logon to server." E quando eu clico em debug, o erro aparece na linha 4 do código abaixo: If INI_Tipo_Banco = "Access 2000" Then rptPrevia.LogOnServer "pdsodbc.dll", "SisCar", "", "", "" Else rptPrevia.LogOnServer "pdsodbc.dll", "SisCar", "SisCar", "SisCar", "" End If Alguém poderia me ajudar? Grata; Michelle Pacheco de Souza

Estou com um programa que tem que excluir apenas se no banco de dados (SQL), o campo Statusitem = "Realizado". Pensei em fazer um "if rsTabela.Fields(4) = "Realizado"" chamar a função que verifica alguns critérios, se a função der verdadeiro, não excluirá, se for falso, excluirá. Mas está dando erro exatamente neste "if". Alguém poderia me ajudar? Segue o código do excluir e a função que verificará os critérios ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Private Sub Excluir() Dim iCodigo As Integer Dim rsTabela As ADODB.Recordset Dim OptSelecionado As Integer If GridCadastro.RowSel < 1 Then Exit Sub If rsTabela.Fields(4) = "Realizado" Then VerificaCompromisso (Me.cldCadastro.Value) ElseIf MsgBox("Você deseja realmente excluir este registro?", vbQuestion + vbYesNo) = vbYes Then Set rsTabela = New ADODB.Recordset Dim Sql As String Sql = "Delete from tbAgenda where codigo = " & GridCadastro.TextMatrix(GridCadastro.RowSel, 0) rsTabela.Open Sql, cnBanco, adOpenKeyset, adLockOptimistic ' spCategoria é uma stored procedure do SQL Server Set rsTabela = Nothing MsgBox "Registro Excluído com sucesso!", vbInformation, sSiglaSistema CompoeGridCompromissos (cldCadastro.Value) Else Exit Sub End If End Sub ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Private Function VerificaCompromisso(pData) Dim rsTabela As ADODB.Recordset Dim Sql As String Set rsTabela = New ADODB.Recordset Sql = "Select Codigo, hora, itemAgenda, StatusItem from TbAgenda where data = " & Format(pData, "mm/dd/yyyy") & " or diames = '" & Format(Day(pData), "00") & Format(Month(pData), "00") & "' order by hora" If cldCadastro.Value = Date And AcdCadastro(0) < Time Or cldCadastro.Value < Date Then MsgBox "Impossivel apagar. Registro já realizado.", vbInformation, sSiglaSistema End If End Function

Quero fazer com que o maskedit não aceite um valor vazio. Usei este if, mas não funcionou:: If mskCadastro(6).ClipText = Empty Then MsgBox "Valor Hora Municipio não Informado.", vbInformation, sSiglaSistema mskCadastro(6).SetFocus Exit Sub End If Obs: No lugar do ClipText já tentei colocar Text, mas não deu certo... Grata, Michelle Pacheco de Souza