Danleonhart

Pessoal... O Access 2007 é realmente mais segura que o 2003 ? Assim, tem como quebrar a senha dele ? Pretendo migrar uma de minhas aplicações para a versão 2007, pois com o 2003, já cansei de refazer tudo, pois o pessoal descobre a senha e "bagunça" meus dados <_<. A aplicação é em VB-6 com banco Access 2003. Então, é mais seguro ou é a mesma coisa ? :unsure:

Beleza Fulvio...funcionou ! com o SQL Server... uso também o Compact Edition, e com ele, esses comando não funcionaram. Você conhece o Compacto ? Obrigado :D

@ Fulvio : Obrigado pela informação Fulvio :) Já tentei antes essas linhas de comandos: para Constraints: SELECT * FROM dbo.sysobjects para Indexes: SELECT * FROM sys.indexes e me retornou: "Não há nenhuma tabela com este nome."... mas vou tentar com suas dicas :D e posto o que deu... @ Bruno Faria : Valeu cara ! vou dá uma lida sim ;) Obrigado !

Pessoal... Tem como se descobrir todos os Constraints e Indexes que uma Base de dados tem ? e saber a qual Tabela e Campo ela está ligada ? Quero tipo, fazer uma consulta SQL em que ele me retorne esses resultados.

Kuroi: Manda um exemplo aí de como fica com array... da maneira que o Matheus opinou já tá OK...quero só ver por pura curiosidade :D

Pessoal... Ainda não aprendí a usar o Timer muito bem, então: Como faço para que a cada 30 segundos seja apresentado uma caixa de mensagem ? mas assim: 30 seg = Oi. 60 seg = Olá 30 seg = Oi. 60 seg = Olá entendem ? seriam sempre estas mensagens, só que no intervalo de 30 segundos de uma para outra... Sei que 30 Seg. = 30000 no Interval <_< mas não estou conseguindo seguir a lógica (falta de cafeína :wacko: ) :rolleyes: :rolleyes: :rolleyes:

Pessoal... Alguém usa VB-6 com FoxPro como Base de Dados ? Sabem como faço para incluir Datas no BD (".DBF") ? Já tentei de tudo que é jeito e não consigo inserir Data no campo. Ele está configurado como "DateTime", pois será feito filtragem por datas através deste campo. Quando tento incluir dá erro de Tipo desconhecido... estou colocando no formato: "YYYY-MM-DD"... e já tentei das outras formas de formato também... sem sucesso...:(

Então você tá usando um Módulo com o script de abertura do banco ? é assim que uso... tens MSN ??? ADD aê, que trocamos umas ideias :D dannleonhart@hotmail.com

Veja estes pontos: - Qual versão do Access que você está usando ? - Existe realmente a Tabela Clientes ? ela está salva com este nome mesmo ? não use caracteres especiais (tipo:"-", "_", "ç" ,"^"), quando for dá nomes a Tabelas ou Campos da Tabela...sempre que "tentei" deu erro <_< ; - O endereço do banco é mesmo: "C:\Teste\Banco.mdb" ? istó é, você o colocou neste diretório do computador ? pois ví que tá exatamente como postei como exemplo... Veja esses pontos e nos dê um retorno ;). Valeu !

Seguinte... Você pode colocar no 1º Data, que é "Data Source" (Traduzindo: Fonte de Dados), o caminho onde está seu arquivo de Banco de Dados...que no caso do Access, tem formato ".MDB"... No meu caso, sempre coloco o arquivo .MDB na mesma pasta da aplicação, ou seja, onde fica o executável do aplicativo, e no caso de ainda está desenvolvendo a aplicação, na pasta do projeto ;). Então, se você tem um Banco de dados Access no caminho: "C:\Teste\Banco.mdb", você pode colocar assim na string de conexão: Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Teste\Banco.mdb;Persist Security Info=False" Se optar por fazer como eu, em deixar o arquivo .MDB na mesma pasta da aplicação/projeto, então utilize o "App.Path" que serve para indicar o diretório da aplicação como referência. Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Banco.mdb;Persist Security Info=False" OBS: Perguto: Você fez referência a biblioteca (".DLL") Microsoft ActiveX Data Objects ? para esta conexão é preciso referenciá-la... Se não fez, basta seguir estas orientações: Clique na aba PROJECT > REFERENCES... Na lista que será apresentada, procure por "Microsoft ActiveX Data Objects 2.8 Library". Serão apresentadas outras versões desta biblioteca (2.7, 2.6...) escolha a mais recente...pelo que sei, é a versão 2.8. Qualquer coisa só falar...se eu souber, respondo :D VALEU !

Beleza ! Funfou ! Obrigado ! :D

Kuroi ! é estranho mesmo...aqui testei com "%" e "*" no Access e funfou legal :blink: agora no SQL só foi com o "*" :rolleyes: Vai entender... é como dizem..."Se feder é química, se mexer-se é biologia...se calcula-se é matemática...mas se não feder, mexer ou calcular-se...é informática ! " Coisa de louco :wacko:

Correto Kuroi...esquecí de detalhar :unsure: .

Olá amigo ! Pare de se desculpar...estamos aqui para compartilhar, e compreendo se tem dificuldade, pois também tive e ainda tenho :D. Agora, quando falei "SQL" não quis dizer propriamente o SQL Server...mas sim a base dele... Veja aqui ! AFB é uma função que criei onde fica a configuração da abertura e conexão do Banco de Dados: Public Function AFB() Set Con = New ADODB.Connection Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\BData.mdb;Persist Security Info=False" End Function Então, para não ficar digitando sempre nas Sub's a configuração da string de conexão, cria-se uma função contendo isso...para evitar script's repetitivos O mesmo vale se for colocado no lugar do AFB o conteúdo: Set Con = New ADODB.Connection Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\BData.mdb;Persist Security Info=False" Agora imagine, sempre que for abrir a base de dados ficar digitando, ou até mesmo copiando e colando...dá um trabalhinho hein ! Outra coisa, você pode ver que estou usando uma variável para alocar o Objeto de Conexão, neste caso o "Con"...então é importante declará-lo, quer seja no módulo (que é o meu caso) ou no Form... No Form fica assim: Public Con As ADODB.Connection No Módulo pode ser do mesmo jeito, ou assim: Global Con As ADODB.Connection Assim estou declarando que "Con" é um Objeto de conexão do tipo "AdoDB", em ambos se é colocado no "Generals Declaration", que fica acima de todo código que foi ou vai ser digitado: Espero ter ajudado, e não complicado mais ;) VALEU !

Pessoal... Como faço para combinar teclas pressionadas no evento KeyDown ? Tipo, coloquei assim para que ao ser pressionada as teclas Shift + Enter seja apresentada a mensagem "EVENTO": Private Sub txt1_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyShift And vbKeyReturn: MsgBox "Evento" End Select End Sub Mas não funcionou...

Se o resultado de "A + B = 0", de todo jeito se a variável "Resultado" estiver dentro do "FormatCurrency", o valor vai ser apresentado da mesma maneira... Agora se você quer que ao carregar o Form (Form_Load) já apresente a máscara "R$ 0,00", basta no evento Load do Form você colocar: Private Sub Form_Load() Label1.Caption = FormatCurrency(0) End Sub Té...

Olá Almarante ! Óia eu aqui :rolleyes: Seguinte...para te ajudar, seria bom e importante você dizer o que deseja fazer...pois naquela ocasião eu estava querendo filtrar os dados do banco por "Datas"...e estava fazendo da maneira errada :blush: ... pois estava "capturando" o inicio de cada consulta, tipo, somente os 5 primeiros caractéres: Valor = Mid(Text1.Text , 1, 5) ' só para ilustrar Outra coisa...se você está a fazer uma busca, não faça no Grid, e sim no banco de dados com script's SQL (SELECT, WHERE, BETWEEN... e por aí vai :closedeyes: ), entaõ pode-se usar o Grid para apresentar o resultado...assim como uma ListBox ou outros objetos. Então, esquecendo o script que você postou, informe-nos que tipo de consulta você quer fazer para assim nós podermos te ajudar :D Só lembrando, que na medida do possível, pois também estou iniciando, mas gosto de compartilhar o que aprendí ( já que 60% de minha dúvidas são sanadas aqui :blush: ). Mais uma coisinha...só para teste...coloca estas duas linhas nesse script que você postou... Filtro = txtpesquisa.Text & "%" AdoClientes.RecordSource = "select * from Clientes WHERE Nome LIKE '" & Filtro & "'" Coloque no lugar de: AdoClientes.RecordSource = "select * from Clientes WHERE MID(Nome,0,x)='" & Mid(txtpesquisa.text, 0, X) & "'" Entre a "AdoClientes.ConnectionString" e o "AdoClientes.Refresh"...e comente o que deu ;) Té mais !

Me fala uma coisa...esses dados colocados no Banco, serão perpetuos ou há possibilidade de "excluir" algum registro ? Pois, certa vez tentei criar meu próprio "auto-increment" da seguinte forma: -Criei uma rotina onde ele contava o numero de registro no Banco X = Rs.RecordCount ' Conta o numero de registro retornando um valor inteiro. -Pegava esse valor e acrescentava 1: X = X + 1 -Na hora de salvar no banco, alocava esse resultado no campo de "Controle de Registro". Con.Execute "INSERT INTO Tabela(Controle,aaa,sss,ddd)" & "Values('" & X & "','" & aaa & "','" & sss & "','" & ddd & "'" Se for algo que nunca irá ser excluido, há controle sim...mas se for precisar "excluir", dependendo do registro, será gerado um número repetitivo...acho que por isso o "Auto-Increment" prefere sempre adicionar 1 ao invés de "zerar" o controle. Exemplo visual: 1+1 = 3 pois está contando com o valor adicionado ao resultado da contagem dos registros do banco... Espero que dê para entender :)

GilbertoB... Para converter em formato de moedas, use o "FormatCurrency"...pode ser feito das seguintes maneiras: Dim V1, V2 As Double Resultado = Val(V1) + Val(V2) Label1.Caption = Format(CCur(Resultado), "currency") Pela lógica da soma... :rolleyes: Assim também funciona e é mais prático: Label1.Caption = FormatCurrency(Text1.Text) Neste exemplo, apresento na Label em formato de moeda, o valor colocado na TextBox1...desde que o mesmo seja numérico, senão dá erro runtime 13 (Tipo desconhecido). VALEU CARA ;)

Bem Vindo GilbertoB ! Cara, eu utilizo a função "LIKE" do SQL... veja no exemplo abaixo, que faço uma filtragem no banco, segundo o que for digitado na Caixa de Texto "txt_fil": Private Sub cmd_filtro_Click() Dim FT As String ' 1 Dim SQL As String ' 2 FT = txt_fil.Text ' 3 FT = FT & "%" ' 4 SQL = "SELECT * FROM Clientes WHERE Nome LIKE '" & FT & "'" ' 5 AFB ' 6 Set Rs = New ADODB.Recordset ' 7 Rs.Open SQL, Con, adOpenKeyset, adLockReadOnly ' 8 Lst1.Clear ' 9 Do Until Rs.EOF ' 10 Lst1.AddItem Rs!Nome & vbTab & Rs!Cidade ' 11 Rs.MoveNext ' 12 Loop ' 13 End Sub Aqui vai comentário detalhado de cada linha do script (segundo meus conhecimentos :rolleyes: ) 1-Declarei que FT é uma variavel do tipo STRING; 2-O mesmo para a variavel SQL; 3-Na variavel "FT", aloquei o que foi digitado na TextBox "txt_fil"; 4-Concatenei o sinal "%" ao que foi digitado no TextBox, este simbolo serve como wildcards (letras que faltam para completar a palavra); 5-Na variavel SQL aloquei a string de consulta ao Banco de Dados: "Selecionar tudo da Tabela Clientes onde na Coluna Nome contenha " FT " (sua filtragem)" traduzindo dá +/- isso :D 6-"AFB" é a Função que uso para abrir o Banco de Dados...tipo Con.ConnectionString = "Provider...ststststtsststt 7-Estou setando o RecordSet, dizendo que a variavel "Rs" é um novo objeto RecordSet do tipo ADO 8-"RS.Open" = Estou a abrir o Rs (RecordSet); "Con" = estou fazendo a conexão com o banco; "adOpenKeyset" = Abre um cursor do tipo keyset, que não permite visualizar registros excluidos ou alterados por outro usuário, caso use umBanco de Dados multi-usuario; "adLockReadOnly" = Configura o Cursor como modo de leitura; O "adOpenKeyset" e o "adLockReadOnly" uso apenas por segurança, não sei se é o seu caso...qualquer coisa, pule esta parte :) 9-Tenho uma ListBox (Lst1) onde sempre a esvazio (Lst1.Clear) antes de povoá-la com os dados do RecordSet; 10-Aqui faço a rotina de ciclo no banco: Fazer até que o RecordSet chegue ao fim traduzindo dá +/- isso <_< 11-Os conteúdos dos Campos "Nome" e "Cidade" são adicionados ao ListBox; 12-Movendo o ponteiro do RecordSet para o proximo registro; 13-Fechando a rotina do ciclo. OBS: No exemplo, estou a carregar os dados dos campos "Nome" e "Cidade"...se quiser adicionar mais campos basta usar a lógica do exemplo: a cada campo colocar " & vbTab & " Tipo: Lst1.AddItem Rs!Nome & vbTab & Rs!Cidade & vbTab & Rs!Endereco & vbTab & Rs!CEP ... Utilizei a forma de indexação dos campos com o sinal de Exclamação "!", mas pode ser feito também com Parênteses e Aspas: Lst1.AddItem Rs("Nome") & vbTab & Rs("Cidade") & vbTab & Rs("Endereco") & vbTab & Rs("CEP") Funciona de ambas maneiras ;) GilbertoB, expliquei detalhadamente pois não sei o seu nível de conhecimento...então me baseei por mim, que ralei um pouco para assimilar "RecordSets, ConnectionsStrings, Funções SQL's" <_<...e ainda ralo pra KCT :)... foi preciso muita paciência do pessoal do fórum e também do Matheus-vb6 (trocamos diálogos pelo MSN) para absorver partes do conteúdo. Boa Sorte e qualquer coisa tamos aê na medida do possível ! :rolleyes:

Coloquei Latin1_general_ci... está funcionando Beleza agora ! :)

Beleza... o que importa é que funfando :) Agora quando abro um RecordSet, e carrego em um DataGrid, tem uma coluna com um nome que contém a letra "ç"... e aparece um caractere estranho :huh: uso Caracter Set "Latin1", para informação... ♫☼♫♪ :rolleyes:

Kuroi, Conseguí com o driver da Cherry City Software...ele pede para registrar depois de instalado no PC...e não permite distribuir junto com a aplicação...ou seja, só para uso pessoal, por isso meu interesse em usar o outro "MyOleDB"... Estou a tentar, mas aberto a sugestões :rolleyes: Valeu ! *** EDIT *** Sobre suas dicas com o MyOleDB, tentei de tudo já...coloquei a versão, alterei o nome como você sugeriu...e nessas ocasiões a mensagem de erro muda para: "O provedor não está devidamente instalado." coloquei também o Localhost no "Data Source" e o nome "Base" em "Database"...que é este o nome da Base de dados... MySQLNEO é o nome do meu servidor... e a senha é "@1234" mesmo :)

Estou tentando com a segunda opção (a primeira necessita de cadastro e senha,então deixei ela de lado ;) ) Está quase abrindo...estou esquecendo algo na string de conexão...ou incluindo a mais: "O erro que apresenta é: -2147467259 "erro não especificado." Minha String está assim: Con.Open "Provider=MySQLProv;Data Source=MySQLNEO;UID=root;PWD=@1234;PORT=3306" :wacko: :wacko: :wacko:

Pessoal... Estou a desenvolver uma aplicação com Base de Dados MySQL, então, na NET só encontrei conexão via driver ODBC...será que tem como conectar com OLEDB, igual se faz com os demais bancos (SQL Server, Access...) ? Se tem, deixem o nome do driver que devo baixar, e a string de conexão, pois a que encontrei no site "Connection Strings" não funfou :unsure: . Fui :blink: