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
Posting Lebih Baru Posting Lama