Lowyat.NET: Latest topics by efarhan

(WTS) NEXUS 7 1st gen 32GB cellular(used)

efarhan — Thu, 19 Jun 2014 19:18:57 +0800

Item(s):Nexus 7 32GB + SimCard

Package includes:Box + Charger

Price:RM 650 (negotiable)

Warranty:1 Week

Dealing method:COD

Location of seller:Seremban/KL

Contact method/details:Edy 017-6628540

Age of item:1 Year plus..

---

Item(s) conditions:Extremely good condition, rarely used. Behind protected with nillkin case since bought..and front has screen protector

Picture:will upload later..upon request also...

Reason for sale:Want to buy Ipad.

ALIENWARE 14

efarhan — Wed, 02 Oct 2013 21:41:34 +0800

Item(s):ALIENWARE 14

Package includes:BACKPACK

Price:ORIGINAL RETAIL PRICE : RM 4999 IM SELLING RM 4.5k (non-nego as its brand new)

Warranty:1 YEAR FROM DELL

Dealing method:COD

Location of seller:SEREMBAN/KL

Contact method/details: Handphone : 017-6628540

Age of item:Not even a day on the date of posting, just got it

---

Item(s) conditions:BRAND NEW

Picture:HAD TO OPEN THE BOX TO BE SURE OF THE MODEL ALL. You can check on dell website. Its the RM 4999 spec. Deployed : August 15,2013. (guess my best buddy has been keeping it for me till now

Reason for sale:GOT AS A GIFT, NEED CASH INSTEAD, ALREADY HAVE A DESKTOP GAMING RIG

P/S : Re-edited. Its the RM 4999 model. Sorry guys.

[WTA] Cannot access DaLnet

Thu, 01 Jan 1970 07:30:00 +0800

DHCP not giving address

efarhan — Thu, 18 Oct 2012 19:06:06 +0800

Hi All,

I have an issue with my organizations wireless connection. Recently, I have changed all the switches and firewalls. Then the problem starts where some of my colleagues laptop when is connected to a wifi connection, they will be able to connect to it, but there's no IP address given to them. Im using a sonicwall nsa220 and edge-core switches. The DHCP is given out from the sonicwall itself. However, this only happens to certain laptop users at random times but it happens occasionally. The only way temporary solution is I restart the Access Point. Then it is ok. But somehow later on it comes back. I cant be restarting the AP all the time right when that happens ? Previously it is not happening like that.

Anyone have encountered this before ? I tried even removing the problematic laptops 'original wireless profile' just to make sure but the wifi problem persists even after re-connecting back. No address was given. Just the 169.254.-.- ....

Any ideas would be very much appreciated guys. Im going blank already.

[WTA] Cannot access DaLnet

efarhan — Thu, 18 Oct 2012 12:04:03 +0800

Hi All,

Im not sure if this is the correct section, correct me if im wrong.

I just want to ask whether do any of you have any issues connecting to DaLnet ? I cant seem to go in for the last 2 months or so. Any ideas what happened ?

Thanks. Cheers.

Printing problem

efarhan — Wed, 12 Sep 2012 12:15:30 +0800

Hi Bros,

Im using a HP Officejet K8600 printer...complete together with a CISS kit...and my print server is HP Jetdirect ew2500 wifi based....Im having trouble to print to the printer most of the time... i have a few of these units and im suspecting its the print server causing the problem...any other suggestions as i have no choice but to use wireless instead of wired since i dont have enuf network plug points...

Printer : HP OfficeJet K8600

Print Server : HP Jetdirect ew2500

Thanks man. Your feedbacks are much appreciated.

Browse pictures in folder

efarhan — Sun, 05 Aug 2012 00:42:50 +0800

Hi sifus,

I managed to get "A PICTURE" to display from the folder, but the photo wouldnt loop. Im not sure what went wrong here.. Im sure i got the timer correct. Please advise guys. Do check out my code below.

Imports System.IO
Imports System.Collections

Public Class Form1
Private images As New List(Of Image)
Private index As Integer

' private member variables
Private mFolder As String
Private mImageList As ArrayList
Private mImagePosition As Integer
Private mPreviousImage As Image
Private mCurrentImage As Image
Private mNextImage As Image

Public Sub New()
InitializeComponent()

Timer1.Interval = 1000
Timer1.Start()
End Sub

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick
If images.Count > 0 Then
If index >= images.Count Then
index = 0
End If
PicCurrentImage.Image = images(index)
index += 1
End If
End Sub

Private Function CreateImage(ByVal whichColor As Color) As Image
Dim bmp As New Bitmap(64, 64)
Using g As Graphics = Graphics.FromImage(bmp), _
br As New SolidBrush(whichColor)
g.Clear(Color.White)
g.FillEllipse(br, New Rectangle(1, 1, 61, 61))
End Using
Return bmp
End Function

Private Sub Browse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Browse.Click
' Label the folder browser dialog
Me.folderBrowserDialog1.Description = "Select the image directory."

' disable create folder feature of folder browser
Me.folderBrowserDialog1.ShowNewFolderButton = False

' display the folder browser
Dim result As DialogResult = folderBrowserDialog1.ShowDialog()

If result = DialogResult.OK Then

' on okay, set the image folder to the
' folder browser's selected path
mFolder = folderBrowserDialog1.SelectedPath
If (Not String.IsNullOrEmpty(mFolder)) Then
txtImageDirectory.Text = mFolder
Else
' exit if the user cancels
Return
End If

' initialize the image arraylist
mImageList = New ArrayList()

' loop through the image directory
' and find all of the image files
' add the found files to the image
' list - add other image types if
' necessary
Dim Dir As New DirectoryInfo(mFolder)
Dim f As FileInfo
For Each f In Dir.GetFiles("*.*")
Select Case (f.Extension.ToUpper())
Case ".JPG"
mImageList.Add(f.FullName)
Case ".BMP"
mImageList.Add(f.FullName)
Case ".GIF"
mImageList.Add(f.FullName)
Case Else
' skip file
End Select
Next

' set the starting position to 0
' and call the set images method
' to load the pictures
mImagePosition = 0
SetImages()

End If
End Sub

''' <summary>
''' This function is used to set the previous,
''' current, and next images into the
''' correct picture boxes
''' </summary>
''' <remarks></remarks>
Private Sub SetImages()

' clear any existing images
' memory will be an issue if
' cycling through a large
' number of images

'mCurrentImage = Nothing

' set current image
If mImagePosition < mImageList.Count Then

Try

' set delegate
Dim currentCallback = _
New Image.GetThumbnailImageAbort(AddressOf ThumbnailCallback)

' get the current image
Dim currentBmp As _
New Bitmap(mImageList(mImagePosition).ToString())

' thumbnail the image to the size
' of the picture box
mCurrentImage = _
currentBmp.GetThumbnailImage(320, 320, currentCallback, IntPtr.Zero)

' set the picture box image
picCurrentImage.Image = mCurrentImage

' clear everything out
currentBmp = Nothing
mCurrentImage = Nothing
currentCallback = Nothing

Catch

'stall if it hangs, the user can retry

End Try

End If

GC.Collect()

End Sub

Public Function ThumbnailCallback() As Boolean

Return False

End Function
End Class

Display picture in folder

efarhan — Sun, 29 Jul 2012 22:52:22 +0800

Hi sifus,

Was just wondering how do I make the codes below to display the image files in the folder instead of specific image files like below :- ? And how do I make it re-size according to the picturebox size automatically ? Thanks a lot guys.

Public Class Form1
Private images As New List(Of Image)
Private index As Integer

Public Sub New()
InitializeComponent()

images.Add(CreateImage(Color.Blue))
images.Add(CreateImage(Color.Red))
'// images.Add(Image.FromFile("c:\myimage.png") <- make it display the image files in folder only..not by image..

Timer1.Interval = 1000
Timer1.Start()
End Sub

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick
If images.Count > 0 Then
If index >= images.Count Then
index = 0
End If
PictureBox1.Image = images(index)
index += 1
End If
End Sub

Private Function CreateImage(ByVal whichColor As Color) As Image
Dim bmp As New Bitmap(64, 64)
Using g As Graphics = Graphics.FromImage(bmp), _
br As New SolidBrush(whichColor)
g.Clear(Color.White)
g.FillEllipse(br, New Rectangle(1, 1, 61, 61))
End Using
Return bmp
End Function

End Class

Use Vb.net to add node to my xml file

efarhan — Mon, 23 Jul 2012 22:40:13 +0800

Hi Bros,

Ive been trying to add to my xml file...the file goes like this...

<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<ticker>
<news>this is my test</news>
<news>this is my test</news>
<news> </news>
</ticker>

How do I use VB.net to add to my

<news> "news here" </news>

ive tried using this pair of code.. but nothing seems to be happening... i code it to a button..just for test sake...as below..:-

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
' Create xml dom
Dim XMLDom As New XmlDocument()
'load your xml file
XMLDom.Load("../debug/news.xml")
'Select main node
Dim newXMLNode As XmlNode = XMLDom.SelectSingleNode("/ticker")
'get the node where you want to insert the data
Dim childNode As XmlNode = XMLDom.CreateNode(XmlNodeType.Element, "news", "")
'In the below step "name" is your node name and "sree" is your data to insert
Dim newAttribute As XmlAttribute = XMLDom.CreateAttribute("news", "hoorey", "")
childNode.Attributes.Append(newAttribute)
newXMLNode.AppendChild(childNode)
End Sub

Any ideas guys ??

Thanks in advance.

'Bring to Front' news ticker

efarhan — Sat, 21 Jul 2012 16:37:56 +0800

Hi Sifus,

How do I 'bring to front' in code form for this code below ? Its a news ticker and ive tried a backway instead of trying to make the scrolling ticker move along with a background, i have decided to put a colored panel behind it..and let it scroll..but because of this particular line...it keeps clearing the background color i put on the form. but when i remove it...the ticker becomes messed up.....

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
'Debug.Write(vbCr & strwidth.Width & vbCr)
'Debug.Write(String.Format("widthX = {0}", CStr(widthX) & vbCr))
g.Clear(me.backcolor) <- this is the problem area.
g.DrawString(str, fo, Brushes.Black, widthX, heightY)
'widthX, heightY
Timer1.Enabled = False 'Added by RK
System.Threading.Thread.Sleep(50) 'Addedd by RK
' Debug.Write(String.Format("the string width is {0}", CStr(strwidth.Width)))
If widthX <= (0 - douX) Then
widthX = Me.Width
Else
widthX -= 5
End If
Timer1.Enabled = True 'Added by RK
End Sub

Really appreciate if you guys can help me out..im already on the deadline bro to deliver this..

[addedon]July 22, 2012, 11:47 am[/addedon]anybody ?

Set location of news ticker and color it.

efarhan — Sun, 15 Jul 2012 23:40:20 +0800

Hi Sifus,

Im trying to set the location of my newsticker that the codes i found from the net. I tried doing the modifications but to no avail. Below are the codes. I tried to make the newsticker to be highlighted as well, just like the tv3 ones. with the blue background and so on, but I cant seem to find the way as when I change the g.Clear..it changes the entire backgrounds colors of the form. Currently the news ticker is at the top of the form. I dont know how to move it to my 'desired' location.

Imports System.Text 'used for string manipulations
Imports System.Xml ' used for XML reading
Public Class Form1
Inherits System.Windows.Forms.Form

Dim widthX As Single
Dim heightY As Single = 0
Dim g As Graphics
Dim xmlst As String 'string from the xml file
Dim fo As Font
Dim str As String
Dim strwidth As SizeF 'gets the xml string's width and height
Dim douX As Double 'stores the xmlstring's width
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Dispose()
End Sub
Private Sub loadthenews()
Dim readXML As New XmlTextReader("c:\users\admin\documents\visual studio 2010\Projects\NewsTicker\NewsTicker\news.xml")
While readXML.Read()
If readXML.NodeType = XmlNodeType.Text Then
str += " " & readXML.Value
End If
End While
End Sub

Private Sub AxWindowsMediaPlayer1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxWindowsMediaPlayer1.Enter
Me.AxWindowsMediaPlayer1.settings.setMode("loop", True)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Dispose()
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
g = Me.CreateGraphics() 'get the graphics object of the form
widthX = Me.Width ' x co- ordinate or width -> Tried here with New Point (x,y) but it says cannot convert to
' Debug.Write(String.Format("The width is {0}", ‘CStr(Me.Width))) single value.
Me.loadthenews()
Dim gr As Graphics
Timer1.Interval = 100
Timer1.Start()
fo = New Font("Times New Roman", 14, FontStyle.Bold, GraphicsUnit.Point)
strwidth = g.MeasureString(Str, fo)
douX = strwidth.Width
End Sub

Private Sub NewsTicker_hover(ByVal sender As System.Object, ByVal e As System.EventArgs)
Timer1.Stop()
Debug.Write(String.Format("The string width is {0}", CStr(douX)))
End Sub
Private Sub NewsTicker_leave(ByVal sender As System.Object, ByVal e As System.EventArgs)
Timer1.Start()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
'Debug.Write(vbCr & strwidth.Width & vbCr)
'Debug.Write(String.Format("widthX = {0}", CStr(widthX) & vbCr))
g.Clear(Me.BackColor) - tried playing with the colors here, but it changes the
g.DrawString(str, fo, Brushes.Black, widthX, heightY) entire forms color.
'widthX, heightY
Timer1.Enabled = False 'Added by RK
System.Threading.Thread.Sleep(50) 'Addedd by RK
' Debug.Write(String.Format("the string width is {0}", CStr(strwidth.Width)))
If widthX <= (0 - douX) Then
widthX = Me.Width
Else
widthX -= 5
End If
Timer1.Enabled = True 'Added by RK
End Sub
End Class

[addedon]July 15, 2012, 11:52 pm[/addedon]Ok, i managed to change the height by changing the '0' value at the top at declaration for 'heightY' but I still need assistance on the 'highlighting' of the background of the newsticker. Any ideas ?

[addedon]July 17, 2012, 6:24 pm[/addedon]anyone ?

Newsticker scroller highlighting

efarhan — Wed, 11 Jul 2012 23:04:43 +0800

Hi sifus/masters,

I have this code from the web that I found that can actually manage to get a news ticker going from an xml file. I tried it out on my visual studio and I got the thing working, but the next question is, how do I highlight it ? Just like the TV3 newsticker below going from left to right. What I want is the blue background and a white font for example. Just sufficient to cover the font. Any ideas guys ? Below is the code I got.

Imports System.Text 'used for string manipulations
Imports System.Xml ' used for XML reading
Public Class NewsTicker
Inherits System.Windows.Forms.Form

Dim widthX As Single
Dim heightY As Single = 0
Dim g As Graphics
Dim xmlst As String 'string from the xml file
Dim fo As Font
Dim str As String
Dim strwidth As SizeF 'gets the xml string's width and height
Dim douX As Double 'stores the xmlstring's width

Private Sub loadthenews()
Dim readXML As New XmlTextReader("c:\users\admin\documents\visual studio 2010\Projects\NewsTicker\NewsTicker\news.xml")
While readXML.Read()
If readXML.NodeType = XmlNodeType.Text Then
str += " " & readXML.Value
End If
End While
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
'Debug.Write(vbCr & strwidth.Width & vbCr)
'Debug.Write(String.Format("widthX = {0}", CStr(widthX) & vbCr))
g.Clear(Me.BackColor) <- IM GUESSING ITS SOMEWHERE ALONG THESE LINES,
g.DrawString(str, fo, Brushes.Black, widthX, heightY) BEEN TRYING, BUT TAK DAPAT. SOME HELP WOULD BE
Timer1.Enabled = False 'Added by RK NICE BROS. TQ.
System.Threading.Thread.Sleep(50) 'Addedd by RK
' Debug.Write(String.Format("the string width is {0}", CStr(strwidth.Width)))
If widthX <= (0 - douX) Then
widthX = Me.Width
Else
widthX -= 5
End If
Timer1.Enabled = True 'Added by RK
End Sub
Private Sub NewsTicker_hover(ByVal sender As System.Object, ByVal e As System.EventArgs)
Timer1.Stop()
Debug.Write(String.Format("The string width is {0}", CStr(douX)))
End Sub
Private Sub NewsTicker_leave(ByVal sender As System.Object, ByVal e As System.EventArgs)
Timer1.Start()
End Sub

Private Sub NewsTicker_Load_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
g = Me.CreateGraphics() 'get the graphics object of the form
widthX = Me.Width ' x co- ordinate or width
' Debug.Write(String.Format("The width is {0}", ‘CStr(Me.Width)))
Me.loadthenews()
Dim gr As Graphics
Timer1.Interval = 100
Timer1.Start()
fo = New Font("Times New Roman", 14, FontStyle.Bold, GraphicsUnit.Point)
strwidth = g.MeasureString(str, fo)
douX = strwidth.Width
End Sub
End Class

Designing a system to display on 60' LCD

efarhan — Tue, 29 May 2012 22:39:28 +0800

Hi sifus,

I am currently been assigned to handle a project where I have to design a system that is required to be 'projected' to a 60' inch size AQUOS lcd tv screen. I have started designing the system and am currently stuck with 1 question. How do I determine the best resolution to the system ? I have managed to make my system to be able to show 'full screen' on my laptop (im using Visual Studio 2010 to develop the system) with a resolution of 1280 x 800. But what if I shoot it up to the 60' lcd tv using HDMI? Will it go blur ? Will the screen be instead of showing some 'black areas' ? Will the graphics card support it ?

And once the system is complete, what sort of graphics card is suitable to project a system up to a 60' tv ? Any ideas and critics would be appreciated.

I have checked the 60' Aquos tv's resolution. It seems it has these resolutions = 1,920 x 4 x 1,080. Should I follow those resolutions ? but if it's under development on my Visual Studio 2010. It will be bigger than my screen. Im lost.

Thanks guys.

Regards,

efarhan.

HR MANAGER LEAK Medical info

efarhan — Thu, 01 Mar 2012 12:58:40 +0800

Hi guys,

I just want to ask an opinion on what should I do and what legal actions that is currently in place if the HR Manager has leaked out "Private And Confidential" medical information about myself to colleagues and staffs. It is just basic common sense that the HR Manager's job is to keep things such as this sensitive away from other staffs and colleagues. This is just not right. What do I do ?

Rgards,

efarhan.

ASP.net - populating dropdownlist1

efarhan — Tue, 21 Jun 2011 10:40:20 +0800

Im using a gridview... and I have a dropdownlist... when i go into edit mode...its comes out with this error..

"'DropDownList1' has a SelectedValue which is invalid because it does not exist in the list of items.
Parameter name: value"

The problem here is I already list down the list items from the back-end based on my research on the web...this is the way to do it..below s my code...check the BOLD one..

<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="construction.aspx.vb" Inherits="DrawingStatus.construction" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title></title>
<link href="construction1.css" rel="stylesheet" type="text/css" />
</head>
<body>
<form id="form1" runat="server">

<div class="construction">
<asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="False"
AutoGenerateEditButton="True" DataSourceID="ConnConstruction">
<Columns>
<asp:BoundField DataField="DwgID" HeaderText="DwgID" ReadOnly="True"
SortExpression="DwgID" />
<asp:BoundField DataField="ProjectID" HeaderText="ProjectID" ReadOnly="True"
SortExpression="ProjectID" />
<asp:BoundField DataField="Title" HeaderText="Title" SortExpression="Title" />
<asp:BoundField DataField="DwgNo" HeaderText="DwgNo" SortExpression="DwgNo"
ReadOnly="True" />
<asp:BoundField DataField="DateReceive" HeaderText="DateReceive"
ReadOnly="True" SortExpression="DateReceive" />
<asp:BoundField DataField="TotalCopy" HeaderText="TotalCopy"
SortExpression="TotalCopy" ReadOnly="True" />
<asp:BoundField DataField="DateReview" HeaderText="DateReview" ReadOnly="True"
SortExpression="DateReview" />
<asp:BoundField DataField="RefNo" HeaderText="RefNo" SortExpression="RefNo"
ReadOnly="True" />
<asp:TemplateField HeaderText="Status" SortExpression="Status">
<EditItemTemplate>
<asp:DropDownList ID="DropDownList1" runat="server"
DataSourceID="connDropDwn"
DataTextField="Status"
DataValueField="StatusID"
SelectedValue='<%# Bind("Status") %>' AppendDataBoundItems="True">
<asp:ListItem Value="1">In progress</asp:ListItem>
<asp:ListItem Value="2">Reviewed</asp:ListItem>
<asp:ListItem Value="3">Approved</asp:ListItem>
<asp:ListItem Value="4">Approved with remarks</asp:ListItem>
<asp:ListItem Value="5">Details to submit</asp:ListItem>
<asp:ListItem Value="6">For information</asp:ListItem>
<asp:ListItem Value="7">To be resubmitted</asp:ListItem>
<asp:ListItem Value="8">Jabatan Item</asp:ListItem>
<asp:ListItem Value="9">Superseded</asp:ListItem>
<asp:ListItem Value="10">Reviewed with remarks</asp:ListItem>
<asp:ListItem Value="11">Not coming into class</asp:ListItem>
<asp:ListItem Value="12">Return without review</asp:ListItem>
<asp:ListItem Value="13">For Information only with remarks</asp:ListItem>
<asp:ListItem Value="14">Seen and Noted</asp:ListItem>
</asp:DropDownList>
</EditItemTemplate>
<ItemTemplate>
<asp:Label ID="Label1" runat="server" Text='<%# Bind("Status") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="Revision" HeaderText="Revision"
SortExpression="Revision" ReadOnly="True" />
</Columns>
</asp:GridView>
<asp:SqlDataSource ID="ConnConstruction" runat="server"
ConnectionString="<%$ ConnectionStrings:drawingdblocalConnectionString2 %>"
SelectCommand="SELECT tblConstruction.DwgID, tblConstruction.ProjectID, tblConstruction.Title, tblConstruction.DwgNo, tblConstruction.DateReceive, tblConstruction.TotalCopy, tblConstruction.DateReview, tblConstruction.RefNo, tblStatus.Status, tblConstruction.Revision FROM tblConstruction INNER JOIN tblStatus ON tblConstruction.StatusID = tblStatus.StatusID WHERE (tblConstruction.ProjectID = @projectid)">
<SelectParameters>
<asp:QueryStringParameter Name="projectid" QueryStringField="projectid" />
</SelectParameters>
</asp:SqlDataSource>
</div>
<asp:SqlDataSource ID="ConnDropDwn" runat="server"

ConnectionString="<%$ ConnectionStrings:drawingdblocalConnectionString2 %>"
SelectCommand="SELECT [StatusID], [Status] FROM [tblStatus]">
</asp:SqlDataSource>
</form>
</body>
</html>

ASP.net - Gridview 'edit' function removing my row

efarhan — Thu, 16 Jun 2011 15:37:15 +0800

Hi sifus,

I have a bizarre gridview question....i seriously have no idea why my gridview "edit" is removing the row im editing...i have checked the "UpdateQuery" and its only UPDATE and not DELETE..... but once I press the "Edit" and made my changes..and then pressed the "UPDATE" button..it removes the entire row....it still removes the entire row with/without me making any changes..its just gone... !

This is my update statement...

UPDATE tblConstruction SET Title =@Title, DwgNo =@DwgNo, DateReceive =@DateReceive, TotalCopy =@TotalCopy, DateReview =@DateReview, RefNo =@RefNo, StatusID =@StatusID, Revision =@Revision WHERE DwgID =@DwgID

if there's any details u require please tell me... i am just trying my luck to see if any others is suffering from the same thing..

TQ

(WTA) SQL Binding - Update Database from textbox

efarhan — Tue, 24 May 2011 15:59:32 +0800

Hi Sifus/taikos,

I tried updating the database using a save button coded with these below codes.... but the database wont update.... it keeps refreshing back as empty textboxes...

These codes below are for Save Button....

Protected Sub saveBtn_Click(ByVal sender As Object, ByVal e As EventArgs) Handles saveBtn.Click
SqlDataSave.UpdateParameters("projectid").DefaultValue = ProjectIDTxt.Text.ToString()
SqlDataSave.UpdateParameters("shipname").DefaultValue = ShipNameTxt.Text.ToString()
SqlDataSave.UpdateParameters("project").DefaultValue = ProjectTxt.Text.ToString()
SqlDataSave.UpdateParameters("designer").DefaultValue = DesignerTxt.Text.ToString()
SqlDataSave.UpdateParameters("owner").DefaultValue = OwnerTxt.Text.ToString()
SqlDataSave.UpdateParameters("builder").DefaultValue = BuilderTxt.Text.ToString()
SqlDataSave.UpdateParameters("yardno").DefaultValue = YardNoTxt.Text.ToString()
SqlDataSave.UpdateParameters("jobnumber").DefaultValue = DesignProjNoTxt.Text.ToString()
SqlDataSave.UpdateParameters("scmid").DefaultValue = ScmIdTxt.Text.ToString()
SqlDataSave.Update()
Response.Redirect(Request.RawUrl)
End Sub

Below is the datasource :-

<asp:SqlDataSource ID="SqlDataSave" runat="server"
ConnectionString="<%$ ConnectionStrings:drawingdblocalConnectionString2 %>"
SelectCommand="SELECT [ProjectID], [Shipname], [Project], [SCMID], [Owner], [Designer], [Jobnumber], [Builder], [Yardno], [Projectno] FROM [tblProject]"

UpdateCommand="UPDATE tblProject SET ProjectID = @projectid, Shipname = @shipname, Project = @project, SCMID = @scmid, Owner = @owner, Designer = @designer, Jobnumber = @jobnumber, Builder = @builder, Yardno = @yardno Where ProjectID = @projectid">
<UpdateParameters>
<asp:ControlParameter ControlID="ProjectIDTxt" DbType="Int32" Name="projectid"
PropertyName="Text" />
<asp:ControlParameter ControlID="ShipNameTxt" Name="shipname"
PropertyName="Text" Type="String" />
<asp:ControlParameter ControlID="ProjectTxt" DbType="String" Name="project"
PropertyName="Text" />
<asp:ControlParameter ControlID="ScmIdTxt" DbType="String" Name="scmid"
PropertyName="Text" />
<asp:ControlParameter ControlID="OwnerTxt" DbType="String" Name="owner"
PropertyName="Text" />
<asp:ControlParameter ControlID="DesignerTxt" DbType="String" Name="designer"
PropertyName="Text" />
<asp:ControlParameter ControlID="DesignProjNoTxt" DbType="String"
Name="jobnumber" PropertyName="Text" />
<asp:ControlParameter ControlID="BuilderTxt" DbType="String" Name="builder"
PropertyName="Text" />
<asp:ControlParameter ControlID="YardnoTxt" DbType="String" Name="yardno"
PropertyName="Text" />
</UpdateParameters>
</asp:SqlDataSource>

Cant seem to figure out which part i got wrong... no error nothing..

[WTA] VB - Accepting NULL Value

efarhan — Wed, 18 May 2011 17:53:27 +0800

Hi Sifus,

Im trying to figure out how to accept null value from database and put it in a textbox... below is what i got so far...

Private Sub DisplayFrmDatabase()
Dim DBConn As New SqlClient.SqlConnection("Data Source=localhost\sqlexpress;Initial Catalog=drawingdb;Integrated Security=True")

DBConn.Open()
Dim dsProject As New DataTable
Dim SqlDataAdapter1 As New SqlClient.SqlDataAdapter("SELECT * FROM [tblProject] WHERE [Shipname] like '%" & ShipNameTxt.Text & "%' ", DBConn)
Dim objReader As SqlClient.SqlDataReader
Dim SqlCommand1 As New SqlCommand("SELECT * FROM [tblProject] WHERE [Shipname] like '%" & ShipNameTxt.Text & "%' ", DBConn)

SqlDataAdapter1.Fill(dsProject)
objReader = SqlCommand1.ExecuteReader()

objReader.Read()
ProjectIDTxt.Text = objReader("ProjectID")
ProjectTxt.Text = objReader("Projectno")
OwnerTxt.Text = objReader("Owner")
DesignerDropdwn.SelectedValue = objReader("Designer")
'DesignProjNoTxt.TextMode = objReader("Jobnumber") <- ACTUALLY THIS LINE TRIED TO PASS 'NULL' and didnt accept null..so below i tried
to make a the 'null' to string. But im missing something'

If objReader("Jobnumber").DBNull.Value(0) Then

DesignProjNoTxt.TextMode = FixNull(objReader("Jobnumber"))

End If

objReader.Close()
DBConn.Close()

_________________________________________________________________________________________

Public Function FixNull(ByVal dbvalue) As String
If dbvalue Is DBNull.Value Then
Return ""
Else
'NOTE: This will cast value to string if
'it isn't a string.

Return dbvalue.ToString
End If
End Function
End Sub

[WTA] My LAN Network slow in some locations

Thu, 01 Jan 1970 07:30:00 +0800

[WTA] My LAN Network slow in some locations

efarhan — Wed, 11 May 2011 10:41:07 +0800

Hi sifus,

My office recently acquired UNIFI biz10 and i noticed in some cubicles/locations within my office compound that the network is slow ? Is it due to length and range issues ? means nearer to the server room is faster and further means slower connection ? Is there such a thing ?

And how do I test it ? since im no expert in Network Computing stuffs.. Thanks guys..

Regards,

efarhan