Musashi_RS

Descobri! =D Cara, foi o seguinte. Encontrei um "DISTINCT" viajando lá no SELECT... Se estou buscando por código, não sei porque tinha um DISTINCT ali... O.o Vai ver é porque o código é antigo hehe... =P Retirei o DISTINCT e o negócio funcionou. Agora, teoricamente deveria funcionar com ou sem DISTINCT, correto? o.O Ah, e cheguei na conclusão de que o limite era 255 caractéres, porque fiz um Len no recordset mesmo... e outros registros com mais caractéres nesse campo não passavam de 255 também... =) Obrigado pela ajuda.

O Recordset é publico sim e o banco é Access. Fiz o teste que você sugeriu e o conteúdo do campo passou beleza. Eu já tinha certeza de que não é com o form o problema, porque antes do comando responsável por transferir o conteúdo para o TextBox, eu havia colocado um MsgBox, que por sinal, também não funcionou. Assim, o problema é com o recordset. Também já fiz o seguinte, no form de Consulta (que não funciona), alterei o método de abertura do recordset de Set RS = BANCO.Execute(SQL) para RS.Open SQL, BANCO, adOpenStatic, adLockOptimistic. Não funcionou também. Vlw ^_^

Olá, possuo uma aplicação em VB6 que utiliza um arquivo do Access como banco de dados. Em uma das tabelas, possuo um campo Memorando, o qual não possui limite definido. O problema é que em um form da minha aplicação, eu consigo acessar esse campo e exibir em um TextBox o conteudo do campo. Normalmente esse texto possui mais de 300 caractéres. No entanto, em um outro form, eu tutilizo o mesmo TextBox para apenas exibir o conteúdo desse campo. Utilizo o mesmo recordset, mas os métodos de acesso aos dados para pesquisa são diferentes: - Para o form de Cadastro (sem limite): 'Faz a busca If RS.State > 0 Then RS.Close SQL = "SELECT * FROM T1_CadDefeito WHERE CodCadastro = " & PESQ RS.Open SQL, BANCO, adOpenStatic, adLockOptimistic SQL = "" - Para o form de Consulta (limite de 255 caractéres): 'Abre o recordset (fechado) If RS.State <> 0 Then RS.Close Set RS = BANCO.Execute(SQL) O problema é que o recordset só traz até 255 caractéres no form de Consulta. Não entendo o porque, já que em nenhum momento defini limites... PS.: - O TextBox é multiline, está Locked e não possui limite de caractéres; - O recordset é declarado como global em um Modulo (Public RS As ADODB.Recordset) - Possuo uma função AbrirBanco no mesmo Modulo. - No evento Load de ambos os forms eu utilizo os comandos AbrirBanco, seguido de Set RS = New ADODB.Recordset, a fim de me conectar o banco e inicializar o recordset. Alguém saberia me dizer o que estou fazendo de errado para que no form de consulta eu tenha um limite de 255 caractéres no campo memo?

Obrigado kuroi... vou dar uma pesquisada em cima disso. =]

Olá pessoal, possuo vários projetos desenvolvidos utilizando o Visual Basic 6.0 (Visual Studio 6.0). No entanto, estou em dúvida se o Visual Studio 6.0 será 100% compatível com o Visual Studio 2008, ou seja, se vou poder abrir, alterar e recompilar os projetos velhos, criados com o VB 6. Alguém saberia me informar isso? ^^ Obrigado.

Olá, quando executo o código SQL abaixo, a consulta obtém um resultado. No entanto, se eu consultar todos os registros da tabela da esquerda utilizada no Left Join (select * from TabCons), aparece um resultado muito maior. Verifiquei que o Left Join junta duas tabelas e exibe os registros independente se a tabela da direita possui valores ligados à da esquerda. Desta forma, não compreendo o porquê dos resultados diferentes. Será que alguém poderia dar uma olhadinha na consulta e, se possível, informar quais os registros estão ficando fora, assim como o motivo disso? SELECT Codigo, CodCurExp, Nome, Matricula, Data, Obs, Codrem, tbl_cur.Nome, tbl_prf.Nome, UF, tbl_loc.DS_LOCALIDADE FROM tabcons tbl_cons LEFT JOIN tabLocalidade tbl_loc ON tbl_cons.cd_localidade = tbl_loc.cd_localidade, Tabcurso tbl_cur, tabprof tbl_prf WHERE tbl_cons.codcur = tbl_cur.codcur AND tbl_cons.codprof = tbl_prf.codprof Obrigado.

Olá, estou tendo dificuldades em compreender esta consulta SQL. Não entendi por que é preciso criar tabelas virtuais nesta ocnsulta. Observe, na primeira linha, a consulta se refere a uma tabela que não existe (tbl_cor), visto que é uma tabela "virtual" criada na consulta. Por que não se coloca o nome verdadeiro da tabela, visto que na 4ª, 5ª e 6ª linha as tabelas estão com os nomes verdadeiros? Suponho que é nas linhas 9 e 11 que elas são associadas. Certo? Já na linha7, não entendi aquele "UF", pois não sei onde ela se associa com uma tabela de verdade. SELECT tbl_cor.codcorr, tbl_cor.codcur, tbl_cor.codcurexp, tbl_cor.codrem, tbl_cor.nome, tbl_cor.nota, tbl_cor.data, tbl_cor.matricula, tbl_cor.alternativas, tbl_cor.erradas, tbl_cor.tipo, tabcurso.nome, tabdisc.nome, tabdisc.CdDiscExp, tabgab.nome, tabgab.CdGabExp, UF, tablocalidade.ds_localidade FROM tabcorr tbl_cor LEFT JOIN tabLocalidade tbl_loc ON tbl_cor.cd_localidade = tbl_loc.cd_localidade, Tabcurso tbl_cur, tabdisc tbl_disc, tabgab tbl_gab WHERE tbl_cor.codcur = tbl_cur.codcur AND tbl_cor.coddisc = tbl_disc.coddisc AND tbl_cor.codgab = tbl_gab.codgab TABELAS VIRTUAIS E SUAS SUPOSTAS ASSOCIAÇÕES: ==================================== tbl_cor --> TabCorr.DB UF --> TabUF.DB tbl_loc --> tabLocalidade.DB TABELAS PARADOX: (FÍSICAS) ==================== TabArqCon.DB TabCom.DB TabCons.DB TabCorr.DB TabCurso.DB TabCursoExp.DB TabDisc.DB TabFontes.DB TabGab.DB TabInterv.DB TabLocalidade.DB tabProf.DB TabProfDisc.DB TabQues.DB tabrem.DB TabRemessa.DB TabUF.DB Se alguém puder me dar uma ajudinha eu agradeço. Vlw :rolleyes:

OK, mas mesmo assim, nõ vai funcionar, visto que eu já testei assim: SELECT * FROM TEsquemas WHERE Chassi = '' . Isso deveria selecionar também, não deveria? O.o

Olá, no meu SELECT estou tentando selecionar registros que possuam um campo em branco, mas me retorna um erro. No entanto, se eu tentar selecionar registros com o mesmo campo <> de '', ele seleciona normal. SQL = "SELECT Aparelho, Marca, Chassi, Modelo, Bloqueado" & _ " FROM TEsquemas WHERE" & _ " Aparelho = '" & APARELHO & "'" & _ " AND Marca = '" & MARCA & "'" & _ " AND Chassi = '" & CHASSI & "'" & _ " AND Modelo = '" & MODELO & "'" Neste caso, se alguma variável vier vazia, não poderia ocorrer problema, certo? Mas está. Erro 3021 - BOF ou EOF são verdadeiros, ou o registro atual foi excluido. A operação solicitada pelo aplicativo requer um registro atual. o erro é causado pelo ADODB.Field. Vlw

Olá, estou iniciando no Delphi e estou com dúvida sobre qual SGBD utilizar. Geralmente o pessoal que usa o delphi utiliza o Interbase ou o Firebird, correto? Mas e o MySQL, existe algum contra? Fazendo uma comparação grosseira entre o MySQL e o Firebird, qual o melhor? Vlw

Alguém saberia me responder? :huh:

Olá, gostaira de esclarecer algumas dúvidas sobre licenças de software e coisas do tipo. Por exemplo se eu desenvolver uma aplicação em casa, e vendê-la para uma empresa, como fica a questão da licença? Quem precisa ter? Se alguma fiscalização for nessa empresa e pedir a licença do Visual studio, por exemplo, como fica a situação? Eles precisarão possuir uma ou a minha já basta? Como provar isso? Vlw :rolleyes:

Desculpe a ignorancia, mas GDI32 é uma API?

...não. :unsure: Mas agora está. :rolleyes: Vlw

Olá, estou utilizando o objeto printer para imprimir os dados do form. Eu chamo a tela de impressão através de um Common Dialog. Copiei o mesmo código de outro programa, que funcionava, e no program atual não funciona. O que não funciona é o seguinte: quando eu chamo a tela de dialogo de impressão, para escolher o número de cópias, impressora, etc, quando o usuário clicasse em cancelar deveria ocorrer um erro para, então, eu cancelasse a impressão, certo? No entanto esse erro não está ocorendo, e impressão continua. O código é oseguinte (é só o início do código): Private Sub ImgImp_Click() 'Imprime o que está nos campos If LblCod.Caption <> "" Then Dim PAG_I, PAG_F, COPIAS, i As Integer Dim IMG As Picture On Error Resume Next CommonDialog1.ShowPrinter If Err Then MsgBox Err.Number & " - " & Err.Description MsgBox "Impressão cancelada pelo usuário", vbInformation, "Impressão" Err.Clear Exit Sub End If ... O que mais me intriga é que no outro programa, de onde eu copiei o código, funciona normal. Alguém sabe o que pode ser?

Olá, existe alguma forma de se imprimir uma caixa de texto multi_linhas com o objeto printer? Quando eu tento imprimir, a partir da segunda linha o parágrafo fica desalinhado, colado na extremidade da página. :blink:

Olá, possuo duas tabelas: a Tabela1 possui os nomes e os códigos para esses nomes: 001 - Roberto 002 - Jonas 003 - Rafael 004 - Júlia 005 - Maria Já a Tabela2 possui os códigos dos nomes (da Tabela1) e o salário. 002 - R$ 500,00 003 - R$ 800,00 005 - R$ 600,00 Eu preciso preencher um combo com os nomes cadastrados na Tabela2, que na verdade são os códigos. (eu não posso pegar os nomes direto na tabela1 pois, se observar bem, a Tabela2 não possui todos os registros da Tabela1). Como seria uma consulta SQL que já associasse os códigos de nomes da Tabela2 com os da Tabela1 sem que eu precisasse criar uma outra rotina apenas para associar nomes com códigos? Vlw

Ok. aparentemente funcionou. Onde havia problemas não houve mais. Vou fazer mais testes. Vlw

Saquei. Vlw :D Só mais uma dúvida. No Inno Setup, como faço para colocar um arquivo no seguinte diretório: C:\Arquivos de Programa\Arquivos Comuns\Designers? vlw

Mas, você *já* depende. O Win98 só tem o ADO e o JET após a instalação do MDAC que acompanha o VB6 (e que provavelmente está inserido no setup do seu programa). Criando seu setup no Inno você pode fazer com que estas instalações sejam chamadas automaticamente durante a instalação do seu programa. Abraços, Graymalkin Entendi, realmente ele está incluído no projeto, mas eu não sabia o que e quais arquivos ele instala. Só não entendi uma coisa: Tipo, o arquivo incluso no projeto se chma MDAC_TYP.EXE, que segundo você, instala o ADO e o JET no Win 98, certo? Pois é, por que você pediu para que eu baixasse o MDAC28 e o JET4 no site? O que esse MDAC28 instala? Não basta instalar o MDAC_TYP.EXE. Ah, outra coisa, quando pesquisei por este arquivo no CD do Visual Studio, encontrei mais 3 arquivos de extenção .CAB, chamados MDAC11.CAB, MDAC20.CAB e MDAC20_A.CAB. Eu preciso usa-los também, ou somente o MDAC_TYP.EXE serve? Vlw

O programa não está em rede. Da um olhada: Quando vou salvar coloco a linha: On Error goto ErroDuplo Logo abaixo coloco o rs.AddNew Atribuo os valores e salvo (rs.Update). Depois disso coloco a "rotina" ErroDuplo para verifivar a duplocidade. ErroDuplo: If Err.Number = -2147467259 Then MsgBox "Já está cadastrado!", vbExclamation, "Cadastro" rs.CancelUpdate rs.MoveNext rs.MovePrevious Err.Clear Exit Sub End If E é isso que o erro acusa, não me deixando salvar. Não faço idéia do porque esse erro ocorre, sendo que em outro pc ele deixa salvar normalmente, realizando os mesmos procedimentos. Você vê alguma coisa de errado nessa sequência de códigos? Vlw

Esquece o negócio do Trim, pois quando deu o erro dizendo que abiblioteca estava faltando, a função Trim foi selecionada e eu me precipitei. Depois o trim funcionou normal. Me precipitei quanto ao Trim justamente por ser estranho. =D Mas voltando ao assunto da biblioteca ADO: Quando desenvolvi a aplicação no Win XP, utilizei a biblioteca ADO 2.8, como já disse, mas no win 98 só tem até ADO 2.1. Sem problemas, compilei a aplicação no win 98 e alterei a referência para ADO 2.0. Até aí tudo bem. Mas como nem tudo são flores, em alguns PCs com Win 98 o programa funciona normalmente, para gravar registros. No entanto, em outros ocorre um erro para salvar os registros, dando erro de duplicidade. Não tem fundamento isso, funciona em alguns e em outros não, se o código da aplicação é o mesmo. Pergunto: Eu vi em algum lugar alguém falar em "atualizar o ADO do PC". Isso é possível? Será que resolveria meu problema? E eu não posso depender de downloads de JET e não sei mais o que do site da Microsoft, pois não posso distribuílos junto. Além disso, como transformar isso em um processo automático?

Olá, estou em apuros. Utilizei a biblioteca Microsoft ActiveX Data Objects 2.8 Library quando criei minha aplicação no Windows XP. No entanto, eu quero que a aplicação rode no Windows 98. Assim eu estou tentando compilar o programa no windows 98, mas essa biblioteca não está presente. Fui compular e deu erro, apontando para a declaração "Public BD as New ADODB.Connection", dizendo que essa biblioteca (ADODB) não estava presente. Fui verificar as referencias e só tinha a versão 2.0. Ela vai funcionar? Outra biblioteca que está faltando é a que contém a função Trim. Como é possível? Como eu vou fazer pra tirar os espaços das strings? Vlw

Cara, eu não entendi muito bem, você diminuiu a imagem no form, certo? Sempre que eu utilizo imagens nos programas, se elas forem "chamadas" do diretório em que estão, eu nunca altero o seu tamanho, por esse motivo que você disse. Nesse caso eu edito a imagem com algum editor (Photoshop) e deixo ela no tamanho que que será exibida, ou impressa. Vlw?

Olá, estou com uma dúvida para realizar um procedimento mo meu programa. Eu gostaria que quando o usuário cadastrasse um cliente ou qualquer outra coisa que tenha como chave primária um campo auto numérico, o código gerado pelo banco (no campo auto numérico) fosse iformado na hora. Qual e melhor maneira de se fazer isso? Vlw