so what should i do to avoid decreasing my memory?

Hi i have a 512MB Memory Ram DDR2 (i know it's too low) i put it on a desktop computer and when i check it only have 256MB Ram is that possible? i mean decreasing 512MB and make it 256MB Only?

Yup i would like to take that magic pills i want to see how earth is doing and how planet mars will be like if those scientist succeed making it our second planet... I'm just curious

OH!.. i just check it out and yes its really hiddent the php code.. COOL!

Hi i have a friend which he gave a php file that is link to their company website which he work with.
but when i view source the company website i cannot find the php location. He said its not visible because they encrpt the php code into the server????
I really don't know what he is talking about?

I'm a very curious how they do that? I'm very noob at web developing..
Can you guys tell me how they do that?

I mean you upload your file to hosting server and then it hides your php files?

Nvm i got the answer :)

        Dim cmd As New OleDbCommand
        cmd.Connection = con
        cmd.CommandType = CommandType.Text
        cmd.CommandText = "Select * from Government_BAU where [" & .Combo_Deals_Filter.Text & "] like ? + '%'"

        cmd.Parameters.Add("@Value", OleDbType.VarChar).Value = .Text_Deals_Search.Text

        Dim da As New OleDbDataAdapter(cmd)
        da.Fill(dt)

Hi i got this problem and i dont why it occured
in my query i know that the Table name is correct and the Column Name is correct but
this error always appear

No value given for one or more required parameters.
the it highlights the da.fill(dt)

Dim da As New OleDbDataAdapter("Select * from Government_BAU where Months like January", con)
        da.Fill(dt)

Now i get it many thanks @TnTinMN

    Form_Month_End_Report.ComboBox1.Items.Clear()

    Dim cn As New OleDbConnection
    cn.ConnectionString = ("Provider=Microsoft.ACE.OLEDB.12.0; Data Source='" & ConDashBoard & "';")
    cn.Open()

    For Each R As DataRow In cn.GetSchema("Tables", New String() {Nothing, Nothing, Nothing, "Table"}).Rows

        Form_Month_End_Report.ComboBox1.Items.Add(R.Item(2).ToString)
    Next

    'and then i will put my query in here so it will loop trough the names.

    cn.Close()

' Note that this will pull both Tables &" Views. You may need to filter out the Views.

How can i filter out the views?

I mean if you look into my Combobox i have loaded into the add items the Views of my Table
which is Jessie, James and Nick.

Now, i dont know how to i can able to put them into my query using loop.

Philippines Manila is so hot in here...
27 °C as of 9:10 AM UTC/GMT +8 hours

Hi this code is to fill up my Combo1 Item which is came from my Table1

        .Combo_Main_AM.Items.Clear()
        Dim da As New OleDbDataAdapter("Select * from Table1", con)
        da.Fill(dt)
        For Each myRow In dt.Rows
            .Combo1.Items.Add(myRow.Item(0))
        Next

so it will add up the combo1

Jessie
James
Nick

now the question is how can i get the that name to be used in my query?
using loop?
i will use it to be the name of my table i want to search.

da.fill(dt)
Dim da As New OleDbDataAdapter("Select * from dt", con)
    'Code here
Next

I hope you understand what i mean.

thank you guys :)

Hi i'm having a trouble with this i got 3 textbox and i format it to

Textbox1.Text = Format(Textbox1.Text, "Standard")
Textbox2.Text = Format(Textbox2.Text, "Standard")
Textbox3.Text = Format(Textbox3.Text, "Standard")

which give something like this
1,230.00
2,500.00
1,245.00

and when i add it
Textbox4.text = Val(Textbox1.Text) + Val(Textbox2.Text) + Val(Textbox3.Text)
the result is this
4.00

how can i sum it when the format is in "standard" or "percent"?

I liked to use Oledb and i want to put the data it find in a textbox

con.open
SELECT * FROM Table1 WHERE Department = "'"
'and if the search is true it will place the data in textbox
textbox1.text = rs!fields(1)
textbox2.text = rs!fields(2)
textbox3.text = rs!fields(3)

something like that..

Hi guys can you help me out.
i want to display the item in my textbox but how can i do that
i tried to search tru web but nothings working for me.

it is something like this

"SELECT Department FROM Table1 WHERE Department = " & .Textbox1.Text & ""
textbox2.text = rs.fields(1)
textbox3.text = rs.fields(2)

it will display the data it find to my textbox

Yes it is working now. :)
but one more question how can i make it something like 30,000,000 not like 29,482,410?
7b8d5766238f470d8ed52cfcde5cda50

Hi TnTinMN i use your code now they are both same in range
639634fa3157aea870766aff49e41932
but as you can see in the picture the GP is 2.4m so its means the GP is column(Blue) is higher than the Line(Red).

i used this code

    Public Sub Chart_BU_GP_vs_Target()

        With Chart_EBU_GP_vs_Target

            .Series.Clear()
            .Legends.Clear()

            .ChartAreas("ChartArea1").AxisX.MinorTickMark.Enabled = True
            .ChartAreas("ChartArea1").AxisX.Interval = 1
            .ChartAreas("ChartArea1").AxisX.IsLabelAutoFit = True
            .ChartAreas("ChartArea1").AxisX.LabelAutoFitStyle = DataVisualization.Charting.LabelAutoFitStyles.LabelsAngleStep30

            .Series.Add("Gross Profit")
            .Series("Gross Profit").ChartType = DataVisualization.Charting.SeriesChartType.Column
            .Series("Gross Profit").Points.AddXY("January", Me.BU_JanGP.Text)
            .Series("Gross Profit").Points.AddXY("February", Me.BU_FebGP.Text)
            .Series("Gross Profit").Points.AddXY("March", Me.BU_MarGP.Text)
            .Series("Gross Profit").Points.AddXY("April", Me.BU_AprGP.Text)
            .Series("Gross Profit").Points.AddXY("May", Me.BU_MayGP.Text)
            .Series("Gross Profit").Points.AddXY("June", Me.BU_JunGP.Text)
            .Series("Gross Profit").Points.AddXY("July", Me.BU_JulGP.Text)
            .Series("Gross Profit").Points.AddXY("August", Me.BU_AugGP.Text)
            .Series("Gross Profit").Points.AddXY("September", Me.BU_SepGP.Text)
            .Series("Gross Profit").Points.AddXY("October", Me.BU_OctGP.Text)
            .Series("Gross Profit").Points.AddXY("November", Me.BU_NovGP.Text)
            .Series("Gross Profit").Points.AddXY("December", Me.BU_DecGP.Text)

            .Series.Add("Target")
            .Series("Target").ChartType = DataVisualization.Charting.SeriesChartType.Line
            .Series("Target").BorderWidth = 3
            .Series("Target").YAxisType = DataVisualization.Charting.AxisType.Secondary
            .Series("Target").Points.AddXY("January", Me.BU_JanTGP.Text)
            .Series("Target").Points.AddXY("February", Me.BU_FebTGP.Text)
            .Series("Target").Points.AddXY("March", Me.BU_MarTGP.Text)
            .Series("Target").Points.AddXY("April", Me.BU_AprTGP.Text)
            .Series("Target").Points.AddXY("May", Me.BU_MayTGP.Text)
            .Series("Target").Points.AddXY("June", Me.BU_JunTGP.Text)
            .Series("Target").Points.AddXY("July", Me.BU_JulTGP.Text)
            .Series("Target").Points.AddXY("August", Me.BU_AugTGP.Text)
            .Series("Target").Points.AddXY("September", Me.BU_SepTGP.Text)
            .Series("Target").Points.AddXY("October", Me.BU_OctTGP.Text)
            .Series("Target").Points.AddXY("November", Me.BU_NovTGP.Text)
            .Series("Target").Points.AddXY("December", Me.BU_DecTGP.Text)

            .Legends.Add("Account Manager")
            .Legends("Account Manager").Docking = DataVisualization.Charting.Docking.Bottom

            .Series("Gross Profit").Color = Color.DodgerBlue
            .Series("Target").Color = Color.Red
            .Series("Gross Profit").BorderColor = Color.Black
            .Series("Target").BorderColor = Color.Black

            .ChartAreas("ChartArea1").AxisY.LabelStyle.Format = "##,#"
            .ChartAreas("ChartArea1").AxisY2.LabelStyle.Format = "##,#"
            .ChartAreas("ChartArea1").AxisY.LabelStyle.Font = New System.Drawing.Font("Arial", 8.7F, System.Drawing.FontStyle.Bold)
            .ChartAreas("ChartArea1").AxisY2.LabelStyle.Font = New System.Drawing.Font("Arial", 8.7F, System.Drawing.FontStyle.Bold)

            'Y1 = first Y Point, Y2 = Second Y point, etc.
            Dim ymin As Double = Math.Min(.Series("Gross Profit").Points.FindMinByValue("Y1").YValues(0), .Series("Target").Points.FindMinByValue("Y1").YValues(0))
            Dim ymax As Double = Math.Max(.Series("Gross Profit").Points.FindMinByValue("Y1").YValues(0), .Series("Target").Points.FindMinByValue("Y1").YValues(0))

            'round values to the nearest "Factor"
            Const Factor As Double = 5
            ymin = Math.Floor(ymin / Factor) * Factor
            ymax = Math.Ceiling(ymax / Factor) * Factor
            .ChartAreas("ChartArea1").AxisY.Minimum = ymin
            .ChartAreas("ChartArea1").AxisY.Maximum = ymax
            .ChartAreas("ChartArea1").AxisY2.Minimum = ymin
            .ChartAreas("ChartArea1").AxisY2.Maximum = ymax

        End With

Hello I'm having Trouble here in my ms chart.
6c6bbe39010ff302ee66367ce9439bba

as you can see the chart in the right side the secondary axis i want it to be fixed in the line of the primary axis in the left side

   Public Sub Chart_BU_GP_vs_Target()

        With Chart_EBU_GP_vs_Target

            .Series.Clear()
            .Legends.Clear()

            .ChartAreas("ChartArea1").AxisX.MinorTickMark.Enabled = True
            .ChartAreas("ChartArea1").AxisX.Interval = 1
            .ChartAreas("ChartArea1").AxisX.IsLabelAutoFit = True
            .ChartAreas("ChartArea1").AxisX.LabelAutoFitStyle = DataVisualization.Charting.LabelAutoFitStyles.LabelsAngleStep30

            .Series.Add("Gross Profit")
            .Series("Gross Profit").ChartType = DataVisualization.Charting.SeriesChartType.Column
            .Series("Gross Profit").Points.AddXY("January", Me.BU_JanGP.Text)
            .Series("Gross Profit").Points.AddXY("February", Me.BU_FebGP.Text)
            .Series("Gross Profit").Points.AddXY("March", Me.BU_MarGP.Text)
            .Series("Gross Profit").Points.AddXY("April", Me.BU_AprGP.Text)
            .Series("Gross Profit").Points.AddXY("May", Me.BU_MayGP.Text)
            .Series("Gross Profit").Points.AddXY("June", Me.BU_JunGP.Text)
            .Series("Gross Profit").Points.AddXY("July", Me.BU_JulGP.Text)
            .Series("Gross Profit").Points.AddXY("August", Me.BU_AugGP.Text)
            .Series("Gross Profit").Points.AddXY("September", Me.BU_SepGP.Text)
            .Series("Gross Profit").Points.AddXY("October", Me.BU_OctGP.Text)
            .Series("Gross Profit").Points.AddXY("November", Me.BU_NovGP.Text)
            .Series("Gross Profit").Points.AddXY("December", Me.BU_DecGP.Text)

            .Series.Add("Target")
            .Series("Target").ChartType = DataVisualization.Charting.SeriesChartType.Line
            .Series("Target").BorderWidth = 3
            .Series("Target").YAxisType = DataVisualization.Charting.AxisType.Secondary
            .Series("Target").Points.AddXY("January", Me.BU_JanTGP.Text)
            .Series("Target").Points.AddXY("February", Me.BU_FebTGP.Text)
            .Series("Target").Points.AddXY("March", Me.BU_MarTGP.Text)
            .Series("Target").Points.AddXY("April", Me.BU_AprTGP.Text)
            .Series("Target").Points.AddXY("May", Me.BU_MayTGP.Text)
            .Series("Target").Points.AddXY("June", Me.BU_JunTGP.Text)
            .Series("Target").Points.AddXY("July", Me.BU_JulTGP.Text)
            .Series("Target").Points.AddXY("August", Me.BU_AugTGP.Text)
            .Series("Target").Points.AddXY("September", Me.BU_SepTGP.Text)
            .Series("Target").Points.AddXY("October", Me.BU_OctTGP.Text)
            .Series("Target").Points.AddXY("November", Me.BU_NovTGP.Text)
            .Series("Target").Points.AddXY("December", Me.BU_DecTGP.Text)

            .Legends.Add("Account Manager")
            .Legends("Account Manager").Docking = DataVisualization.Charting.Docking.Bottom

            .Series("Gross Profit").Color = Color.DodgerBlue
            .Series("Target").Color = Color.Red
            .Series("Gross Profit").BorderColor = Color.Black
            .Series("Target").BorderColor = Color.Black

            .ChartAreas("ChartArea1").AxisY.LabelStyle.Format = "##,#"
            .ChartAreas("ChartArea1").AxisY2.LabelStyle.Format = "##,#"
            .ChartAreas("ChartArea1").AxisY.LabelStyle.Font = New System.Drawing.Font("Arial", 8.7F, System.Drawing.FontStyle.Bold)
            .ChartAreas("ChartArea1").AxisY2.LabelStyle.Font = New System.Drawing.Font("Arial", 8.7F, System.Drawing.FontStyle.Bold)

        End With

    End Sub

here is my code

Great it works..
Thank you TnTinMN
and also thanks for the idea Reevrend Jim

you guys always help me thank you very much! :)

Hi how can i sort using Month
i have January, February.... December
i want to sort it out so the user will see it from January - December

my column name is "Months" and it is in subitems(0)

Thank you in a advanced

What do u mean by
unnamed and positional

so if you were I..
what should you use??

Hi sorry for the delayed.. I'm not feeling well yesterday but i'm feeling great now.

I'm using access as my database
I have a field name "First_Name" "Middle_Name" "Last_Name"

I want to search the Last_Name so it should be something like

    where Last_Name like Text1.text

and then it will populate my Listview all the data it find.

Hi, Sorry i need to ask for a help again.
I have a listview and a search button i want to populate my listview when i click a button to search
the field name "Last Name" for example i want to search "Sample" then it will populate my listbox with the result of the last name sample.

i don't knnow what is the meaning of this " ? "

Wow thanks it works :)
i get confused in this line

& " SET Months = ?," _
& " Brand = ?," _
& " LOB = ?," _
& " Revenue = ? " _
& " WHERE GP = ? "

Nice it works fine :)
i just get confuse in this one

= ? "

thank you

Hi i wonder how can i delete my data using access as my database?

for example i want to delete

        Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source='" & ConAccessDatabase & "';")
    Dim cmd As OleDbCommand

    cmd = New OleDb.OleDbCommand("delete * from [" & EBU2DB_LOB & "] where Brand ='" & Form_Month_End_Report.Combo_LOB_Brand.Text & "' & LOB ='" & Form_Month_End_Report.Combo_LOB_LOB.Text & "' & Months = '" & Form_Month_End_Report.Combo_LOB_Month.Text & "'", con)

    Dim response As String = MsgBox("Do you want Delete ? ", MsgBoxStyle.YesNo, "Confirm")
    If response = MsgBoxResult.Yes Then
        If con.State = ConnectionState.Closed Then con.Open()
        cmd.ExecuteNonQuery()
    End If

this is my code.
but nothing seem to happen to my data..

ohh i see i get it.. and its perfectly working but i can't understand the update code

        cmd.CommandText = "UPDATE [" & EBU2DB_LOB & "] " _
        & " SET Months = [" & .Combo_LOB_Month.Text & "], " _
        & " Brand = [" & .Combo_LOB_Brand.Text & "]" _
        & " LOB = [" & .Combo_LOB_LOB.Text & "] " _
        & " Revenue = [" & .Text_LOB_Revenue.Text & "]" _
        & " WHERE GP = [" & .Text_LOB_GP.Text & "]"

        cmd.Parameters.AddWithValue("@Months ", .Combo_LOB_Month_Update.Text)
        cmd.Parameters.AddWithValue("@Brand", .Combo_LOB_Brand_Update.Text)
        cmd.Parameters.AddWithValue("@LOB ", .Combo_LOB_LOB_Update.Text)
        cmd.Parameters.AddWithValue("@Revenue ", .Text_LOB_Revenue_Update.Text)
        cmd.Parameters.AddWithValue("@GP ", .Text_LOB_GP_Update.Text)

here is my code

but i get this error
Syntax error (missing operator) in query expression '[Dell] LOB = [Access Server] Revenue = [900000]'.

can i know what is the meaning of this?
(Firstname,Middlename,Lastname) VALUES(?,?,?)