SQL Frage

[mr.toby 11]

Hallo leute

 

ich habe einen SQL 2000 Server im Einsatz! möchte gerne aus einem VBA Formular diese daten in die SQL DATABASE schreiben! ist dass möglich und wenn ja wie funktioniert das ? ;)

 

LG

 

Toby

[woiza 10]

Hi,

 

klar geht das.

...

 

Die Antwort war jetzt in etwa so präzise, wie die Frage. Welches Officeprodukt, was willst du genau erreichen usw.

 

Gruß

 

woiza

[mr.toby 11]

Ich habe ein formular zur annahme von defekten geräten! in word!

 

und ich möchte die Kundendaten in eine SQL Datenbank werfen damit ich die kundendaten 1. nur ein mal einpflegen muss und ich möchte wenn ich das geschafft habe evtl noch suchfunktionen einbauen.....

[woiza 10]

Hi,

 

ich würde dir ADO empfehlen. Hast du damit schon gearbeitet? Das Prinzip ist nämlich immer sehr ähnlich.

 

Wenn ich dein 2. Post richtig verstehe, dann willst du mit den Daten aus der DB auch dein Formular füllen, oder? Welche DB verwendest du?

 

Gruß

 

woiza

[mr.toby 11]

nein was ist ADO?

 

ich will die daten vom vba formular in die SQL DB schreiben!

[woiza 10]

Ja und was tun die Daten dann in der DB. Das muss doch irgendeinen Sinn haben. Wie sehen denn deine Tabellen aus oder ist das nur eine?

[mr.toby 11]

ich wollte nur eine machen und wenn der kunde wieder kommt soll der name wieder angezeigt werden wenn man die anfangsbuchstaben reintippt

 

z.b Familienname Mustermann sollte das formular schon gefüllt sein....

[woiza 10]

Jagut, wenn ich das lese:

 

ich wollte nur eine machen und wenn der kunde wieder kommt soll der name wieder angezeigt werden wenn man die anfangsbuchstaben reintippt

 

z.b Familienname Mustermann sollte das formular schon gefüllt sein....

 

dann habe ich hiermit recht gehabt:

Wenn ich dein 2. Post richtig verstehe, dann willst du mit den Daten aus der DB auch dein Formular füllen, oder? Welche DB verwendest du?

 

Du willst nicht nur reinschreiben, sondern die Daten nachher auch wieder rauslesen. Ich würde das Formular gleich mit Access machen, das wäre das Einfachste.

 

Hast du denn schon ne Vorstellung, wie die DB-Struktur aussehen soll? Ich würde dir gerne helfen, allerdings solltest du dann schon ein bisschen wissen, was du genau vorhast. Wenn es dann um konkrete Fragen geht, ist die Hilfestellung einfacher.

 

Wenn ich dir jetzt ein Codebeispiel schreibe, das ein von mir generiertes Formular in ne DB schreibt (wobei du noch verraten solltest, welche), dann kann ich das gerne tun, allerdings scheint das bei deiner Aufgabenstellung maximal die halbe Miete zu sein.

 

Sag einfach Bescheid, wenn du gern eins hättest, dann kann ich dir eins basteln.

 

Gruß

 

woiza

 

 

Edith: ich sehe gerade, dass es ein SQL 2000 ist...

[woiza 10]

So hier wäre ein Beispiel. Das VBA-Formular hat zwei Elemente, eine Schaltfläche cmdDB und eine Combobox cmbDB. Wenn auf die Schaltfläche gedrückt wird, lädt das Script aus der Pubs Datenbank einen Wert und schreibt diesen in die Combobox.

 

Vielleicht kommst du damit weiter. Du musst nachher praktisch beim Laden des Formulars die Daten auslesen und noch einen Button einbauen, der einen neuen Datensatz schreibt.

 

Das ist alles keine Zauberei, ich würde dir jedoch dringend Literatur zu diesem Thema empfehlen. Um DBs kommst du in deiner Laufbahn vermutlich nicht herum. Und mit ADO kannst du nicht nur DBS, sondern auch Exceldateien, CSV_Dateien und sogar das AD auslesen. Das geht aus Office, mit VBS usw...

Ist also gut investierte Zeit.

 

Damit du das Beispiel nachvollziehen kannst, musst du den Connectionstring anpassen. Ich würde damit übrigens nicht gleich auf ne produktive DB gehen. Du kannst das Ganze erstmal mit Access entwickeln und nachher auf SQL umstellen.

 

Zusätzlich musst du im VBA unter Extras/Verweise noch die "Microsoft ActiveX Data Objects 2.6 Library" hinzufügen.

 

Private Sub cmdDB_Click()

   Dim cnn As ADODB.Connection
   Dim str As String
   Dim rs As ADODB.Recordset


   Set cnn = New ADODB.Connection
   cnn.ConnectionString = "Driver={SQL Server};Server=server1;Database=pubs;Uid=test;Pwd=testpwd;"
   cnn.Open
   str = "SELECT au_lname FROM authors"
   Set rs = cnn.Execute(str)

  While Not rs.EOF

  cmbDB.AddItem (rs.Fields(0).Value)
  rs.MoveNext


  Wend

  cnn.Close

End Sub

 

Gruß

 

woiza