GILBERTO NOBRE

************************ TENTA DATAGRID.ClearSelCols OU DATAGRID.ClearFields

OLA, GOSTARIA DE SABER COMO ENVIAR OS DADOS DE UMA PESQUISA PARA UM DATAGRID. SEGUE O CÓDIGO DA PESQUISA ABAIXO Private Function CodeSearch(xSearch As String) As Boolean Dim Rs As ADODB.Recordset Dim sql As String Set Rs = New ADODB.Recordset Rs.CursorLocation = adUseServer sql = "select * from sb where cliente LIKE '" & xSearch & "%'" Rs.Open sql, conn, adOpenStatic, adLockReadOnly, adCmdText 'Rs.Find "ProductID LIKE '" & xSearch & "*'" If Rs.EOF = True Then Rs.Close Set Rs = Nothing Exit Function End If If IsNull(Rs!cliente) Then txtcliente.Text = "" txtiecliente.Text = "" cbomarca = "" CodeSearch = False Else txtcliente.Text = Rs!cliente txtiecliente.Text = Rs!End cbomarca = Rs!ie 'Text3.Text = Format(rs!ProductPrice, "###,###,###,##0.00") CodeSearch = True End If Rs.Close Set Rs = Nothing End Function Private Function NameSearch(xSearch As String) As Boolean Dim Rs As ADODB.Recordset Dim sql As String Set Rs = New ADODB.Recordset Rs.CursorLocation = adUseServer 'sql = "select * from Stock" sql = "select * from sb where cliente LIKE '" & xSearch & "%'" Rs.Open sql, conn, adOpenStatic, adLockReadOnly, adCmdText 'Rs.Find "ProductName LIKE '" & xSearch & "*'" If Rs.EOF = True Then Rs.Close Set Rs = Nothing Exit Function End If If IsNull(Rs!cliente) Then txtcliente.Text = "" txtiecliente.Text = "" cbomarca = "" NameSearch = False Else txtcliente.Text = Rs!cliente txtiecliente.Text = Rs!End cbomarca = Rs!ie 'Text3.Text = Format(rs!ProductPrice, "###,###,###,##0.00") NameSearch = True End If Rs.Close Set Rs = Nothing End Function Private Sub txtcriterio_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If CodeSearch(txtcriterio) = False Then NameSearch txtcriterio End If End If End Sub OBS: CASO alguém TIVER OUTRO CÓDIGO PARA PESQUISA EM BANCO MYSQL FAVOR ME DIZER!!!! OBRIGADO

Olá, Gostaria de saber como faço para somar a data e exibir em textbox ex: 15/01/08(1+5+0+1+0+8=15)

olá pessoal estou precisando da ajuda de vocês no código abaixo, ele deveria fazer o seguinte: pegar a data que esta dentro de um arquivo txt( c:\Retorno.txt) e comparar com a data de hoje, se a data for maior faça x e se for menor faça y. mas esse script so esta comparando o dia pois se eu colocar no txt dia 01/12/2007 e a data de hoje for 28/11/2007 o script informa data invalida(comparándo só o dia) quero que esse cript entenda que o que tem no txt é data e compara com a data de hoje! me ajudem por favor!!!!!!!! Private Sub Command1_Click() 'verificar data que foi estipulado em arquivo txt e informa se foi expirado o prog arq = "c:\Retorno.txt" n = FreeFile() Open arq For Input As #n conteúdo = Input(LOF(n), n) Close #n linhas = Split(conteúdo, vbCrLf) penúltima = linhas(UBound(linhas) = 1) últimos10caracteres = Right(penúltima, 10) MsgBox últimos10caracteres ' labelpane1 e = a conteudo de txt lblpane1.Caption = últimos10caracteres 'compara retorno da data contida no txt coma data atual no formato dd/mm/aaaa If (últimos10caracteres) >= (Format(Now(), "dd/mm/yyyy")) Then MsgBox " Data válida, você ainda tem tempo " Else MsgBox " Data Inválida, Tempo terminado ", vbCritical End If End Sub

Boa Noite, vou testar este código! aviso sobre o resultado. obrigado

olá, estou tentando fazer um recibo em vb6 com impressao no word. já estou na parte final, foi criado um banco mdb e um formulario de recibo no word mas quando mando gerar o recibo o mesmo é visualizado de forma correta mas as variaveis não estao sendo trocadas como o nome de cliente código etc.. fiz em tres tipos de conexao em mala direta, conexao variaveis direta e Bookmarks mas nehuma das opçoes foram bem sucedidas gostaria de saber se alguém pode me ajudar! exemplo Recibo R$ @valor RECEBEMOS do(s) Sr(a.) @nome a importância de R$ @valor (@extenso ), correspondente a @correspondente Natal/RN, @dia de @mes de @ano ____________________________ Assinatura cód Private Sub Command1_Click() Dim temp As String On Error GoTo trata_erro Set objWord = New Word.Application ' Desabilita o botao de comando cmdContrato.Enabled = False ' nome do relatorio pré montado objWord.Documents.Open (".\recibo1.doc") ' chama rotina para substituicao Call Substitui_Var("@nome", txtNome) Call Substitui_Var("@valor", txtValor) Call Substitui_Var("@extenso", txtExtenso) Call Substitui_Var("@correspondente", Data1.Recordset("correspondente")) Call Substitui_Var("@dia", Data1.Recordset("dia")) Call Substitui_Var("@mes", Data1.Recordset("mes")) Call Substitui_Var("@ano", Data1.Recordset("ano")) ' Salva o documento com um novo nome objWord.ActiveDocument.SaveAs (txtcontrato) 'Encerra o word objWord.Quit ' informa ao usuario que o contrato foi gerado MsgBox "Contrato gerado com sucesso! em : " & txtcontrato, vbInformation, " Contrato Gerado " ' libera memoria Set objWord = Nothing Exit Sub trata_erro: MsgBox "Ocorreu um erro durante o processamento " & " - Erro numero : " & Err.Number End Sub ___________________ Private Sub Substitui_Var(Header As String, Data As String) With objWord.Selection.Find .ClearFormatting .Text = Header .Execute Forward:=True End With Clipboard.Clear Clipboard.SetText (Data) objWord.Selection.Paste Clipboard.Clear End Sub ________________ errro apresentado, apresenta erro no" With objWord.Selection.Find" e informa "object required" Private Sub Substitui_Var(Header As String, Data As String) >>>> With objWord.Selection.Find<<<<< .ClearFormatting .Text = Header .Execute Forward:=True End With Clipboard.Clear Clipboard.SetText (Data) objWord.Selection.Paste Clipboard.Clear End Sub ____ obs. peço aos colegas que me ajudem!