Moderador: Moderadores
) Olá pessoal, passeando pelo google achei um poste de 2005 sobre esse assunto, agora 7 anos depois o que será que temos a mais, na época já se falava de ClipWeb, ClipCgi e ClipXnet, o que será que apareceu de novo (Rochinha, Dudu_Xbase e Náufel estavam lá e deram suas dicas), gostaria de algumas novas dicas (atualizadas claro) do que será que mehorou nesses ultimos anos. O post original em https://pctoledo.org/forum/viewtopic.php?t=3188
Desculpa colega, não entendi a sua colocação. Faltou você esclarecer se busca uma solução para Clipper ou em Harbour ?gostaria de algumas novas dicas (atualizadas claro) do que será que mehorou nesses ultimos anos.
) 
colocaram a lingua pra fora e disseram para eu optar por Java ou PHP talves .Net e por ai a fora CGI não, se alguem tiver alguma dica de PHP me parece o caminho certo eu agradeço.
Código: Selecionar todos
<table border=0 width=100%>
<tr width=100%><td width=100% valign=top><h2>Cadastro de Cliente</h2></td></tr>
<% DIM acao,usuario_id, name,adress,country,active,notes,photo
'acao = Request.QueryString("acao")
acao = Request.Form("acao")
'Checa o preenchimento do formulário
If acao="inclusao" OR acao="atualizar" Then
If (Request.Form("NAME") = "") Then erro = "XX" End If
If (Request.Form("ADRESS") = "") Then erro = "XX" End If
If (Request.Form("COUNTRY") = "") Then erro = "XX" End If
If (Request.Form("ACTIVE") = "") Then erro = "XX" End If
If (Request.Form("NOTES") = "") Then erro = "XX" End If
If (Request.Form("PHOTO") = "") Then erro = "XX" End If
name = Request.Form("NAME")
adress = Request.Form("ADRESS")
country = Request.Form("COUNTRY")
active = Request.Form("ACTIVE")
notes = Request.Form("NOTES")
photo = Request.Form("PHOTO")
End If
If erro = "XX" Then
response.write ("<script>")
response.write (" alert('Por favor, preencha todas informações.')")
response.write ("</script>")
End If
'Se há algum erro no formulário volta para edição
If erro = "XX" Then
Select Case acao
Case "atualizar"
acao = "editar"
Case "incluir"
acao = ""
End Select
End If
'Inclui cliente
If acao = "inclusao" AND erro = "" Then
pos = instrrev(lcase(request.servervariables("path_translated")),lcase(scriptrelativefolder) & "\" & lcase(formaction))
db_dir = left(request.servervariables("path_translated"), pos-1 )
db = db_dir & "\"
set cnn= server.createobject("adodb.connection")
cnn.open "Driver={Microsoft dBase Driver (*.dbf)};;DBQ=" & db & ";"
cnn.execute("INSERT INTO clients(name,adress,country,active,notes,photo)" &_
"VALUES ('"&_
NAME&"','"&_
ADRESS&"','"&_
COUNTRY&"','"&_
ACTIVE&"','"&_
NOTES&"','"&_
PHOTO&"')" )
set cnn= nothing
response.write ("<script>")
response.write (" alert('Operacao efetuada com sucesso!')")
response.write ("</script>")
End If
'Atualiza informações
If acao = "atualizar" Then
pos = instrrev(lcase(request.servervariables("path_translated")),lcase(scriptrelativefolder) & "\" & lcase(formaction))
db_dir = left(request.servervariables("path_translated"), pos-1 )
db = db_dir & "\"
set cnn= server.createobject("adodb.connection")
cnn.open "Driver={Microsoft dBase Driver (*.dbf)};;DBQ=" & db & ";"
cnn.execute("UPDATE clients set " &_
"name='name'" &_
"adress='adress'" &_
"country='country'" &_
"active='active'" &_
"notes='notes'" &_
"photo='photo' WHERE id=" & Session("usuario_id"))
set cnn= nothing
response.write ("<script>")
response.write (" alert('Atualizacao efetuada com sucesso!')")
response.write ("</script>")
End If
%>
Código: Selecionar todos
Fala galera!
No 2º artigo da série vamos começar a por a mão na massa. Vocês pensaram que ia ser moleza? (risos).
O que você vai ver nesse artigo ?
1. Configurar o PHP para trabalhar com as funções do Dbase.
2. Criando um arquivo DBF
3. Inserindo dados nesse arquivo
4. Listando os dados
Vamos lá:
1. Configurar o PHP para trabalhar com as funções do Dbase.
- Vá até o arquivo php.ini e descomente a linha, tirando o ; (ponto e vírgula) do início.
;extension=php_dbase.dll
Atenção
No php.ini, verifique se a linha extension_dir, está apontando para a pasta onde estão as Dlls.
No meu computador essa linha está assim: c:phpextensions
2. Criando um arquivo DBF
Vamos criar o arquivo DBF à partir de um script PHP.
Arquivo cria.php
<?
//Local onde será gravado o arquivo
$dbname = "c:paginadbaseimasters.dbf";
// Definição dos campos
$campos =
array(
array("ID","N",3,0),
array("COLUNISTA","C",50),
array("MATERIA","C",50),
);
//Cria o arquivo DBF com os campos acima
if (!dbase_create($dbname, $campos))
print "<strong>Erro! na criação do Database !</strong>";
else
print "BD criado com Sucesso!!!";
?>
Vá até o browser e digite o endereço do arquivo (Exemplo: http://127.0.0.1/pasta/cria.php), se tudo ocorrer bem você deverá ver a mensagem BD Criado com Sucesso!!.
3. Inserindo dados nesse arquivo
Através de um script, vamos inserir alguns itens nesse arquivo.
Arquivo inserir.php
<?
//Arquivo DBF
$dbname = "c:paginadbaseimasters.dbf";
//Abre o banco de dados Dbase
//0 - somente leitura
//1 - somente escrita
//2 - leitura / escrita
$con = dbase_open($dbname,2) or die("Erro na Conexão com o arquivo DBF");
//Array com os colunistas do iMasters
$colunista[0] = array("1","Júlio César Martini","PHP / MySQL");
$colunista[1] = array("2","Eduardo Carrega","Fireworks");
$colunista[2] = array("3","Raphael Simas","Dreamweaver");
$colunista[3] = array("4","Rodolpho Gomes","ASP");
$colunista[4] = array("5","Leandro Azevedo","WebMarketing");
$colunista[5] = array("6","Cristiano Trindade","Java");
$colunista[6] = array("7","Mauro Pichiliani","SQL Server");
$colunista[7] = array("8","Igor da Silva Gomes","JSP");
//Lê o array e vai incluindo no arquivo DBF
for($i=0;$i<sizeof($colunista);$i++) {
dbase_add_record($con,$colunista[$i]);
}
print "<br><br>Dados Inseridos com Sucesso!!!!!";
?>
Como vocês podem ver acima, foi criado um array (colunistas ) e posteriormente eles foram inseridos dentro desse arquivo usando a função dbase_add_record().
4. Listando os dados do arquivo
Para terminar esse artigo, vamos desenvolver um script que tem por finalidade, listar os dados do arquivo DBF.
Arquivo listar.php
<?
//Arquivo DBF
$dbname = "c:paginadbaseimasters.dbf";
//Abre o banco de dados Dbase
//0 - somente leitura
//1 - somente escrita
//2 - leitura / escrita
$con = dbase_open($dbname,0) or die("Erro na Conexão com o arquivo DBF");
//Retorna quantos registros tem no banco de dados
$rows = dbase_numrecords($con);
//Lista os dados da Tabela
for($i=1;$i<=$rows;$i++) {
$registro = dbase_get_record($con,$i);
echo $um = $registro[0];
echo $dois = $registro[1];
echo "<br>";
}
?>