Gewusst wie: Speichern Sie ein Bild in einer Datenbank mit MS Visual Basic 6

Die Datenbank speichert Bilder in binärer Form, so dass Sie die Bilder auf eine Webseite oder ein Windows-Formular anzeigen können. Visual Basic-Sprache hat eine Verbindungssyntax, mit der Sie mit der Datenbank verbinden und angeben, dass die Informationen ein Bild in einer der Tabellen speichern. Das Bild kann eine von einer Webseite oder auf der lokalen Festplatte. Bilder sind große Objekte, die Tabellen müssen genügend Speicherplatz zum Speichern von Binärdateien. Mit genügend Festplattenspeicher können Sie ein großes Bild-Repository für die Visual Basic 6-Anwendung erstellen.

Anweisungen

1 Erstellen Sie eine Speicher-Stream-Objekt, und weisen sie auf das Bild. Der Arbeitsspeicherstream liest Binärdaten aus dem Bild und im Speicher ablegt. Diese binären Daten werden später auf ein binäres Array übertragen. Der folgende Code erstellt den Arbeitsspeicherstream und speichert das Bild:

Dim ms als neue MemoryStream()theImage.Save (ms, theImage.RawFormat)

"TheImage" ist die ID des Bildes befindet sich in Ihrem Visual Basic-Formular. Dieses Bildelement verweist auf einen Speicherort auf der Festplatte eines Bildes.

2 Erstellen Sie die Verbindung zur Datenbank und SQL-Abfrage, die das Bild in die Datenbank einfügt. Die Verbindung, die Sie erstellen ist abhängig vom Server, die, den Sie verwenden. Der folgende Code baut die Verbindung und die "Einfügen"-Abfrage erstellt:

Dim Conn als neue SqlConnection(string_connection)Dim Abfrage As String = "insert into Picture_Table (Bild) Values (@Picture)"Dim cmd als neue SqlCommand(query, conn)

3 Richten Sie den Bildparameter für den Abfragebefehl. Der folgende Code stellt einen Parameter für den SQL-Code und fügt das Bild:

Dim byteArray() As Byte = ms. GetBuffer()Befehl. Value (neuen SqlParameter ("@Picture", SqlDbType.Image)); Wert = ByteArray

4 Führen Sie die Abfrage und speichern Sie das Bild in der Datenbank. Alle Parameter sind eingerichtet, aber das Bild ist noch nicht in der Datenbank gespeichert. Der folgende Code öffnet die Datenbankverbindung, führt den SQL-Code und speichert das Bild in der Datenbanktabelle:

Conn. Open()Befehl. ExecuteNonQuery()Conn. Close()