Sådan at gemme et billede til en database med MS Visual Basic 6

May 31

Din database gemmer billeder i binær form, så du kan vise billederne på en webside eller Windows form. Visual Basic sprog har en forbindelse syntaks, der giver dig mulighed for at oprette forbindelse til databasen, skal du angive, at oplysningerne er et billede og gemme det i en af dine tabeller. Billedet kan være en fra en webside eller placeret på den lokale harddisk. Billederne er store objekter, så tabellerne skal have tilstrækkelig plads til at gemme de binære filer. Med nok plads på harddisken, kan du oprette et stort billede opbevaringssted for din Visual Basic 6 ansøgning.

Instruktioner

• Opret en hukommelse stream objekt og tildele den til billedet. Hukommelsen stream læser de binære data fra billedet og gemmer det i hukommelsen. Denne binære data senere overført til en binær array. Følgende kode opretter hukommelsen stream og gemmer billedet: Dim ms Som ny MemoryStream () theImage.Save (ms, theImage.RawFormat) "theImage" er ID af billedet er placeret på din Visual Basic form. Dette billede element peger på en placering af et billede på harddisken.

• Opret forbindelsen til databasen og SQL forespørgsel, der indsætter billedet i databasen. Den forbindelse, du skaber, er afhængig af den server, du bruger. Følgende kode opretter forbindelsen og skaber "Indsæt" query: Dim con Som New SqlConnection (string_connection) Dim forespørgsel As String = "indsætte i Picture_Table (billedet) værdier (Picture)" Dim kommando som New SqlCommand (forespørgsel, con )

• Indstil billedet parameter for forespørgslen kommando. Følgende kode opretter et parameter for SQL-kode og vedhæfter billedet: Dim byte Array () Som Byte = ms.GetBuffer () command.Parameters.Add (New SqlParameter ("@ Picture", SqlDbType.Image)) Værdi. = byte Array

4. Udfør forespørgslen og gemme billedet i databasen. Alle parametre er sat op, men billedet er stadig ikke gemmes i databasen. Koden nedenfor åbner databasen forbindelse eksekverer SQL-kode og gemmer billedet til databasen tabel: conn.Open () command.ExecuteNonQuery () conn.Close ()