Matheus-vb6

Expected: list separator or ) mudei para insere("insert into Alunos (Nome,Idade) values ('txtNome.text','txtIdade.text')") Mas da a mensagem: erro na gravação Não tenho ctz, mas values é os nomes do vb mesmo não é??

@iramos pelo que entendi pelo seu codigo, ele vai verificar a conexão? porque tipo... a conexao eu já fiz... e já consegui fazer a consulta, só não consigo fazer alteração, inclusao e exclusao (os botoes) mas vlw ai, não conhecia esse codigo

eu vi esse tópico, antes de criar aqui eu procurei... mas não consegui fazer a inclusao por esse codigo: Public Function Inserir(ByVal strNome As String, _ strEnd As String, _ strFone As String) As Variant cn.Execute ("insert into pessoal(nome,end,fone)" _ & "values('" & strNome & "','" & strEnd & "','" & strFone & "')") Inserir = True End Function Private Sub cmdIncluir_Click() Dim novo As Variant novo = Inserir(txtNome.Text, txtEnd.Text, txtFone.Text) If novo = True Then Else MsgBox "Erro na incluisão.", vbCritical End If End Sub tirei o call limpar.. e fiquei confuso quanto ao (ByVal strNome As String, _ strEnd As String, _ strFone As String) As Variant pois no meu de consulta utilizei somente ()

Boa tarde gente, estou entrando agora em banco de dados access no vb e até o momento só aprendi a fazer consulta: codigo modulo: Public conexao As ADODB.Connection Public rsDados As Recordset Public Function abrebanco() Set conexao = New ADODB.Connection conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\dados.mdb;jet oledb:database password=123321" End Function Public Function fechabanco() conexao.Close End Function Codigo botao Private Sub cmdConsultar_Click() abrebanco Set rsDados = New Recordset rsDados.Open "SELECT * FROM Alunos WHERE Nome='" & txtNome.Text & "'", conexao txtNome.Text = rsDados("Nome") txtIdade.Text = rsDados("Idade") fechabanco End Sub Gostaria de saber como faço para adicionar, alterar, e excluir, atraves de modulo! Se possivel também me falem o que eu tenho que alterar no codigo(q vocês postarem) Abraços

win7 ultimate, vou baixar e testar com o 2010 :D Vou considerar revolvido pois consegui fazer via codigo Vlws pela atenção de todos!

testei aqui com mdb e deu o mesmo erro "Could not retrieve schema information for table or view Clientes." até testei em outro banco de dados que eu já tinha Could not retrieve schema information for table or view Precos."

Cadastro.mdb") esse é o formato 2003 não? por codigo ele funciona sim :D

access 2007... ele da erro para sincronizar com a tabela

axei isso http://www.macoratti.net/10/06/vbn_nvg1.htm mas to com dificuldades, pois nunca conectei banco antes... e queria saber o porque daquele erro... se alguém souber ou já tiver sofrido com esse erro... Abraços e vlws

eu não sei fazer via código, justamente por isso migrei pro 2008, porque achei interessante esse esquema de conectar... procurei na net mas não achei como se conecta via codigo, poderia me explicar, ou postar algum tutorial?? abraços

utilizei a partir da aba Data>add new data source... fiz tudo como um tutorial no youtube so q o do cara não da erro! http://www.youtube.com/watch?v=1ylJfe2zgBk tava trabalhando nesse pc a partir de acesso remoto :D

Obrigado!

Gerarda, se puder poste-nos o código :D

Ao tentar conectar um banco de dados, recebi como erro: "Could not retrieve schema information for table or view Clientes." já refiz e sempre o mesmo erro! O que pode ser? -- já troquei 3 vezes de access e nada :S, já tentei tambem outros formulario e ainda nada!

Bem vindo cara, qualquer coisa só posta!! -- desconsidere a piadinha a cima kkkk Abraços!

Mesmo por que ele poderia editar(o membro) e tirar o (Resolvido)!

Eu geralmente quando não deixam apagar um arquivo, eu tento feixar pelo Ctrl+alt+del na aba processos, quando não da, abro o DOS, digito: tasklist procuro a atividade que esta usando, ou o proprio arquivo e falo: taskkill /pid NUMERO -f ai depois disso só apaga :D

Caramba, esse é um programa que ta na minha lista de nunca usar kkk Por isso é bom a gente conhecer bem nossa máquina pois da pra reconhecer se de repente seu HD fico full! Abraços

tem uns programas que realmente são suficientemente malditos pra enche nosso HD de nada! Acredito que a desfragmentação e limpeza de disco resolvam esses problemas :D Abraços

Tem uma forma mais simples também, crie a imagem normalmente mas no botão, tem a propriedade "Picture", só localiza o arquivo, tira borda e apagar o caption :D, mas parabens pela sua dica!

imagino a cara de vocês na hora q acendeu as luzes vermelha kkkk, acho q passava pela cabeça: "um x-box a menos na Terra", "já era a noite", "Vamo ve filme?" kkk, mas é tenso mesmo, as novas placas maes do x-box é que nem as novas japonesas de pc, as bobinas não estouram mais '.'

U_U resolução de 800x600 é tenso, mas você pode perceber, que qualquer aplicativo se distorce, eu sugiro a você colocar algum menu com 3 formulários, Tipo: trocar resolução>1280x820,1024x720,800x600. E em cada formulário você adapta seu programa conforme a resolução! De uma olhada nesse tópico e ve se você consegue algo dele: http://scriptbrasil.com.br/forum/index.php?showtopic=145902 Eu ainda prefiro um menu de trocar resolução :D Abraços e poste o que conseguiu :D

peso = Val(txtPeso.Text) altura = Val(txtAltura.Text) calculo2 = peso / (altura ^ 2) calculo = Round(calculo2, 2) Frata, eu utilizei tudo como variaveis! Vamos la... Você só precisará alterar : * (txtPeso.Text) * (txtAltura.Text) e na hora de exibir o resultado, você pode usar msgbox ou label! Se for msgbox msgbox "Seu IMC é de: " & calculo,vbinformation,"IMC" Se for em uma label: label1.caption="Seu IMC é de: " & calculo Poste ai o que você conseguiu :D Abraços

Estranho te que instala os drivers em todos pcs da rede... Mas isso ai, ainda bem que funcionou :D

Dim texto,arredondamento as integer texto = text1.text arredondamento=Format(texto,"0.00") if arredondamento < 30 then <bloco de comandos> elseif arredondamento > 30 <bloco de comandos> else 'igual <bloco de comandos> end if Tenta fazer com if, esse eu testei aqui!