Hari ke 68 PI

Maih mempelajari namun sudah masuk dalam Source Code . . .

Form unutk mengetes . . .


Private Sub Command_Click(Index As Integer)

Select Case Index
Case 0 ' foto

 'If Not rs.EOF Then
CommonDialog1.Filter = "All Picture files|*.bmp;*.jpg;*.gif;*.dib*|JPEG Images|*.jpg|Bitmaps|*.bmp|All Files|*.*"
        CommonDialog1.ShowOpen
        Text1.Text = CommonDialog1.FileName
        Image1.Picture = LoadPicture(Text1.Text)
      ' End If
Case 1 ' Simpan

          
            Set rs = ConnAPP.Execute("SELECT * FROM Test WHERE Kde_Test = '" & Text1.Text & "'")
             rs.Close
                Set rs = ConnAPP.Execute("insert into Test(Kde_test,foto)values('" & Text1 & "','" & Image1 & "')")
                MsgBox "Berhasil Disimpan", vbInformation + vbOKOnly, "Simpan"
                SavePicture Me.Image1.Picture, App.Path & "\Foto\" & Image1.Picture
Call bersih
Case 2 ' batal
Call bersih
Case 3 ' keluar
Unload Me
End Select
End Sub
Private Sub bersih()
  
    Text1.Text = ""
  
    Image1.Picture = LoadPicture("")
End Sub

Hari ke 67 PI

Hari ini saya mempelajari tentang Type Data Image dalam MySQL Server

♫ fяèéςk™: Panic! at the Disco – Vices and Virtues (2011) album download

♫ fяèéςk™: Panic! at the Disco – Vices and Virtues (2011) album download

Hari ke 66 PI

Dapat mengkoreksi gambar dalam ListView yang sebelumnya Debug

Hari ke 65 PI

Hari ini saya menambahkan Jam dan tulisan bergerak dalam Form pertama saya

Hari ke 64 PI

Saya menambahkan script untuk menampilkan gambar


CommonDialog1.Filter = "All Picture files|*.bmp;*.jpg;*.gif;*.dib*|JPEG Images|*.jpg|Bitmaps|*.bmp|All Files|*.*"
        CommonDialog1.ShowOpen
        Text(7).Text = CommonDialog1.FileName
        Image1.Picture = LoadPicture(Text(7).Text)

Hari Ke 63 PI

Hari ini saya mempelajari Funsi Like dalam MySQL. . .