aninha
-
Total de itens
21 -
Registro em
-
Última visita
Sobre aninha
aninha's Achievements
0
Reputação
-
Bom dia, Grata pela resposta .... sim só tenho um IP, porém este serviço da CludFlare é pago pelo que entendi na minha pesquisa... teria algum serviço gratuito? sem ser o No-IP?
-
Boa tarde caros, Mas uma vez rogo pela ajuda de vocês, estou tentando hospedar meu site em meu computador, utilizo o WAMPSERVER 2.5, já consegui coloca-lo no ar, porém não sei como fazer para ter os DDNS1 e 2 para poder redirecionar meu domínio para o meu IP, a mês procuro por uma solução na internet, porém as poucas explicação que encontrei são muito confusas . Alguém sabe como eu poderia fazer isso??? Desde já agradeço OBS.: Tenho IP Fixo
-
Boa tarde Marcelo, Muito obrigada pela resposta, porém este procedimento eu já tinha feito, sem resultado!!!!
-
Olá boa tarde amigos, Mais uma vez peço o socorro de vocês, estou tentando fazer um UPLOAD de imagens com o PHP, uso esse mesmo codigo em dois sites, no primeiro foi show, deu certinho... Porém no segundo so me da a seguinte mensagem: ( Erro ao salvar o arquivo. Aparentemente você não tem permissão de escrita. )... a diferença do 1° que deu certo para o 2° é apenas o insert, banco e etc ..... segue abaixo o script em php e o codigo em HTML. <?php require "../includes/config.php"; ?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Registro de Vehículos</title> </head> <body> <form id="form1" name="form1" method="post" enctype="multipart/form-data" action="../cadastros/recebeUpload.php"> <table width="519" border="0"> <tr> <td width="133"></td> <td width="370"><input type="text" name="n_registro" size="50" placeholder="N. Registro"></td> </tr> <tr> <td></td> <td><input type="text" name="placa_veiculo" size="50" placeholder="Placa del vehículo"></td> </tr> <tr> <td></td> <td><input name="ano_fabricao" type="text" size="50" placeholder="Año/Fabricación"></td> </tr> <tr> <td></td> <td><input type="text" name="ano_modelo" size="50" placeholder="Año/Modelo"></td> </tr> <tr> <td></td> <td><input type="text" name="kilometragem" size="50" placeholder="Kuilometraje KM"> </td> </tr> <tr> <td></td> <td><input type="text" name="valor_vista" maxlength="50" size="50" placeholder="Al Contado U$"> </td> </tr> <tr> <td></td> <td><input type="text" name="externo" size="50" maxlength="50" size="50" placeholder="Color Externo"> </td> </tr> <tr> <td></td> <td><input type="text" name="interior" size="50" maxlength="50" placeholder="Color Interior"></td> </tr> <tr> <td></td> <td><input type="text" name="tipo_veiculo" maxlength="50" size= "50" placeholder="Tipo de vehículo"></td> </tr> <tr> <td></td> <td><input type="text" name="portas" maxlength="50" size="50" placeholder="Puertas"></td> </tr> <tr> <td></td> <td><input type="text" name="ds_motor" maxlength="50" size ="50" placeholder="Motor"></td> </tr> <tr> <td></td> <td><input name="combustivel" type="text" maxlength="9" size="50" placeholder="Combustible"/></td> </tr> <tr> <td></td> <td><input name="transicao" type="text" maxlength="50" size="50" placeholder="Transmisión"></td> </tr> <tr> <td></td> <td><input name="som" type="text" maxlength="50" size="50" placeholder="Sonido"></td> </tr> <tr> <td></td> <td><input name="funcao" type="text" maxlength="50" size="50" placeholder="Financiacíon"/></td> </tr> <tr> <td></td> <td><input name="equipamento" type="text" maxlength="50" size="50" placeholder="Equipo/Opcional"/></td> </tr> <tr> <td></td> <td height="50" width="100%" ><textarea name="obs" type="text" maxlength="250" size="400" placeholder="Observaciones"></textarea></td> </tr> <tr> <td> </td> <td> </td> </tr> <tr> <td><input name="arquivo" type="file" /><input type="submit" value="Salvar" onclick="window.open('recebeUpload.php?n_registro='+n_registro.value+'&placa_veiculo='+placa_veiculo.value+ '&ano_fabricao='+ano_fabricao.value'&ano_modelo='+ano_modelo.value '&kilometragem='+kilometragem.value '&valor_vista='+valor_vista.value '&externo"=' +externo'".value &interno='+interno.value' &tipo_veiculo='+tipo_veiculo.value' &portas='+portas.value' &ds_motor='+ds_motor.value' &combustivel='+combustivel.value' &transicao='+transicao.value' &som='+som.value' &funcao='+funcao.value' &equipamento='+equipamento.value' &obs='+obs.value', '','')" /> </td> </tr> </table> </form> </body> </html> SCRIPT PHP <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Registro de Vehículos</title> </head> <body> <?php // verifica se foi enviado um arquivo if(isset($_FILES['arquivo']['name']) && $_FILES["arquivo"]["error"] == 0) { echo "Você enviou o arquivo: <strong>" . $_FILES['arquivo']['name'] . "</strong><br />"; echo "Este arquivo é do tipo: <strong>" . $_FILES['arquivo']['type'] . "</strong><br />"; echo "Temporáriamente foi salvo em: <strong>" . $_FILES['arquivo']['tmp_name'] . "</strong><br />"; echo "Seu tamanho é: <strong>" . $_FILES['arquivo']['size'] . "</strong> Bytes<br /><br />"; $arquivo_tmp = $_FILES['arquivo']['tmp_name']; $nome = $_FILES['arquivo']['name']; // Pega a extensao $extensao = strrchr($nome, '.'); // Converte a extensao para mimusculo $extensao = strtolower($extensao); //variaveis p/ banco $n_registro = $_POST['n_registro']; $placa_veiculo = $_POST['placa_veiculo']; $ano_fabricao = $_POST['ano_fabricao']; $ano_modelo = $_POST['ano_modelo']; $kilometragem = $_POST['kilometragem']; $valor_vista = $_POST['valor_vista']; $externo = $_POST['externo']; $interno = $_POST['interior']; $tipo_veiculo = $_POST['tipo_veiculo']; $portas = $_POST['portas']; $ds_motor = $_POST['ds_motor']; $combustivel = $_POST['combustivel']; $transicao = $_POST['transicao']; $som = $_POST['som']; $funcao = $_POST['funcao']; $equipamento = $_POST['equipamento']; $obs = $_POST ['obs']; // Somente imagens, .jpg;.jpeg;.gif;.png // Aqui eu enfilero as extesões permitidas e separo por ';' // Isso server apenas para eu poder pesquisar dentro desta String if(strstr('.jpg;.jpeg;.gif;.png', $extensao)) { // Cria um nome único para esta imagem // Evita que duplique as imagens no servidor. $novoNome = md5(microtime()) . '.' . $extensao; // Concatena a pasta com o nome $destino = 'images/properties/' . $novoNome; //conexao banco de dados $host= 'localhost'; $usuario = 'root'; $senhabd= ''; $bd= 'towers'; $userbd = $bd; //conectando com o localhost - mysql $conexao = mysqli_connect($host, $usuario, $senhabd, $bd ); if (!$conexao) die ("Erro de conexão com localhost, o seguinte erro ocorreu -> ".mysqli_connect_error()); //conectando com a tabela do banco de dados $banco = mysqli_select_db($conexao, $bd); if (!$banco) die ("Erro de conexão com banco de dados, o seguinte erro ocorreu -> ".mysqli_error()); //insere na tabela $query = "INSERT INTO veiculo ( n_registro, PlacaVeiculo, anofabricao, anomodelo, kilometragem, valorvista, exterior, interior, tipoveiculo, portas, motor, combustivel, trans, sistema_som, financiamento, equipamentos, observacao, caminho_img ) VALUES ( '$n_registro', '$placa_veiculo', '$ano_fabricao', '$ano_modelo', '$kilometragem', '$valor_vista', '$externo', '$interno', '$tipo_veiculo', '$portas', '$ds_motor', '$combustivel', '$transicao', '$som', '$funcao', '$equipamento', '$obs', '$destino' )"; mysqli_query($conexao,$query) or die( mysqli_error( $conexao ) ); // tenta mover o arquivo para o destino if(@move_uploaded_file($arquivo_tmp,$destino)) { echo "Arquivo salvo com sucesso em : <strong>" . $destino . "</strong><br />"; echo "<img src=\"" . $destino . "\" />"; } else echo "Erro ao salvar o arquivo. Aparentemente você não tem permissão de escrita.<br />"; } else echo "Você poderá enviar apenas arquivos \"*.jpg;*.jpeg;*.gif;*.png\"<br />"; } else { echo "Você não enviou nenhum arquivo!"; } ?> </body> </html> Desde já agradeço quem puder me ajudar.... Forte abraço!
-
Bom dia, Muito obrigada pela ajuda, de verdade.... o Erro citado acima era apenas falta de anteção no insert do banco Troquei: $query = "INSERT INTO `registro´ (`Nome_Registro` , `Email_Registro´, `Id_Registro´) VALUES ('$nome', '$email', '$senha', '')"; por: $query = "INSERT INTO registro (Nome_Registro, Email_Registro, Senha_Registro) VALUES ('$nome', '$email','$senha')"; e deu certo... Mais uma vez agradeço mesmo de coração.... Aos administradores podem colocar como solucionado!!!! Gratidão!
-
Boa tarde, Muito obrigada... consigo ler o conteúdo das áreas texto, mas agora não está salvando no banco: arquivo de conexao: $host= '127.0.0.1'; $usuario = 'root'; $senhabd= ''; $bd= 'imobiliaria'; $userbd = $bd; //conectando com o localhost - mysql $conexao = mysqli_connect($host, $usuario, $senhabd, $bd ); if (!$conexao) die ("Erro de conexão com localhost, o seguinte erro ocorreu -> ".mysqli_connect_error()); //conectando com a tabela do banco de dados $banco = mysqli_select_db($conexao, $bd); if (!$banco) die ("Erro de conexão com banco de dados, o seguinte erro ocorreu -> ".mysqli_error()); ?> arquivo gravar: <?php include 'conecta.php'; $nome = $_POST["form_name"]; $email = $_POST['form_email']; $senha = $_POST['form_phone']; //$segunda_senha = $_POST['segunda_senha']; mysql_select_db($db); $query = "INSERT INTO `registro´ (`Nome_Registro` , `Email_Registro´, `Id_Registro´) VALUES ('$nome', '$email', '$senha', '')"; mysqli_query($query); die("<br />não foi possivel inserir registro: " . mysql_error()); echo "<br />Seu cadastro foi realizado com sucesso!<br>Agradecemos a atenção."; ?> o meu form ficou assim: <script type="text/javascript"> function submitform() { document.form1.submit(); } </script> <?php $nome = $_POST["form_name"]; $email = $_POST['form_email']; $senha = $_POST['form_phone']; //$segunda_senha = $_POST['segunda_senha']; ?> quando não consiguia ler os $_POST ele estava inserindo linhas em branco no banco, agora que consigo ler, não insere mais nada... e tambem não da erro algum... Desde já agradeço quem puder me ajudar
-
Boa tarde caros, Não estou conseguindo pegar o valor de um campo texto feito em HTML+CSS+JavaScript, segue o codigo do form abaixo: <div class="container"> <div class="spacer"> <div class="row register"> <div class="col-lg-6 col-lg-offset-3 col-sm-6 col-sm-offset-3 col-xs-12 "> <input type="text" class="form-control" placeholder="Nome" name="form_name"> <input type="text" class="form-control" placeholder="Email" name="form_email"> <input type="password" class="form-control" placeholder="Senha" name="form_phone"> <input type="password" class="form-control" placeholder="Confirme sua senha" name="form_phone"> <textarea rows="6" class="form-control" placeholder="Endereço" name="form_message"></textarea> <form type="submit" class="btn btn-success" name="Submit"><a href="cadastrar.php">Registre-se</form> quando passo: <?php $nome = $_POST["form_name"]; $email = $_POST['form_email']; $senha = $_POST['form_phone']; ?> Recebo a notificação: Notice: Undefined index:Form_name Já tentei de tudo ... if (isset($_POST["form_name"])) { $nome = $_POST["form_name"]; echo $nome; echo "seu nome de usuario:"; } else { $nome = null; echo "nenhum nome de usuário fornecido"; } aqui ele sempre cai no else se alguém puder me da uma luz desde já agradeço muito, pois não sei mais o que fazer. Desde já agradeço
-
MUITO OBRIGADA!!!!!! você É UM GENIO!!!!! FINALMENTE DEU CERTO!!!!!! SÓ MAIS UMA PERGUNTA SE EU FAZER OUTRAS TELAS DE PESQUISA, TIPO... FORNECEDOR VOU TER QUE CRIAR OUTRO MODULE? OUTRO SUB-MAIN OU POSSO USAR ESSE já QUE TA ABRINDO O BANCO? :blush:
-
A quela linha tirei sim... tirei também 'On Error Resume Next Olha vou passar os codigos inteiros como ta no tutorial são 3 form, 3 modulo e 2 dataevironment 1° FORM = frmCadClientes Declarations = Option Explicit também tem 3 sub-rotinas... 1°----- Private Sub GravaDados() Dim adCmdPaciente As New ADODB.Command Dim CodCliente As Long Dim Resp As Byte If Not TudoOK Then Exit Sub Resp = MsgBox("Confirma Gravação de " & txtNome & " em Cadastro de Cliente ?", vbYesNo + vbQuestion, "Salvar Dados") If Resp = 7 Then Exit Sub 'On Error Resume Next CodCliente = Val(txtCodCliente.Text) With adCmdPaciente Set .ActiveConnection = cnSQL .CommandType = adCmdText .Prepared = True If CodCliente > 0 Then .CommandText = "UPDATE CadCliente set Nome = ?, Endereco = ?, Bairro = ?, Cidade = ?, Estado = ?, Cep = ?, Telefone = ?, Obs = ?, NomeAnimal = ?, Especie = ?, Raça = ?, Cor = ?, Sexo = ?, DataCad = ? Where CodCliente = " & CodCliente .Parameters.Append .CreateParameter("Nome", adVarChar, adParamInput, 30) .Parameters.Append .CreateParameter("Endereco", adVarChar, adParamInput, 30) .Parameters.Append .CreateParameter("Bairro", adVarChar, adParamInput, 20) .Parameters.Append .CreateParameter("Cidade", adVarChar, adParamInput, 20) .Parameters.Append .CreateParameter("Estado", adVarChar, adParamInput, 2) .Parameters.Append .CreateParameter("Cep", adVarChar, adParamInput, 9) .Parameters.Append .CreateParameter("Telefone", adVarChar, adParamInput, 9) .Parameters.Append .CreateParameter("Obs", adVarChar, adParamInput, 255) .Parameters.Append .CreateParameter("NomeAnimal", adVarChar, adParamInput, 255) .Parameters.Append .CreateParameter("Especie", adVarChar, adParamInput, 255) .Parameters.Append .CreateParameter("Raça", adVarChar, adParamInput, 255) .Parameters.Append .CreateParameter("Cor", adVarChar, adParamInput, 255) .Parameters.Append .CreateParameter("Sexo", adVarChar, adParamInput, 255) .Parameters.Append .CreateParameter("DataCad", adDate, adParamInput) .Parameters("Nome") = txtNome.Text .Parameters("Endereco") = txtEndereco.Text .Parameters("Bairro") = txtBairro.Text .Parameters("Cidade") = txtCidade.Text .Parameters("Estado") = cboEstado.Text .Parameters("Cep") = txtCep.Text .Parameters("Telefone") = txtTelefone.Text .Parameters("Obs") = txtObs.Text .Parameters("NomeAnimal") = txtNomeAnimal.Text .Parameters("Especie") = txtEspecie.Text .Parameters("Raça") = txtRaça.Text .Parameters("Cor") = txtCor.Text .Parameters("Sexo") = txtSexo.Text .Parameters("DataCad") = Date .Execute If Err.Number <> 0 Then MostraErro End If Else .CommandText = "INSERT INTO CadCliente (Nome, Endereco, Bairro, Cidade, Estado, Cep, Telefone, Obs, NomeAnimal, Especie, Raça, Cor, Sexo, DataCad) Values (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ? )" .Parameters.Append .CreateParameter("Nome", adVarChar, adParamInput, 30) .Parameters.Append .CreateParameter("Endereco", adVarChar, adParamInput, 30) .Parameters.Append .CreateParameter("Bairro", adVarChar, adParamInput, 20) .Parameters.Append .CreateParameter("Cidade", adVarChar, adParamInput, 20) .Parameters.Append .CreateParameter("Estado", adVarChar, adParamInput, 2) .Parameters.Append .CreateParameter("Cep", adVarChar, adParamInput, 9) .Parameters.Append .CreateParameter("Telefone", adVarChar, adParamInput, 9) .Parameters.Append .CreateParameter("Obs", adVarChar, adParamInput, 255) .Parameters.Append .CreateParameter("NomeAnimal", adVarChar, adParamInput, 255) .Parameters.Append .CreateParameter("Especie", adVarChar, adParamInput, 255) .Parameters.Append .CreateParameter("Raça", adVarChar, adParamInput, 255) .Parameters.Append .CreateParameter("Cor", adVarChar, adParamInput, 255) .Parameters.Append .CreateParameter("Sexo", adVarChar, adParamInput, 255) .Parameters.Append .CreateParameter("DataCad", adDate, adParamInput) .Parameters("Nome") = txtNome.Text .Parameters("Endereco") = txtEndereco.Text .Parameters("Bairro") = txtBairro.Text .Parameters("Cidade") = txtCidade.Text .Parameters("Estado") = cboEstado.Text .Parameters("Cep") = txtCep.Text .Parameters("Telefone") = txtTelefone.Text .Parameters("Obs") = txtObs.Text .Parameters("NomeAnimal") = txtNomeAnimal.Text .Parameters("Especie") = txtEspecie.Text .Parameters("Raça") = txtRaça.Text .Parameters("Cor") = txtCor.Text .Parameters("Sexo") = txtSexo.Text .Parameters("DataCad") = Date .Execute If Err.Number <> 0 Then MostraErro End If End If End With Set adCmdPaciente = Nothing cmdNovo_Click End Sub 2°------ Public Sub MostraDadosCliente() Dim rsPaciente As New ADODB.Recordset Dim SQL As String Dim CodCliente As Long CodCliente = Val(txtCodCliente.Text) ' On Error Resume Next SQL = "SELECT Nome, Endereco, Bairro, Cidade, Estado, Cep, Telefone, Obs, NomeAnimal, Especie, Raça, Cor, Sexo From CadCliente Where CodCliente=" & CodCliente rsPaciente.Open SQL, cnSQL, adOpenForwardOnly, adLockReadOnly txtNome = rsPaciente(0) txtEndereco = rsPaciente(1) txtBairro = rsPaciente(2) txtCidade = rsPaciente(3) cboEstado = rsPaciente(4) txtCep = rsPaciente(5) txtTelefone = rsPaciente(6) txtObs = rsPaciente(7) txtNomeAnimal = rsPaciente(8) txtEspecie = rsPaciente(9) txtRaça = rsPaciente(10) txtCor = rsPaciente(11) txtSexo = rsPaciente(12) rsPaciente.Close End Sub 3°----- Public Function TudoOK() As Boolean If Len(txtNome.Text) < 3 Then MsgBox "Nome Inválido !!!", vbExclamation, "Atenção" txtNome.SetFocus Exit Function ElseIf Len(txtEndereco.Text) < 3 Then MsgBox "Endereço Inválido !!!", vbExclamation, "Atenção" txtEndereco.SetFocus Exit Function ElseIf Len(txtBairro.Text) < 3 Then MsgBox "Bairro Inválido !!!", vbExclamation, "Atenção" txtBairro.SetFocus Exit Function ElseIf Len(txtCidade.Text) < 3 Then MsgBox "Cidade Inválida !!!", vbExclamation, "Atenção" txtCidade.SetFocus Exit Function ElseIf Not ValidaCEP(txtCep.Text) Then MsgBox "Cep Inválido !!!", vbExclamation, "Atenção" txtCep.SetFocus ElseIf Len(txtNomeAnimal.Text) < 3 Then MsgBox "Nome do Animal Inválida !!!", vbExclamation, "Atenção" txtNomeAnimal.SetFocus Exit Function ElseIf Len(txtEspecie.Text) < 3 Then MsgBox "Especie Inválida !!!", vbExclamation, "Atenção" txtEspecie.SetFocus Exit Function ElseIf Len(txtRaça.Text) < 3 Then MsgBox "Raça Inválida !!!", vbExclamation, "Atenção" txtRaça.SetFocus Exit Function ElseIf Len(txtCor.Text) < 3 Then MsgBox "Cor Inválida !!!", vbExclamation, "Atenção" txtCor.SetFocus Exit Function ElseIf Len(txtSexo.Text) < 3 Then MsgBox "Sexo Inválida !!!", vbExclamation, "Atenção" txtSexo.SetFocus Exit Function End If TudoOK = True End Function BOTÕES DE COMANDO... (NOVO, ALTERAR, EXCLUIR, SALVAR, RELÁTORIO RETORNAR) Private Sub cmdAlterar_Click() cmdNovo_Click Set frmPesquisa.frmPesquisa = Me frmPesquisa.Show 1 End Sub
-
Olá pessual boa tarde..... Fiz td conforme vocês mi falaram e descobri que o erro da conexão fechada acontece qn do o form "CADCLIENTE deixa de ser o principal..." Pequei o codigo desse form em : www.macoratti.net/08/02/vb_cdcli.htm, fiz ele com o cod que estava lá... Enquanto era só ele deu tudo certo, acreceitei outross form e mudei em Projecto - ProjetoProprietadades - Startuobjeto para outro form chamar ele, depois disso ele deu o mesmo erro de sempre ' A conexão não pode ser usada para realizar esta operação, ela esta fechada ou invalida neste contexto ... A linha de erro é: .Open SQL, cnSQL, adOpenForwardOnly, adLockReadOnly.... Como antes.... AGORA EIS A QUESTÃO.... PORQUE SOZINHO COMO FORM DE ENTRADA ELE FUNCIONA? MEU DEUS.... ONDE TA O ERRO?
-
ops: desculpe -me pelas letras grandes a intenção era apenas destacar.... Fiz conforme você falou então ficou assim: With RS cnSQL.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\DIGITAL ART´S\Meus documentos\Meus Programas\BD\pet shop.mdb;Persist Security Info=False" cnSQL.Close If .EOF Then Agora o erro que da é : 'Operação não permitida quando o objeto esta fechado A linha de erro é : If.EOF Then Eu já ate tentei assim: If RS.EOF Then, If RScadastroclientes.EOF Then, IF.Open.RS EOF then, como você percebeu alguns ate invetei rsrsrsrs Mas nada da certo......
-
Ok obrigada eu fiz como mi falou deu um erro : "Run-Time error '3709: A conexão não pode ser usada para realizar esta operação.Ela esta fechada ou é invalida neste contexto; Linha do erro: .Open SQL, cnSQL, adOpenForwardOnly, adLockReadOnly
-
no load do form eu tenho: CODE: Private Sub Form_Load() grdPesquisa.ColWidth(0) = 0 grdPesquisa.ColWidth(1) = 1200 grdPesquisa.ColWidth(2) = 4675 MontarLista End Sub NO TEXT BOX NO EVENTO CHANGE EU TENHO Private Sub txtDadosPesquisa_Change() MontarLista End Sub MAS quando EU CHAMO O FORM ELE INDICA "REGISTRO não ENCONTRADO" DEPOIS ELE ABREO FORM PESQUISA MAS SEMPRE quando DIGITO ALGO NO TEXT BOX ELE DIZ "REGISTRO não ENCONTRADO" :wacko:
-
Certo .... Obriga não da mais erro, porém agora antes que eu acesse a tela de pesquisa ele informa registro não encontrado.... o codigo é : CODE: Private Sub MontarLista() Dim RS As New ADODB.Recordset Dim SQL As String Dim Criterio As String grdPesquisa.TextMatrix(0, 0) = "CodCliente" grdPesquisa.TextMatrix(0, 1) = "Telefone" grdPesquisa.TextMatrix(0, 2) = "Nome" Criterio = Chr$(39) & txtDadosPesquisa & "%" & Chr(39) SQL = "SELECT Codigo, Telefone, NomeProprietario FROM CadClientes WHERE CadClientes.NomeProprietario Like " & Criterio & " ORDER BY NomeProprietario" On Error Resume Next With RS .Open SQL, cnSQL, adOpenForwardOnly, adLockReadOnly If .EOF Then MsgBox "Registro não encontrado", vbExclamation, "Atenção" Limpa grdPesquisa.TextMatrix(1, 0) = "" grdPesquisa.TextMatrix(1, 1) = "" grdPesquisa.TextMatrix(1, 2) = "" Else Limpa Do Until .EOF grdPesquisa.AddItem RS(0) & vbTab & RS(1) & vbTab & RS(2) .MoveNext Loop grdPesquisa.RemoveItem 1 End If .Close End With End Sub NO TEXT BOX : Private Sub txtDadosPesquisa_Change() MontarLista End Sub pORQUE o que TO FAZENDO DE ERRADO?
-
e do q se trata esse negocio q você ta falando q pus em negrito?? Eu quiz dizer que esta linha de comando da erro: tabela.Open sql, conexao 'ABRE A TABELA USANDO A STRING SQL, E A CONEXAOCall Seria o comando para abrir a tabela, não? Eu sou nova em vb, o curso que fiz era super imper fraco e o pouco que sei foi graças a internet e forum como esse, o programa que estou fazendo esta quase pronto a não ser por esta tela de pesquisa e o controle de estoque enfim mas voltando a tela... Estes codigos que postei acima foi o unico que deu certo execeto por esta linha sempre da erro nela qundo mando execultar... já tentei ela assim... tabela.Open sql, conexao 'ABRE A TABELA USANDO A STRING SQL, E A CONEXAOCall e tabela.Open sql, conexao, mas sempre da erro e sempre o mesmo o erro é o seguinte : 'O comando de texto não foi definido pra o objeto para o objeto de comando' Ou se você souber de um jeito de fazer uma tela de pesquisa sem precisar criar um modulo e você puder por favor me passr os codigos e como fazer pode ser também... Eu queria fazer uma tela de pesquisa onde o usuario poderia editar no msflexgrid, e na caixa de testo de procura qundo ele digitase por exemplo a apareceria todos clientes com a letra a tipo se ele digitasse ana apareceria ana paula... ana carolina etc.... Consegui passar oque to pensando? Se não mi desculpe.....