Visual-Basic-Forum VB-Paradise.de

Visual Basic Quellcode

Public Function bildanzeigen(ByVal strfile As String) As Image 
Dim fs As FileStream = New FileStream(strfile, FileMode.Open) 
Try 
myfilelength = fs.LengthReDim Puffer(myfilelength - 1) 
fs.Read(Puffer, 0, myfilelength)Dim b As Bitmap = New Bitmap(New MemoryStream(Puffer)) 
Return bCatch ex As Exception 
Finally 
fs.Close() 
End Try 
End Function

Visual Basic Quellcode

 Public Function bildspeichern(ByVal ID As Int32) As Image 
cmd.CommandText = "INSERT INTO Test" & _" (FN1, FN2, FN3, FN4, FN5)" & _" VALUES (@ai,@nu,@dn,@length,@bild)" 


Try 
Dim insertcmd As New OleDbCommand(cmd.CommandText, con) 
insertcmd.Parameters.Add( _ 
"@ai", OleDbType.Char).Value = "A" 
insertcmd.Parameters.Add( _ 
"@nu", OleDbType.Char).Value = "100" 
insertcmd.Parameters.Add( _"@dn", OleDbType.Char).Value = Bilddatei 
insertcmd.Parameters.Add( _"@length", OleDbType.Integer).Value = Puffer.Length 
insertcmd.Parameters.Add( _"@bild", OleDbType.Binary).Value = Puffer 

con.Open() 
insertcmd.ExecuteNonQuery() 
Catch ex As Exception 
MessageBox.Show(ex.Message.ToString) 
Finally 
con.Close() 
End Try 
End Function

Visual Basic Quellcode

Public Function Bild_Wiederherstellen(ByVal AIndex As String, ByVal BIndex As String, ByVal DTab As String) As Image 

Try 
If BIndex = "" Then cmd.CommandText = "Select * from " & DTab & " where FN1 like '" & AIndex & "'"If BIndex <> "" Then cmd.CommandText = "Select * from " & DTab & " where FN1 like '" & AIndex & "'" _ 
& "and FN2 like '" & BIndex & "'" 
con.Close() 
con.Open() 
reader = cmd.ExecuteReaderDo While reader.Read 
DLES(1) = reader("FN1") 
DLES(2) = reader("FN2") 
DLES(3) = reader("FN3") 
Lang = reader("FN4") 
Repuffer = reader("FN5") 

Loop 
con.Close()Dim Ausgabedatei As String = DLES(3) 

Catch ex As Exception 
MsgBox(ex.Message) 
End Try 
End Function

Visual Basic Quellcode

Imports System.Data 
Imports System.Data.OleDbImports System.IO 

Public Class Binr 

Inherits System.Windows.Forms.Form 
Private Puffer() As Byte 
Dim strfrile As StringDim myfilelength As Int64 
Dim Lang As Int64 
Dim Repuffer() As BytePublic 

Sub Dateiquelle_Einlesen(ByVal QuellDatei As String) 

Using br As New System.IO.BinaryReader(New System.IO.FileStream(QuellDatei, IO.FileMode.Open)) 
Puffer = br.ReadBytes(br.BaseStream.Length) 
br.Close() 
End Using 

End Sub 
Public Sub Dateiquelle_BinrSpeichern(ByVal Dtab As String) 

cmd.CommandText = "INSERT INTO " & Dtab & _ 
" (FN01, FN02, FN03, FN04, FN05)" & _ 
" VALUES (@ai,@nu,@dn,@length,@bild)" 

Try 
Dim insertcmd As New OleDbCommand(cmd.CommandText, con) 
insertcmd.Parameters.Add( _ 
"@ai", OleDbType.Char).Value = "A" 
insertcmd.Parameters.Add( _ 
"@nu", OleDbType.Char).Value = "100" 
insertcmd.Parameters.Add( _"@dn", OleDbType.Char).Value = Bilddatei 
insertcmd.Parameters.Add( _"@length", OleDbType.Integer).Value = Puffer.Length 
insertcmd.Parameters.Add( _"@bild", OleDbType.Binary).Value = Puffer 

con.Open() 
insertcmd.ExecuteNonQuery() 
Catch ex As Exception 
MessageBox.Show(ex.Message.ToString) 
Finally 
con.Close() 
End Try 
End Sub 

Public Sub DateiBinr_Wiederherstellen(ByVal AIndex As String, ByVal BIndex As String, ByVal DTab As String) 

Try 
If BIndex = "" Then cmd.CommandText = "Select * from " & DTab & " where FN01 like '" & AIndex & "'"If BIndex <> "" Then cmd.CommandText = "Select * from " & DTab & " where FN01 like '" & AIndex & "'" _ 
& "and FN02 like '" & BIndex & "'" 
con.Close() 
con.Open() 
reader = cmd.ExecuteReaderDo While reader.Read 
DLES(1) = reader("FN01") 
DLES(2) = reader("FN02") 
DLES(3) = reader("FN03") 
Lang = reader("FN04") 
Repuffer = reader("FN05") 

Loop 
con.Close() 
Dim datinhalt As String = Convert.ToBase64String(Repuffer)My.Computer.FileSystem.WriteAllText(ZielDatei, datinhalt, True) 
Catch ex As Exception 
MsgBox(ex.Message) 
End Try 
End Sub 


End Class