Daten aus SQL DB auslesen
lentschik
- datenbank
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
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
Hi,
Server.CreateObject("ADODB.Connection")
und über Server.CreateObject("ADODB.Recordset")
MfG
Rouven
Hi Rouven,
auf jeden Fall Danke, ich versuche es umzusetzen.
Bis Bald!!!
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>
Hallo Sabine,
ich Danke Dir!
Hallo Philipp,
auf jeden Fall Danke, ich versuche es umzusetzen.
Bis Bald!!!
Hallo Leute,
Ich versuche es. Vielen DAnk!!!!!!!!!!
Bis Bald!!!