Danielsh

Pessoal, boa noite estou fazendo uma pesquisa em uma txt_pesquisa e quero mostrar o resultado no datagrid mas não dá certo. Dá erro na linha do " Set.datasource=rs Por favor alguém me ajuda. Obrigado. Segue o meu código. Dim pesquisa As String Dim rs As ADODB.Recordset Set conex = New ADODB.Connection conex.Open stringdeconexao stringsql = " select * from Clientes where cli_telefone like " pesquisa = txt_pesquisa.Text stringsql = stringsql & "'%" & pesquisa & "%'" Set rs = New ADODB.Recordset rs.Open stringsql, conex, adOpenForwardOnly, adLockOptimistic If rs.EOF Or rs.BOF Then MsgBox ("Não foi encontrado nenhum registro, tente de novo"), vbInformation Else With DataGrid1 Set .DataSource = rs .Refresh End With rs.Close Set rs = Nothing End If

???

Pessoal me ajude, preciso verificar se o usuário digitou a senha mais de 3 vezes e sair do sistema, estou fazendo assim e não dá certo. Podem me ajudar? Obrigado Private Sub Command1_Click() Dim s As Integer s = 0 If Not s < 3 Then If Text1.Text = ("Daniel") And Text2.Text = ("123") Then frm_principal.Show Unload Me Else s = s + 1 MsgBox " Usuário ou senha inválida, tente novamente " Text1.Text = "" Text2.Text = "" Text1.SetFocus End If Else MsgBox " Senha bloqueada" End End If End Sub

Sim, sem problemas, por q? Não era para cadastrar?

Por favor, alguém tem ou sabe o código para calcular parcela de financiamento de carro? Estou desenvolvendo um programa para uma agência e preciso criar um FORM q calcule o financiamento do veículo. Eu sei o valor que vai ser financiado, sei o juros ao mês, e sei as parcelas, alguém saberia como calcular isso no VB?

Pessoal o vb6 tem como colocar um efeito ao passar o mouse sobre um botão aparecer um texto? Sei que no Delphi tem uma opção na própria propriedade do botão que faz isso mas no vb6 não achei nada. Obrigado.

Pessoal, resolvi meu problema, no botão inserir havia essa linda de código 'ado_clientes.Recordset.MoveLast ado_clientes.Recordset.AddNew Text1.SetFocus Removi a primeira linha e agora eu consigo apagar todos os meus registros e adicionar sem problema. VLW assim mesmo

Pessoal sou novo no VB e criei uma aplicação para uma agência de carros aonde o usuário cadastra clientes, carros e etc instalei, testei e beleza porém no outro dia eu fiz um teste, apaguei todos os registros do banco e agora não consigo mais adicionar nada no programa o erro é " ERROR 3021" BOF OU EOF SÃO VERDADEIROS OU REGISTROS ATUAIS FORAM EXCLUÍDOS OPERAÇÃO SOLICITADA EXIGE UM REGISTRO NO BAANCO se eu adicionar algum registro direto no banco aí funciona mas caso contrário não vai por nada. Podem me ajudar??

Instalei mas não aparece nada lá, baixei um outro ( vbskinner free ) esse funcionou mas só tem um modelo de formulário, tem algo mais que eu possa fazer?

Vou testar aqui Obrigado !!

Olá pessoal, estou tentando alterar a cara do meu formulário mas não aparece a Active Skin 4.0 Type Library na lista de componentes, alguém o por q? Preciso instalar algo no meu VB6? Vlw

Não apresenta erro nenhum simplesmente me parece que ele não faz a comparação, já cai direto na msg " Este Registro nome não foi encontrado no banco de dados! " sendo que existe o nome. obs: Não declarei recordset em nenhum dos códigos de pesquisa mas pesquisar por código funciona. Código para procurar por código ( esse funciona normal ) Private Sub Option1_Click() Dim ValorPesquisa As String ValorPesquisa = InputBox("Digite o código que quer encontrar:") dtb_clientes.Recordset.FindFirst "Código =" & Val(ValorPesquisa) Option1.Value = False If dtb_clientes.Recordset.NoMatch = True Then MsgBox "Este Registro não foi encontrado no banco de dados!" End If End Sub ---------------------------------------- codigo para procurar por nome ( não funciona ) Private Sub Option2_Click() Dim pesquisa As String Dim b As String ValorPesquisa = InputBox("Digite o Nome que quer encontrar:") b = ValorPesquisa dtb_clientes.Recordset.FindFirst "Nome do Cliente " = " b '" Option2.Value = False If dtb_clientes.Recordset.NoMatch = True Then MsgBox "Este Registro nome não foi encontrado no banco de dados!" End If

Estou usando o mais simples possível, access 2000 e um Data, estou iniciando agora.

Pessoal por que não funciona? Fiz o mesmo com o campo código e deu certo, por nome não vai. Sou iniciante, me ajudem. Dim ValorPesquisa As String ValorPesquisa = InputBox("Digite o Nome que quer encontrar:") dtb_clientes.Recordset.FindFirst "Nome do Cliente = '" & ValorPesquisa & "'" If dtb_clientes.Recordset.NoMatch = True Then MsgBox "Este Registro não foi encontrado no banco de dados!" End If