Källkoden för /anders.enges/vb/dde.asp
<!--#include file="../inc/navstuff.asp" -->
<h4><span lang=FI>1<span
style='font:7.0pt "Times New Roman"'>
</span></span><span lang=FI>DDE</span></h4>
<p><span lang=SV-FI>För att kommunicera mellan program i Windows kan man använda
sig av DDE – Dynamic Data Exchange. Det finns fyra typer av DDE:</span></p>
<table border=0 cellspacing=0 cellpadding=0>
<tr>
<td width=94 valign=top class="Normal">
<p class=MsoHeader><b><span lang=SV-FI>1.<span
style='font:7.0pt "Times New Roman"'> </span></span></b><b><span lang=SV-FI>Request</span></b></p>
</td>
<td width=506 valign=top class="Normal">
<p class=MsoHeader><span lang=SV-FI>Frågar ett efter data av ett annat program
(länk)</span></p>
</td>
</tr>
<tr>
<td width=94 valign=top class="Normal">
<p class=MsoHeader><b><span lang=SV-FI>2.<span
style='font:7.0pt "Times New Roman"'> </span></span></b><b><span lang=SV-FI>Execute</span></b></p>
</td>
<td width=506 valign=top class="Normal">
<p><span lang=SV-FI>Ger DDE kommandon åt ett annat program</span></p>
</td>
</tr>
<tr>
<td width=94 valign=top class="Normal">
<p class=MsoHeader><b><span lang=SV-FI>3.<span
style='font:7.0pt "Times New Roman"'> </span></span></b><b><span lang=SV-FI>Peek</span></b></p>
</td>
<td width=506 valign=top class="Normal">
<p><span lang=SV-FI>Tittar efter data i ett annat program</span></p>
</td>
</tr>
<tr>
<td width=94 valign=top class="Normal">
<p class=MsoHeader><b><span lang=SV-FI>4.<span
style='font:7.0pt "Times New Roman"'> </span></span></b><b><span lang=SV-FI>Poke</span></b></p>
</td>
<td width=506 valign=top class="Normal">
<p><span lang=SV-FI>”Trycker in data” i ett annat program</span></p>
</td>
</tr>
</table>
<p><span lang=SV-FI>Vi kommer här att se mer på Request och Execute (Peek och
Poke tycker jag är ”oartiga”)</span></p>
<h4><span lang=SV-FI>1.1<span style='font:7.0pt "Times New Roman"'>
</span></span><span lang=SV-FI>Gemensamt för alla DDE metoder</span></h4>
<p><span lang=SV-FI>För att kunna använda DDE krävs samarbete av två program.
Ett program fungerar som klient och det andra som server. Eftersom man kan ha
flera DDE konversationer igång samtidigt kan ett program vara såväl klient som
server samtidigt. För en given DDE konversation gäller dock att programmet är
antingen eller. För att få igång en konversation krävs att klienten vet följande
om servern:</span></p>
<p class=MsoHeader><span lang=SV-FI>1.<span
style='font:7.0pt "Times New Roman"'> </span></span><span
lang=SV-FI>Application</span></p>
<p class=MsoHeader><span lang=SV-FI>2.<span
style='font:7.0pt "Times New Roman"'> </span></span><span
lang=SV-FI>Topic</span></p>
<p class=MsoHeader><span lang=SV-FI>3.<span
style='font:7.0pt "Times New Roman"'> </span></span><span
lang=SV-FI>Item</span></p>
<p><span lang=SV-FI>Application är det namn som programmet registrerat för DDE.
Detta måste inte vara detsamma som programnamnet. För enkelhets skull brukar
det dock vara samma som programnamnet.</span></p>
<p><span lang=SV-FI>Topic är ”ämnet” som dataöverföringen skall hantera. Ej alltid
helt dokumenterade.</span></p>
<p><span lang=SV-FI>Item är en specifik datamängd, t.ex. en cell i Excel</span></p>
<h4><span lang=SV-FI>1.2<span style='font:7.0pt "Times New Roman"'>
</span></span><span lang=SV-FI>DDE med VB 5.0 som klient</span></h4>
<p class=MsoHeader><span lang=SV-FI>De exempel på kod som finns så förutsätter
att du har ett standard VB program som har följande komponenter</span></p>
<p><span> </span><b>Komponent Namn
Egenskaper</b></p>
<p><span> </span>1. TextBox Text1
MultiLine: True</p>
<p><span> </span>2. CommandButton Command1
Caption: Prova</p>
<p><span lang=SV-FI>Dessutom måste du ha igång <b>Excel</b> och ha värden i <b>A1</b>
t.o.m. <b>A3</b> i arket <b>Sheet1</b></span></p>
<h4><span lang=SV-FI>1.2.1<span style='font:7.0pt "Times New Roman"'>
</span></span><span lang=SV-FI>DDE Request</span></h4>
<p><span lang=SV-FI>Den vanligaste formen av DDE är utbyte av data. Det finns
tre former av Request. Nedan kommer namnan samt de begrepp som används i VB
5.0 (6.0 har jag inte tillgång till):</span></p>
<p><span> </span>Verkligt namn i VB</p>
<p><span> </span>1. Cold Manual</p>
<p><span> </span>2. Warm Notify
</p>
<p><span> </span>3. Hot Automatic</p>
<b><span lang=EN-US style='font-size:12.0pt;
font-family:Arial;
'><br clear=all style='page-break-before:always'>
</span></b>
<h4><span lang=EN-US>1.2.1.1<span
style='font:7.0pt "Times New Roman"'> </span></span><span
lang=EN-US>Cold DDE Request (manual)</span></h4>
<p><span lang=SV-FI>En cold Request går ut på att man tar kontakt, frågar efter
data och efter att ha fått datat (eller blivit vägrad) så avbryts förbindelsen.
Skriv in följande kod för knappen:</span></p>
<div style='border:solid windowtext .5pt;padding:1.0pt 4.0pt 1.0pt 4.0pt'>
<p style='border:none;padding:0cm;'><span lang=EN-US
style='font-family:"Courier New";'>Private Sub Command1_Click()</span></p>
<p style='border:none;padding:0cm;'><b><span> </span>Text1.LinkTopic = "Excel</b><b><span lang=EN-US style='font-size:12.0pt;
font-family:"Courier New";'>|</span></b><b><span lang=EN-US style='font-family:"Courier New";
'>Sheet1"</span></b></p>
<p style='border:none;padding:0cm;'><b><span> </span>Text1.LinkItem = "R1C1"</b></p>
<p style='border:none;padding:0cm;'><b><span> </span>Text1.LinkMode = vbLinkManual</b></p>
<p style='border:none;padding:0cm;'><b><span> </span>Text1.LinkRequest</b></p>
<p style='border:none;padding:0cm;'><span lang=SV-FI
style='font-family:"Courier New"'>End Sub</span></p>
</div>
<p><span> </span></p>
<p><span lang=SV-FI>Förklaringar:</span></p>
<p><b><span lang=EN-US style='font-family:"Courier New";'>Text1.LinkTopic = "Excel</span></b><b><span lang=EN-US style='font-size:12.0pt;font-family:"Courier New";'>|</span></b><b><span lang=EN-US style='font-family:"Courier New";
'>Sheet1"</span></b></p>
<p><span lang=SV-FI>Ser till att textboxen skapar en DDE kanal mot:</span></p>
<p><span> </span>Application: Excel</p>
<p><span> </span>Topic: Sheet1</p>
<p><b><span lang=SV-FI style='font-family:"Courier New"'>Text1.LinkItem = "R1C1"</span></b></p>
<p><span lang=SV-FI>Ser till att man sätter:</span></p>
<p><span> </span>Item: R1C1</p>
<p><span> </span><b><span lang=EN-US style='font-family:"Courier New";
'>Text1.LinkMode = vbLinkManual</span></b></p>
<p><b><span> </span></b><span
lang=SV-FI>Säger att man skall ha en manuell länk (cold). Obervera att man inte
kan sätta denna egenskap före man har satt Applicatioin, Topic och Item</span></p>
<p><b><span lang=SV-FI style='font-family:"Courier New"'>Text1.LinkRequest</span></b><span
lang=SV-FI> </span></p>
<p><span lang=SV-FI>Gör att själva förfrågningen görs.</span></p>
<p class=MsoHeader><span lang=SV-FI>Testa genom att starta programmet och klicka
på knappen</span></p>
<p class=MsoHeader><span lang=SV-FI>Man kan även ställa in LinkTopic ,LinkItem
och LinkMode i propertylistan i VB. Då behöver man inte skriva dessa hela tiden.
Bäst är det dock att se till att allt blir gjort i koden... Man kan även använda
en <b>Label</b> eller <b>PictureBox</b> för DDE kommunikation</span></p>
<h4><span lang=EN-US>1.2.1.2<span
style='font:7.0pt "Times New Roman"'> </span></span><span
lang=EN-US>Warm DDE Request (notify)</span></h4>
<p class=MsoHeader><span lang=SV-FI>Ändra om programmet till följande</span></p>
<div style='border:solid windowtext .5pt;padding:1.0pt 4.0pt 1.0pt 4.0pt'>
<p style='border:none;padding:0cm;'><span lang=EN-US
style='font-family:"Courier New";'>Private Sub Command1_Click()</span></p>
<p style='border:none;padding:0cm;'><span> </span>Text1.LinkTopic = "Excel<span
lang=EN-US style='font-size:12.0pt;font-family:"Courier New";
'>|</span><span lang=EN-US style='font-family:"Courier New";
'>Sheet1"</span></p>
<p style='border:none;padding:0cm;'><span> </span><span lang=SV-FI style='font-family:
"Courier New"'>Text1.LinkItem = "R1C1"</span></p>
<p style='border:none;padding:0cm;'><span> </span>Text1.LinkMode = <b>vbLinkNotify</b></p>
<p style='border:none;padding:0cm;'><b><span> </span></b><span lang=SV-FI
style='font-family:"Courier New"'>' Raden <b>Text1.LinkRequest</b> tas bort</span></p>
<p style='border:none;padding:0cm;'><span lang=SV-FI
style='font-family:"Courier New"'>End Sub</span></p>
</div>
<p><span lang=SV-FI>Skapa sedan följande händelseprocedur (välj Text1 och LinkNotify
i Listorna i VB:s editor)</span></p>
<div style='border:solid windowtext .5pt;padding:1.0pt 4.0pt 1.0pt 4.0pt'>
<p style='border:none;padding:0cm;'><span lang=EN-US
style='font-family:"Courier New";'>Private Sub Text1_LinkNotify()</span></p>
<p style='border:none;padding:0cm;'><b><span> </span>Text1.LinkRequest</b></p>
<p style='border:none;padding:0cm;'><span lang=EN-US
style='font-family:"Courier New";'>End Sub</span><span
lang=EN-US></span></p>
</div>
<p><span lang=SV-FI>När vi nu klickar på knappen kommer Text1 att få några inställningar.
Det kommer dock inte att komma något värde i textboxen. Om vi hoppar till Excel
och skriver om värdet i A1 (R1C1) så kommer vårt program att meddelas om detta.
Då körs </span><span lang=SV-FI
style='font-family:"Courier New"'>Text1_LinkNotify</span><span> </span>proceduren.
I denna säger vi att vi vill ha datat som Excel vill ge. (Vi kan även låta bli
om vi vill)</p>
<b><span lang=EN-US style='font-size:12.0pt;
font-family:Arial;
'><br clear=all style='page-break-before:always'>
</span></b>
<h4><span lang=EN-US>1.2.1.3<span
style='font:7.0pt "Times New Roman"'> </span></span><span
lang=EN-US>Hot DDE Request (automatic)</span></h4>
<p class=MsoHeader><span lang=SV-FI>Ändra om programmet till följande</span></p>
<div style='border:solid windowtext .5pt;padding:1.0pt 4.0pt 1.0pt 4.0pt'>
<p style='border:none;padding:0cm;'><span lang=EN-US
style='font-family:"Courier New";'>Private Sub Command1_Click()</span></p>
<p style='border:none;padding:0cm;'><span> </span>Text1.LinkTopic = "Excel<span
lang=EN-US style='font-size:12.0pt;font-family:"Courier New";
'>|</span><span lang=EN-US style='font-family:"Courier New";
'>Sheet1"</span></p>
<p style='border:none;padding:0cm;'><span> </span>Text1.LinkItem = "R1C1"</p>
<p style='border:none;padding:0cm;'><span> </span>Text1.LinkMode = <b>vbLinkAutomatic</b></p>
<p style='border:none;padding:0cm;'><span lang=EN-US
style='font-family:"Courier New";'>End Sub</span><span
lang=EN-US></span></p>
</div>
<p><span lang=SV-FI>Efter detta kommer textboxen att automatiskt uppdateras vid
behov och </span><span lang=SV-FI style='font-family:
"Courier New"'>Text1_LinkNotify</span><span lang=SV-FI> kommer inte att användas
(kan tas bort om man vill)</span></p>
<h4><span lang=SV-FI>1.2.2<span style='font:7.0pt "Times New Roman"'>
</span></span>DDE med VBA (T.ex. Excel makro) som klient </h4>
<p><span lang=SV-FI>I övriga VB versioner som t.ex. Excels VBA använd en annan
konstruktion för Request, oftast endast cold DDE:</span></p>
<div style='border:solid windowtext .5pt;padding:1.0pt 4.0pt 1.0pt 0cm'>
<p style='border:none;
padding:0cm;'><span
lang=EN-US style='font-family:"Courier New";'>Sub TestRequest()</span></p>
<p style='border:none;
padding:0cm;'><span> </span>Dim channel</p>
<p style='border:none;
padding:0cm;'><span> </span>Dim retArray</p>
<p style='border:none;padding:0cm;'><span> </span> channel = DDEInitiate("<i>application</i>",
"<i>Topic</i>")</p>
<p style='border:none;padding:0cm;'><span> </span><span lang=SV-FI
style='font-family:"Courier New"'>' kan ge en array tillbaka</span></p>
<p style='border:none;padding:0cm;'><span> </span> <span lang=EN-US
style='font-family:"Courier New";'>retArray = DDERequest(channel, "<i>Item</i>")</span></p>
<p style='border:none;padding:0cm;'><span> </span><span lang=SV-FI
style='font-family:"Courier New"'>' loopa igenom denna array</span></p>
<p style='border:none;padding:0cm;'><span> </span> <span
lang=EN-US style='font-family:"Courier New";'>For I = 1 To UBound(retArray)</span></p>
<p style='border:none;padding:0cm;'><span> </span> MsgBox retArray(I)</p>
<p style='border:none;padding:0cm;'><span> </span> Next</p>
<p style='border:none;padding:0cm;'><span> </span><span lang=SV-FI
style='font-family:"Courier New"'>' glöm inte att stänga DDE kanalen</span></p>
<p style='border:none;padding:0cm;'><span> </span> <span
lang=EN-US style='font-family:"Courier New";'>DDETerminate (channel)</span></p>
<p style='border:none;padding:0cm;'><span> </span>End Sub</p>
</div>
<p><span lang=SV-FI>Enklaste sättet att testa DDE är med Excel cellformler. Dessa
skrivs i formen:</span></p>
<p><span lang=SV-FI style='font-size:12.0pt;font-family:"Courier New"'>=<i>Application</i></span><b><span lang=SV-FI style='font-size:14.0pt;
font-family:"Courier New"'>|</span></b><i><span lang=SV-FI style='font-size:12.0pt;
font-family:"Courier New"'>Topic</span></i><b><span lang=SV-FI style='font-size:14.0pt;
font-family:"Courier New"'>!</span></b><i><span lang=SV-FI style='font-size:12.0pt;
font-family:"Courier New"'>Item</span></i></p>
<p><span lang=SV-FI>Vi får då en <b>Hot DDE REquest</b> (automatisk). Vill du
ha den manuell så kan man använda:</span></p>
<p><span> </span><b>Edit</b>, <b>Links</b>... Välj länken i dialogen
och ändra <b>Update</b>: till <b>Manual</b></p>
<h4><span lang=SV-FI>1.3<span style='font:7.0pt "Times New Roman"'>
</span></span><span lang=SV-FI>DDE med VB som Server</span></h4>
<p><span lang=SV-FI>För att få en form i VB att fungera som DDE server så måste
den ha satt Application, Topic och Item. Dessa är</span></p>
<p class=MsoBodyTextIndent>1.Application Namnet på projektet
(inte exe filens namn utan det som syns i Project explorern. )</p>
<p>2.Topic Ställs in i formens <b>LinkTopic</b> property.
</p>
<p><span lang=SV-FI>Ändra samtidigt <b>LinkMode</b> till <b>1- Source</b></span></p>
<p>3.Item Namnet på en <b>TextBox</b>, <b>Label</b>
eller <b>PictureBox</b></p>
<p><span lang=SV-FI>Detta kan testas genom att ställa in <b>LinkTopic </b>till
<b>Form1</b> och <b>LinkMode</b> till <b>Source</b> för formen. </span></p>
<p><span lang=SV-FI>Starta ditt VB program och klicka på dess CommandButton</span></p>
<p><span lang=SV-FI>Hoppa sedan till Excel och skriv in följande formel i en cell,
men inte i <b>A1</b>:</span></p>
<p><span lang=SV-FI
style='font-size:12.0pt;font-family:"Courier New"'>=Project1</span><span
lang=SV-FI style='font-size:14.0pt;font-family:"Courier New"'>|</span><span
lang=SV-FI style='font-size:12.0pt;font-family:"Courier New"'>Form1</span><span
lang=SV-FI style='font-size:14.0pt;font-family:"Courier New"'>!</span><span
lang=SV-FI style='font-size:12.0pt;font-family:"Courier New"'>Text1</span></p>
<p><span lang=SV-FI>Skriv in någonting i cell A1. Detta kommer att föras över
med DDE till vårt VB projekt. Sedan kommer vår Excel formel att hämta detta
värde till cellen där den fanns. (En hemsk omväg för datat med det är ju bara
en demonstration)</span></p>
<span lang=SV-FI style='font-size:12.0pt;font-family:
Arial;
'><br
clear=all style='page-break-before:always'>
</span>
<h4><span lang=SV-FI>1.4<span style='font:7.0pt "Times New Roman"'>
</span></span>Nedan kommer en förteckning över DDE topic och item i några vanliga
program:</h4>
<table border=0 cellspacing=0 cellpadding=0>
<tr>
<td width=674 colspan=4 valign=top class="Normal">
<p><span lang=EN-US style='font-size:14.0pt;'>Microsoft Access</span></p>
</td>
</tr>
<tr>
<td width=102 valign=top class="Normal">
<p><span lang=EN-US>Application</span></p>
</td>
<td width=217 valign=top class="Normal">
<p><span lang=SV-FI>Topic</span></p>
</td>
<td width=85 valign=top class="Normal">
<p><span lang=SV-FI>Item</span></p>
</td>
<td width=269 valign=top class="Normal">
<p><span lang=SV-FI>Förklaring</span></p>
</td>
</tr>
<tr>
<td width=102 valign=top class="Normal">
<p><a name="OLE_LINK1"><span lang=SV-FI>MSAccess</span></a></p>
</td>
<td width=217 valign=top class="Normal">
<p><span lang=SV-FI>System</span></p>
</td>
<td width=85 valign=top class="Normal">
<p><span lang=SV-FI>SysItems</span></p>
</td>
<td width=269 valign=top class="Normal">
<p><span lang=SV-FI>Lista över items som finns i System topic</span></p>
</td>
</tr>
<tr>
<td width=102 valign=top class="Normal"> </td>
<td width=217 valign=top class="Normal"> </td>
<td width=85 valign=top class="Normal">
<p><span lang=SV-FI>Formats</span></p>
</td>
<td width=269 valign=top class="Normal">
<p><span lang=SV-FI>Klippbords format </span></p>
</td>
</tr>
<tr>
<td width=102 valign=top class="Normal"> </td>
<td width=217 valign=top class="Normal"> </td>
<td width=85 valign=top class="Normal">
<p><span lang=EN-US>Status</span></p>
</td>
<td width=269 valign=top class="Normal">
<p><span lang=EN-US>”Busy” eller ”Ready”</span></p>
</td>
</tr>
<tr>
<td width=102 valign=top class="Normal"> </td>
<td width=217 valign=top class="Normal"> </td>
<td width=85 valign=top class="Normal">
<p><span lang=SV-FI>Topics</span></p>
</td>
<td width=269 valign=top class="Normal">
<p><span lang=SV-FI>Alla öppna databaser</span></p>
</td>
</tr>
<tr>
<td width=102 valign=top class="Normal"> </td>
<td width=217 rowspan=4 valign=top class="Normal">
<p><i><span lang=SV-FI>Databas</span></i></p>
<p class=MsoBodyText2><span lang=SV-FI style='font-weight:normal'>(Namnet
på en databas. </span></p>
<p><span lang=SV-FI>T.ex. northwind om filen heter Northwind.mdb)</span></p>
</td>
<td width=85 valign=top class="Normal">
<p><span lang=SV-FI>TableList </span></p>
</td>
<td width=269 valign=top class="Normal">
<p><span lang=SV-FI>Lista över tabeller i databasen</span></p>
</td>
</tr>
<tr>
<td width=102 valign=top class="Normal"> </td>
<td width=85 valign=top class="Normal">
<p><span lang=SV-FI>QueryList</span></p>
</td>
<td width=269 valign=top class="Normal">
<p><span lang=SV-FI>Alla Query i databasen</span></p>
</td>
</tr>
<tr>
<td width=102 valign=top class="Normal"> </td>
<td width=85 valign=top class="Normal">
<p><span lang=SV-FI>FormList</span></p>
</td>
<td width=269 valign=top class="Normal">
<p><span lang=SV-FI>Alla formar</span></p>
</td>
</tr>
<tr>
<td width=102 valign=top class="Normal"> </td>
<td width=85 valign=top class="Normal">
<p><span lang=SV-FI>ReportList</span></p>
</td>
<td width=269 valign=top class="Normal">
<p><span lang=SV-FI>Rapporter</span></p>
</td>
</tr>
<tr>
<td width=102 valign=top class="Normal"> </td>
<td width=217 valign=top class="Normal"> </td>
<td width=85 valign=top class="Normal">
<p><span lang=SV-FI>MacroList</span></p>
</td>
<td width=269 valign=top class="Normal">
<p><span lang=SV-FI>Makron</span></p>
</td>
</tr>
<tr>
<td width=102 valign=top class="Normal"> </td>
<td width=217 valign=top class="Normal"> </td>
<td width=85 valign=top class="Normal">
<p><span lang=SV-FI>ModuleList</span></p>
</td>
<td width=269 valign=top class="Normal">
<p><span lang=SV-FI>Moduler</span></p>
</td>
</tr>
<tr>
<td width=102 valign=top class="Normal"> </td>
<td width=217 rowspan=7 valign=top class="Normal">
<p><i><span lang=SV-FI>databas</span></i><span
lang=SV-FI>; TABLE <i>tabellnamn</i></span></p>
<p><i><span lang=EN-US>databas</span></i><span lang=EN-US>; QUERY <i>query</i></span></p>
<p><i><span lang=EN-US>databas</span></i><span lang=EN-US>; SQL <i>SELECT
* FROM...</i></span></p>
<p><span lang=EN-US>T.ex. </span></p>
<p><span lang=EN-US>mindb; TABLE minTabell</span></p>
</td>
<td width=85 valign=top class="Normal">
<p><span lang=SV-FI>All</span></p>
</td>
<td width=269 valign=top class="Normal">
<p><span lang=SV-FI>Allt data i tabellen inklusive fälltnamn</span></p>
</td>
</tr>
<tr>
<td width=102 valign=top class="Normal"> </td>
<td width=85 valign=top class="Normal">
<p><span lang=SV-FI>Data</span></p>
</td>
<td width=269 valign=top class="Normal">
<p><span lang=SV-FI>Posterna, men inte fältnamn</span></p>
</td>
</tr>
<tr>
<td width=102 valign=top class="Normal"> </td>
<td width=85 valign=top class="Normal">
<p><span lang=EN-US>NextRow</span></p>
</td>
<td width=269 valign=top class="Normal">
<p><span lang=EN-US>NästaPost. </span></p>
</td>
</tr>
<tr>
<td width=102 valign=top class="Normal"> </td>
<td width=85 valign=top class="Normal">
<p><span lang=EN-US>PrevRow</span></p>
</td>
<td width=269 valign=top class="Normal">
<p><span lang=SV-FI>Föregående rad</span></p>
</td>
</tr>
<tr>
<td width=102 valign=top class="Normal"> </td>
<td width=85 valign=top class="Normal">
<p><span lang=SV-FI>FirstRow</span></p>
</td>
<td width=269 valign=top class="Normal">
<p><span lang=SV-FI>Första raden</span></p>
</td>
</tr>
<tr>
<td width=102 valign=top class="Normal"> </td>
<td width=85 valign=top class="Normal">
<p><span lang=SV-FI>LastRow</span></p>
</td>
<td width=269 valign=top class="Normal">
<p><span lang=SV-FI>Sista raden</span></p>
</td>
</tr>
<tr>
<td width=102 valign=top class="Normal"> </td>
<td width=85 valign=top class="Normal">
<p><span lang=SV-FI>FieldCount</span></p>
</td>
<td width=269 valign=top class="Normal">
<p><span lang=SV-FI>Antal poster</span></p>
</td>
</tr>
<tr>
<td width=674 colspan=4 valign=top class="Normal">
<p><span lang=SV-FI>För mer info om MS Access som DDE Server se Q89586 i
MSKB </span></p>
<p><span lang=SV-FI>eller sök i Access hjälp efter DDE och sedan Using Microsoft
Access As a DDE Server</span></p>
</td>
</tr>
<tr>
<td width=674 colspan=4 valign=top class="Normal">
<p><span lang=SV-FI>För DDE Execute kan man använda följande:</span></p>
</td>
</tr>
<tr>
<td width=102 valign=top class="Normal">
<p><span lang=EN-US>MSAccess</span></p>
</td>
<td width=217 valign=top class="Normal">
<p><span lang=EN-US>System<i></i></span></p>
</td>
<td width=355 colspan=2 valign=top class="Normal">
<p><span lang=EN-US>[OpenDatabase <i>databas</i>.mdb]</span></p>
<p><span lang=EN-US>[OpenForm <i>Formnamn</i>]</span></p>
<p><span lang=EN-US>[<i>Makronamn</i> <i>parametrar</i>]</span></p>
</td>
</tr>
</table>
<table border=0 cellspacing=0 cellpadding=0>
<tr>
<td width=674 colspan=4 valign=top class="Normal">
<p><span lang=EN-US style='font-size:14.0pt;'>Microsoft Word</span></p>
</td>
</tr>
<tr>
<td width=102 valign=top class="Normal">
<p><span lang=EN-US>Application</span></p>
</td>
<td width=217 valign=top class="Normal">
<p><span lang=SV-FI>Topic</span></p>
</td>
<td width=85 valign=top class="Normal">
<p><span lang=SV-FI>Item</span></p>
</td>
<td width=269 valign=top class="Normal">
<p><span lang=SV-FI>Förklaring</span></p>
</td>
</tr>
<tr>
<td width=102 valign=top class="Normal">
<p><span lang=EN-US>Winword</span></p>
</td>
<td width=217 valign=top class="Normal">
<p><span lang=EN-US>System</span></p>
</td>
<td width=85 valign=top class="Normal">
<p><span lang=EN-US>SysItems</span></p>
</td>
<td width=269 valign=top class="Normal">
<p><span lang=EN-US>System Items</span></p>
</td>
</tr>
<tr>
<td width=102 valign=top class="Normal"> </td>
<td width=217 valign=top class="Normal"> </td>
<td width=85 valign=top class="Normal">
<p><span lang=SV-FI>Formats</span></p>
</td>
<td width=269 valign=top class="Normal">
<p><span lang=SV-FI>Format som Word kan sätta till klippbordet</span></p>
</td>
</tr>
<tr>
<td width=102 valign=top class="Normal"> </td>
<td width=217 valign=top class="Normal"> </td>
<td width=85 valign=top class="Normal">
<p><span lang=SV-FI>Topics</span></p>
</td>
<td width=269 valign=top class="Normal">
<p><span lang=SV-FI>Alla alternativa topics som finns tillgängliga</span></p>
</td>
</tr>
<tr>
<td width=102 valign=top class="Normal"> </td>
<td width=217 valign=top class="Normal">
<p><i><span lang=SV-FI>document</span></i></p>
<p class=MsoBodyText2><span lang=SV-FI style='font-weight:normal'>(Namnet
på ett dokument. </span></p>
<p><span lang=EN-US>T.ex. sales.doc)</span></p>
</td>
<td width=85 valign=top class="Normal">
<p><i><span lang=SV-FI>Bokmärke </span></i></p>
</td>
<td width=269 valign=top class="Normal">
<p><span lang=SV-FI>Ett bokmärke i texten</span></p>
<p><span lang=SV-FI>(markera en text och välj </span></p>
<p><span lang=SV-FI>Insert, Bookmark...</span></p>
<p><span lang=SV-FI>Skriv in ett namn i dialogen)</span></p>
</td>
</tr>
<tr>
<td width=674 colspan=4 valign=top class="Normal">
<p>För mer info om MS Word som DDE Server se Q93657 i MSKB </p>
</td>
</tr>
<tr>
<td width=674 colspan=4 valign=top class="Normal">
<p><span lang=SV-FI>För DDE Execute kan man använda följande:</span></p>
</td>
</tr>
<tr>
<td width=102 valign=top class="Normal">
<p><span lang=EN-US>Winword</span></p>
</td>
<td width=217 valign=top class="Normal">
<p><span lang=EN-US>System<i></i></span></p>
</td>
<td width=355 colspan=2 valign=top class="Normal">
<p>[FileOpen ....]</p>
<p><span lang=SV-FI>(Se Q93657 för mer info)</span></p>
</td>
</tr>
</table>
<table border=0 cellspacing=0 cellpadding=0>
<tr>
<td width=674 colspan=4 valign=top class="Normal">
<p><span lang=EN-US style='font-size:14.0pt;'>Microsoft Excel</span></p>
</td>
</tr>
<tr>
<td width=102 valign=top class="Normal">
<p><span lang=EN-US>Application</span></p>
</td>
<td width=217 valign=top class="Normal">
<p><span lang=SV-FI>Topic</span></p>
</td>
<td width=85 valign=top class="Normal">
<p><span lang=SV-FI>Item</span></p>
</td>
<td width=269 valign=top class="Normal">
<p><span lang=SV-FI>Förklaring</span></p>
</td>
</tr>
<tr>
<td width=102 valign=top class="Normal">
<p><span lang=EN-US>Excel</span></p>
</td>
<td width=217 valign=top class="Normal">
<p><span lang=EN-US>System</span></p>
</td>
<td width=85 valign=top class="Normal">
<p><span lang=EN-US>SysItems</span></p>
</td>
<td width=269 valign=top class="Normal">
<p><span lang=EN-US>System Items</span></p>
</td>
</tr>
<tr>
<td width=102 valign=top class="Normal"> </td>
<td width=217 valign=top class="Normal"> </td>
<td width=85 valign=top class="Normal">
<p><span lang=EN-US>Formats</span></p>
</td>
<td width=269 valign=top class="Normal">
<p><span lang=SV-FI>Format som kan sättas till klippbordet</span></p>
</td>
</tr>
<tr>
<td width=102 valign=top class="Normal"> </td>
<td width=217 valign=top class="Normal"> </td>
<td width=85 valign=top class="Normal">
<p><span lang=SV-FI>Selection</span></p>
</td>
<td width=269 valign=top class="Normal"> </td>
</tr>
<tr>
<td width=102 valign=top class="Normal"> </td>
<td width=217 valign=top class="Normal"> </td>
<td width=85 valign=top class="Normal">
<p><span lang=SV-FI>Topics</span></p>
</td>
<td width=269 valign=top class="Normal">
<p><span lang=SV-FI>Alla alternativa topics som finns tillgängliga</span></p>
</td>
</tr>
<tr>
<td width=102 valign=top class="Normal"> </td>
<td width=217 valign=top class="Normal">
<p><i><span lang=SV-FI>ark</span></i></p>
<p class=MsoBodyText2><span lang=SV-FI style='font-weight:normal'>(Namnet
på ett ark. </span></p>
<p><span lang=EN-US>T.ex. Sheet1)</span></p>
</td>
<td width=85 valign=top class="Normal">
<p><i><span lang=SV-FI>RnCn</span></i></p>
<p><span lang=SV-FI>T.ex </span></p>
<p><span lang=SV-FI>R1C1 </span></p>
<p><span lang=SV-FI>för A1</span></p>
</td>
<td width=269 valign=top class="Normal">
<p><span lang=SV-FI>Rad nummer och kolumnnummer i formen</span></p>
<p><span lang=SV-FI>R1C2 där 1:an är rad och 2:an är kolumn</span></p>
</td>
</tr>
<tr>
<td width=674 colspan=4 valign=top class="Normal"> </td>
</tr>
<tr>
<td width=674 colspan=4 valign=top class="Normal">
<p><span lang=SV-FI>För DDE Execute kan man använda följande:</span></p>
</td>
</tr>
<tr>
<td width=102 valign=top class="Normal">
<p><span lang=SV-FI>Excel</span></p>
</td>
<td width=217 valign=top class="Normal">
<p><span lang=SV-FI>System<i></i></span></p>
</td>
<td width=355 colspan=2 valign=top class="Normal">
<p><span lang=SV-FI>??</span></p>
</td>
</tr>
</table>
<p>Man kan göra en hel del med DDE (om man vill) <br clear=all style='page-break-before:always'>
Prova t.ex. följande i VB :</p>
<div style='border:solid windowtext .5pt;padding:1.0pt 4.0pt 1.0pt 4.0pt'>
<p style='border:none;padding:0cm;'><span lang=EN-US
style='font-family:"Courier New";'>Private Sub Command1_Click()</span></p>
<p style='border:none;padding:0cm;'><span> </span><span lang=SV-FI style='font-family:
"Courier New"'>' Se till att ha igång Access när du kör detta</span></p>
<p style='border:none;padding:0cm;'><span> </span>' byt ut <i>MinDatabas</i>
till namnet på den databas du har igång</p>
<p style='border:none;padding:0cm;'><span> </span>' byt ut <i>ManTabell</i>
till en tabell i din databas</p>
<p style='border:none;padding:0cm;'><span> </span><span
lang=EN-US style='font-family:"Courier New";'>Text1.LinkTopic = "MSAccess</span><span lang=EN-US style='font-size:12.0pt;font-family:"Courier New";'>|</span><i><span lang=EN-US style='font-family:"Courier New";
'>MinDatabas</span></i><span lang=EN-US
style='font-family:"Courier New";'>; TABLE <i>MinTabell</i>"</span></p>
<p style='border:none;padding:0cm;'><span> </span>Text1.LinkItem = "Data"</p>
<p style='border:none;padding:0cm;'><span> </span>Text1.LinkMode = vbLinkManual</p>
<p style='border:none;padding:0cm;'><span> </span>Text1.LinkRequest</p>
<p style='border:none;padding:0cm;'><span lang=SV-FI
style='font-family:"Courier New"'>End Sub</span></p>
</div>
<p><span lang=SV-FI>Du kan även skriva in följande i Excel (för att förtydliga
har jag satt extra mellanslag i formeln):</span></p>
<p><span lang=EN-US>=MSAccess </span><b><span lang=EN-US style='font-size:12.0pt;
'>|</span></b><span
lang=EN-US> </span><b><span lang=EN-US style='font-size:12.0pt;'>' </span></b><i><span
lang=EN-US>MinDatabas</span></i>; TABLE <i>MinTabell </i><b><span
lang=EN-US style='font-size:12.0pt;'>' !</span></b><span lang=EN-US> Data</span></p>
<p><span lang=SV-FI>Skriv in det i en tom cell i början av Excel arket.</span></p>
<p><span lang=SV-FI>Om du får ett värde i cellen så provar du följande:</span></p>
<p><span lang=SV-FI>1.<span
style='font:7.0pt "Times New Roman"'> </span></span><span
lang=SV-FI>Markera upp cellen du skrev in formeln i och ett godtyckligt område
neråt och åt höger sida:</span></p>
<table border=1 cellspacing=0 cellpadding=0>
<tr>
<td width=86 valign=top class="Normal">
<p class=MsoHeader align=right style='text-align:right;'><span
lang=SV-FI>1</span></p>
</td>
<td width=85 valign=top bgcolor="black" class="Normal"> </td>
<td width=104 valign=top bgcolor="black" class="Normal"> </td>
<td width=95 valign=top bgcolor="black" class="Normal"> </td>
</tr>
<tr>
<td width=86 valign=top bgcolor="black" class="Normal"> </td>
<td width=85 valign=top bgcolor="black" class="Normal"> </td>
<td width=104 valign=top bgcolor="black" class="Normal"> </td>
<td width=95 valign=top bgcolor="black" class="Normal"> </td>
</tr>
<tr>
<td width=86 valign=top bgcolor="black" class="Normal">
<p> </p>
</td>
<td width=85 valign=top bgcolor="black" class="Normal"> </td>
<td width=104 valign=top bgcolor="black" class="Normal"> </td>
<td width=95 valign=top bgcolor="black" class="Normal"> </td>
</tr>
</table>
<p class=MsoHeader><span lang=SV-FI>2.<span
style='font:7.0pt "Times New Roman"'> </span></span><span
lang=SV-FI>Tryck på <b>F2</b> för att få fram formeln.</span></p>
<p class=MsoHeader><span lang=SV-FI>3.<span
style='font:7.0pt "Times New Roman"'> </span></span><span
lang=SV-FI>Tryck på <b>Ctrl</b>+<b>Shift</b>+<b>Enter</b></span></p>
<p class=MsoHeader><span lang=SV-FI>4.<span
style='font:7.0pt "Times New Roman"'> </span></span><span
lang=SV-FI>Om det kommer värden i det markerade området kan du prova Klicka på
en cell i området du markerade och tryck på <b>F2</b>. Ändra ordet <b>Data</b>
till <b>All</b>. Bekräfta med <b>Ctrl</b>+<b>Shift</b>+<b>Enter</b></span></p>
<p class=MsoHeader><span lang=SV-FI>5.<span
style='font:7.0pt "Times New Roman"'> </span></span><span
lang=SV-FI>Om du vill veta vad som händer kan du söka i hjälpen efter orden <b>Array
formula...</b></span></p>
<!--#include file="../inc/footer.asp" -->