MySQL zugang

[milos]

Kann man mit einem Buttonklick in phpmyadmin von localhost automatisch einen SQL befehl geben?

[DeddyH]

Den müsstest Du selber abspeichern und laden (sofern ich Dich überhaupt richtig verstanden habe).

[milos]

Ich möchte mit einem einzigen Buttonclick, automatisch in phpmyadmin zugreifen und einen SQL befehl eingeben lassen, den ich schon selbst vorgegeben habe. z.B. ButtonOnClick -> localhost/phpmyadmin -> SQL eintragen -> CREATE DATABASE oder so :D
und das alles unsichtbar

[DeddyH]

Ach, der Button soll in einem Delphi-Programm sein?

[milos]

In einer Form ja.

[DeddyH]

Wieso denn dann der Umweg über phpMyAdmin? Mit entsprechenden Zugriffskomponenten (mysqldirect, ZEOS, etc.) wäre das doch viel sinnvoller.

[edit] Siehe z.B. hier: http://www.delphipraxis.net/internal...ect.php?t=7266 [/edit]

[milos]

Danke ich werde es mir mal anschaun

[mkinzler]

Vielleicht ist der Direktzugriff ( wie bei den meisten Providern) von aussen gesperrt. Dann würde ich aber ein eigenes (PHP-)Skript erzeugen, welches ich dann aufrufe.

[Die Muhkuh]

Er schreib explizit localhost, daher kann er sich das auch für Exklusiv-Zugriff einrichten.

[DeddyH]

Da von localhost die Rede war bin ich davon ausgegangen, dass es sich um den eigenen Rechner handelt.

[milos]

Zitat:

Zitat von DeddyH

Wieso denn dann der Umweg über phpMyAdmin? Mit entsprechenden Zugriffskomponenten (mysqldirect, ZEOS, etc.) wäre das doch viel sinnvoller.

[edit] Siehe z.B. hier: http://www.delphipraxis.net/internal...ect.php?t=7266 [/edit]

Bei diesem Tutorial komme ich nicht weitder.... Es wird gesagt ich soll mysql.pas in Windows/System32 verschieben das habe ich gemacht... Als ich dann in uses MySQL hinzugefügt habe ging es nicht.

Edit: Es geht jetzt :D

[milos]

Ich habe noch eine Frage. Ist PMySQL ein komponent?

[Die Muhkuh]

Nö.

Zitat:

Neben den Funktionen werden noch folgende Datentypen, die in mysql.pas definiert sind, benutzt:

PMySQL
PMySQL_Res
PMySQL_Rows

[DeddyH]

Das Tutorial heißt "MySQL ohne Komponenten" :mrgreen:. Aber es ist eine Klasse.

[milos]

Bei mir kommt ne zugriffsverletzung :(

[mkinzler]

Dann zeig mal deinen Code

[milos]

Bis jetzt:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, MySQL, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  _myCon: PMySQL;       //unseren Verbindungsdeskriptor
  host, user, pass, db: PChar;       //die Anmeldedaten
begin
  //wir werden uns als Root-Benutzer in localhost einloggen, ohne eine
  //bestimmte Datenbank auszuwählen
  host := 'localhost';
  user := 'root';
  pass := '';
  db := 'lan';

  //jetzt wird _myCon initialisiert
  _myCon := mysql_init(nil);
  if _myCon = nil then
  begin
    ShowMessage('Nicht genug freier Speicher, um Verbindungsdeskriptor zu initialisieren');
    Exit;
  end;
  
  //anschließend wird die Verbindung hergestellt
  if mysql_real_connect(_myCon, host, user, pass, db, 3306, nil, 0) = nil then
  begin 
    ShowMessage('Die Verbindung konnte nicht hergestellt werden. Ursache: ' + mysql_error(_myCon));
    Exit;
  end;

  ShowMessage('Verbindung hergestellt');

  //zum Schluss wird die Verbindung wieder geschlossen
  mysql_close(_myCon);
end;


end.

[Die Muhkuh]

Wo kommt die Meldung? :roll:

[milos]

Bild angehengt

[Die Muhkuh]

An welcher Stelle im Code...

[milos]

Ich glaube bei FormCreate

[mkinzler]

Du musst auch erst eine Instanz der Klasse erzeugen

[jfheins]

http://www.delphipraxis.net/internal...ct.php?t=47972 ...

[Die Muhkuh]

Zitat:

Zitat von mkinzler

Du musst auch erst eine Instanz der Klasse erzeugen

Welche Klasse meinst Du?

[milos]

Delphi-Quellcode:

  //jetzt wird _myCon initialisiert
  _myCon := mysql_init(nil);

[mkinzler]

Zitat:

Zitat von Die Muhkuh

Zitat:

Zitat von mkinzler

Du musst auch erst eine Instanz der Klasse erzeugen

Welche Klasse meinst Du?

Stimmt, es wird ja die lowlevel API verwendet. :oops:
Fehler wisst normalerweise auf einen Zugriff auf nicht instantiierte Klassenreferenz hin (Nil)

[DeddyH]

Ich hatte auch gedacht, dass es sich um Klassen handelt. Sry für die Fehlinformation :oops:

[edit] @milos: Stepp doch mal mit F7 durch den Code und sag uns dann die Zeile, in der der Fehler auftritt. [/edit]

[Die Muhkuh]

Ja, das dachte ich erst auch, aber er erzeugt ja von Hand keine Klasse.

Vielleicht solltest Du das Projekt nochmal komplett von vorne machen. Höchstens Du packst endlich mal den Debugger aus und schaust genau nach, wo es kracht. Sonst raten wir hier morgen noch rum!

[milos]

Bei dem kommt der Fehler

Delphi-Quellcode:

//jetzt wird _myCon initialisiert 
  _myCon := mysql_init(nil);

[mkinzler]

Setzte mal vor dieser Zeile einen Haltepunkt und drücke wenn er anhält F7