De database slaat afbeeldingen in binaire vorm , zodat u de afbeeldingen op een webpagina of Windows vorm te geven. De Visual Basic- taal heeft een verbinding syntax die u toelaat om verbinding met de database , aangeven dat de gegevens is een beeld en opslaan in een van de tafels . De afbeelding kan een uit een webpagina of op de lokale harde schijf . Beelden zijn grote objecten , zodat de tafels hebben voldoende ruimte om de binaire bestanden op te slaan . Met voldoende harde schijf ruimte , kunt u een grote afbeelding opslagplaats voor uw Visual Basic 6 applicatie te maken . Instructies
1 Maak een geheugen streamobject en toewijzen aan de afbeelding . Het geheugen stroom leest de binaire data van het beeld en slaat deze op in het geheugen . Deze binaire data wordt daarna overgebracht naar een binaire array. De volgende code maakt het geheugen stroom en slaat de afbeelding : Dim ms
als nieuw MemoryStream ( ) theImage.Save ( ms , theImage.RawFormat ) " theImage "
is de ID van het beeld op uw Visual Basic- formulier . Deze afbeelding element wijst naar een locatie van een afbeelding op de harde schijf . Kopen van 2 Maak de database connectie en SQL query die voegt de afbeelding in de database. De verbinding die u maakt is afhankelijk van de server die u gebruikt . De volgende code stelt de verbinding en creëert de "invoegen " vraag : Dim conn
als Nieuwe SqlConnection ( string_connection ) Dim vraag As String = " insert into Picture_Table ( foto ) waarden ( @ Picture ) " Dim-commando als nieuwe SqlCommand (query , conn )
3 Stel de parameter afbeelding voor de query commando . De volgende code stelt een parameter voor de SQL- code en hecht het beeld : Dim byteArray
() As Byte = ms.GetBuffer ( ) command.Parameters.Add ( New SqlParameter ( " @ Beeld" , SqlDbType . afbeelding ) ) . Value = byteArray
4 Voer de query en sla de afbeelding om de database. Alle parameters zijn ingesteld , maar het beeld is nog niet opgeslagen in de database . De onderstaande code opent de database connectie , voert de SQL- code en slaat de afbeelding om de database tabel : conn.Open
( ) command.ExecuteNonQuery ( ) Conn.Close ( )
< br >
|
