Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
<html>
<title>506. Hacer un contador de visitas con un archivo txt</title>
<?php
//Ahora leemos el fichero
$fp =fopen("contador.txt","r");
while(!feof($fp))
{
$linea=fgets($fp);
$visitas=$linea;
}
$visitas = $visitas +1;
fclose($fp);
$fp=fopen("contador.txt","w+");
fwrite($fp,$visitas,26);
fclose($fp);
?>
<body>
<h2>506. Hacer un contador de visitas con un archivo txt</h2>
Es usted la visita numero:<h1> <?php echo $visitas; ?> </h1>
</body>
</html>
function conectar($server,$usario,$password)
{
$conexion = mysql_connect($server,$usuario,$password)or die("No se puede conectar");
echo 'CONECTADO';
}
conectar('127.0.0.1','root','');
Sub MySql_VolcadoExcel()
Dim conexion As New ADODB.Connection
Dim miservidor As String
Dim bd As String
Dim user As String
Dim i, f, c As Long
Dim rs As ADODB.Recordset
miservidor = "XXXXXXXXX"
bd = "XXXXXXXXX"
user = "XXXXXXXXXXx"
Set conexion = New ADODB.Connection
'ABRE LA CONEXION
conexion.Open "DRIVER={MySQL ODBC 5.2a Driver};SERVER=" & miservidor & ";DATABASE=" & bd & ";UID=" & user & ";password=XXXXX;OPTION=16427"
Set recsql = New ADODB.Recordset
'EJECUTA LA CONSULTA: evidentemente consulta1 es una variable que ya contiene la consulta en si...
recsql.Open consulta1, conexion
ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "Consulta " & NombreConsulta
c = 0
f = 0
' recorre las columnas, añade el nombre del campo al encabezado
For i = 0 To recsql.Fields.Count - 1
Range(Chr(i + 65) & f + 1).Value = recsql.Fields(i).Name
Next
f = f + 1
' recorre todo el RECORDSET hasta el final
Do While Not recsql.EOF
' recorre los campos en el registro actual del RECORDSET para recuperar el dato
For i = 0 To recsql.Fields.Count - 1
' añade el valor a la celda
Range(Chr(c + 65) & (f + 1)).Value = recsql.Fields(c)
c = c + 1
Next
' RESETEA EL INDICE DE LAS COLUMNAS
c = 0
' SUMA UNA FILA
f = f + 1
' SIGUIENTE REGISTRO DEL RECORDSET
recsql.MoveNext
Loop
' Cierra y descarga los objetos
On Error Resume Next
recsql.Close
conexion.Close
Set conexion = Nothing
Set recsql = Nothing
End Sub
