PmaAdo - Praktyczne przykłady

Patrz: obiekt PmaAdo, PmaAdo - Szczegółowy opis obiektu

Operacja podłączania do bazy danych jest stosunkowo czasochłonna a częste podłączanie/odłącznie do/od bazy danych może zpowodować przeciążenie aplikacji. Dlatego zalecanym jest wykonać podłączenie do bazy danych po uruchomieniu aplikacji a odłączenie od bazy danych podczas zatrzymywania aplikacji.

Zamknięcie bazy danych jest zalecane wykonać dopiero po wykonaniu wszystkich operacji z bazą danych (zazwyczaj dopiero podczas zatrzymania aplikacji).

W trakcie pracy z bazami danych jest konieczne zawsze sprawdzić, czy wykonywana operacja została wykonana pomyślnie lub czy zakończyła się błędem.

Pracę z bazą danych przy pomocy PmaAdo w systemie PROMOTIC można podzielić na dwa podstawowe sposoby:

- odczyt danych z celem ich wyświetlenia

- zapisanie/zmiana danych w bazie danych

Odczyt danych do aplikacji

Kolejność operacji podczas odczytu danych do aplikacji przy pomocy obiektu PmaAdo:

- podłączenia do bazy danych

- otwarcie odpowiedniej tabeli

- opracowanie danych w aplikacji

- zamknięcie odpowiedniej tabeli

- (opcjonalnie: zamknięcie bazy danych)

Pojedyńcze operacje są pokazane w następującym przykładzie:

Przykład:

JavaScriptVBScriptWybierz oraz skopiuj do schowka



var oAdo, oMap, oRs, sSQL, bRes, aValues;


oAdo = pMe.Pm("../PmaAdo");

sSQL = "select * from table1";


// Otwarcie bazy danych, jeżeli nie jest otwarta:

if (!oAdo.DbIsOpen())

{

	bRes = oAdo.DbOpen();

}

else

{

	bRes = true;

}


// Jeżeli baza danych jest otwarta, wtedy można kontynuować

if (bRes)

{

	// Otwarcie odpowiedniej tabeli

	oMap = oAdo.RsOpen("", sSQL, "return:map;");

	// Stwierdzi, czy otwarcie przebiegło pomyślnie

	if (oMap.ErrorCode == 0)

	{

		oRs = oMap.Result;

		// Stwierdzi, czy tabela nie jest pusta

		if (oRs.EOF && oRs.BOF)

		{

			// Pm.Debug("Tabela (recordset) nie zawiera żadnych rekordów");

			return -3;

		}

		else

		{

			// Jeżeli tabela nie jest pusta, wtedy można ją wczytać jako 2-wymiarową tablicę

			aValues = Pm.CreatePmArray();

			aValues.LoadFromVbArray(oRs.GetRows());

			return aValues;

		}

	}

	else

	{

		// Pm.Debug("Błąd otwarcia tabeli");

		return -2;

	}

}

else

{

	// Pm.Debug("Błąd otwarcia bazy danych");

	return -1;

}

Zapis danych z aplikacji do bazy danych

Zapis danych może zostać wykonany jednym z dwu sposobów:

1. Zapis danych do tabeli bez jej wcześniejszego otwarcia

2. Otwarcie tabeli oraz dodanie nowego wiersza do tej otwartej tabeli

Przy zapisie/zmiany pierwszym sposobem należy wykonać następujące kroki:

- podłączenie do bazy danych

- zapis/zmiana danych w bazie danych

- (opcjonalnie: zamknięcie bazy danych)

Ten sposób zapisu wykorzystuje polecenia SQL INSERT lub UPDATE.

Przy zapisie/zmiany drugim sposobem należy wykonać następujące kroki:

- Oodłączenie do bazy danych

- Otwarcie tabeli oraz ewentualnie wyszukanie odpowiedniego rekordu

- zapis/zmiana danych w bazie danych

- (opcjonalnie: zamknięcie bazy danych)

Ten sposób zapisu wykorzystuje metody obiektów PmaAdo, AdoRecordset itd.

Pierwszy sposób jest oszczędniejszy do aplikacji oraz do bazy danych, ponieważ nie jest konieczne otwarcie odpowiedniej tabeli oraz wczytanie pojedyńczych wierszy tabeli do pamięci. W celu dodania wiersza do tabeli wystarczy tylko zastosowania polecenia typu INSERT INTRO (patrz Zastosowanie polecenia insert into). Dla zmiany bieżącego wiersza można zastosować polecenie typu UPDATE (patrz Zastosowanie polecenia update). Te polecenia SQL muszą być napisane w składni języka SQL dla zastosowanego systemu bazodanowego. Taki sposób pracy z bazami danych wymaga wiedzę na temat poleceń języka SQL dla konkretnej bazy danych.

Drugi spopsób nie wymaga szczegółowej wiedzy na temat poleceń języka SQL, nie mniej jednak jest badziej wymagający (zwłaszcza pamięciowo) dla całej aplikacji, ponieważ nawet w celu dodania nowego wiersza jest konieczne otworzyć (=wczytać) tabelę (patrz Zastosowanie metody "AddNew"). Podcczas zmiany jest konieczne najpierw wyszukać odpowiedni rekord a ten następnie zmienić (patrz Edycja bieżącego rekordu). Dlatego ten sposób można stosować tylko w przypadku pracy z tabelami o małej liczby rekordów. Można również poprawić zapytanie SQL do otwarcia tabeli tak, żeby zwrócono tylko ograniczoną ilość rekordów (idealnie tylko jeden rekord) - np. zastosowaniem złożonych poleceń SQL np. w taki sposób:

"select * from table1 where ctime = (select max(ctime) from table1)"

Do tego celu nie jest zalecane stosowanie klauzuli ograniczającej typu select TOP, LIMIT itd.

Zastosowanie polecenia insert into:

JavaScriptVBScriptWybierz oraz skopiuj do schowka



var oAdo, oMap, sSQL, bRes, sTime;


oAdo = pMe.Pm("../PmaAdo");


// Format czasu dla bazy danych MS SQL

sTime = Pm.FormatDate(Pm.Time, 20);


// Format czasu dla bazy danych Oracle

sTime = Pm.FormatDate(Pm.Time, 21);


// Format czasu dla bazy danych MySQL

sTime = Pm.FormatDate(Pm.Time, 22);


sSQL = "insert into table1(ctime, ctemperature, cpress, cstatus, cnote) values (" + sTime + ", 12.5, 1.5, 5, 'New record - INSERT')";


// Otwarcie bazy danych, jeżeli nie jest otwarta:

if (!oAdo.DbIsOpen())

{

	bRes = oAdo.DbOpen();

}

else

{

	bRes = true;

}


// Jeżeli baza danych jest otwarta, wtedy można kontynuować

if (bRes)

{

	// Eykonanie polecenia SQL

	oMap = oAdo.DbExecute("", sSQL, "return:map;");


	// Sprawdzenie, czy dodanie zakończyło się pomyślnie

	if (oMap.ErrorCode == 0)

	{

		// Jeżeli wynikiem polecenia jest zbiór rekordów, wtedy można go dalej opracować

		// Pm.Debug("Nowy rekord został pomyślnie zapisany do bazy danych");

		return 1;

	}

	else

	{

		// Pm.Debug("Błąd zapisania nowego rekordu do bazy danych");

		return -2;

	}

}

else

{

	// Pm.Debug("Błąd otwarcia bazy danych");

	return -1;

}

Zastosowanie polecenia update:

JavaScriptVBScriptWybierz oraz skopiuj do schowka



var oAdo, oMap, sSQL, bRes, sTime;


oAdo = pMe.Pm("../PmaAdo");


// Format czasu dla bazy danych MS SQL

sTime = Pm.FormatDate(Pm.Time, 20);


// Format czasu dla bazy danych Oracle

sTime = Pm.FormatDate(Pm.Time, 21);


// Format czasu dla bazy danych MySQL

sTime = Pm.FormatDate(Pm.Time, 22);


sSQL = "update table1 set ctemperature = 26.5, cPress = 1.83, cstatus = 8, cnote = 'change record UPDATE' where ctime = " + sTime;


// Otwarcie bazy danych, jeżeli nie jest otwarta:

if (!oAdo.DbIsOpen())

{

	bRes = oAdo.DbOpen();

}

else

{

	bRes = true;

}


// Jeżeli baza danych jest otwarta, wtedy można kontynuować

if (bRes)

{

	// Eykonanie polecenia SQL

	oMap = oAdo.DbExecute("", sSQL, "return:map;");


	// Sprawdzenie, czy dodanie zakończyło się pomyślnie

	if (oMap.ErrorCode == 0)

	{

		// Jeżeli wynikiem polecenia jest zbiór rekordów, wtedy można go dalej opracować

		// Pm.Debug("Bieżący rekord został pomyślnie zmieniony w bazie danych");

		return 1;

	}

	else

	{

		// Pm.Debug("Błąd zmiany bieżącego rekordu w bazie danych");

		return -2;

	}

}

else

{

	// Pm.Debug("Błąd otwarcia bazy danych");

	return -1;

}

Zastosowanie metody "AddNew":

JavaScriptVBScriptWybierz oraz skopiuj do schowka



var oAdo, oMap, oRs, sSQL, bRes;


oAdo = pMe.Pm("../PmaAdo");

sSQL = "select * from table1";


// Otwarcie bazy danych, jeżeli nie jest otwarta:

if (!oAdo.DbIsOpen())

{

	bRes = oAdo.DbOpen();

}

else

{

	bRes = true;

}


// Jeżeli baza danych jest otwarta, wtedy można kontynuować

if (bRes)

{

	// Otwarcie odpowiedniej tabeli

	oMap = oAdo.RsOpen("", sSQL, "lock:optimistic;return:map;");


	// Stwierdzi, czy otwarcie przebiegło pomyślnie

	if (oMap.ErrorCode == 0)

	{

		oRs = oMap.Result;

		// Jeżeli należy dodać nowy rekord, wtedy nie jest konieczne stwierdzanie, czy tabela nie jest pusta.

		oRs.AddNew();

		oRs.Fields.Item("ctime").Value = Pm.Time;

		oRs.Fields.Item("ctemperature").Value = 12.5;

		oRs.Fields.Item("cpress").Value = 1.5;

		oRs.Fields.Item("cstatus").Value = 5;

		oRs.Fields.Item("cnote").Value = "New record - AddNew";

		oRs.Update();


		if (oRs.Pm_LastErr == 0)

		{

			// Jeżeli wynikiem polecenia jest zbiór rekordów, wtedy można go dalej opracować

			// Pm.Debug("Nowy rekord został pomyślnie zapisany do bazy danych");

			return 1;

		}

		else

		{

			// Pm.Debug("Błąd zapisania nowego rekordu do bazy danych");

			return -3;

		}

	}

	else

	{

		// Pm.Debug("Błąd otwarcia tabeli");

		return -2;

	}

}

else

{

	// Pm.Debug("Błąd otwarcia bazy danych");

	return -1;

}

Edycja bieżącego rekordu:

JavaScriptVBScriptWybierz oraz skopiuj do schowka



var oAdo, oMap, oRs, sSQL, bRes, nTime;


oAdo = pMe.Pm("../PmaAdo");

nTime = Pm.Time;

sSQL = "select * from table1";


// Otwarcie bazy danych, jeżeli nie jest otwarta:

if (!oAdo.DbIsOpen())

{

	bRes = oAdo.DbOpen();

}

else

{

	bRes = true;

}


// Jeżeli baza danych jest otwarta, wtedy można kontynuować

if (bRes)

{

	// Otwarcie odpowiedniej tabeli

	oMap = oAdo.RsOpen("", sSQL, "lock:optimistic;return:map;");


	// Stwierdzi, czy otwarcie przebiegło pomyślnie

	if (oMap.ErrorCode == 0)

	{

		oRs = oMap.Result;

		// Stwierdzi, czy tabela nie jest pusta

		if (oRs.EOF && oRs.BOF)

		{

			// Pm.Debug "Tabela (recordset) nie zawiera żadnych rekordów"

			return -4;

		}

		else

		{

			oRs.MoveFirst();

			do

			{

				if (oRs.Fields.Item("ctime").Value ==nTime)

				{

					oRs.Fields.Item("ctemperature").Value = 26.5;

					oRs.Fields.Item("cpress").Value = 1.83;

					oRs.Fields.Item("cstatus").Value = 8;

					oRs.Fields.Item("cnote").Value = "Change record - PmaAdo/edit";

					oRs.Update();


					if (oRs.Pm_LastErr == 0)

					{

						// Jeżeli wynikiem polecenia jest zbiór rekordów, wtedy można go dalej opracować

						// Pm.Debug("Bieżący rekord został pomyślnie zmieniony w bazie danych");

						return 1;

					}

					else

					{

						// Pm.Debug("Błąd zmiany bieżącego rekordu w bazie danych");

						return -3;

					}

				}

				oRs.MoveNext();


			} while (!oRs.EOF);

		}

	}

	else

	{

		// Pm.Debug("Błąd otwarcia tabeli");

		return -2;

	}

}

else

{

	// Pm.Debug("Błąd otwarcia bazy danych");

	return -1;

}