** fichier "./includes/.htaccess"
<Files *.inc.php>
Order Deny,Allow
Deny from all
</Files>
** fichier "./includes/myconnect.inc.php"
<?php
{ Hacking prevention }
if (!defined('YODA')) exit("Hacking attempt!");
{ connection }
$DBC = mysql_connect("host:port","login","pass") or die(mysql_error());
{ connection persistante - > voir la reference mysql
a n'utiliser que si on sait pourquoi }
// $DBC = mysql_pconnect("host:port","login","pass") or die(mysql_error());
{ selection de la base par defaut }
if (!isset($m_sqldb)) { $m_sqldb = "mabase"; }
mysql_select_db($m_sqldb, $DBC);
{ fin du fichier }
?>
** fichier "./page.php"
<?php
{ definition de la base par defaut ou non }
// $m_sqldb = '';
{ Hacking prevention }
define("YODA", true);
{ inclusion du fichier de connection }
require("includes/myconnect.inc.php");
{ <<-- vos codes / requettes -->> }
{ facultatif : fermeture de la connection $DBC ou
de la derniere connexion ouverte une connection normale est
fermée automatiquement a la fin du script (sauf pconnect) }
mysql_close($DBC);
{ fin du fichier }
?>
string connStr = string.Format("DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;UID=root;DATABASE={0};PASSWORD={1};", databasename, password);
System.Data.Odbc.OdbcConnection odbcConn = new System.Data.Odbc.OdbcConnection(connStr);
try
{
odbcConn.Open();
/* Query et autres */
}
catch (System.Data.Odbc.OdbcException odbcEx)
{
/* Traitement de l'erreur */
}
finally
{
odbcConn.Close();
odbcConn = null;
}
#!/usr/bin/perl -Tw
use DBI;
$dbh = DBI->connect("DBI:mysql:database","login","password");
Remarque :
// requette sans result
$rows_affected = $dbh->do("USE services") || die "Database Error: $DBI::errstr";
// exemples de requette avec result et param :
$sth = $dbh->prepare("SELECT ... FROM ... WHERE id=?");
$sth->execute($id);
($result1, $result2, ...) =$sth->fetchrow();
$sth->finish();
package require mysqltcl
set db [mysqlconnect -host localhost -user root -password ********** ]
mysqlquery $db {CREATE DATABASE IF NOT EXISTS tcl}
mysqlquery $db {USE tcl}
...
Remarque :
bien evidement, ceci demande le package mysqltcl
import MySQLdb
def mc():
# Connexion à MySQL
c = MySQLdb.connect('host','username','password')
# Recupere le curseur
cu = c.cursor()
# Execute une requete de test
r = cu.execute('show databases')
# On creer un tableau avec les résultats
r = cu.fetchall()
# On les affiche
for i in r: print i[0]
# On ferme tout.
cu.close()
c.close()
Remarque :
Vous devez avoir le package Python "MySQLdb" installé.
Langage :
VB6
,
VBA
Date ajout :
23/06/2008
Posté par
PCPT
[
Liste]
DateMAJ :
07/08/2008
' COPIEZ LE CODE CI-DESSOUS DANS UN MODULE DE CLASS, VOUS AVEZ ACCES AUX OBJETS DB ET RS
Option Explicit
' msado25.tlb (Microsoft ActiveX Data Objects 2.5 Library)
' msadox.dll (Microsoft ADO Ext. 2.7 for DLL and Security)
Public DB As New ADODB.Connection
Public RS As New Recordset
' CONNEXION
Public Function DBConnect(ByVal sDBName As String, Optional ByVal sHost As String = "127.0.0.1", Optional ByVal sUser As String = "root", Optional ByVal sPassword As String = vbNullString) As Boolean
Me.DBClose
With DB
.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & sHost & ";DATABASE=" & sDBName & ";UID=" & sUser & ";PWD=" & sPassword & ";OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384 & ";"
.CursorLocation = adUseClient
.ConnectionTimeout = 1
.CommandTimeout = 1
On Error GoTo Err_Handler
.Open
DBConnect = True
Exit Function
End With
Err_Handler:
Debug.Print "[DBConnect] " & Err.Number & " : " & Err.Description
End Function
' FERMETURE DB
Public Sub DBClose()
Me.DB.Cancel
If Me.DBConnected Then Me.DB.Close
End Sub
' BASE CONNECTéE ?
Public Function DBConnected() As Boolean
DBConnected = Not (Me.DB.State = adStateClosed)
End Function
' REQUÊTE
Public Function RSExecute(ByVal sSql As String) As Boolean
If Me.DBConnected Then
Call RSClose
Me.RS.CursorLocation = adUseClient
On Local Error GoTo Err_Handler
Me.RS.Open sSql, Me.DB, adOpenDynamic, adLockOptimistic, -1
RSExecute = True
End If
Exit Function
Err_Handler:
Debug.Print "[RSExecute] " & Err.Number & " : " & Err.Description
End Function
' FERMETURE RS
Private Sub RSClose()
Me.RS.Cancel
If Not (Me.RS.State = adStateClosed) Then Me.RS.Close
End Sub
' DESTRUCTION CLASS
Private Sub Class_Terminate()
Call RSClose: Set Me.RS = Nothing
Me.DBClose: Set Me.DB = Nothing
End Sub