VB.NET Programming Corner!

[knives645]

May alam po ba kaung link for the redgate installer bale ung "RedGate" na un sya ung Intellisence ng MSSQL

Or kahit cracked version ok lng..


Salamat

Try mo yung DBForge

 

[patrickkillua]

Try mo yung DBForge

Salamat ayus to ah..

 

[dhennehd]

Hi good afternoon sirs,

Need po ng help sa pag format at pag insert ng values sa xml file na igegenerate ko.

bali ito yung dapat na format ng xml na dapat na masunod ko.
View attachment 201171


ang kaya ko palang po igenerate is this.
View attachment 201172


eto po yung code na ginamit ko para ma igenerate yung xml file na, nagawa ko palang.

    Public Sub writeXML()
            Dim writer As New XmlTextWriter("product.xml", System.Text.Encoding.UTF8)
            writer.WriteStartDocument(True)
            writer.Formatting = Formatting.Indented
            writer.Indentation = 2
        writer.WriteStartElement("DOCUMENT")
            createNode(1, "Boxnumber 1", "1000", writer)
            createNode(2, "item_sid 2", "2000", writer)
            createNode(3, "description 3", "3000", writer)
            createNode(4, "store 4", "4000", writer)
            writer.WriteEndElement()
            writer.WriteEndDocument()
            writer.Close()
    End Sub

Private Sub createNode(ByVal boxno As String, ByVal descr As String, ByVal store As String, ByVal writer As XmlTextWriter)
        writer.WriteStartElement("Boxnumber")
        writer.WriteStartElement("item_sid")
        writer.WriteString(boxno)
        writer.WriteEndElement()
        writer.WriteStartElement("description")
        writer.WriteString(descr)
        writer.WriteEndElement()
        writer.WriteStartElement("store")
        writer.WriteString(store)
        writer.WriteEndElement()
        writer.WriteEndElement()
    End Sub

need ko po sana magaya yung unang xml file.
ang di ko po alam pano lagyan ng value, at maglagay nung parang green na text. ( sorry wala po kasi ako alam sa xml, di ko alam tawag don. attribute ata or something hehe)

 

[ajc0024]

View attachment 201176
need ur help guys
Guys pano iseperate to by product. kada product ay my kanyang column,TIA
ito yung code ko
View attachment 201175

 

[knives645]

View attachment 1000214
need ur help guys

Patingin ng code.

Pero sa tingin ko po, para makapag-generate ng ganyang report, gawa ka ng group summary sa query.
Tapos yung query ang gamitin mong Datasource ng DataGridView mo.

 

[rhon6260]

time to update na ata hehehe

Tama hahaha

- - - Updated - - -

Hi good afternoon sirs,

Need po ng help sa pag format at pag insert ng values sa xml file na igegenerate ko.

bali ito yung dapat na format ng xml na dapat na masunod ko.
View attachment 1000211


ang kaya ko palang po igenerate is this.
View attachment 1000212


eto po yung code na ginamit ko para ma igenerate yung xml file na, nagawa ko palang.

    Public Sub writeXML()
            Dim writer As New XmlTextWriter("product.xml", System.Text.Encoding.UTF8)
            writer.WriteStartDocument(True)
            writer.Formatting = Formatting.Indented
            writer.Indentation = 2
        writer.WriteStartElement("DOCUMENT")
            createNode(1, "Boxnumber 1", "1000", writer)
            createNode(2, "item_sid 2", "2000", writer)
            createNode(3, "description 3", "3000", writer)
            createNode(4, "store 4", "4000", writer)
            writer.WriteEndElement()
            writer.WriteEndDocument()
            writer.Close()
    End Sub

Private Sub createNode(ByVal boxno As String, ByVal descr As String, ByVal store As String, ByVal writer As XmlTextWriter)
        writer.WriteStartElement("Boxnumber")
        writer.WriteStartElement("item_sid")
        writer.WriteString(boxno)
        writer.WriteEndElement()
        writer.WriteStartElement("description")
        writer.WriteString(descr)
        writer.WriteEndElement()
        writer.WriteStartElement("store")
        writer.WriteString(store)
        writer.WriteEndElement()
        writer.WriteEndElement()
    End Sub

need ko po sana magaya yung unang xml file.
ang di ko po alam pano lagyan ng value, at maglagay nung parang green na text. ( sorry wala po kasi ako alam sa xml, di ko alam tawag don. attribute ata or something hehe)

Try to understand C# po ito

First Gawa ka ng Property Class ng XML mo like sbs_no,alu,dcs_code
lagyan mo ng XmlAttribute

[XmlRoot("INVENTORYS")]
public class XMLFile
{
    [XmlElement("INVN_SBS_SUPPL")]
    public String Invn_sbs_supp { get; set; }
    [XmlAttribute("udf_no")]  
    public String udfNo { get; set; }
    [XmlAttribute("udf_value")]  
    public String udfValue { get; set; }
}

Then Gawa ka nalang ng Method na gagawa ng .Xml File

Serialize Object To XML File

  XmlSerializer xml = new XmlSerializer(typeof(XMLFile));
  
  using (TextWriter writer = new StreamWriter(@FileName))
  {           
       xml.Serialize(writer, new XMLFile { udfNo = 1, udfValue ="" });
   }

- - - Updated - - -

View attachment 1000223
need ur help guys
Guys pano iseperate to by product. kada product ay my kanyang column,TIA
ito yung code ko
View attachment 1000218

Paki explain po d ko kase ma gets

 

[ajc0024]

Sub loadtable()
openDB()
DataGridView1.Rows.Clear()
Try
If Me.DataGridView1.Rows.Count = 0 Then
cmd.CommandText = "select branch,product,Sum(balance) as total from data where product='agrln' group by product ,branch"
cmd.Connection = connection
areader = cmd.ExecuteReader

Dim rowdata As String()

If areader.HasRows Then
While areader.Read
rowdata = New String() {areader("branch").ToString, areader("product").ToString, areader("total").ToString}
DataGridView1.Rows.Add(rowdata)
End While

DataGridView1.Rows.Add(1)
closeDB()

End If

End If




Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally

connection.Dispose()
End Try


closeDB()
End Sub

pano dadagdag pa ng one or more query na mailalagy ko sa data gridview

 

[rhon6260]

pano dadagdag pa ng one or more query na mailalagy ko sa data gridview

One or More Query on same GridView?

Pwd mo e union all mo yung Mga Query mo kung same lang yung mga fields/Column

SELECT x.* FROM (
select branch,product,Sum(balance) as total from data where product='agrln' group by product ,branch
UNION ALL
select branch,product,Sum(balance) as total from data where product='agrln' group by product ,branch
UNION ALL
select branch,product,Sum(balance) as total from data where product='agrln' group by product ,branch ) AS x

explain mo maigi yung problem boss

 

[KristyMaeyChiu]

May error bah?
Gumamit ka ng Try Catch para malaman mo kung anu yung error

Sakin error yan kase String yung mga Value mo try to convert it To double tapus yung output Double

sige po boss try ko po... gumawa pa po ako kaso hindi xa nagpafunction... ayaw maglabas ng output.. wala naman pong error sken... tanong ko na din po kung pano ko malilimitahan ang input into two decimal numbers??anong method po ang gagamitin ko?? thank you po

 

[rhon6260]

sige po boss try ko po... gumawa pa po ako kaso hindi xa nagpafunction... ayaw maglabas ng output.. wala naman pong error sken... tanong ko na din po kung pano ko malilimitahan ang input into two decimal numbers??anong method po ang gagamitin ko?? thank you po

Merong event yung textbox keyup/keydown/keypress macocontrol mo yung #of input

 

[KristyMaeyChiu]

Merong event yung textbox keyup/keydown/keypress macocontrol mo yung #of input

pwede pong example?? thank you po

 

[doorbreaker]

sige po boss try ko po... gumawa pa po ako kaso hindi xa nagpafunction... ayaw maglabas ng output.. wala naman pong error sken... tanong ko na din po kung pano ko malilimitahan ang input into two decimal numbers??anong method po ang gagamitin ko?? thank you po

instead of text box use a numericupdown control or a masked text box.

 

[sleepyheadanne]

Sir thanks po sa help sa pag dl ng visual basic, naka pag download na po ako ng Visual Basic 2010 express, at ngttry na po ako ngyn ng first program ako,

tanong ko lang po pano ko po ba mapapalita ng kulay ung form1?
napalitan ko po ng kulay ung background pero hindi po yong border.

 

[jtwistah]

 

[KristyMaeyChiu]

instead of text box use a numericupdown control or a masked text box.

thank you sir.. try ko po kapain ang visual basic 2010 about jan sa advice nyo..

 

[chester000]

sir my sample kaba pag print ng receipt? pwede ko bang silipin ...thanks po...need lang po para sa project ko..

 

[maskio]

sabi po kasi ng instructor namin ee... a program that will calculate electric bill of a household. assume 1khw worth P12.55.. ang pagkakaintindi ko po ee, if ever n ang naconsume ng client ay 200 x 12.55... nahihirapanpo ako kung anong data type ang gagamitin at kung anong method...sinubukan ko gumawa pero hindi xa nagfunction...

eto po yung ginawa ko...

Private Sub cmdcompute_Click()
Dim strinput As String
Const cnstkwh As Double = "12.55"
Dim strtotal As String

If cmdcompute.Value = True Then
strinput = txtinput.Text
strtotal = (strinput * cnstkwh)
End If
End Sub

pakitama naman po.. thanks

Dim strinput As double
Const cnstkwh As Double = 12.55
Dim strtotal As double

If cmdcompute.Value = True Then
double.tryparse( txtinput.Text, strinput)

if strinput <= 0 then
' do something here, zero encountered, or value in input has a character or symbol etc...
else
strtotal = strinput * cnstkwh
end if
End If

 

[ajc0024]

boss ganto kse gsto palabansin na output sa datagrid. na manggagaling sa mysql. ang kaya ko lang kse gawin eh isang colunm lng ang na ddsplay sa datagridview.
View attachment 201282

 

[knives645]

sir my sample kaba pag print ng receipt? pwede ko bang silipin ...thanks po...need lang po para sa project ko..

Use Crystal Reports or Print Document Class

boss ganto kse gsto palabansin na output sa datagrid. na manggagaling sa mysql. ang kaya ko lang kse gawin eh isang colunm lng ang na ddsplay sa datagridview.
View attachment 1000522

Create group query with Case Statement to create Dynamic columns according to your needs.

 

[patrickkillua]

Ano ang reason bakit nawawala ung javascript kapag gumamit ako ng asynchronus ng update panel..
Ang weird