lentschik: Daten aus SQL DB auslesen

Hallo Leute,

brauche dringend Hilfe!!!
Muss in Word VBA ein Code schreiben, um verschiedene Daten aus einer SQL DAtenbank auslesen zu können. Ich kenne mich da gar nicht aus, kann mir vielleicht jemand da helfen oder paar Tipps dazu sagen?

Ich bedanke mich in Voraus.

Gruß Lentschik

  1. Halihallo lentschik

    Muss in Word VBA ein Code schreiben, um verschiedene Daten aus einer SQL DAtenbank auslesen zu können. Ich kenne mich da gar nicht aus, kann mir vielleicht jemand da helfen oder paar Tipps dazu sagen?

    Das "klassische" (?) vorgehen ist über:

    Server.CreateObject("ADODB.Connection")

    Informiere dich über diese ADODB-Komponente.

    Viele Grüsse

    Philipp

    --
    RTFM! - Foren steigern das Aufkommen von Redundanz im Internet, danke für das lesen der Manuals.
    Selbstbedienung! - Das SelfForum ist ein Gratis-Restaurant mit Selbstbedienung, Menüangebot steht in den </faq/> und dem </archiv/>.
    1. Hi,

      Server.CreateObject("ADODB.Connection")

      und über Server.CreateObject("ADODB.Recordset")

      MfG
      Rouven

      --

      -------------------
      ss:) zu:) ls:& fo:) de:< va:{ ch:? sh:) n4:( rl:? br:$ js:| ie:) fl:(
      1. Hi Rouven,

        auf jeden Fall Danke, ich versuche es umzusetzen.

        Bis Bald!!!

        --
        Gruß Lentschik
        1. Hi Rouven,

          auf jeden Fall Danke, ich versuche es umzusetzen.

          Bis Bald!!!

          TIP: Ist zwar für ASP aber den Code hatte ich grad griffbereit. So ähnlich müsste es gehen...

          <html>
          <head> <title> Kunde - Antwort </title> </head>

          <body>
          <div align="center">
          <%
          DIM mKNR

          DIM objcon, strdb, strcon, objrs

          mKNR=request.form("Kunde")

          SET objcon=Server.CreateObject("ADODB.Connection")
          strdb="Data Source=" & Server.MapPath ("Test1.mdb")
          strcon="Provider=Microsoft.Jet.OLEDB.4.0;" & strdb
          objcon.open strcon

          Set objrs=Server.CreateObject("ADODB.Recordset")

          mSQL="Select * FROM Kunde WHERE Kundennummer="&mKNR&";"

          objrs.open mSQL, objcon
          objrs.MoveFirst
          %>

          <h2> <% response.write objrs("Name") %> </h2>
          <br>
          <h4> <% response.write objrs("Kundennummer") %> <br> <br>
          <% response.write objrs("Straße") %> <br>
          <% response.write objrs("Postleitzahl") %> <br>
          <% response.write objrs("Ort") %> <br> <br>
          <% response.write objrs("Telefon") %> </h4>
          <br><br><br>

          <%
          objrs.close

          mSQL="Select Auftragsnummer, Positionsnummer, Leistung FROM Auftrag INNERJOIN Position on Auftrag.Auftragsnummer=Position.Auftragsnummer WHERE Kundennummer="&mKNR&";"

          objrs.open msql, objcon
          objrs.MoveFirst
          %>

          <table border="1">
          <tr>
          <th> Auftragsnummer </th>
          <th> Positionsnummer </th>
          <th> Beschreibung </th>
          </tr>

          <% While not objrs.EOF %>

          <tr> <td> <% response.write objrs("Auftragsnummer") %> </td>
          <td> <% response.write objrs("Positionsnummer") %> </td>
          <td> <% response.write objrS("Leistung") %> </td> </tr>

          <%
          objrs.movenext
          wend
          objcon.Close

          Set objrs=Nothing

          %>

          </div>
          </body>
          </html>

          1. Hallo Sabine,

            ich Danke Dir!

    2. Hallo Philipp,

      auf jeden Fall Danke, ich versuche es umzusetzen.

      Bis Bald!!!

      --
      Gruß Lentschik
  2. Hallo Leute,

    Ich versuche es. Vielen DAnk!!!!!!!!!!

    Bis Bald!!!

    --
    Gruß Lentschik