≡ Menu

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

{ 1 comment }

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

{ 0 comments }

Berhasilll !!

UhuY … akhirnya berhasil juga gw nginstall debian, cuman sekarang permasalahnya gw malah jadi agak2 kebingungan ma nih tampilan debian…ya mungkin karena baru aje kali yeee..lama2 juga familiar ..Okaaayy

{ 0 comments }

Kegagalan I

Kegagalan pertama instalasi debian, disebabkan karena hardis tidak mencukupi…gila gw salah klik kali yee ampe 5 giga nga cukup, ya gw install ulang lagehhh :((

{ 0 comments }

Nyobain Ahhhh

Wah….gw lagi nyobain install Debian nehh…buset ada 14 CD bo…yang menurut gw itu banyak buangeeett…nga kayak install XP cuman se-CD doanK, yah gw pengen nyobain ngutak-ngatik lagi di linux, tpi masih tetep sih nginstallnya juga masuh dalam bentuk virtual di Win XP, abisnya gw belom berani kalo install beneran gituh, maklum deh gw khan NewBie (bener ngak sih tulisannya ?) lagin gw dulu pertama2 suka nginstal2 linux pasa taon 2001-an abis ituh nga pernah pake2 lagih tuh linux, nah sekarang lagih ada hasrat lagih mencoba pake linux, mumpung masih GRATIS !! 😀

{ 0 comments }

Love Arm'd

Love in Fantastique Triumph satt,
Whilst bleeding Hearts around him flow’d,
For whom Fresh pains he did create,
And strange Tryanic power he show’d;
From thy Bright Eyes he took his fire,
Which round about, in sport he hurl’d;
But ’twas from mine he took desire,
Enough to undo the Amorous World.
From me he took his sighs and tears,
From thee his Pride and Crueltie;
From me his Languishments and Feares,
And every Killing Dart from thee;
Thus thou and I, the God have arm’d,
And sett him up a Deity;
But my poor Heart alone is harm’d,
Whilst thine the Victor is, and free.

by Aphra Behn

{ 0 comments }