PDA

Vollständige Version anzeigen : WSH und HTML verknüpfen


germy
11.08.2006, 09:06
Hi ich bin ein neuling in WSH und VBscript. Ich möchte gerne eine Datenbank mit WSH öffnen und dann Suchabfragen durchführen. Mein Problem bei der ganzen Sache ist das ich das über eine HTML Seite ausführen möchte!

Nachdem ich mich schon etwas eingelesen hab, funktioniert der datenzugriff ja nicht über VBscript aber über WSH schon. Wie kann ich nun die WSH in HTML einbinden?

Hier mal mein wsh script:

WScript.Echo "Start ....."
Dim oIE
Dim path
Dim Such, Auf, Ag, Splittnr , Tex

Set DBConnection = WScript.CreateObject("ADODB.Connection")
DBConnection.OPEN("DSN=cronet_prod;uid=cronet;pwd=cronet")
SQL="select * from ARBEITSPLAETZE"
Set RS = DBConnection.Execute(SQL)

path = WScript.ScriptFullName
path = Left(path, InStrRev(path, "\"))

'Internetexplorer ausführen
Set oIE = WScript.CreateObject("InternetExplorer.Application")
oIE.Left=50 ' window position
oIE.top = 180 ' and other properties
oIE.height = 240
oIE.menubar = 0 ' no menu
oIE.toolbar = 0
oIE.statusbar = 0
' commented out, because it causes a corrupted window
' oIE.resizable = 0 ' disable resizing
oIE.navigate path + "Ring.html" ' Form
oIE.visible = 1 ' keep visible

' Important: wait till MSIE is ready
Do While (oIE.Busy)
Loop

On Error Resume Next
Do ' Wait till OK button is clicked
Loop While (oIE.document.script.CheckVal()=0)

Such = oIE.Document.ValidForm.Suchen.Checked
Auf = oIE.Document.ValidForm.Checked.AufNR.Checked
Ag = oIE.Document.ValidForm.Checked.AG.Checked
Splittnr = oIE.Document.ValidForm.Checked.SplittNR.Checked
Tex = oIE.Document.ValidForm.Write.Text
'oIE.Quit()
'Set oIE = Nothing
RS.MoveFirst
Do While Not RS.EOF
'WScript.Echo RS("APNR") & RS("BEZEICH")

ind = ind +1
If ind > 3 then
exit Do
End If
RS.Movenext
Loop



So das öffnen meiner HTML Seite funktioniert ja aber wie stell ich es an dass es mir den Datenbankinhalt darin anzeigt? hat jemand eine Idee?

Hier mein HtmlCode:




<html>

<head>
<meta **********="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<title>Ringdaten</title>
</head>
<body bgcolor="#C0C0C0">
<script language="VBScript">

Dim ready
Public TheForm

Sub window_onload()
' Here we may initialize the form
Set TheForm = Document.ValidForm
ready = 0 ' User input not ready
End Sub



'-->
</script>

<!--
<SCRIPT FOR="Suchen" EVENT="onClick" LANGUAGE="VBScript">

MsgBox "da gehts"
'das war ein Versuch ob ich irgendwas einlesen kann
Dim MeinFileSystemObject, MeineDatei, ersteZeile

Set MeinFileSystemObject = CreateObject("Scripting.FileSystemObject")

Set MeineDatei = MeinFileSystemObject.OpenTextFile("I:\Germana\Datenquelle.TXT", 1)

ersteZeile=MeineDatei.ReadLine

MeineDatei.Close

Set MeinFileSystemObject = Nothing

MsgBox ersteZeile

'-->
</script>




<h3><font color="#000000" face="Comic Sans MS"><big><strong><u>Lohn- und Gehaltsberechnung</u></strong></big></font></h3>

<hr><form action="input_text.htm">
<table border="0">
<tr>
<td><p>Auftragsnummer<br><input name="AufNR" type="text" size="30" maxlength="30"></p></td>
<td><p> AG<br><input name="SAG" type="text" size="30" maxlength="40"></p></td>
<td><p> Splitt-Nummer<br><input name="SplittNR" type="text" size="30" maxlength="40"></p></td>
<form action="input_button.htm">
<td><p><br><input type="button" name="Suchen" value="Datensätze abfragen [s]"size="30" accesskey="s"
</p></td>
</table>




<table border="1">


<tr>
<td><textarea cols="20" rows="1" name="textfeld"></textarea></td>
<td><textarea cols="20" rows="1" name="textfeld"></textarea></td>
<td><textarea cols="20" rows="1" name="textfeld"></textarea></td>
<td><textarea cols="20" rows="1" name="textfeld"></textarea></td>
<td><textarea cols="20" rows="1" name="textfeld"></textarea></td>
</tr>
<tr>
<td>Miljöh</td>
<td>Kiez</td>
<td>Bierdampf</td>
<td>asdfa</td>
<td>sdfa</td>
</tr>
<tr>
<td>Buletten</td>
<td>Frikadellen</td>
<td>Fleischpflanzerl</td>
<td>daf</td>
<td>dfasf</td>
</tr>

</table>

<textarea cols="100" rows="20" name="text"></textarea>
<TABLE align=center COLSPAN=8 CELLPADDING=5 BORDER=0 WIDTH=200>
<!-- BEGIN column header row -->
<TR>
<TD VALIGN=TOP BGCOLOR="#800000">
<FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1>
Title ID</FONT>
</TD>
<TD ALIGN=CENTER BGCOLOR="#800000">
<FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1>
Title</FONT>
</TD>
</TR>
<!-- Get Data -->
</TABLE>



</body>
</html>

mirc
17.11.2006, 12:23
nach meinen Erfahrungen ist es nicht möglich den WSH in HTML einzubinden
wenn du die seiten als .ASP seiten machst dann wäre es schon eher möglich
frag mich aber nicht wie das get
ht

adix
28.02.2008, 19:11
ich denke die Lösung ist die Erstellung einer HTA - Datei.
Dann erfolgt alles in einer Datei .. und man kann flexiebel die Ausgabe steuern.

anbei eine Übersicht / Einführung in HTA { LINK } (http://msdn2.microsoft.com/en-us/library/ms536496(VS.85).aspx)


anbei das HTA Developers Center { LINK } (http://www.microsoft.com/technet/scriptcenter/hubs/htas.mspx)