mariozneto

Amigo, já tentou deixar com tempo indeterminado ??? Falow... T+

Precisando é só postar amigo!!!! Falow... T+

Amigo, Poste sua String de Conexão para nós analizarmos.... Falow... T+

Falae Amigo!!! Use o Famoso On error goto TimeOutConexao, para fazer o tratamento de erro!!! Falow... T+

Tem sim Amigo!!! Veja esta api: Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Function GetNameofUser() As String 'RETORNA USERNAME DO PC Dim Buff As String Dim Sze As Long Buff = Space$(255) Sze = 255 GetUserName Buff, Sze GetNameofUser = Left$(Buff, Sze) End Function Private Sub Form_Load() MsgBox GetNameofUser End Sub Falow... T+

Veja este exemplo que fiz para você: Private Sub cmdcarregar_Click() 'cria a coluna ListView1.ColumnHeaders.Add , , "Primeira" ListView1.ColumnHeaders.Add , , "Segunda" 'mostra a coluna ListView1.View = lvwReport 'inseri itens Dim itmx As ListItem Set itmx = ListView1.ListItems.Add(, , "Primeiro Valor") itmx.SubItems(1) = "Segundo Valor" Set itmx = ListView1.ListItems.Add(, , "Terceiro Valor") itmx.SubItems(1) = "Quarto Valor" End Sub Private Sub cmdgravar_Click() Dim xlApp As Object Dim xlWb As Object Dim xlWs As Object Set xlApp = CreateObject("Excel.Application") Set xlWb = xlApp.Workbooks.Add Set xlWs = xlWb.Worksheets(1) xlApp.Visible = True xlApp.UserControl = True Dim linha As Integer linha = 1 For i = 1 To ListView1.ListItems.Count xlWs.Cells(i, 1).Value = ListView1.ListItems(i).Text xlWs.Cells(i, 2).Value = ListView1.ListItems(i).SubItems(1) Next End Sub Qualquer Dúvida pode postar!!!! Falow... T+

Veja este exemplo que fiz para você: Private Sub cmdcarregar_Click() 'cria a coluna ListView1.ColumnHeaders.Add , , "Primeira" ListView1.ColumnHeaders.Add , , "Segunda" 'mostra a coluna ListView1.View = lvwReport 'inseri itens Dim itmx As ListItem Set itmx = ListView1.ListItems.Add(, , "Primeiro Valor") itmx.SubItems(1) = "Segundo Valor" Set itmx = ListView1.ListItems.Add(, , "Terceiro Valor") itmx.SubItems(1) = "Quarto Valor" End Sub Private Sub cmdgravar_Click() Dim xlApp As Object Dim xlWb As Object Dim xlWs As Object Set xlApp = CreateObject("Excel.Application") Set xlWb = xlApp.Workbooks.Add Set xlWs = xlWb.Worksheets(1) xlApp.Visible = True xlApp.UserControl = True Dim linha As Integer linha = 1 For i = 1 To ListView1.ListItems.Count xlWs.Cells(i, 1).Value = ListView1.ListItems(i).Text xlWs.Cells(i, 2).Value = ListView1.ListItems(i).SubItems(1) Next End Sub Qualquer Dúvida pode postar!!!! Falow... T+

Muita Calma Amigo!!!! Eu Estou fazendo um exemplo para você!!!! Falow... T+

Vou fazer um exemplo para você, já já eu posto!!!!! Falow... T+

De nada!!! Precisando é só postar!!!! Falow... T+

Geralmente a mais usada: Microsoft DAO 2.5/3.51 Compatibility Library Falow... T+

Ok! Veja que no meu exemplo eu havia tirado os espaços.... Precisando é só postar!!!! Falow... T+

Faça uma Pesquisa no Google Imagens!!!! Falow... T+

Mude para o InoSetup que é bem Melhor!!!! Falow... T+

Amigo, poste a Linha que está dando erro!!! Falow... T+

Amigo eu lhe aconselho você a usar UpDate. Veja este exemplo: Dim cnnComando As New ADODB.Command cnnComando.ActiveConnection = cnnAcesso cnnComando.CommandType = adCmdText cnnComando.CommandText = "UPDATE sua_tabela SET " & "Campo_01 = '" & text1.Text & "'" & "WHERE Campo_02 = '" & text2.Text & "'" cnnComando.Execute Falow... T+

Coloque um Componente Inet em seu Formulário e usa a seguinte linha: Inet1.OpenURL "www.ig.com.br" Falow... T+

Amigo, aparentimente está tudo normal, mas tente usar assim: ORS.Open "SELECT IDCADCLIENTES, NOME FROM TABCADCLIENTES WHERE NOME LIKE '*" & UCase(Trim(txtNomeCliente.Text)) & "*'", oDB, adOpenDynamic, adLockOptimistic Outra coisa, você tem certeza que todos nomes no banco de dados estão em maiúsculo ??? Falow... T+

Mas o site não tem Seção de Dicas ??? Falow... T+

Precisando é só postar!!!! Falow... T+

Nunca!!!! Foi criação Própria!!!!! Falow... T+

Veja código fonte: http://www.vbmania.com.br/vbmania/vbmdetai...rt=&varPagina=1 Falow... T+

Olá amigo!!! Crie um ACTIVELOCK Vai ficar legal!!!! Falow... T+

Olá Amigo!!! Qual a versão do seu Crystal ??? Falow... T+

Olá amigo!!! Você tem permissões de usuários ??? ou são todas permissões iguais ??? Falow... T+