assalammualaikom..

sayer kurang paham aper fungsi bagi cth coding di bawah..

ade sesiape yang sudi menerangkan....


[color="#FF0000"] If Trim(Rs.Fields("Pensyarah").Value = True) Then[/color]
MsgBox("Selamat Datang ke Sistem permohonan cuti!", MsgBoxStyle.OkOnly, "SPC")
frmSemakCuti.txtID.Text = txtNoId.Text
frmSemakCuti.txtNama.Text = Trim(Rs.Fields("Nama").Value)
frmSemakCuti.txtAL.Text = Trim(Rs.Fields("AL").Value)
frmSemakCuti.txtMC.Text = Trim(Rs.Fields("MC").Value)
frmBorang.txtID.Text = txtNoId.Text
frmBorang.txtNama.Text = Trim(Rs.Fields("Nama").Value)
frmBorang.Label12.Text = Trim(Rs.Fields("AL").Value)
frmBorang.Label14.Text = Trim(Rs.Fields("MC").Value)
frmSemakStatus.txtID.Text = txtNoId.Text
frmSemakStatus.txtNama.Text = Trim(Rs.Fields("Nama").Value)
ad.Show()
Me.Hide()

ElseIf Trim(Rs.Fields("Pihak_Pengurusan").Value = True) Then
MsgBox("Selamat Datang ke Sistem permohonan Cuti Kolej PTPL Ampang!", MsgBoxStyle.OkOnly, "SPC")
frmPengesahan.GroupBox1.Visible = True

ae.Show()
Me.Hide()
ElseIf Trim(Rs.Fields("Pengetua").Value = True) Then
MsgBox("Selamat Datang ke Sistem permohonan Cuti Kolej PTPL Ampang!", MsgBoxStyle.OkOnly, "SPC")
frmPengesahanPengetua.GroupBox2.Visible = True
'frmPengetua.btnSemak.Visible = True

af.Show()
Me.Hide()
ElseIf Trim(Rs.Fields("HOA").Value = True) Then
MsgBox("Selamat Datang ke Sistem permohonan Cuti Kolej PTPL Ampang!", MsgBoxStyle.OkOnly, "SPC")
frmPengesahanHOA.GroupBox3.Visible = True
frmPengetua.btnSemak.Visible = False
'frmPengurusan.btnStatus.Visible = False
ag.Show()
Me.Hide()
End If



Trim tu ape fungsi die sebenarnye

Trim tu dia buang space.. contoh "Mohd Ali"..lepas trim jadi "MohdAli"

Tak silap aku, buang spacing penghujung kiri dan penghujung kanan perkataan seperti:

" Mohd Ali " kepada "Mohd Ali". Wallahualam.

[quote name='fatah' date='03 June 2010 - 03:04 AM' timestamp='1275505459' post='1034601']
Tak silap aku, buang spacing penghujung kiri dan penghujung kanan perkataan seperti:

" Mohd Ali " kepada "Mohd Ali". Wallahualam.
[/quote]
yup betul..die akan buang space kiri dan kanan..tengah2 word tak kacau...

kalau nak buang space kat tengah2..perlu buat satu function yang guna "foreach"....

Fungsi Adodb adalah utk membuat connection/sambungan antara database dan file asp..kalo x silap la..file ni pnting bila anda mmbuat dynamic page yg brkaitan dgn database..hope dpt membantu..