Desember 2020

cara membuat combobox di vb.net tidak ditulis

 pada properties : 

dropdownstyle 

pilih DropDownList 



cara copy lagu / music MP3 ke Amazfiz GTS 2

cara copy lagu / music MP3 ke Amazfiz GTS 2

1.  Jalankan aplikasi ZEPP di android 

2. Klik Profil

3. Amazfit GTS 2

4. Music

5. Unggah Music

6. pilih folder tempat mp3

7. pilih mp3 yang akan di kirim

8. klik unggah

9. tunggu proses sampai unggah selesai

10. selesai

isNull in vb.net 2019

isNull di vb.net silahkan menggunakan

 IsDBNull()



list data pada sqLite

     Public Sub NilMahasiswa()

        Dim sqlite_conn As SQLiteConnection

        sqlite_conn = New SQLiteConnection("Data Source=D:\sqlite\jajal.db;Version=3;New=True;Compress=True;")


        ' open the connection:

        sqlite_conn.Open()

        Using cmd As New SQLiteCommand(sqlite_conn)

            cmd.CommandText = "SELECT npm,nama,uts,uas,total,nilai,prosen,tanggalEntryNilai FROM krs011 where npm='" & npm.Text & "' and kode_kul='" & downloadMATAKULIAH.kode_kul.Text & "' and kelas='" & downloadMATAKULIAH.kelas.Text & "';"

            Dim rdrMataKuliah As SQLiteDataReader = cmd.ExecuteReader()

            Using rdrMataKuliah

                While (rdrMataKuliah.Read())

                    npm.Text = rdrMataKuliah.GetString(0)

                    nama.Text = rdrMataKuliah.GetString(1)

                    presensi.Text = rdrMataKuliah.GetValue(6)

                    uts.Text = Replace(rdrMataKuliah.GetValue(2), ",", ".")

                    uas.Text = Replace(rdrMataKuliah.GetValue(3), ",", ".")

                    nilai.Text = rdrMataKuliah.GetString(5)

                    total.Text = Replace(rdrMataKuliah.GetValue(4), ",", ".")



                    If Trim(rdrMataKuliah.GetValue(7).ToString) = "" Then

                        terakhirDiUpdate.Text = "NULL"

                    Else

                        terakhirDiUpdate.Text = "Tanggal Update Terakhir : " & Replace(rdrMataKuliah.GetDateTime(7), ",", ".")

                    End If


                End While

            End Using

        End Using


    End Sub

memeriksa suatu record pada field yang bernilai KOSONG di VB.NET 2019

vNilaiField=Trim(rdrMataKuliah.GetValue(7).ToString) 

maka nilai dari variabel vNilaiField adalah kosong

Postingan Lebih Baru Postingan Lama