vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Blitzschnelles Erstellen von grafischen Diagrammen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Fortgeschrittene
Re: Parameterübergabe für Scripte 
Autor: Gudi
Datum: 29.11.04 09:18

Sorry, aber etwas Funtzt nicht, hier mein gesamter Code, wäre toll wenn du mein Fehler findest.

Ralf

Sub Scripte_Holen()
Dim strSQL As String
Dim Script100, Script200, Script300
Try
Me.SqlConnection1.Open()


strSQL = "SELECT * FROM Scripte_Hinterlegt WHERE Button = 'Button1'"
Dim dbCommand As New SqlClient.SqlCommand(strSQL, Me.SqlConnection1)
Dim dbReader As SqlClient.SqlDataReader = dbCommand.ExecuteReader(CommandBehavior.CloseConnection)
If dbReader.Read Then
Script100 = System.Convert.ToString(dbReader.GetValue(dbReader.GetOrdinal("ScriptID")))
End If
dbReader.Close()
Me.SqlConnection1.Close()
Catch test As Exception
MsgBox(test.Message)
Exit Sub
End Try

Me.SqlConnection1.Open()

strSQL = "SELECT * FROM Scripte WHERE ID = '" & Script100 & "'"
Dim dbCommand1 As New SqlClient.SqlCommand(strSQL, Me.SqlConnection1)
Dim dbReader1 As SqlClient.SqlDataReader = dbCommand1.ExecuteReader(CommandBehavior.CloseConnection)
If dbReader1.Read Then
Script200 = (dbReader1.GetValue(dbReader1.GetOrdinal("ScriptDatei")))
Script300 = System.Convert.ToString(dbReader1.GetValue(dbReader1.GetOrdinal("Script")))
End If
dbReader1.Close()
Me.SqlConnection1.Close()
If Script300 = "" Then
Exit Sub
End If
Dim ofILE As System.IO.File
ofILE.Create(Script300).Close()

Dim array As System.Array = Script200
Dim abyte As Byte()
abyte = Script200


Dim script, ÜberScript As String

Dim proc As System.Diagnostics.Process
Dim si As New System.Diagnostics.ProcessStartInfo

Dim fs As System.IO.FileStream = ofILE.OpenWrite(Script300)
fs.Write(abyte, 0, abyte.Length)
fs.Close()
script = Script300

ÜberScript = _TextBoxVorname.Text & _
" " & _TextBoxNachname.Text & _
" " & _TextBoxTelefon.Text

si.Arguments = script & " " & ÜberScript & ""
si.FileName = script
si.WindowStyle = ProcessWindowStyle.Normal
proc = Process.Start(si)


'Process.Start(script)

End Sub

sch?n wenn man sich helfen kann

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Parameterübergabe für Scripte725Gudi29.11.04 07:05
Re: Parameterübergabe für Scripte441WaldiMaywood29.11.04 08:43
Re: Parameterübergabe für Scripte470Gudi29.11.04 08:47
Re: Parameterübergabe für Scripte429WaldiMaywood29.11.04 08:50
Re: Parameterübergabe für Scripte450Gudi29.11.04 09:18
Re: Parameterübergabe für Scripte455WaldiMaywood29.11.04 09:57

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel