mestre fyoda

ta dando erro aqui denovo : erro : Object Variable OR with block variable not set If alunos.AbsolutePosition > -1 Then

COMO SE FAZ ISSO , me de um exemplo

agora deu pau nessa linha objeto requride . If alunos.AbsolutePosition > -1 Then

ta nessa parte With rs .Open " Select * From alunos where nome LIKE '%" & Dado & "%' order by nome" , mas como faço para deixar a linha que eu quero em vermelho ?

a conexao não pode ser usada para realizar essa operação . ela esta fecha ou invalida neste contexto . Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Private Sub Form_Load() cn.CursorLocation = adUseClient 'Define o cursor como local cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\biblioteca.mdb" 'Abre o BD rs.Open "SELECT * FROM alunos", cn, adOpenDynamic, adLockOptimistic 'Abre a tabela no objeto "rs" End Sub Private Sub List1_Click() Dim Dados As String, Mensagem As String Dim Consulta_SQL As String Dim Resultado As String Dim Registro As String Dado = List1.Text Consulta_SQL = " Select * From alunos where nome LIKE '%" & Dado & "%' order by nome" Set alunos = Arquivo.openRecordset(Consulta_SQL, dbopenSnapshot) Rem Mensagem = " Posição retornada por Pesquisa.AbsolutePosition = " + _ Str(alunos.AbsolutePosition) If alunos.AbsolutePosition > -1 Then Mensagem = " Nome encontrado : " + alunos("nome") Resultado = MsgBox(Mensagem, vbInformation) Else Resultado = MsgBox("Nome não encontrado.", vbInformation) End If Registro = alunos(0) Resultado = MsgBox(Registro, vbInformation) Relacionamento = " Select * From alunos,pegar where pegar.id = alunos.id;" Set alunos = Arquivo.openRecordset(Relacionamento, dbopenDynaset) Registro = Registro - 1 alunos.Move Registro End Sub Private Sub Text5_Change() Dim Dados As String, Mensagem As String Dim Consulta_SQL As String Dim Resultado As String Dim Contador As String, Total_encontrado As Integer Contador = 0 Total_encontrado = 0 List1.Clear Dado = Text5.Text Set rs = CreateObject("ADODB.Recordset") With rs .Open " Select * From alunos where nome LIKE '%" & Dado & "%' order by nome" If Total_encontrado > 1 Then List1.ToolTipText = " Clique em um dos nomes disponiveis para verificar dados completos . " Else List1.ToolTipText = "Nenhum nome disponivel . " End If Do If alunos.AbsolutePosition > -1 Then List1.AddItem (alunos("nome")) Contador = Contador + 1 alunos.MoveNext End If Loop Until Contador >= Total_encontado Relacionamento = " Select * From alunos,pegar where pegar.id = alunos.id;" alunos.MoveFirst End With End Sub

Ta dando erro no form4 vou estar passando o codigo e vocês me ajudem por favor por favor . http://ee.domaindlx.com/teste123/biblioteca.mdb http://ee.domaindlx.com/teste123/Form1.frm http://ee.domaindlx.com/teste123/Form2.frm http://ee.domaindlx.com/teste123/Form3.frm http://ee.domaindlx.com/teste123/Form4.frm http://ee.domaindlx.com/teste123/Project1.vbp

pode trancar . valeu mesmo chapa você me ajudou muito com muitas coisas .

ei mano essa parte do codigo funciona em partes , ela insere no bd corretatamente mas mostra errado pro usuario q esta digitando por exemplo o usuario digita Rafael Fernandes D'Orazio , essa aspa simples se tranforma em aspas duplas , como faço para deixar com aspas simples . nome = Replace(nome.Text, "'", "''")

agora eu coloquei um combobox no exp2 e ficou assim expedicao = exp1.Text & "/" & exp2.List & "/" & exp3.Text Esta dando o seguinte erro : Compile erro : Argument not Opcional

Erro na linha vermelha Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Private Sub cadastrar_Click() nome = Replace(nome.Text, "'", "''") rg = rg1.Text & "." & rg2.Text & "." & rg3.Text & "-" & rg4.Text telefone = tel1.Text & "-" & tel2.Text cep = cep1.Text & "-" & cep2.Text Dim sql As String [color=red]sql = "INSERT INTO alunos (nome,endereco,numero,cep,telefone,rg) VALUES ('" & nome.Text & "', '" & endereco.Text & "', '" & numero.Text & "', '" & cep & "','" & telefone & "','" & rg & "');"[/color] cn.Execute sql End Sub Private Sub Form_Load() cn.CursorLocation = adUseClient 'Define o cursor como local cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\biblioteca.mdb" 'Abre o BD rs.Open "SELECT * FROM alunos", cn, adOpenDynamic, adLockOptimistic 'Abre a tabela no objeto "rs" End Sub

perfeito mano , você colocou coisas amais mas mesmo assim excelente .

Poxa , não axei algo referente a isso , teria como você me dar um exemplo com comentario , por favor.

Como poderia fazer uma conexao a um bd usando Public . Por favor me explique se tiver q habilitar alguma coisa . Estou usando o vb6.0 . Por favor gente me expliquem detalhadamente e com comentarios . Grato Pela Atenção

deu certo daquele geito q você me passou mas tinha um pqueno erro . formata errada Private Sub Combo1_[COLOR=red]OnClick [/COLOR]'<- Esse evento If quantidade.ListIndex = 2 Then nomefilho1.Visible = False nomefilho2.Visible = True nomefilho3.Visible = True End If End Sub o certo Private Sub Combo1_[COLOR=red]Click [/COLOR]'<- Esse evento If quantidade.ListIndex = 2 Then nomefilho1.Visible = False nomefilho2.Visible = True nomefilho3.Visible = True End If End Sub

mesmo assim não da certo. faz um no vb6.0 e coloca pra baixar .

não deu certo , ficou assim no combobox: Private Sub Combo1_OnClick() '<- Esse evento If quantidade.ListIndex = 2 Then nomefilho1.Visible = False nomefilho2.Visible = True nomefilho3.Visible = True End If End Sub

deu quase certo , ta dando um pequeno problema , o campo Texto so desaparece quando eu digito alguma coisa no campo texto em que vai desaparecer , como concerto isso ? campo texto meufilho1 ( esse campo desaparece ) Private Sub nomefilho1_Change() If quantidade.ListIndex = 2 Then nomefilho1.Visible = False nomefilho2.Visible = True nomefilho3.Visible = True End If End Sub

Num Formulario . Eu gostaria de fazer desse jeito , eu tenho um COMBObox , e ele esta assim : Filhos : quantidade de filhos 0 1 2 Por exemplo , o usuario clica no 2 , ai tera que aparecer mais 2 campos textos nome , ou quando o usuario clica no campo 1 aparecera um campo texto nome . Como q se faz isso ?

então , como fica essa parte ? Ta faltando alguma coisa ? A linguagem php muda se eu interagir com o flash , nesse caso ?

porque não ta indo no php ? no campo senha e login eu coloquei como texto de entrada , e nas vars coloquei login e senha . No botão eu fiz isso : on(release) { loadVariables ("loga.php", "_root", "POST"); } o q esta de errado ? ele não faz nada . Melhor ainda , to desponibilando o q eu fiz pra vocês olharem o q tem de errado . Grato http://tibia.ispbrasil.com.br/login.fla

Speedy Touch 330 . Tem como você me ajudar ? Caso eu queira voltar a configuração anterior , é facil ?

Como faço para configurar seu modem, para liberar a porta que o iis usa ?

aff quando eu digito o http://localhost a pagina não abre

Esse firewall ele é bom (dos gratuitos) ? ele roda no windows xp pro service pack 1 ?

como assim desligado , você diz o programa do no-ip rodando na minha maquina ? Se for isso ele tava sim . Só uma duvida eu sou obrigado criar uma conta de Administrador ? Eu us essa opção e não ta dando certo . Me ajudem por favor .