1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

Sub Eintrag in DBTabelle "Arbeitsplatz"

dim zeile as integer
dim spalte as integer
dim text as string
dim zahl as integer

'bei Spalte A1 (im obrigen Beispiel wäre es A2) soll begonnen werden
start spalte = 'A'
'Die eingetragenen Daten sollen eingelesen werden
read (zeile1)

'es soll so lange die Zeile eingelesen werden bis eine Zelle leer ist
while active.cell is not = ""
   'wenn die aktive Zelle mit Text gefüllt ist, soll der Text wie folgt abgespeichert werden: 'Max Mustermann'
  if activate.cell is not numeric then
  'text' = ReadLine()
  else
  'ist die aktive Zelle mit Zahlen gefüllt, sollen diese ohne ' ' gespeichert werden
  zahl = ReadLine()
  end if
'wenn eine Zelle in der Zeile leer ist soll mit der nächsten Zeile weiter gemacht werden
for
next spalte

'am ende bzw in der Schleife am besten, sollen dann abwechselnd die Daten bei Value eingetragen werden
INSERT INTO Arbeitsplatz (ID_Arbpl,Benutzer) VALUE (zahl,'text',zahl,'text')

End Sub                    

1:
2:
3:

private void ThisWorkbook_Startup(object sender, System.EventArgs e)
        {            
        }                    

1:
2:
3:

private void ThisWorkbook_Shutdown(object sender, System.EventArgs e)
        {
        }                    

1:
2:
3:
4:

string strServer = "server",
strUsername = "Name",
strPassword = "passwort",
strDatabase = "test";