![](https://forum.scriptbrasil.com.br/uploads/set_resources_1/84c1e40ea0e759e3f1505eb1788ddf3c_pattern.png)
Andersonjb
-
Total de itens
580 -
Registro em
-
Última visita
Posts postados por Andersonjb
-
-
Pessoal, olhem esse comando:
SELECT SUM(Tabela481.Valor), Tabela481.Codigo, Tabela481.Indicador, Tabela495.Descricao, Tabela481.Valor FROM Tabela481, Tabela495 GROUP BY Tabela481.Codigo;
Agora, olhem o erro:
Você tentou executar uma consulta que não inclui a expressão 'Indicador' especificada como parte de uma função agregada.Me desculpem a ignorância, mais aonde eu errei???
-
Nada, ficou complicado porque é uma plataforma nova pra você, a mesma coisa está acontecendo comigo, aprendi o .NET primeiro e agora to tendo que aprender o 6 por causa de umas aplicações no trampo, e pra mim o VB 6 é que é complicado, mais vamos lá:
Do ADO pro ADO.NET não mudou muita coisa não, os príncipios continuam os mesmos, isso você pode ver aqui:
http://www.macoratti.net/ado_adon.htm
Se você ver o que o Macoratti escreveu, vai perceber que o .NET é muito melhor que o 6, em questão de acesso a BD's e tambem a linguagem.
O que muda basicamente são os Objetos:
ADODB.Connection = OLEDB.DataAdapter
ADODB.RecordSet = OLEDB.DataSet
Ai se você conhece os príncipios, é só programação...
Sobre os comandos de movimentação de registros, o DataAdapter tem as devidas propriedades (InserCommand,DeleteCommand,UpdateCommand e SelectCommand) pra você brincar á vontade.
Leia a página e não pense que o .NET é pior que o 6, porque realmente, não é...
Falows!
-
Valeew, Gente! To descendo o reio aqui no VB 6 no trampo, obrigado pela ajuda!
-
Tenho, olha o código modificado:
Dim preenche As New ADODB.Recordset Dim seleciona As String seleciona = "SELECT Nome, Endereço, Bairro FROM Funcionários;" Set preenche = conexao.Execute(seleciona) Me.DataGrid1.DataSource = preenche
-
Não foi, Gray... O engraçado é que, usando um Data Enviroment para conectar ao banco de dados e preenchendo o Data Source na caixa de propriedades com o Data Enviroment, os dados aparecem, só em código que não vai.
Alguma opnião?
-
Bem, pessoal, prometo que essa é a ultima, huaauh. Bom, estou tentando carregar uma simples consulta (mas simples meeeesmo) em uma Data Grid. Olhem o código:
Abrindo a conexão:
Public conexao As New ADODB.Connection conexao.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\bd1.mdb;")
Preenchendo a Data Grid:Dim preenche As New ADODB.Recordset Dim seleciona As String seleciona = "SELECT Nome, Endereço, Bairro FROM Funcionários;" Set preenche = conexao.Execute(seleciona) Me.DataGrid1.DataSource = conexao Me.DataGrid1.DataMember = preenche
E o erro:
Method or Data Member not foundComo assim não existe? Tem alguma coisa errada no meu código ou estou errando na atribuição das propriedades da Data Grid?
-
Deixa eu vê se eu entendi então: eu tenho que atribuir a instrução sql depois que eu atribuir os valores á variavel, certo?
E olha só, eu coloquei porque falaram para mim que tem que colocar, mais como eu ainda não manjo muito no 6, o que significa esse operador "Set"? Por exemplo:
Set com_insere = conexao.Execute(insere)
Porque o Set? Não é só atribuir o valor á variavel?
-
Pessoal, sei que eu to encheeeeendo o saco, mais é que linguagem nova, pra aprender no inicio, é uma desgraça, mais vamos lá. Olhem esse código, ele abre um txt, pega certos dados e insere no banco.
Dim nome As String Dim endereco As String Dim bairro As String Dim insere As String Dim com_insere As New ADODB.Recordset insere = "INSERT INTO Funcionários (Nome, Endereço, Bairro ) VALUES ('" & nome & "', '" & endereco & "', '" & bairro & "');" arquivo = FreeFile Open "c:\teste.txt" For Input As arquivo Do While Not EOF(arquivo) Line Input #arquivo, Linha nome = Mid(Linha, 1, 3) endereco = Mid(Linha, 2, 3) bairro = Mid(Linha, 3, 3) Set com_insere = conexao.Execute(insere) Loop Close #arquivo MsgBox ("inseriu")
Mais ele dá um erro nessa linha:Set com_insere = conexao.Execute(insere)
Olha o Erro:
O campo Nome não pode ser uma sequência de caracteres de comprimento nulo.O que isso significa? A variavel não fica vazia e ele dá esse erro.
alguém sabe porquê?
-
Olha, só, eu achei uma versão do Crystal pra baixar por torrent, baixei, instalei, e funcionou. O único problema é que não dá pra conciliar o Crystal com o VB, então, quando eu vou fazer um relatório, eu tenho que criar uma conexão dentro do Crystal. Se eu tivesse essa "conciliação", a conexão vinha automática pra mim, não é? Ou se pelo menos eu tivesse um OCX...
E assim, agora, como eu vou chamar esse relatório dentro do VB, já que eles estão separados?
OBS.: Link pra quem quizer baixar o Crystal por torrent:
-
Pessoal, como eu faço para instalar o Crystal Reports no meu Visual Studio Enterprise? Ouvi dizer que essa versão não tem o Crystal, procurei no CD, nas Referências, e realmente não o achei. Fiquei sabendo boatos tambem que uma DLL resolveria tudo, mais não sei qual é essa DLL e muito menos da onde baixá-la.
Mas bem: é possível baixar o Crystal Reports de algum lugar e instála-lo no VB 6?
-
Não, eu descobri o que era. Eu estava querendo executar varios comando em uma só variavel command. É mole? HUaha
valeu!
P.S.: Te adicionei no MSN!
Falows!
-
Não, isso eu sei, formulei mal minha pergunta, eu me refiro á essa parte do código:
If Oficina.rscomando1.BOF Then
Não entendi esse "Oficina.rscomando1.BOF", isso quer dizer que a propreidade está vazia?
-
Já, e como a conexão já estava aberta, ele acusou o erro de que não posso abri-la se ela já está aberta...
-
Pessoal, to enchendo o saco de novo, mais parece que esse VB 6 não gosta de mim.
Bem, utilizo o seguinte código para adicionar uma tabela:
DataEnviroment1.rscomando1.AddNewSó que dá esse erro:
O conjunto de registros atual não oferece suporte para atualização. Isso pode ser uma limitação do provedor ou do tipo de bloqueio selecionado.Bem, no data enviroment, eu já deixei como Read/Write, desbloquei tudo que podia, já converti o banco de dados para access 97, porque pensei que incompatibilidade e nada.
alguém tem uma idéia?
-
Bem, eu não sei se era isso, mais eu consegui mesmo assim usando um DataEnviroment. Mais olhando esse código, e o que eu usei agora há pouco, queria tirar uma duvida:
O que significa essa lógica?
Oficina.rscomando1.MovePreviousIf Oficina.rscomando1.BOF Then
Oficina.rscomando1.MoveFirst
End If
Oficina no caso é o meu DataEnviroment! Não entendi a lógica da budega...
-
Pessoal, desculpa encher o saco, mais é que estou acostumado com o VB.NET e to apanhando no 6, mais vamos lá:
Estou tentando movimentar registros de uma tabela. Codigo da Conexão:
If Dir(App.Path & "bd1.mdb") <> "" ThenMsgBox ("Banco de Dados Não Encontrado")
Else
conexao.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\bd1.mdb;"
conexao.Open
End If
Código da Configuração:
With comando.ActiveConnection = conexao
.CommandType = adCmdTable
.CommandText = "Funcionários"
Set selecao = .Execute
End With
preenche
Código da Movimentação:
With selecaoIf .BOF And .EOF Then
MsgBox "Não há dados no arquivo ", vbInformation
Else
.MoveNext
If .BOF Then
.MoveLast
MsgBox "Chegamos ao ultimo registro !"
Else
preenche
End If
End If
End With
preenche
De acordo com o código da movimentação, quando chegasse no ultimo registro, ele mostraria a messagebox. Mais isso não está acontecendo, o que está errado nesse código???
-
Pessoal, eu queria saber como eu poderia acessar a porta do Modem (qual é o endereço), para pegar todos os dados que trafegam por ele. alguém tem alguma idéia de como eu possa fazer isso?
-
Se eu não me engano, você não pode definir um valor no parâmetro, não é?
E qual é o tipo dessa váriavel?
Dim ID As Controles.BancoDeDados.Identificacao -
Já, ele não está instalado na minha máquina. E 97? Que nada, 2003! Será que é isso???
-
Pessoal, estou com um erro aqui no meu Banco de Dados.
conexao.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" & _ "Data Source=" & App.Path & "\bd1.mdb;" conexao.Open
Erro:
Unrecognized database format 'C:\Documents and Settings\Jaba\Desktop\Exemplo BD VB 6\bd1.mdb'.Ele simplesmente não reconhece o formato do Banco de Dados. Pra mim isso é muito estranho. alguém tem alguma idéia do que está acontecendo?
valeu!
-
há está. Faz o seguinte: passa o conteúdo para string, e existe uma função chamada Split(). Ela divide uma determinada string em parte (em um array de strings) de acordo com um caracter delimitador, ou mesmo quebrador de strings, que você tem que passar por parâmetro. Um exemplo aí:
Dim jaba as Stringjaba = "Andersonjb-é-gostoso-!"
jaba.Split("-")
Eu não lembro bem se era assim porque eu to sem o Visual Studio aqui e não dá pra eu testar, mais é mais ou menos isso.
Aqui tem um post de Exemplo:
http://scriptbrasil.com.br/forum/index.php...95&hl=Split
E se você pesquisar tem outros post's sobre isso!
Falows!
-
Se eu não me engano a referência IO.StreamReader tem um módulo ReadLine(), não tem?
-
Mais eu uso o 6. E esse erro está dando nele. No seu está funcionando normalmente?
-
Poxa, sacanagem isso dai, hein! E renato, se conhece algum outro gerenciador de emails bom e que vai me dar um bom suporte e que eu possa confiar para substituir o Outlook?
Imprimir Imagem Dinamicamente Usando Vb2005
em .NET
Postado
Posta o seu código pra gente...
Porque eu nunca fiz isto dessa maneira...
Falows!