Main Page News RSS

Chronolisme — Tue, 18 Mar 2008 18:53:51 +0800

RSS live feeds for the main page have not been working for a while now, can somebody check it out?

1394 Connection missing.

Chronolisme — Sat, 26 Jan 2008 22:43:13 +0800

I recently bought a new laptop that comes with 1394 Firewire. However, the laptop's "Network Connections" does not show any 1394 connection at all.

I previously used this 1394 connection on my desktop to set up Firewire Ethernet for transfering files between computers because of the high speed it offers. Now I am unable to use firewire to transfer files from my laptop to the desktop due to this problem.

Does anybody know how to fix this?

I'm running on Windows Vista Business.

How to load Gnome interface?

Chronolisme — Fri, 13 Jul 2007 19:03:12 +0800

I'm completely new to Linux so I don't know anything at all about it.

I downloaded the Ubuntu ISO and burnt it into a cd. Using it, I installed the LAMP server and is now able to boot linux.
However I do not know how to load the Gnome interface, can anybody help?

Question about sorting

Chronolisme — Tue, 05 Jun 2007 09:33:41 +0800

I have a question regarding the efficiency of sorting algorithms.

Why is the asymptotic complexity for the worst case scenario of sorting algorithms that utilize recursion equal to n log n? A mathematical explanation would be best.

I understand that this is more of a mathematical question, but I couldn't think of a more appropriate place to post within this forum.

Auto-Refresh an Image

Chronolisme — Wed, 09 May 2007 22:24:06 +0800

If I would like an image within a website to refresh itself in every X seconds, how can I do it?

I want only the image to refresh, not the entire page.

Bukit Jalil Badminton Courts

Chronolisme — Wed, 25 Apr 2007 12:27:11 +0800

Does anybody know how to book the Bukit Jalil Badminton Courts?

No more badminton courts at Bukit Jalil...

VB.NET 2005 Help Again~

Chronolisme — Thu, 29 Mar 2007 00:07:21 +0800

Using Access as my database, I made a form to add in records to the db and also wanted the ID to auto increment.

CODE

Public Class Form2

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Table2TableAdapter.Fill(Me.DbDataSet.Table2)
Me.Table1TableAdapter.Fill(Me.DbDataSet.Table1)

Me.Table1BindingSource.AddNew()

GetID()
End Sub

Private Sub GetID()
Dim dr() As DataRow = Me.DbDataSet.Tables("Table2").Select("TableName='Table1'")
txtID.Text = dr(0)("NextID")
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim orderid As Integer = txtID.Text
Dim num As Integer
Integer.TryParse(orderid, num)
Dim dr2() As DataRow = Me.DbDataSet.Tables("Table2").Select("TableName='Table1'")
dr2(0)("NextID") = num + 1

Me.Validate()
Me.Table2BindingSource.EndEdit()
Me.Table2TableAdapter.Update(Me.DbDataSet.Table2)
Me.Table1BindingSource.EndEdit()
Me.Table1TableAdapter.Update(Me.DbDataSet.Table1)
Me.Close()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
End Class

The problem here is whenever I leave the form by click 'back' and come back to the form, the ID is not entered into the text box unless I exit the program and start it again.

Please Help.

Source file: http://www.chronolisme.com/files/test.rar

VB.NET 2005 Help~

Chronolisme — Fri, 23 Mar 2007 16:55:58 +0800

Current Problem:
Using Access as my database, I made a form to add in records to the db and also wanted the ID to auto increment.

CODE

The problem here is whenever I leave the form by click 'back' and come back to the form, the ID is not entered into the text box unless I exit the program and start it again.

The source file is included as an attachment, rename the extension to .rar and unzip it.
Please Help.

Suggested Solution:

» Click to show Spoiler - click again to hide... «

------------------------------------------------------------------------------------------------

Previous problem 1:

» Click to show Spoiler - click again to hide... «

Suggested Solutions to Problem 1:

» Click to show Spoiler - click again to hide... «

QUOTE(narf03 @ Mar 23 2007, 05:05 PM)

this line should be the problem

Dim dr() As DataRow = ds.Tables("NextID").Select("TableID" = action)

try change to

Dim dr() As DataRow = ds.Tables("NextID").Select("TableID='" & action & "'")

and do some basic validation

if dr.length > 0 then returndr(0)("nextid")
return nothing ' <- if no row(s) selected

if it doesnt fix, include the dataset to us
[right][snapback]10875851[/snapback][/right]

QUOTE(Chronolisme @ Mar 23 2007, 05:12 PM)

CODE

GetValue("Product", Me.DbDTSDataSet)

CODE

Module GetNewValue
Public Function GetValue(ByVal action As String, ByRef ds As DataSet)
Dim dr() As DataRow = ds.Tables("NextID").Select("TableID=" & action & "")
Return dr(0)("NextID").ToString
End Function
End Module

Now it says "Cannot find column [Product]."

Is there anything that I missed out in the module? I passed in the dataset by reference other than that do I have to do any binding for the module? What I showed here is the entire module file....

Please Help~

My friend have done something like this before in VB6, which is what I'm trying to do now in VB.NET 2005 :

CODE

Attribute VB_Name = "Module"
Public Function GetNewValue(ByRef dbConn As Adodc, tblID As String)
Dim rs As ADODB.Recordset

Dim tmp, tmp2 As String
Dim iBuff As Integer

tmp = dbConn.RecordSource

With dbConn
.RecordSource = "SELECT * FROM NextID WHERE TableID='" + tblID + "'"
.Refresh
End With

Set rs = dbConn.Recordset

If (Not rs.EOF) Then
iBuff = rs.Fields("NextID")
tmp2 = iBuff
End If

rs.Close

GetNewValue = tmp2
End Function

[right][snapback]10875925[/snapback][/right]

QUOTE(narf03 @ Mar 23 2007, 06:57 PM)

read my code above carefully

they are different

CODE

"'"
""

ok i copy paste here

CODE

Dim dr() As DataRow = ds.Tables("NextID").Select("TableID='" & action & "'")

[right][snapback]10877302[/snapback][/right]

QUOTE(Chronolisme @ Mar 24 2007, 12:58 PM)

Sorry that was my mistake~

It now claims that "Index was outside the bounds of the array."...

and dr.length shows 0... which means it returns no results~
[right][snapback]10885336[/snapback][/right]

QUOTE(narf03 @ Mar 24 2007, 05:58 PM)

ds.Tables("NextID")

make sure you have a table with this name in the dataset

.Select("TableID='" & action & "'")

and make sure u have a field which call "TableID" and a row or data which its TableID is same as your variable action

You can export data by command

ds.WriteXml("c:\output.xml")

and upload the file plz
[right][snapback]10888011[/snapback][/right]

QUOTE(Chronolisme @ Mar 24 2007, 06:52 PM)

TableID is a column name, and variable action is a field under TableID.
[right][snapback]10888429[/snapback][/right]

QUOTE(narf03 @ Mar 24 2007, 11:02 PM)

Your exported xml does not contains any data, make sure u use that line to output your xml RIGHT before you filter, so we know what kind of data is being filtered.

some sample code for you to understand the relation of dataset, datatable, datarow and its content. And check the file I upload.

CODE

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim ds As New DataSet
ds.Tables.Add("table1")

ds.Tables("table1").Columns.Add("column1")
ds.Tables(0).Columns.Add("column2")

Dim dr As DataRow
dr = ds.Tables(0).NewRow
dr(0) = "d1/1"
dr("column2") = "d1/2"
ds.Tables("table1").Rows.Add(dr)

dr = ds.Tables(0).NewRow
dr("column1") = "d2/1"
dr(1) = "d2/2"
ds.Tables("table1").Rows.Add(dr)

ds.WriteXml("c:\sample.xml")

Dim drs() As DataRow
drs = ds.Tables("table1").Select("column1='" & "d2/1" & "'")
If drs.Length > 0 Then MsgBox(drs(0)(1))
End Sub
End Class

[attachmentid=208809]
[right][snapback]10890852[/snapback][/right]

QUOTE(Chronolisme @ Mar 25 2007, 01:05 PM)

CODE

Module GetNewID
Public Function GetID(ByVal action As String, ByRef ds As DataSet)
ds.WriteXml("c:/output.xml")
Dim dr() As DataRow = ds.Tables("NextID").Select("TableID='" & action & "'")
Return dr(0)("NextID").ToString
End Function
End Module

This is where I put the line~
The example you showed is done in a form, but this is a module.

In your code, you created a dataset and added in new Tables, Columns and Values into the dataset u created. But I'm trying to obtain the values from an existing Access mdb that already has all the tables and columns and value, which is what I'm trying to do.

Can u help me with this? I'm trying to use a module with a function that when a primary key is passed in, it returns the value of another column of the same row. An example code would help best~

Sorry for all the noob questions, I'm still learning

Thanks for teaching~
[right][snapback]10895162[/snapback][/right]

QUOTE(narf03 @ Mar 26 2007, 09:29 AM)

dataset/datatable/datarow, etc cannot get data from your access database, u need to use OleDbDataAdapter, to fetch the data into dataset/datatable. I can say that, whatever u tried in last few days is totally wrong.
[right][snapback]10904005[/snapback][/right]

QUOTE(Chronolisme @ Mar 26 2007, 01:43 PM)

Ah~ So that's the problem all the while =.=
Didn't know it can't be done, oh crap, well anyway,
I consider this problem Solved...
[right][snapback]10907270[/snapback][/right]

[Wallpaper] 中国云南 (China, YunNan)

Chronolisme — Fri, 29 Dec 2006 14:02:44 +0800

These are photos I took during my trip to China YunNan last week.
Took them to use it as wallpaper.
I'm here to share them with you all

The photos consist of 2 locations:

1. 云南石林 (YunNan Stone Forest).
2. 丽江玉龙雪山 (LiJiang Jade Dragon Snow Mountain).

That's about it...

Merry Christmas and Happy New Year everyone!

Lowyat.NET: Latest topics by Chronolisme

Main Page News RSS

1394 Connection missing.

How to load Gnome interface?

Question about sorting

Auto-Refresh an Image

Bukit Jalil Badminton Courts

VB.NET 2005 Help Again~

VB.NET 2005 Help~

[Wallpaper] 中国云南 (China, YunNan)