Gallery Toba Application

ADONET DATASET tables OLEDB

2009-05-18T04:04:00.000-07:00

The DataSet contains DataTableCollection and their DataRelationCollection. The DataTableCollection contains zero or more DataTable objects. The data inside Table is in the form of Rows and Columns . The OleDbDataAdapter object allows us to populate DataTables in a DataSet.

In some situations we have to find how many tables inside the Dataset Object contains . The following VB.NET source code shows how to find the tables inside the Dataset.

connetionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Your mdb filename;"

sql = "Your SQL Statement Here"

You have to replace the string with your real time variables.

Imports System.Data.OleDb
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim connetionString As String
        Dim connection As OleDbConnection
        Dim oledbAdapter As OleDbDataAdapter
        Dim ds As New DataSet
        Dim sql As String
        Dim i As Integer

        connetionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Your mdb filename;"
        sql = "Your SQL Statement Here"

        connection = New OleDbConnection(connetionString)
        Try
            connection.Open()
            oledbAdapter = New OleDbDataAdapter(sql, connection)
            oledbAdapter.Fill(ds, "OLEDB Temp Table")
            oledbAdapter.Dispose()
            connection.Close()

            For i = 0 To ds.Tables.Count - 1
                MsgBox(ds.Tables(i).TableName)
            Next

        Catch ex As Exception
            MsgBox("Can not open connection ! ")
        End Try
    End Sub
End Class

ADONET DATASET SQLSERVER

2009-05-18T04:03:00.001-07:00

The DataSet contains the copy of the data we requested through the SQL statement. We can use Dataset in combination with SqlDataAdapter class . The SqlDataAdapter object allows us to populate Data Tables in a DataSet. We can use Fill method in the SqlDataAdapter for populating data in a Dataset.

connetionString = "Data Source=ServerName;Initial Catalog=DatabaseName;User ID=UserName;Password=Password"

sql = "Your SQL Statement Here"

You have to replace the string with your real time variables.

Imports System.Data.SqlClient
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim connetionString As String
        Dim connection As SqlConnection
        Dim command As SqlCommand
        Dim adapter As New SqlDataAdapter
        Dim ds As New DataSet
        Dim i As Integer
        Dim sql As String

  connetionString = "Data Source=ServerName;Initial Catalog=DatabaseName;User ID=UserName;Password=Password"
  sql = "Your SQL Statement Here"

        connection = New SqlConnection(connetionString)

        Try
            connection.Open()
            command = New SqlCommand(sql, connection)
            adapter.SelectCommand = command
            adapter.Fill(ds)
            adapter.Dispose()
            command.Dispose()
            connection.Close()

            For i = 0 To ds.Tables(0).Rows.Count - 1
                MsgBox(ds.Tables(0).Rows(i).Item(0) & "  --  " & ds.Tables(0).Rows(i).Item(1))
            Next

        Catch ex As Exception
            MsgBox("Can not open connection ! ")
        End Try
    End Sub
End Class

ADONET DATASET relations

2009-05-18T04:02:00.001-07:00

The DataSet contains DataTableCollection and their DataRelationCollection. The DataSet.Relations property is an instance of the DataRelationsCollection Object. We can create parent child data relations between DataTable using Datarelation Object. We can relate one or more column from different tables using DataRelation Object . The columns involved in the DataRelation should be identical data types. That is the parent and child column should be similar Data Types

connetionString = "Data Source=ServerName;Initial Catalog=DatabaseName;User ID=UserName;Password=Password"

firstSql = "Your First SQL Statement Here"
secondSql = "Your Second SQL Statement Here"

You have to replace the string with your real time variables.

Imports System.Data.SqlClient
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim connetionString As String
        Dim connection As SqlConnection
        Dim command As SqlCommand
        Dim adapter As New SqlDataAdapter
        Dim ds As New DataSet
        Dim firstSql As String
        Dim secondSql As String
  connetionString = "Data Source=ServerName;Initial Catalog=DatabaseName;User ID=UserName;Password=Password"
  firstSql = "Your First SQL Statement Here"
  secondSql = "Your Second SQL Statement Here"
        connection = New SqlConnection(connetionString)
        Try
            connection.Open()
            command = New SqlCommand(firstSql, connection)
            adapter.SelectCommand = command
            adapter.Fill(ds, "Table1")

            adapter.SelectCommand.CommandText = secondSql
            adapter.Fill(ds, "Table2")

            adapter.Dispose()
            command.Dispose()
            connection.Close()
            'creating data relations
            Dim relation As DataRelation
            Dim table1Column As DataColumn
            Dim table2Column As DataColumn
            'retrieve column
            table1Column = ds.Tables("Table1").Columns(0)
            table2Column = ds.Tables("table2").Columns(0)
            'relating tables
            relation = New DataRelation("relation", table1Column, table2Column)
            'assign relation to dataset
            ds.Relations.Add(relation)

            MsgBox("Data relation completed")
        Catch ex As Exception
            MsgBox("Can not open connection ! ")
        End Try
    End Sub
End Class

ADONET DATASET OLEDB

2009-05-18T04:00:00.000-07:00

The DataSet contains the copy of the data we requested through the SQL statement. We can use Dataset in combination with OleDbDataAdapter class . The OleDbDataAdapter object allows us to populate Data Tables in a DataSet. We can use Fill method in the OleDbDataAdapter for populating data in a Dataset.

connetionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Your mdb filename;"

sql = "Your SQL Statement Here"

You have to replace the string with your real time variables.

Imports System.Data.OleDb
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim connetionString As String
        Dim connection As OleDbConnection
        Dim oledbAdapter As OleDbDataAdapter
        Dim ds As New DataSet
        Dim sql As String
        Dim i As Integer

        connetionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Your mdb filename;"
        sql = "Your SQL Statement Here"

        connection = New OleDbConnection(connetionString)
        Try
            connection.Open()
            oledbAdapter = New OleDbDataAdapter(sql, connection)
            oledbAdapter.Fill(ds)
            oledbAdapter.Dispose()
            connection.Close()

            For i = 0 To ds.Tables(0).Rows.Count - 1
                MsgBox(ds.Tables(0).Rows(i).Item(0) & "  --  " & ds.Tables(0).Rows(i).Item(1))
            Next
        Catch ex As Exception
            MsgBox("Can not open connection ! ")
        End Try
    End Sub
End Class

ADONET DATASET multiple tables SQLSERVER

2009-05-18T03:59:00.000-07:00

The DataSet contains DataTableCollection and their DataRelationCollection. The DataTableCollection contains zero or more DataTable objects. The SqlDataAdapter object allows us to populate DataTables in a DataSet. We can use Fill method in the SqlDataAdapter for populating data in a Dataset.

We can populate Dataset with more than one table at a time using SqlDataAdapter Object . The following VB.NET source code shows how to a single SqlDataAdapter fill Dataset with multiple tables.

connetionString = "Data Source=ServerName;Initial Catalog=DatabaseName;User ID=UserName;Password=Password"

sql = "Your SQL Statement Here"

You have to replace the string with your real time variables.

Imports System.Data.SqlClient
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim connetionString As String
        Dim connection As SqlConnection
        Dim command As SqlCommand
        Dim adapter As New SqlDataAdapter
        Dim ds As New DataSet
        Dim i As Integer
        Dim firstSql As String
        Dim secondSql As String

  connetionString = "Data Source=ServerName;Initial Catalog=DatabaseName;User ID=UserName;Password=Password"
  firstSql = "Your First SQL Statement Here"
  secondSql = "Your Second SQL Statement Here"
        connection = New SqlConnection(connetionString)

        Try
            connection.Open()

            command = New SqlCommand(firstSql, connection)
            adapter.SelectCommand = command
            adapter.Fill(ds, "First Table")

            adapter.SelectCommand.CommandText = secondSql
            adapter.Fill(ds, "Second Table")

            adapter.Dispose()
            command.Dispose()
            connection.Close()

            'retrieve first table data
            For i = 0 To ds.Tables(0).Rows.Count - 1
                MsgBox(ds.Tables(0).Rows(i).Item(0) & "  --  " & ds.Tables(0).Rows(i).Item(1))
            Next
            'retrieve second table data
            For i = 0 To ds.Tables(1).Rows.Count - 1
                MsgBox(ds.Tables(1).Rows(i).Item(0) & "  --  " & ds.Tables(1).Rows(i).Item(1))
            Next

        Catch ex As Exception
            MsgBox("Can not open connection ! ")
        End Try
    End Sub
End Class

ADONET DATASET multiple tables OLEDB

2009-05-18T03:58:00.000-07:00

The DataSet contains DataTableCollection and their DataRelationCollection. The DataTableCollection contains zero or more DataTable objects. The OleDbDataAdapter object allows us to populate DataTables in a DataSet. We can use Fill method in the OleDbDataAdapter for populating data in a Dataset. We can populate Dataset with more than one table at a time using OleDbDataAdapter Object . The following VB.NET source code shows how to a single OleDbDataAdapter fill Dataset with multiple tables.

connetionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Your mdb filename;"

firstSql = "Your First SQL Statement Here"
secondSql = "Your Second SQL Statement Here"

You have to replace the string with your real time variables.

Imports System.Data.OleDb
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim connetionString As String
        Dim connection As OleDbConnection
        Dim oledbAdapter As OleDbDataAdapter
        Dim ds As New DataSet
        Dim firstSql As String
        Dim secondSql As String
        Dim i As Integer
        connetionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Your mdb filename;"
        firstSql = "Your First SQL Statement Here"
        secondSql = "Your Second SQL Statement Here"
        connection = New OleDbConnection(connetionString)
        Try
            connection.Open()
            oledbAdapter = New OleDbDataAdapter(firstSql, connection)
            oledbAdapter.Fill(ds, "First Table")
            oledbAdapter.SelectCommand.CommandText = secondSql
            oledbAdapter.Fill(ds, "Second Table")
            oledbAdapter.Dispose()
            connection.Close()
            'retrieve first table data
            For i = 0 To ds.Tables(0).Rows.Count - 1
                MsgBox(ds.Tables(0).Rows(i).Item(0) & "  --  " & ds.Tables(0).Rows(i).Item(1))
            Next
            'retrieve second table data
            For i = 0 To ds.Tables(1).Rows.Count - 1
                MsgBox(ds.Tables(1).Rows(i).Item(0) & "  --  " & ds.Tables(1).Rows(i).Item(1))
            Next
        Catch ex As Exception
            MsgBox("Can not open connection ! ")
        End Try
    End Sub
End Class

ADONET DATASET merge tables SQLSERVER

2009-05-18T03:57:00.000-07:00

The DataSet contains copy of the data we requested through the SQL statement. The SqlDataAdapter object allows us to populate DataTable in a DataSet. We can use Fill method in the SqlDataAdapter for populating data in a Dataset. We can populate Dataset with more than one table at a time using SqlDataAdapter Object. The DataTableCollection contains zero or more DataTable objects.

In some situation we want to combine the result of multiple SQL query as a single result set. In that case we can use the Dataset's Merge method for doing this. The tables involved in the merge should be identical, that is the columns are similar data types .

connetionString = "Data Source=ServerName;Initial Catalog=DatabaseName;User ID=UserName;Password=Password"

firstSql = "Your First SQL Statement Here"
secondSql = "Your Second SQL Statement Here"

You have to replace the string with your real time variables.

Imports System.Data.SqlClient
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim connetionString As String
        Dim connection As SqlConnection
        Dim command As SqlCommand
        Dim adapter As New SqlDataAdapter
        Dim ds As New DataSet
        Dim dt As DataTable
        Dim firstSql As String
        Dim secondSql As String
        Dim i As Integer
  connetionString = "Data Source=ServerName;Initial Catalog=DatabaseName;User ID=UserName;Password=Password"
  firstSql = "Your First SQL Statement Here"
  secondSql = "Your Second SQL Statement Here"
        connection = New SqlConnection(connetionString)
        Try
            connection.Open()
            command = New SqlCommand(firstSql, connection)
            adapter.SelectCommand = command
            adapter.Fill(ds, "Table(0)")
            adapter.SelectCommand.CommandText = secondSql
            adapter.Fill(ds, "Table(1)")
            adapter.Dispose()
            command.Dispose()
            connection.Close()

            ds.Tables(0).Merge(ds.Tables(1))
            dt = ds.Tables(0)

            For i = 0 To dt.Rows.Count - 1
                MsgBox(dt.Rows(i).Item(0) & "  --  " & dt.Rows(i).Item(1))
            Next
        Catch ex As Exception
            MsgBox("Can not open connection ! ")
        End Try
    End Sub
End Class

ADONET DATASET merge tables OLEDB

2009-05-18T03:56:00.000-07:00

The DataSet contains copy of the data we requested through the SQL statement. The OleDbDataAdapter object allows us to populate DataTable in a DataSet. We can use Fill method in the OleDbDataAdapter for populating data in a Dataset. We can populate Dataset with more than one table at a time using OleDbDataAdapter Object. The DataTableCollection contains zero or more DataTable objects. In some situation we want to combine the result of multiple SQL query results as a single result set. In that case we can use the Dataset's Merge method for doing this. The tables involved in the merge should be identical. The following VB.NET source code shows how to merge the tables from two different dataset.

connetionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Your mdb filename;"

firstSql = "Your First SQL Statement Here"
secondSql = "Your Second SQL Statement Here"

You have to replace the string with your real time variables.

Imports System.Data.OleDb
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim connetionString As String
        Dim connection As OleDbConnection
        Dim oledbAdapter As OleDbDataAdapter
        Dim ds1 As New DataSet
        Dim ds2 As New DataSet
        Dim dt As DataTable
        Dim firstSql As String
        Dim secondSql As String
        Dim i As Integer
        connetionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Your mdb filename;"
        firstSql = "Your First SQL Statement Here"
        secondSql = "Your Second SQL Statement Here"
        connection = New OleDbConnection(connetionString)
        Try
            connection.Open()
            oledbAdapter = New OleDbDataAdapter(firstSql, connection)
            oledbAdapter.Fill(ds1, "First Table")
            oledbAdapter.SelectCommand.CommandText = secondSql
            oledbAdapter.Fill(ds2, "Second Table")
            oledbAdapter.Dispose()
            connection.Close()

            ds1.Tables(0).Merge(ds2.Tables(0))
            dt = ds1.Tables(0)

            For i = 0 To dt.Rows.Count - 1
                MsgBox(dt.Rows(i).Item(0) & "  --  " & dt.Rows(i).Item(1))
            Next

        Catch ex As Exception
            MsgBox("Can not open connection ! ")
        End Try
    End Sub
End Class

ADONET DATASET create without database

2009-05-18T03:55:00.001-07:00

Dataset represents a collection of data retrieved from the Data Source. The DataSet contains DataTableCollection and their DataRelationCollection. The DataTableCollection contains zero or more DataTable objects. The data set may comprise data for one or more members, corresponding to the number of rows. We can fill the data in Dataset without calling SQL statements. For that we manually create a DataTable and add data in it.

Imports System.Data.OleDb
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ds As New DataSet
        Dim dt As DataTable
        Dim dr As DataRow
        Dim idCoulumn As DataColumn
        Dim nameCoulumn As DataColumn
        Dim i As Integer

        dt = New DataTable()
        idCoulumn = New DataColumn("ID", Type.GetType("System.Int32"))
        nameCoulumn = New DataColumn("Name", Type.GetType("System.String"))

        dt.Columns.Add(idCoulumn)
        dt.Columns.Add(nameCoulumn)

        dr = dt.NewRow()
        dr("ID") = 1
        dr("Name") = "Name1"
        dt.Rows.Add(dr)

        dr = dt.NewRow()
        dr("ID") = 2
        dr("Name") = "Name2"
        dt.Rows.Add(dr)

        ds.Tables.Add(dt)

        For i = 0 To ds.Tables(0).Rows.Count - 1
            MsgBox(ds.Tables(0).Rows(i).Item(0) & "   --   " & ds.Tables(0).Rows(i).Item(1))
        Next i

    End Sub
End Class

ADONET DATASET create without database

2009-05-18T03:55:00.000-07:00

Imports System.Data.OleDb
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ds As New DataSet
        Dim dt As DataTable
        Dim dr As DataRow
        Dim idCoulumn As DataColumn
        Dim nameCoulumn As DataColumn
        Dim i As Integer

        dt = New DataTable()
        idCoulumn = New DataColumn("ID", Type.GetType("System.Int32"))
        nameCoulumn = New DataColumn("Name", Type.GetType("System.String"))

        dt.Columns.Add(idCoulumn)
        dt.Columns.Add(nameCoulumn)

        dr = dt.NewRow()
        dr("ID") = 1
        dr("Name") = "Name1"
        dt.Rows.Add(dr)

        dr = dt.NewRow()
        dr("ID") = 2
        dr("Name") = "Name2"
        dt.Rows.Add(dr)

        ds.Tables.Add(dt)

        For i = 0 To ds.Tables(0).Rows.Count - 1
            MsgBox(ds.Tables(0).Rows(i).Item(0) & "   --   " & ds.Tables(0).Rows(i).Item(1))
        Next i

    End Sub
End Class

ADONET DATASET count rows SQLSERVER

2009-05-18T03:53:00.001-07:00

The DataSet contains copy of the data we requested through the SQL statement. The DataSet consists of DataTableCollection and their DataRelationCollection. The DataTableCollection contains zero or more DataTable objects. The data set may comprise data for one or more members, corresponding to the number of rows. The following VB.NET source code shows how to find the number of rows in a table that resides in the Dataset.

connetionString = "Data Source=ServerName;Initial Catalog=DatabaseName;User ID=UserName;Password=Password"

sql = "Your SQL Statement Here"

You have to replace the string with your real time variables.

Imports System.Data.SqlClient
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim connetionString As String
        Dim connection As SqlConnection
        Dim command As SqlCommand
        Dim adapter As New SqlDataAdapter
        Dim ds As New DataSet
        Dim sql As String

  connetionString = "Data Source=ServerName;Initial Catalog=DatabaseName;User ID=UserName;Password=Password"
  sql = "Your SQL Statement Here"
        connection = New SqlConnection(connetionString)

        Try
            connection.Open()
            command = New SqlCommand(sql, connection)
            adapter.SelectCommand = command
            adapter.Fill(ds, "SQL Temp Table")
            adapter.Dispose()
            command.Dispose()
            connection.Close()

            MsgBox("Number of row(s)  -  " & ds.Tables(0).Rows.Count)

        Catch ex As Exception
            MsgBox("Can not open connection ! ")
        End Try
    End Sub
End Class

ADONET DATASET count rows SQLSERVER

2009-05-18T03:53:00.000-07:00

Imports System.Data.SqlClient
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim connetionString As String
        Dim connection As SqlConnection
        Dim command As SqlCommand
        Dim adapter As New SqlDataAdapter
        Dim ds As New DataSet
        Dim sql As String

  connetionString = "Data Source=ServerName;Initial Catalog=DatabaseName;User ID=UserName;Password=Password"
  sql = "Your SQL Statement Here"
        connection = New SqlConnection(connetionString)

        Try
            connection.Open()
            command = New SqlCommand(sql, connection)
            adapter.SelectCommand = command
            adapter.Fill(ds, "SQL Temp Table")
            adapter.Dispose()
            command.Dispose()
            connection.Close()

            MsgBox("Number of row(s)  -  " & ds.Tables(0).Rows.Count)

        Catch ex As Exception
            MsgBox("Can not open connection ! ")
        End Try
    End Sub
End Class

ADONET DATASET count rows OLEDB

2009-05-18T03:52:00.000-07:00

The DataSet contains copy of the data we requested through the SQL statement. The DataSet consists of DataTableCollection and their DataRelationCollection. The DataTableCollection contains zero or more DataTable objects. The data inside Table is in the form of Rows and Columns . The following VB.NET source code shows how to find the number of rows in a table that resides in the Dataset from OLEDB Data Source.

connetionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Your mdb filename;"

sql = "Your SQL Statement Here"

You have to replace the string with your real time variables.

Imports System.Data.OleDb
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim connetionString As String
        Dim connection As OleDbConnection
        Dim oledbAdapter As OleDbDataAdapter
        Dim ds As New DataSet
        Dim sql As String

        connetionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Your mdb filename;"
        sql = "Your SQL Statement Here"

        connection = New OleDbConnection(connetionString)
        Try
            connection.Open()
            oledbAdapter = New OleDbDataAdapter(sql, connection)
            oledbAdapter.Fill(ds, "OLEDB Temp Table")
            oledbAdapter.Dispose()
            connection.Close()

            MsgBox("number of Row(s)   -   " & ds.Tables(0).Rows.Count)

        Catch ex As Exception
            MsgBox("Can not open connection ! ")
        End Try
    End Sub
End Class

ADONET DATASET column definition SQLSERVER

2009-05-18T03:51:00.000-07:00

Dataset represents a collection of data retrieved from the Data Source. The Dataset can work with the data it contains, without knowing the source of the data coming from. The SqlDataAdapter object allows us to populate DataTable in a DataSet. We can use Fill method in the SqlDataAdapter for populating data in a Dataset. The Dataset can contains more than one Table at a time. The data inside Table is in the form of Rows and Columns .

In some situations we have to find the column headers in a DataTable. There is a ColumnsCollection object in the Datatable hold the column Definitions.

connetionString = "Data Source=ServerName;Initial Catalog=DatabaseName;User ID=UserName;Password=Password"

sql = "Your SQL Statement Here"

You have to replace the string with your real time variables.

Imports System.Data.SqlClient
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim connetionString As String
        Dim connection As SqlConnection
        Dim command As SqlCommand
        Dim adapter As New SqlDataAdapter
        Dim ds As New DataSet
        Dim dt As DataTable
        Dim column As DataColumn
        Dim sql As String

  connetionString = "Data Source=ServerName;Initial Catalog=DatabaseName;User ID=UserName;Password=Password"
  sql = "Your SQL Statement Here"
        connection = New SqlConnection(connetionString)

        Try
            connection.Open()
            command = New SqlCommand(sql, connection)
            adapter.SelectCommand = command
            adapter.Fill(ds, "SQL Temp Table")
            adapter.Dispose()
            command.Dispose()
            connection.Close()

            dt = ds.Tables(0)
            For Each column In dt.Columns
                MsgBox(column.ColumnName)
            Next

        Catch ex As Exception
            MsgBox("Can not open connection ! ")
        End Try
    End Sub
End Class

ADONET DATASET column definition OLEDB

2009-05-18T03:50:00.000-07:00

Dataset represents a collection of data retrieved from the Data Source.. The OleDbDataAdapter object allows us to populate DataTable in a DataSet. We can use Fill method in the OleDbDataAdapter for populating data in a Dataset. The Dataset can contain more than one Table at a time. The data set may comprise data for one or more members, corresponding to the number of rows.

In some situations we have to find the column headers in a DataTable. There is a ColumnsCollection object in the Datatable hold the column Definitions.

connetionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Your mdb filename;"

sql = "Your SQL Statement Here"

You have to replace the string with your real time variables.

Imports System.Data.OleDb
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim connetionString As String
        Dim connection As OleDbConnection
        Dim oledbAdapter As OleDbDataAdapter
        Dim ds As New DataSet
        Dim dt As DataTable
        Dim sql As String
        Dim i As Integer

        connetionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Your mdb filename;"
        sql = "Your SQL Statement Here"

        connection = New OleDbConnection(connetionString)
        Try
            connection.Open()
            oledbAdapter = New OleDbDataAdapter(sql, connection)
            oledbAdapter.Fill(ds, "OLEDB Temp Table")
            oledbAdapter.Dispose()
            connection.Close()

            dt = ds.Tables(0)
            For i = 0 To dt.Columns.Count - 1
                MsgBox(dt.Columns(i).ColumnName)
            Next
        Catch ex As Exception
            MsgBox("Can not open connection ! ")
        End Try
    End Sub
End Class

ADONET connectionstring

2009-05-18T03:49:00.000-07:00

Connection String is a normal String representation which contains Database connection information to establish the connection between Datbase and the Application. The Connection String includes parameters such as the name of the driver, Server name and Database name , as well as security information such as user name and password. Data providers use a connection string containing a collection of parameters to establish the connection with the database.

The .NET Framework provides mainly three data providers: Microsoft SQL Server, OLEDB and ODBC. Here you can see how to make connection string to these ADO.NET Data Providers.

Microsoft SQL Server Connection String

connetionString ="Data Source = ServerName; Initial Catalog = Databasename; User ID = UserName; Password=Password"

OLEDB Data Provider Connection String

connetionString = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = yourdatabasename.mdb;"

ODBC Connection String

connetionString = "Driver = {Microsoft Access Driver (*.mdb)}; DBQ = yourdatabasename.mdb;"

Note : You have to provide the necessary informations to the Connection String attributes.

In the following section you can see how to these ADO.NET Data Providers establish connection to the Databse in detail.

SQL Server Connection

OLEDB Connection

ODBC Connection

ADO.NET DATASET

2009-05-18T03:47:00.000-07:00

The ADO.NET DataSet contains DataTableCollection and their DataRelationCollection . It represents a collection of data retrieved from the Data Source. We can use Dataset in combination with DataAdapter class. The DataSet object offers a disconnected data source architecture. The Dataset can work with the data it contain, without knowing the source of the data coming from. That is , the Dataset can work with a disconnected mode from its Data Source . It gives a better advantage over DataReader , because the DataReader is working only with the connection oriented Data Sources.

The Dataset contains the copy of the data we requested. The Dataset contains more than one Table at a time. We can set up Data Relations between these tables within the DataSet. The data set may comprise data for one or more members, corresponding to the number of rows.

The DataAdapter object allows us to populate DataTables in a DataSet. We can use Fill method of the DataAdapter for populating data in a Dataset. The DataSet can be filled either from a data source or dynamically. A DataSet can be saved to an XML file and then loaded back into memory very easily. The following links shows more information of Dataset in details.

DATASET TABLES SQLSERVER

2009-05-18T03:42:00.000-07:00

The DataSet contains DataTableCollection and their DataRelationCollection. The DataTableCollection contains zero or more DataTable objects. The Dataset may comprise data for one or more members, corresponding to the number of rows. The SqlDataAdapter object allows us to populate DataTables in a DataSet.

In some situations we have to find how many tables inside the Dataset Object contains . The following VB.NET source code shows how to find the tables inside the Dataset.

connetionString = "Data Source=ServerName;Initial Catalog=DatabaseName;User ID=UserName;Password=Password"

sql = "Your SQL Statement Here"

You have to replace the string with your real time variables.

Imports System.Data.SqlClient
Public Class Form1
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim connetionString As String
       Dim connection As SqlConnection
       Dim command As SqlCommand
       Dim adapter As New SqlDataAdapter
       Dim ds As New DataSet
       Dim tables As DataTable
       Dim i As Integer
       Dim sql As String

 connetionString = "Data Source=ServerName;Initial Catalog=DatabaseName;User ID=UserName;Password=Password"
 sql = "Your SQL Statement Here"
       connection = New SqlConnection(connetionString)

       Try
           connection.Open()
           command = New SqlCommand(sql, connection)
           adapter.SelectCommand = command
           adapter.Fill(ds, "SQL Temp Table")
           adapter.Dispose()
           command.Dispose()
           connection.Close()


           For Each tables In ds.Tables
               MsgBox(tables.TableName)
           Next

       Catch ex As Exception
           MsgBox("Can not open connection ! ")
       End Try
   End Sub
End Class

String EndsWith

2009-05-18T03:15:00.000-07:00

EndsWith in VB.NET String Class check if the Parameter String EndsWith the Specified String

System.String.EndsWith(String suffix) as Boolean

Parameters:

suffix - The passing String for it EndsWith

Returns:

Boolean - Yes/No

If the String EndsWith the Parameter String it returns True

If the String doesnt EndsWith the Parameter String it return False

For ex : "This is a Test".EndsWith("Test") returns True

"This is a Test".EndsWith("is") returns False

Exceptions:

System.ArgumentNullException : If the argument is null

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, 
  ByVal e As System.EventArgs) Handles Button1.Click

        Dim str As String
        str = "VB.NET TOP 10 BOOKS"
        If str.EndsWith("BOOKS") = True Then
            MsgBox("The String EndsWith 'BOOKS' ")
        Else
            MsgBox("The String does not EndsWith 'BOOKS'")
        End If

    End Sub
End Class

String Split

2009-05-18T03:14:00.000-07:00

Vb.Net String Split function returns an array of String containing the substrings delimited by the given System.Char array.

Public Function Split(ByVal ParamArray separator() As Char) As String()

Parameters:

separator - the given delimiter

Returns:

An array of Strings delimited by one or more characters in separator

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click

        Dim str As String
        Dim strArr() As String
        Dim count As Integer
        str = "vb.net split test"
        strArr = str.Split(" ")
        For count = 0 To strArr.Length - 1
            MsgBox(strArr(count))
        Next

    End Sub
End Class

String Substring

2009-05-18T03:13:00.002-07:00

Substring in Vb.Net String Class returns a new string that is a substring of this string. The substring begins at the specified given index and extended up to the given length.

Public Function Substring(ByVal startIndex As Integer, ByVal length As Integer) As String

Parameters:

startIndex: The index of the start of the substring.

length: The number of characters in the substring.

Returns:

The specified substring.

Exceptions:

System.ArgumentOutOfRangeException : the beginIndex or length less than zero, or the begin index + length not within the specified string

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click

        Dim str As String
        Dim retString As String
        str = "This is substring test"
        retString = str.Substring(8, 9)
        MsgBox(retString)

    End Sub
End Class

String Chars

2009-05-18T03:13:00.001-07:00

The VB.NET String Chars method return the character at the specified index of an instance

System.String.Chars(ByVal index As Integer) As Char

Parameters:

Integer index - The character position in the returned Character.

Returns:

Char - The return Character.

For ex :

"Return test".Chars(3) return a single character 'u'

If u pass a number more than String length will return an exception

"Return test".Chars(25) will throw a System.IndexOutOfRangeException

Exceptions:

System.IndexOutOfRangeException : The index is less than zero or greater than the length of String Object

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim str As String = "Returned Character Chars()"
        Dim singleChar As Char
        singleChar = str.Chars(3)
        MsgBox(singleChar)
    End Sub
End Class

String Clone

2009-05-18T03:12:00.000-07:00

The VB.NET String Clone() method returns a reference to this instance of String.

Public Function Clone() As Object

Returns:

Object : Return the instance of the String

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim str As String = "Clone() Test"
        Dim clonedString As String
        clonedString = str.Clone()
        MsgBox(clonedString)
    End Sub
End Class

String Compare

2009-05-18T03:11:00.002-07:00

The VB.NET String Compare function is use to compare two String Objects.

System.String.Compare(String str1,String str2, Boolean ) As Integer

It returns an Integer indication lexical relationship between the two comprehends

Parameters:

String str1 : Parameter String

String str2 : Parameter String

Boolean True/False Indication to check the String with case sensitive or without case sensitive

Returns:

Integer : returns less than zero, zero or greater than zero.

Less than zero : str1 is less than str2

zero : str1 is equal to str2

Greater than zero : str1 is grater than str2

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim str1 As String
        Dim str2 As String

        str1 = "vb.net"
        str2 = "VB.NET"

        Dim result As Integer

        result = String.Compare(str1, str2)
        MsgBox(result)

        result = String.Compare(str1, str2, True)
        MsgBox(result)
    End Sub
End Class

String Contains

2009-05-18T03:11:00.001-07:00

The Contains method in the VB.NET String Class check the specified parameter String exist in the String

System.String.Contains(String str) As Boolean

Parameters:

String str - input String for search

Returns:

Boolean - Yes/No

If the str Contains in the String then it returns true

If the str does not Contains in the String it returns False

For ex: "This is a Test".Contains("is") return True

"This is a Test".Contains("yes") return False

Exceptions:

System.ArgumentNullException : If the argument is null

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim str As String
        str = "VB.NET TOP 10 BOOKS"
        If str.Contains("TOP") = True Then
            MsgBox("The string Contains() 'TOP' ")
        Else
            MsgBox("The String does not Contains() 'TOP'")
        End If
    End Sub
End Class

String Copy

2009-05-18T03:10:00.000-07:00

VB.NET String Copy method is create a new String object with the same content

System.String.Copy(ByVal str As String) As String

Parameters:

String str : The argument String for Copy method

Returns:

String : Returns a new String as the same content of argument String

Exceptions:

System.ArgumentNullException : If the argument is null.

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim str1 As String
        Dim str2 As String

        str1 = "VB.NET Copy() test"
        str2 = String.Copy(str1)

        MsgBox(str2)
    End Sub
End Class

String CopyTo

2009-05-18T03:08:00.000-07:00

VB.NET String CopyTo method Copies a specified number of characters from a specified position in this instance to a specified position in an array of characters.

System.String.CopyTo(ByVal sourceIndex As Integer, ByVal destination() As Char, ByVal destinationIndex As Integer, ByVal count As Integer)

Parameters:

Integer sourceIndex : The starting position of the source String

Char destination() : The character Array

Integer destinationIndex : Array element in the destination

Integer count : The number of characters to destination

Exceptions:

System.ArgumentNullException : If the destination is null

System.ArgumentOutOfRangeException :

Source Index, DestinationIndes or Count is a -ve value

Count is greater than the length of the substring from startIndex to the end of this instance

count is greater than the length of the subarray from destinationIndex to the end of destination

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim str1 As String = "CopyTo() sample"
        Dim chrs(5) As Char
        str1.CopyTo(0, chrs, 0, 6)
        MsgBox(chrs(0) + chrs(1) + chrs(2) + chrs(3) + chrs(4) + chrs(5))
    End Sub
End Class

String Equals

2009-05-18T03:07:00.000-07:00

VB.NET String Equals function is to check the specified two String Object values are same or not

System.String.Equals(String str1, String str2) As Boolean

Parameters:

String str1 : The String argument

String str2 : The String argument

Returns:

Boolean : Yes/No

It return the values of the two String Objects are same

For ex :

Str1 = "Equals()"

Str2 = "Equals()"

String.Equals(Str1,Str2) returns True

String.Equals(Str1.ToLower,Str2) returns False

Because the String Objects values are different

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim str1 As String = "Equals"
        Dim str2 As String = "Equals"

        If String.Equals(str1, str2) Then
            MsgBox("Strings are Equal() ")
        Else
            MsgBox("Strings are not Equal() ")
        End If
    End Sub
End Class

String Format

2009-05-18T03:06:00.000-07:00

String Format method replace the argument Object into a text equivalent System.Striing.

System.Format(ByVal format As String, ByVal arg0 As Object) As String

Parameters:

String format : The format String

The format String Syntax is like {indexNumber:formatCharacter}

Object arg0 : The object to be formatted.

Returns:

String : The formatted String

Exceptions:

System.ArgumentNullException : The format String is null.

System.FormatException : The format item in format is invalid.

The number indicating an argument to format is less than zero, or greater than or equal to the number of specified objects to format.

For ex :

Currency :

String.Format("{0:c}", 10) will return $10.00

The currency symbol ($) displayed depends on the global locale settings.

Date :

String.Format("Today's date is {0:D}", DateTime.Now)

You will get Today's date like : 01 January 2005

Time :

String.Format("The current time is {0:T}", DateTime.Now)

You will get Current Time Like : 10:10:12

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim dNum As Double
        dNum = 32.123456789
        MsgBox("Formated String " & String.Format("{0:n4}", dNum))
    End Sub
End Class

String IndexOf

2009-05-18T03:05:00.000-07:00

The IndexOf method in String Class returns the index of the first occurrence of the specified substring.

System.String.IndexOf(String str) As Integer

Parameters:

str - The parameter string to check its occurrences

Returns:

Integer - If the parameter String occurred as a substring in the specified String

it returns position of the first character of the substring .

If it does not occur as a substring, -1 is returned.

Exceptions:

System.ArgumentNullException: If the Argument is null.

For ex:

"This is a test".IndexOf("Test") returns 10

"This is a test".IndexOf("vb") returns -1

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim str As String
        str = "VB.NET TOP 10 BOOKS"
        MsgBox(str.IndexOf("BOOKS"))
    End Sub
End Class

String Insert

2009-05-18T03:04:00.000-07:00

The Insert() function in String Class will insert a String in a specified index in the String instance.

System.String.Insert(Integer ind, String str) as String

Parameters:

ind - The index of the specified string to be inserted.

str - The string to be inserted.

Returns:

String - The result string.

Exceptions:

System.ArgumentOutOfRangeException: startIndex is negative or greater than the length of this instance

System.ArgumentNullException : If the argument is null.

For ex:

"This is Test".Insert(8,"Insert ") returns "This is Insert Test"

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim str As String = "This is VB.NET Test"
        Dim insStr As String = "Insert "
        Dim strRes As String = str.Insert(15, insStr)
        MsgBox(strRes)
    End Sub
End Class

String Length

2009-05-18T03:02:00.000-07:00

The Length() function in String Class returned the number of characters occurred in a String.

System.String.Length() As Integer

Returns:

Integer : The number of characters in the specified String

For ex:

"This is a Test".Length() returns 14.

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim str As String
        str = "This is a Test"
        MsgBox(str.Length())
    End Sub
End Class

String Concat

2009-05-18T02:55:00.000-07:00

Concat in VB.NET String Class using for concat two specified String Object

System.String.Concat(ByVal str1 As String, ByVal str2 As String) As String

String Concat method returns a new String

Parameters:

String str1 : Parameter String

String str2 : Parameter String

Returns:

String : A new String retrun with str1 Concat with str2

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, _
 ByVal e As System.EventArgs) Handles Button1.Click

        Dim str1 As String
        Dim str2 As String

        str1 = "Concat() "
        str2 = "Test"
        MsgBox(String.Concat(str1, str2))

    End Sub
End Class

Computer Shop Application

2009-03-07T02:25:00.000-08:00

This software is use for Computer Shop...

About of this software...

Report of this software...

Form for Selling Computer of this software...

You can export your Stock to Excel Format on this software...

Form for Export Stock of this software...

Form for Insert Stock Computer of this software...

List Computer of this software...

Input Data Member of this software...

Menu of this software...

Menu of this software...

Aplikasi Chatting

2009-03-07T01:32:00.000-08:00

Aplikasi Chatting sangat berguna bagi pengguna internet, disamping kecepatan berinteraksi, juga 'kemudahan' serta 'kemurahan' nya sangat menguntungkan. Aplikasi ini dapat digunakan dalam ruang lingkup yang besar (Internet), dapat dapat juga digunakan dalam ruang lingkup yang kecil (LAN).

Aplikasi Buku Kas Giro dengan Database

2009-03-07T01:26:00.000-08:00

Aplikasi Buku Kas Giro digunakan untuk menyimpan data seluruh Giro. Aplikasi ini mempermudah Admin dalam mengaudit data Giro, baik yang sudah lunas maupun yang belum lunas, berdasarkan tanggal jatuh tempo Giro tersebut.

Penjualan Komputer (Paket) dengan Database

2009-03-07T01:16:00.000-08:00

Aplikasi ini sangat baik digunakan dalam Penjualan Komputer secara Paket. Fiture tambahan yang ada:
1. Dapat mengaudit penjualan komputer paket.
2. Dapat menyimpan data pembeli serta spesifikasi komputer yang di beli.
3. Data dapat di print out dengan ukuran faktur.

Aplikasi Customer Service dengan Database

2009-03-07T01:01:00.000-08:00

Aplikasi Customer Service ini sangat baik digunakan dalam perusahaan ataupun toko Komputer yang memiliki pelayanan di bidang service ataupun klaim Supplier.

Aplikasi Absensi dengan Database

2009-03-07T00:50:00.000-08:00

Aplikasi ini dapat digunakan untuk mendata absensi pegawai dalam satu perusahaan skala menengah. Absensi pegawai sangat penting dalam perusahaan, karena berpengaruh terhadap perkembangan perusahaan, dan perhitungan gaji pegawai.

Program Aplikasi Transaksi Penjualan

2009-03-07T00:20:00.000-08:00

Program ini sangat berguna bagi perusahaan skala menengah, terutama untuk Toko yang bergerak di bidang Penjualan Komputer.

USB Detector

2009-03-04T02:45:00.001-08:00

This Software is use for Detect your Flash Drive
if you put in your flash drive, picture will change like this...

but, if your flash pull off, picture will change like this...

Download here

Cellular Shop Application

2009-03-03T00:33:00.000-08:00

Crack Your Application (Java)

2008-06-05T06:02:00.000-07:00

How To Crack Your Application

this function is use for create crack your application

add this code....

........
String pass,a;
public void checkText()
{
File file = new File("crack.inf");
try
{
FileInputStream fin = new FileInputStream(file);
byte fileContent[] = new byte[(int)file.length()];
fin.read(fileContent);
pass = new String(fileContent);
}
catch(FileNotFoundException e)
{}
catch(IOException ioe)
{}
a="freddy";
System.out.println(a+" "+pass);
if(a.equals(pass))
{javax.swing.JOptionPane.showMessageDialog(this,"Thank You For Buy Client Fredchat Special...!","Thank You!",javax.swing.JOptionPane.INFORMATION_MESSAGE);}
else
{javax.swing.JOptionPane.showMessageDialog(this,"Cannot Run, Please Buy Real Client Special...!","Warning",javax.swing.JOptionPane.WARNING_MESSAGE);System.exit(0);}
}
........

don't forget to add
import java.io.*;

create 'crack.inf' in current folder
in 'crack.inf' file, u must write =>

(without space)freddy(without space)

Inspire....Inspire....Inspire....
:->

Confirm Exit With JOptionPane

2008-06-05T05:49:00.000-07:00

How to confirm Exit with JOptionPane....

this is the answer....

.......
public void questionExit(String msg, String title)
{
int ok = JOptionPane.showConfirmDialog(this, msg,title,JOptionPane.YES_NO_OPTION);
if(ok == 0)
{
System.exit(0);
}
}
........

call this function with
.......
questionExit("Do You Want to Exit???", "Exit");
.......

i hope it will inspire u....

Play Sound in Java

2008-06-05T05:38:00.000-07:00

this Class is use for playing Sound(.wav format)

......
public class SoundEffect {
String name;
/** Creates a new instance of SoundEffect */
public SoundEffect(String code) {
this.name=code;
try
{
InputStream iStream = new FileInputStream("images/"+name+".wav");
AudioStream aStream = new AudioStream(iStream );
AudioPlayer.player.start(aStream );
}
catch(Exception e)
{
System.out.println(e);
}
}
}
.........

don't forget to add
import sun.audio.*;
import java.io.*;

name = name of your .wav file

tada#^$*&%^....

Save Words on TextArea in Java

2008-06-05T05:32:00.000-07:00

put this code as function.

.......
public void saveArea()
{
String jam=tJam.getText().toString();
try {
JFileChooser jfc=new JFileChooser();
jfc.showSaveDialog(this);
File file= jfc.getSelectedFile();
String fileName= file.getPath();
String textfile= aMessage.getText();
RandomAccessFile logFile =new RandomAccessFile(fileName + ".txt","rw");
logFile.seek(logFile.length());
logFile.writeBytes(textfile);
aMessage.append("data saved! ( "+jam+" )"+ "\n");
} catch(Exception e) {
aMessage.append("data not saved. ( "+jam+" )"+ "\n");
}
}
......

tJam = Text of Timer.
aMessage = Text Area name

don't forget to add
import java.io.*;

Thanx....

Set Icon Title Image in Java

2008-06-05T05:15:00.000-07:00

How To Set Your Image to Title Application of Java

You must add this code on the Constructor

.....
Image bd=Toolkit.getDefaultToolkit().getImage("logo2.png");
setIconImage(bd);
.....

NB: put image to current folder of the Application

Enter Press Action (Java)

2008-06-05T04:58:00.000-07:00

You can do an action with key enter pressed
for this action u can add this code...

this is a function in Class

......
private void tTextFieldKeyPressed(java.awt.event.KeyEvent evt)
{//GEN-FIRST:event_tTextFieldKeyPressed
// TODO add your handling code here:
int menter=evt.VK_ENTER;
int mkode=evt.getKeyCode();
System.out.println(mkode+" "+menter);
if(mkode==menter) {
login();
}
}
......

then add this code on the Constructor
......
tTexField.addKeyListener(new java.awt.event.KeyAdapter() {
public void keyPressed(java.awt.event.KeyEvent evt) {
tTextFieldKeyPressed(evt);
}
});
......

tTextField is the name of text field that give the (keyPress) action

login(); this function will be called in this action (Enter Press Action)

Tutorial Running Text

2008-06-05T04:42:00.000-07:00

Running Text in Java (on the Title Bar)

use this code...

public class FrameSample extends JFrame
{
String name = "Sample Frame Title";
public void FrameSample()
{
RunningText rt = new RunningText(name);
rt.start();
}
public static void main(String[]args)
{
FrameSample fs = new FrameSample();
}

public class RunningText extends Thread
{
String title;
public RunningText(String name)
{
this.title=name;
}
public void run()
{
while(true)
{
display();
try
{
sleep(100);
}
catch(InterruptedException e)
{
}
}
}
public void display()
{
String name2=title.substring(1)+title.charAt(0);
title=name2;
setTitle(name2);
}
}
}

Login Server

2008-06-02T01:15:00.001-07:00

Client Chat with Theme

2008-06-02T01:12:00.000-07:00

Contact Us

2008-04-22T06:05:00.000-07:00

need information:

freddyniit@gmail.com

About Gallery Java Application

2008-04-22T05:48:00.000-07:00

Whether you are on a personal mission, with internet business agenda in mind or a corporate trying to leverage your position in the cyber world, or a software developer house trying to outsource projects to Asian programmers, we are here for you.

We have a solid team of development ready to make an impact that your ideas suppose to bring you. we have line of expert in web development, desktop application and graphic design.

Web Development

We work on various platform, From pure hand coded PHP-MySQL, ASP.Net, JSP, to integrated Content Management System (CMS) that can bring a solutions to your business requirements. We have coders that can provide dynamic website with web 2.0 style and feature-rich with Ajax experience.

CMS Expertise: Joomla, WordPress

Graphic Design

Need partner to produce quality design for your frequent promotions? leave it to us!

From Logo creation, banner, flyer, brochure, poster, flash advertisement and any corporate identity, we will give you satisfaction that meets your business requirements.

Desktop Application

We have years of experience working on various platform, from the widely used Java platform, C# to VB.Net, all at your service in building solutions for your organizations.