[Visual Basic]
Private Function Get_Layoutfile_from_db( _ 
   ByVal filename As String, _ 
   ByVal GridNo As Integer, _ 
   ByVal Profilnr As Integer _ 
) As Boolean

Parameter

filename

GridNo

Profilnr

Quellcode

[Visual Basic]
        Private Function Get_Layoutfile_from_db(ByVal filename As String, ByVal GridNo As Integer, ByVal Profilnr As Integer) As Boolean 
            'Exit Function 
            Dim connection As New SqlConnection() 
            Dim da As New SqlDataAdapter("Select * From profil where profilnr=" & Str(Profilnr), connection) 
            'mitarbeiternr=" + Str(Globals.clsmitarbeiter.iMitarbeiternr.Value) 
            Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da) 
            Dim ds As New DataSet() 
            Try 
                connection.ConnectionString = Globals.sConnectionString 
                connection.Open() 
                da.Fill(ds, "docs") 
                Dim myRow As DataRow 
                myRow = ds.Tables(0).Rows(0) 
                Dim MyData() As Byte 
                Select Case GridNo 
                    Case 1 
                        MyData = myRow.Item(3) 
 
                End Select 
 
                Dim K As Long 
                K = UBound(MyData) 
                Dim fs As New FileStream(filename, FileMode.OpenOrCreate, FileAccess.Write) 
                fs.Write(MyData, 0, K) 
                fs.Close() 
                fs = Nothing 
                Return True 
            Catch ex As Exception 
                Return False 
            End Try 
            CB = Nothing 
            ds = Nothing 
            da = Nothing 
            connection.Close() 
            connection = Nothing 
            Return True 
        End Function

Forderungen

Plattformen: Windows 98, Windows 2000 SP4, Windows Millennium Edition, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition

Siehe auch

MyDocMgmt