Din database gemmer billeder i binær form , så du kan vise billederne på en webside eller Windows formular. 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 genstande , så tabellerne brug for tilstrækkelig plads til at gemme binære filer. Med lidt harddiskplads , kan du oprette et stort billede opbevaringssted for din Visual Basic 6 ansøgning. Instruktioner
1
Opret et memory 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 : Hej
Dim ms Som ny MemoryStream () theImage.Save (ms , theImage.RawFormat )
" theImage " er ID af billedet placeret på din Visual Basic formular. Dette billede element peger på en placering af et billede på harddisken.
2
Opret forbindelsen til databasen og SQL forespørgsel, der indsætter billedet i databasen. Forbindelsen du opretter er afhængig af den server, du bruger . Følgende kode opretter forbindelsen og skaber "indsættes " query : Hej
Dim conn som ny SqlConnection ( string_connection ) Dim query As String = " insert into Picture_Table ( billedet) værdier ( @ Picture )" Dim kommando som New SqlCommand (forespørgsel , forbind )
3
Indstil billedet parameter for forespørgslen kommando. Følgende kode opretter et parameter for SQL-kode , og lægger billedet : Hej
Dim byteArray () Som Byte = ms.GetBuffer () command.Parameters.Add (New SqlParameter ( " @ Picture " SqlDbType . image) ) . Value = byteArray
4
Udfør forespørgslen og gemme billedet til databasen. Alle parametre er sat op , men billedet er stadig ikke gemmes i databasen. Koden nedenfor åbner forbindelsen til databasen , udfører SQL-kode og gemmer billedet til database tabel : Hej
conn.Open () command.ExecuteNonQuery () conn.Close ()
< br >