Beschreibung:
Liefert das eingestellte Datenbanksystem zurück.
Typ:
Long
|
Wert |
Beschreibung |
|
0 |
keine Verbindung aktiv |
|
3 |
Microsoft SQL Server |
|
10 |
PostgreSQL |
Beispiel VBScript:
Dim nDBSystemType : nDBSystemType = cRM.CurrentProject.DBSystemType
Dim nDBSystemMajorVersion : nDBSystemMajorVersion = cRM.CurrentProject.DBSystemVersion / 65535
Dim nDBSystemMinorVersion : nDBSystemMinorVersion = cRM.CurrentProject.DBSystemVersion Mod &HFFFF0000
Dim sDBSystemVersion : sDBSystemVersion = CStr(nDBSystemMajorVersion) & "." & CStr(nDBSystemMinorVersion)
Dim sDBSystemType : sDBSystemType = ""
If (nDBSystemType = 0) Then
sDBSystemType = "Keine Informationen - derzeit nicht mit einem Datenbankserver verbunden"
ElseIf (nDBSystemType = 3) Then
sDBSystemType = "Microsoft SQL Server"
ElseIf (nDBSystemType = 10) Then
sDBSystemType = "PostgreSQL"
End If
Call cRM.DialogMessageBox("Das aktuell eingestellte Datenbanksystem ist: " & sDBSystemType & " (Version: " & sDBSystemVersion & ")", "Project.DBSystemType", vbOkOnly)
Beispiel C#-Script:
long dbSystemType = cRM.CurrentProject.DBSystemType;
long dbSystemMajorVersion = cRM.CurrentProject.DBSystemVersion / 65535;
long dbSystemMinorVersion = cRM.CurrentProject.DBSystemVersion % 0xFFFF0000;
string dbSystemVersion = dbSystemMajorVersion.ToString() + "." + dbSystemMinorVersion.ToString();
string dbSystemTypeDetail = string.Empty;
if (dbSystemType == 0)
{
dbSystemTypeDetail = "Keine Informationen - derzeit nicht mit einem Datenbankserver verbunden";
}
else if (dbSystemType == 3)
{
dbSystemTypeDetail = "Microsoft SQL Server";
}
else if (dbSystemType == 10)
{
dbSystemTypeDetail = "PostgreSQL";
}
cRM.DialogMessageBox("Das aktuell eingestellte Datenbanksystem ist: " + dbSystemTypeDetail + " (Version: " + dbSystemVersion + ")", "Project.DBSystemType", 0);