Pesquisa

Pesquisa personalizada

quinta-feira, 24 de maio de 2007

Fazer um Select SQL - Compact Framework

- Comandos SQL e retornar valor em Compact Framework

'CONEXAO COM O BANCO DE DADOS

Dim string_conexao As String = "Persist Security Info=False; datasource=CAMINHO DO BANCO\NOMEDOBANCO.sdf"

Dim conexao_db As New SqlCeConnection(string_conexao)

conexao_db.Open()

'SELECIONANDO OS DADOS

'Variável onde será Colocado o Comando SQL
Dim Sql As String = ""

'Variáveis que receberão os Dados
Dim var01 As String = ""
Dim var02 As String = ""
Dim var03 As String = ""
Dim var04 As String = ""
Dim var05 As String = ""
Dim var06 As String = ""
Dim var07 As String = ""
Dim var08 As String = ""
Dim var09 As String = ""
Dim var10 As String = ""
Dim var11 As String = ""
Dim var12 As String = ""

'Try para a execução do Comando

'Seleção dos Dados
Try
Sql = "SELECT * FROM TABELA"

Dim comando_sql As New SqlCeCommand(Sql.ToString, conexao_db)

Dim resultado As SqlCeDataReader = comando_sql.ExecuteReader()

' While para ler os dados
While resultado.Read()

'Jogando os dados nas variáveis
var01 = resultado.GetValue(0).ToString
var02 = resultado.GetValue(1).ToString
var03 = resultado.GetValue(2).ToString
var04 = resultado.GetValue(3).ToString
var05 = resultado.GetValue(4).ToString
var06 = resultado.GetValue(5).ToString
var07 = resultado.GetValue(6).ToString
var08 = resultado.GetValue(7).ToString

End While

- Finalizando o SQL
comando_sql.Dispose()

Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try

Contribua - Participe - Critique - Ajude
Envie seu e-mail para: gerenteblog@gmail.com

Como calcular a média por SQL - Interbase

- Descrição do problema
Fazer o cálculo de um média direto no Banco de Dados

- Solução encontrada

SELECT
(
--SOMATÓRIO DO CAMPO A SER CALCULADO A MÉDIA - NUMERADOR
SUM (ITEMVENDA.VLPRECO)

/
--CONTADOR PARA QUANTIDADE - DENOMINADOR
(SELECT ITEMVENDA(*)
FROM ITEMVENDA
WHERE ITEMVENDA.IDVENDA =:IDVENDA
)
)
AS MEDIAPRECO
FROM ITEMVENDA
WHERE ITEMVENDA.IDVENDA =:IDVENDA

Contribua - Participe - Critique - Ajude - Mande a sua dúvida
Envie seu e-mail para: gerenteblog@gmail.com

quarta-feira, 23 de maio de 2007

Função de Explode (PHP) em Delphi

- Descrição da Função

//Declaração necessária
type
TStringDynArray = array of string;
//Deve ser colocado logo abaixo da palava "type"


function Explode(const Separator, S: string; Limit: Integer = 0): TStringDynArray;

var SepLen : Integer;
F, P : PChar;
ALen, Index : Integer;

Begin
SetLength(Result, 0);

if (S = '') or (Limit < separator =" ''"> #0 do
begin
F := P;
P := StrPos(P, PChar(Separator));

if (P = nil) or ((Limit > 0) and (Index = Limit - 1)) then

P := StrEnd(F);

if Index >= ALen then
begin

Inc(ALen, 5);
SetLength(Result, ALen);

end;

SetString(Result[Index], F, P - F);
Inc(Index);

if P^ <> #0 then
Inc(P, SepLen);
end;

if Index < ALen then

SetLength(Result, Index);

end;

//Implentação de teste, evento OnClick do Button e joga em um ListBox
const MYSTRING = 'When,I,die,I,want,Hello,world,carved,on,my,headstone';

procedure TForm.ButtonClick(Sender: TObject);
var StringArray : TStringDynArray;
Loop : Integer;

begin

StringArray := Explode(',', MYSTRING);

For Loop := 0 to length(StringArray) - 1 do

ListBox.Items.Add(StringArray[Loop]);

end;



Contribua - Participe - Critique - Ajude - Mande a sua dúvida
Envie seu e-mail para: gerenteblog@gmail.com

Pegar o IP da rede e jogar no Label - Delphi

- Descrição da Função (Function)

- A função foi colocada no OnShow do Fomulário.

procedure Tfrm.FormShow(Sender: TObject);
type
TaPInAddr = array [0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe : PHostEnt;
pptr : PaPInAddr;
Buffer : array [0..63] of char;
I : Integer;
GInitData : TWSADATA;
Result : String;

Begin

WSAStartup($101, GInitData);

Result := '';

GetHostName(Buffer, SizeOf(Buffer));

phe :=GetHostByName(buffer);

if phe = nil then Exit;

pptr := PaPInAddr(Phe^.h_addr_list);

I := 0;

while pptr^[I] <> nil do
begin
result:=StrPas(inet_ntoa(pptr^[I]^));
result := StrPas(inet_ntoa(pptr^[I]^));
Inc(I);
end;

lblIP.Caption := result;

WSACleanup;

end;



Contribua - Participe - Critique - Ajude - Mande a sua dúvida
Envie seu e-mail para: gerenteblog@gmail.com

Memo ou Dbmemo com todas letras maiúculas inclusive as acentuadas - Delphi

- Descrição da Função (Function)

Function Acentos(Str:String): String;

Const ComAcento = \'àâêôûãõáéíóúçü\';
SemAcento = \'ÀÂÊÔÛÃÕÁÉÍÓÚÇÜ\';
Var x : Integer;

Begin

For x := 1 to Length(Str) do
Begin
if Pos(Str[x],ComAcento)<>0 Then
Begin
Str[x] := SemAcento[Pos(Str[x],ComAcento)];
end;
end;

Result := Str;

end;

- Chamada da Função

Evento KeyUp do campo Memo a ser alterado

procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word;Shift: TShiftState);
begin

memo1.Text := acentos(memo1.Text);

memo1.SelStart := length(memo1.Text);

end;


Contribua - Participe - Critique - Ajude
Envie seu e-mail para: gerenteblog@gmail.com

Verificar a existência de placa de som - VB

Private Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long

Dim res As Integer

res = waveOutGetNumDevs()

If res > 0 Then
msgbox "Existe Placa de Som"
Else
msgbox "Não Existe Placa de Som"
End If



Contribua - Participe - Critique - Ajude - Mande a sua dúvida
Envie seu e-mail para: gerenteblog@gmail.com

terça-feira, 22 de maio de 2007

Características do Delphi

Delphi (lê-se "dél-fi" mas em inglês se pronuncia "dél-fai") é um compilador e uma IDE para o desenvolvimento de softwares. Ele é produzido pela Borland Software Corporation (por algum tempo chamada Inprise). A linguagem utilizada pelo Delphi, o Object Pascal (Pascal com extensões orientadas a objetos) a partir da versão 7 passou a se chamar Delphi Language. O Delphi originalmente direcionado para a plataforma Microsoft Windows, agora desenvolve aplicações nativas para Linux com o Kylix, e para o framework Microsoft .NET em suas versões mais recentes. O nome Delphi é inspirado na cidade de Delfos, o único local na Grécia antiga em que era possível consultar o Oráculo de Delfos. Os desenvolvedores do compilador buscavam uma ferramenta capaz de acessar um banco de dados Oracle. Daí veio o trocadilho "a única maneira de acessar o oráculo é usando Delphi".


Contribua - Participe - Critique - Ajude
Envie seu e-mail para: gerenteblog@gmail.com

Características Visual Basic

O Visual Basic é uma linguagem programação produzida pela empresa Microsoft, e é parte integrante do pacote Microsoft Visual Studio. Sua versão mais recente faz parte do pacote Visual Studio .NET, voltada para aplicações .Net. Sua versão anterior fez parte do Microsoft Visual Studio 6.0, ainda muito utilizado atualmente.
Um aperfeiçoamento do BASIC, a linguagem é dirigida por eventos (event driven), e possui também um ambiente de desenvolvimento integrado (IDE - Integrated Development Environment) totalmente gráfico, facilitanto enormemente a construção da interface das aplicações (GUI - Graphical User Interface), daí o nome "Visual". Em suas primeiras versões, o Visual Basic não permitia acesso a bancos de dados, sendo portanto voltado apenas para iniciantes, mas devido ao sucesso entre as empresas - que faziam uso de componentes adicionais fabricados por terceiros para acesso a dados - a linguagem logo adotou tecnologias como DAO, RDO, e ADO, também da Microsoft, permitindo fácil acesso a bases de dados. Mais tarde foi adicionada também a possibilidade de criação de controles ActiveX, e, com a chegada do Visual Studio .NET, o Visual Basic se tornou uma linguagem totalmente orientada a objetos.
Contribua - Participe - Critique - Ajude
Envie seu e-mail para: gerenteblog@gmail.com


Características PHP

PHP (um acrónimo recursivo para "PHP: Hypertext Preprocessor") é uma linguagem de programação de computadores interpretada, livre e muito utilizada para gerar conteúdo dinâmico na Web. Apesar de ser uma linguagem de fácil aprendizagem e de utilização para pequenos scripts dinâmicos simples, o PHP é uma linguagem poderosa orientada a objetos.

Contribua - Participe - Critique - Ajude}
Envie seu e-mail para: gerenteblog@gmail.com


O que é uma Linguagem de Programação?

Uma linguagem de programação é um método padronizado para expressar instruções para um computador. É um conjunto de regras sintáticas e semânticas usadas para definir um programa de computador. Uma linguagem permite que um programador especifique precisamente sobre quais dados um computador vai atuar, como estes dados serão armazenados ou transmitidos e quais ações devem ser tomadas sob várias circunstâncias.
O conjunto de palavras (tokens), compostos de acordo com essas regras, constituem o código fonte de um software. Esse código fonte é depois traduzido para código de máquina, que é executado pelo processador.
Uma das principais metas das linguagens de programação é permitir que programadores tenham uma maior produtividade, permitindo expressar suas intenções mais facilmente do que quando comparado com a linguagem que um computador entende nativamente (código de máquina). Assim, linguagens de programação são projetadas para adotar uma sintaxe de nível mais alto, que pode ser mais facilmente entendida por programadores humanos. Linguagens de programação são ferramentas importantes para que programadores e engenheiros de software possam escrever programas mais organizados e com maior rapidez.
Linguagens de programação também tornam os programas menos dependentes de computadores ou ambientes computacionais específicos (propriedade chamada de portabilidade). Isto acontece porque programas escritos em linguagens de programação são traduzidos para o código de máquina do computador no qual será executado em vez de ser diretamente executado. Uma meta ambiciosa do Fortran, uma das primeiras linguagens de programação, era esta independência da máquina onde seria executada.

Contribua - Participe - Critique - Ajude
Envie seu e-mail para: gerenteblog@gmail.com