Kenaekan BBM

Beuuhhh….BBM mo naek lagih, mungkin sebagian orang setuju ama naeknya bbm tapi ada juga sebagian orang yang kagak setuju ama kebujakan pemerintah SBY inih, ahh kgak tau deh kalo gw, musti setuju ato nolak, soalnya gw nga faham masalah ini, cuman kalo gw liad dari sudut pandang gw seh bbm emang wajar naek, harga pasaran minyak dunia kan naek juga, jadi kalo misalnya bbm kagak dinaekin nah ntarnya beban subsisdi bbm bakalan banyak ngebebanin APBN bisa2 negara yang kita cintai ini bankrut deh, tapi kalo diliat lageh dari sudut yang lain, gw ngerasa prihatin banget ma keadaan negara kite ini, yah tapi apa daya gw cuman bisa ikot prihatin doang kagak bisa ngpa2in, k.

Kalo lah bbm jadi naek ntar malem yang katanya seh sekitar 30 ampe 50 persen bahkan bisa lebih, wah dah kebayang deh apa ajah yang bakalan terjadi, harga2 buat bahan yang kite2 makan bakaln naek, trus ongkos bakalan naek juga n sebagainya sebagainya.

kalo orang yang banyak duid seh kagak jadi masalah kale mau harga naek dikid kek mau naek banyak kek kagak bakalan ngaruh, tapi kalo orang2 yang ngedapetin duid ceban aje musti keluar keringet segede2 pasir ya kayak gw lah contonye, kenaekan2 harga berasa banget, pasti dah pengeluaran sebulan2nya juga bertambeh.

Ya Tuhan.. mudah2an dari semua ini ada hikmahnya, mudah mudahan Alloh memberikan petunjuk jalan yang bener deh ma para penguasa du muka bumi indonesia raya inih

Penggalan Karya Khalil Gibran

??pabila cinta memanggilmu? ikutilah dia walau jalannya berliku-liku? Dan, pabila sayapnya merangkummu? pasrahlah serta menyerah, walau pedang tersembunyi di sela sayap itu melukaimu??

??kuhancurkan tulang-tulangku, tetapi aku tidak membuangnya sampai aku mendengar suara cinta memanggilku dan melihat jiwaku siap untuk berpetualang?

?Tubuh mempunyai keinginan yang tidak kita ketahui. Mereka dipisahkan karena alasan duniawi dan dipisahkan di ujung bumi. Namun jiwa tetap ada di tangan cinta? terus hidup? sampai kematian datang dan menyeret mereka kepada Tuhan??

?Jangan menangis, Kekasihku? Janganlah menangis dan berbahagialah, karena kita diikat bersama dalam cinta. Hanya dengan cinta yang indah? kita dapat bertahan terhadap derita kemiskinan, pahitnya kesedihan, dan duka perpisahan?

?Aku ingin mencintaimu dengan sederhana? seperti kata yang tak sempat diucapkan kayu kepada api yang menjadikannya abu? Aku ingin mencintaimu dengan sederhana? seperti isyarat yang tak sempat dikirimkan awan kepada hujan yang menjadikannya tiada??

?Jika cinta tidak dapat mengembalikan engkau kepadaku dalam kehidupan ini? pastilah cinta akan menyatukan kita dalam kehidupan yang akan datang?

Penambahan Tabel

-Histori Mahasiswa :
->Npm -> varchar(20)
->tanggal-> datetime
->ket-> varchar(200)

-Histori Dosen :
->kodeDsn -> varchar(20)
->tanggal-> datetime
->ket-> varchar(200)

-Perbaikan form status mahasiswa untuk tanggal lulus
-penambahan toolbar

Siang – siang nguantuk berad

Wahh gila siang ini perasaan berad banget dah mata gw…rasanya ada yg narik-narik nih kelopak mata gw buat ditutup, akhirnya tanpa adanya perlawanan yang tangguh gw tertidur dah diatas meja kerja gw…

Eeee…pas lagih enak2 nya gw terlelap terbawa di alam yang di hiasi permata-permata impian, ko serasa ada yang manggil-manggil gw, oi oi oi … katanya, lama lama gw kebangunin juga.. ternya yang manggil-manggil entu bos gede gw, wah wah sedikid malu juga sehhh, tapi ya apah boleh bikin gw dah nguantuk berad heheheh…

MyODBCDSN di vb.Net

‘General – Declaration

Imports System.Data.Odbc

‘ Code

Dim Conn As OdbcConnection
Dim ConnStr As String = “DSN=MyODBCNET”

Try
Conn = New OdbcConnection(ConnStr)
Conn.Open()
MsgBox(“Connected with ” + Conn.DataSource & _
Chr(10) + “Database ” + Conn.Database.ToString & _
Chr(10) + “Driver ” + Conn.Driver.ToString, _
MsgBoxStyle.Information, “Connected”)
Catch ODBCex As OdbcException
MsgBox(“ODBC Error : ” + ODBCex.Message)
Catch ex As Exception
MsgBox(“Error to connecting : ” + ex.Message)
Finally
Conn.Close()
Conn.Dispose()
End Try

MyOLEDB Koneksi di vb.Net

‘ Declattion
Imports System.Data.OleDb

‘code

Private Sub btnConnect_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnConnect.Click
Dim Conn As OleDbConnection
Dim connStr As String
connStr = String.Format(“Provider=MySqlProv;” & _
“Location={0};Data Source={1};” & _
“User={2}; Password={3}”, _
txtServer.Text, txtDatabase.Text, _
txtUser.Text, txtPassword.Text)
Try
Conn = New OleDbConnection(connStr)
Conn.Open()
MsgBox(“Connected with ” + Conn.DataSource & _
Chr(10) + “Provider ” + Conn.Provider, _
MsgBoxStyle.Information, “Connected”)
Me.Text = “Connected with ” + Conn.DataSource
Catch ex As Exception
MsgBox(“Error to connecting : ” + ex.Message)
Finally
Conn.Close()
Conn.Dispose()
End Try
End Sub

Nambah Record Ke MySql di vb.Net

Dim InsertQuery As String
Dim Kelamin As String
Dim hasil As Integer
Dim cmd As MySqlCommand

If rbPria.Checked = True Then
Kelamin = rbPria.Text
Else
Kelamin = rbWanita.Text
End If

InsertQuery = “INSERT INTO Anggota ” & _
“(id_anggota, nama, alamat, jenis_kelamin)” & _
” Values(‘” & txtId.Text & “‘, ” & _
” ‘” & txtNama.Text & “‘, ” & _
” ‘” & txtAlamat.Text & “‘, ‘” & Kelamin & “‘)”

Try
cmd = New MySqlCommand(InsertQuery, Conn)
cmd.Connection.Open()
‘ eksekusi pernyataan SQL
hasil = cmd.ExecuteNonQuery()
‘ periksa nilai yang dikembalikan
If (hasil > 0) Then
MessageBox.Show(“Record Berhasil Dimasukkan”, _
“Sukses”, MessageBoxButtons.OK, _
MessageBoxIcon.Information)
Clear()
End If
Catch ex As MySqlException
MessageBox.Show(“Failed : ” & ex.Message, “Gagal”, _
MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
cmd.Connection.Close()
cmd.Dispose()

Koneksi VB.NET ke MySql di vb.Net

‘ letakkan di bagian paling atas
Imports MySql.Data.MySqlClient

‘code
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
‘ Memeriksa apakah objek koneksi masih ada
‘ Jika ada, maka menutup terlebih dahulu
If Not Conn Is Nothing Then Conn.Close()
‘ memasukkan informasi ke variabel
ConnString = “server=localhost;” _
& “uid=tidak_ada;” _
& “pwd=apasaja;” _
& “database=test;”
Try
‘ Membuat objek MySqlConnection melalui
‘ konstruktor dengan parameter string koneksi
Conn = New MySqlConnection(ConnString)
‘ membuka koneksi database
Conn.Open()
MsgBox(“Koneksi ke ” & Conn.DataSource _
& Chr(10) & “Status : ” & Conn.State.ToString(), _
MsgBoxStyle.Information, “Sukses”)
‘ menutup koneksi
Conn.Close()
Catch ex As MySqlException
Select Case ex.Number
Case 0
MessageBox.Show(“Tidak dapat Koneksi ke ” _
& Conn.DataSource, “Koneksi Gagal”, _
MessageBoxButtons.OK, _
MessageBoxIcon.Error)
Case 1045
MessageBox.Show(“Nama user atau password ” & _
” tidak dikenal”, “Login Gagal”, _
MessageBoxButtons.OK, MessageBoxIcon.Error)
End Select
Finally
‘ menghapus objek koneksi
Conn.Dispose()
End Try

End Sub ‘ end of Sub Button1_Click

Koneksi ODBC Sql Server di vb 6.0

‘ Deklarasi variable
Public Cn As New rdoConnection
Public En As rdoEnvironment

‘KOneksi ODCB dengan windows NT Authentication

Sub OpenConnectServer()
On Error GoTo ErrH
Set En = rdoEngine.rdoEnvironments(0)
With Cn
.Close
.Connect = “DSN=DBTEST”

.LoginTimeout = 25
.EstablishConnection rdDriverNoPrompt, True
End With

ErrH:
If Err.Number > 0 Then
MsgBox “Error Koneksi Ke Database Server”, vbInformation, “Message”
End
End If
End Sub

Log Akdpsim

tabel Jadwal Kuliah
index di dosen
-Tahun AKademik
-Semester
-tanggal
-Sesi
-KodeRuang
-KodeDosen

07/09/05
– ditambah index kode ruang
– ditambah field flag
– ditambah field matrik

tabel uid
-ditambah filed dep

11/09/05

tabel TBB
KodeBB -> kode bimbingan
Ket -> keterangan bimbingan

Tabel TBBG
NPM
KodeDsn -> Kode dosen
KodeBB -> kode bimbingan
kete -> Keterangan

SELECT dbo.TBBG.NPM, dbo.TBBG.KodeBB AS PB2, dbo.TDosen.NamaDsn, dbo.TDosen.Title
FROM dbo.TBBG INNER JOIN
dbo.TMahasiswa ON dbo.TBBG.NPM = dbo.TMahasiswa.NPM INNER JOIN
dbo.TDosen ON dbo.TBBG.KOdeDsn = dbo.TDosen.KodeDsn
WHERE (dbo.TBBG.KodeBB = ‘KP’)

22/09/05

Tmahasiswa
-Tambah Field TglStat-> untuk memasukan tanggal perubahan status selain alumni(tglLulus)
-Tambah Field Descr -> Deskripsi user