Decio

Não precisa mudar nada , a sintax de conexão é assim mesmo.você instalou o driver ODBC do MySql , como o Willian falou?? Sem ele a conexão não funciona.

"DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=myDatabase;USER=myUsername;PASSWORD=myPassword;OPTION=3;" A string esta certa para uma conexão ODBC sem DSN. Vc criou a conexão DSN?? Se você quer usar DSN , a string deve ser alterada , tipo no lugar do Database , colocar dsn=NomeDsn.

Realmente existe muitas falhas neste site.Não o estou atualizando mais, pois estou desenvolvendo um novo. Quanto a sua dúvida, a foto do componente que você me enviou, pode ser o Tab Strip ou o SSTab. Para incluir no projeto: Clique em Project\Components. Selecione: Microsoft Windows Common Controls para o Tab Strip ou Microsoft Tabbled Dialog Control para SSTab (o melhor)

Olhe este site (em Inglês) http://www.vbmysql.com Caso não resolva o seu problema , explique onde esta o seu problema, e como você esta tentando acessar o MySql.

Também acho que a melhor linguagem é a que se domina. Mas tente usar o MySql que é gratuito e muito bom.

O " ' " serve para dizer que o que vai ser procurado é uma string(alfanumerico), caso seja numérico, não se usa o " ' ". O * serve para determinar que a palavra que for digitada , pode ser localizada em qualquer parte de uma frase.Pode ser usado para localizar palavras em campo tipo "descrição" . Like é o comando propriamente dito para procurar por uma determinada palavra dentro de uma string.

Se você quizer pode enviar por email.É só clicar no meu nome , na esquerda para ver o endereço.

É um print screen de algum software que use esta aba.Se for igual a figura abaixo é só fazer igual ao que o Graymalkin falou.

você não teria uma imagem da tela em algum lugar para ver como é?

você só vai ter problemas se a versão do VB for abaixo da versão 6. Quanto ao banco de dados , eu sugiro usar o MySql que é gratuito e muito bom.

você precisa de um loop para ler todas as linhas: Open App.Path & "\CadDocs.ini" For Input As #1 Do While (Not EOF(1)) Line Input #1, CodLote Cont = InStr(1, CodLote, "=", vbTextCompare) CodLote = CInt(Mid(CodLote, Cont + 1, Len(CodLote))) loop Close #1 Desta forma vai fazer um loop enquanto EOF for falso. Existe uma API do Windows (GetProfileString) que facilita muito a tarefa de ler arquivos .INI.

Uma das formas pode ser esta: ret = MsgBox("deseja encerrar", vbYesNo) If ret = vbYes Then MsgBox "SIM" If ret = vbNo Then MsgBox "NÃO"

É diferente.Não sei bem qual a faixa de valores "long double" abrange , mas "Long double" ocupa 80 bits , contra os 64 bits de double.

Na verdade, a unica coisa que a caixa de dialogo faz é pegar o nome do arquivo que foi selecionado. Com este nome em uma váriavel é que você vai fazer código para executar o arquivo.

você vai precisar do protocolo de comunicação do leitor. Neste documento deve ter como inicializar a serial , se é preciso algum comando especial para o leitor enviar os dados , etc... Sem ele tudo fica + dificil. Caso você não o tenha , tente entrar em contato com o fabricante do equipamento.As vezes eles até possuem dll para facilitar a comunicação com seus periféricos. Em alguns modelos de leitor de códigos de barras , funciona também em PS2 (entrada do teclado)

Tente fazer uma pesquisa no google por "huffman" . Dizem que o algoritimo é extremamente simples

De qualquer forma, eu testei o código em um HD com + de 2GB (8GB). Tente mudar a váriavel para "long double" e não rode embaixo do Windows. Eu vou ver se arrumo um HD maior para fazer o teste também.

Tente usar este código: void __fastcall TForm1::Button1Click(TObject *Sender) { DWORD NumSerie; char NomVol[12]; char SysFile[16]; GetVolumeInformation("C:/", NomVol, 12, &NumSerie, NULL , NULL, SysFile, 16); Label1->Caption = IntToHex((int)NumSerie, 8); Label2->Caption = SysFile; Label3->Caption = NomVol; } Retirei este exemplo deste endereço: http://chgi.developpez.com/tips4/

Eu rodei o exemplo e funcionou corretamente.O que talvez possa dar errado é o tamanho do HD ser muito grande e estar "estourando" a capacidade da variavel. A variavel esta declarada como "long" que vai de -2.147.483.647 até +2.147.483.647 . Tente mudar de long para double , por exemplo e veja se resolve. Ex: avail = (double) free.avail_clusters * (double) free.bytes_per_sector * (double) free.sectors_per_cluster;

Bom , pelo que vejo, acho que você não precisa mais de explicação da função. Qualquer coisa estamos ai. (de vez em quando, é verdade)

Mas não tem jeito de incluir algum caracter na string na hora em que esta sendo gerada a string?? Fiz esta rotina meio maluca , mas acho que resolve: texto = "1565748946544Esquerdo26845265" a = InStr(1, texto, "Esquerdo", vbTextCompare) strTexto1 = Left(texto, a - 1) b = Len(strTexto1) C = Len(texto) - 8 C = C - b strTexto2 = Right(texto, C) MsgBox strTexto1 MsgBox strTexto2 Neste caso, a unica coisa que você tem que ter certeza é que existe a palavra "Esquerda" na string. se for outra "Direita" por exemplo, você vai ter que fazer outra rotina para verificação.

É mais ou menos como nosso amigo falou, o que você pode fazer é uma flag para saber quando parar.Da uma olhada no exemplo que eu fiz: 'para este exemplo coloque dois command button e 1 text box Dim endLoop As Boolean Private Sub Command1_Click() Dim a As Integer endLoop = False For a = 1 To 32000 DoEvents Text1.Text = a If endLoop = True Then Exit For Next a MsgBox "finalizado em " & a End Sub Private Sub Command2_Click() endLoop = True End Sub Private Sub Form_Load() Command1.Caption = "iniciar loop" Command2.Caption = "finalizar loop" End Sub

De qualquer forma com o Distinct na sintaxe , só vai mostrar um resultado, você deve usar o * ou os nomes dos campos para depois tentar resolver o problema.

desse jeito não vai dar certo, o split precisa ter um caracter delimitador para você poder separar as strings, tipo assim: #1565748946544#Esquerdo#26845265. No exemplo acima daria para separar usando o split. Se o tamanho da sua string sempre forem o mesmo, você pode usar comandos tipo o Left, Right e Mid .

Em ambiente Windows não se usa comandos para limpar tela, mas você pode fazer um programa tipo "console" que tem um visual parecido com o DOS , mas roda em ambiente 32 bits. De qualquer forma , o comando "clrscr" não faz parte do C da Microsoft, somente no C da Borland .