0

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?

0

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?

0

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)
0

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)
0

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()
0

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.

0

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"?

0

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..

0

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

0

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
0

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

0

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..

0

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]'.