Acces e Resim Yükleme

Dim cn As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim DataFile As Integer, Fl As Long, Chunks As Integer
Dim Fragment As Integer, Chunk() As Byte, i As Integer, FileName As String
Const ChunkSize As Integer = 16384
Const conChunkSize = 100



------------Vb de access e resim ekleme  ----------------------

formunuza bir adet command button adını (cmdSave) olarak belirleyin.
strFileNm adlı değişkenede resim dosyanız neredeyse onu atayın gerisini fonsiyona 've programa bırakın
bağlantı sürekli açık olduğundan her tıkladığınızda ekleme gerçekleşecektir.
Private Sub cmdSave_Click()
rs.AddNew

SavePicture

rs.Update

end sub
private sub SavePicture()

Dim strFileNm as string
DataFile = 1
Open strFileNm For Binary Access Read As DataFile
Fl = LOF(DataFile) ' Length of data in file
If Fl = 0 Then Close DataFile: Exit Sub
Chunks = Fl \ ChunkSize
Fragment = Fl Mod ChunkSize
ReDim Chunk(Fragment)
Get DataFile, , Chunk()
rs!logo.AppendChunk Chunk()
ReDim Chunk(ChunkSize)
For i = 1 To Chunks
Get DataFile, , Chunk()
rs!logo.AppendChunk Chunk()
Next i
Close DataFile
end sub

kacan buton


Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i
if Command1.Top = 600 Then
For i = 600 To form1.Height - 2 * Command1.Height Step 3
Command1.Top = i
Next i

Else
For i = form1.Height - 2 * Command1.Height To 600 Step -3
Command1.Top = i
Next i

End if
End Sub

Categories: Visual Basic