Kam nevoj per ndihme ne VB.Net ose Access

[furkan]

Kam deshire qe dataGridViwer ne Vb.net 2008 ta ruaj si txt file si ta beje kete a ka dikush idene

[hot_prinz]

        'ndryshore qe mban permbajtjen e datagridit
        Dim permbajtja As String = String.Empty

        'per cdo rresht/row ne DataGridView
        For Each DataGridViewRow In DataGridView1.Rows

            'per cdo kolone te datagridit
            For i As Integer = 0 To DataGridView1.Columns.Count

                Try
                    permbajtja += DataGridView1(i, DataGridViewRow.Index).Value.ToString() + ", "
                Catch
                End Try

            Next

            'pas cdo rreshti fut nje newLine
            permbajtja += vbNewLine

        Next

        'eksporto ne file "eksporti.txt"
        Dim fs As FileStream = New FileStream("ekspoti.txt", FileMode.Create, FileAccess.Write)
        Dim sw As StreamWriter = New StreamWriter(fs)

        sw.Write(permbajtja)

        sw.Close()
        fs.Close()

DataGridView1 e ndryshon me emrin e DataGrid ne formen tende.

[furkan]

Pershendetje .
Ai qe me ka ndihmuar n lidhje me metoden fifo e falenderoj shume, por kam edhe nja dy kerkesa nga ai, kerkesa e pare eshte te ma degoj komplet projektin ve info.blerim@gmail.com te kompresuar une perdori vb.net 2008, kurse kerkesa e dyte eshte qe rekordet qe shlyhen gjate shitjes nga tabela hyrjet dua te me kopjohen ne dnonje tabele tjeter sepse nuk kam kontroll cili artikull me cilin cmim eshte shitur.
ne regull eshte qe shlyhet sepse ma krijone gjendjen e stoqeve reale te betura, por ato rekorde qe shlyhen kam nevoj me i pas si dosje ne ndonje tabele tjeter.

[hot_prinz]

pershendetje furkan,


projektin nuk e kam me, ta dergova ate kohe projektin ne email por u refuzua, lexo postimet me larte para disa muajve.

Per ti ruajtur shitjet ne nje tabele tjeter, krijo nje tabele identike me tabelen e shitjeve, kur ruhen te dhenat ne tabelen e shitjes atehere ato te dhena te ruhen edhe ne tabelen e re, per kete modifiko metoden [fute_shitjen]:

    Private Sub fute_shitjen(ByVal dCmimiFurnizuesMesatar)

        Dim sCmimi As String = txtCmimi.Text.Replace(".", ",")
        Dim sVlera As Double = Convert.ToDouble(txtSasia.Text) * Convert.ToDouble(sCmimi)
        Dim sFitimi As Double = sVlera - (dCmimiFurnizuesMesatar * Convert.ToDouble(txtSasia.Text))

        Dim con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + "\Furkan_company.mdb")
        con.Open()

'futja e shitjeve ne tabelen e shitjes

        Dim cmd = New OleDbCommand("INSERT INTO Daljet (Data, Kodi , Pershkrimi, Njm, Sasia, CmimiMesatarFurnizues, CmimiShites, Vlera, Fitimi) VALUES ('" + String.Format("{0:dd.MM.yyyy HH:mm:ss}", DateTime.Now) + "','" + cboKodi.Text + "','" + lblPershkrimi.Text + "','" + lblNjm.Text + "','" + txtSasia.Text + "','" + dCmimiFurnizuesMesatar.ToString() + "','" + sCmimi + "','" + sVlera.ToString() + "','" + sFitimi.ToString() + "')", con)

        cmd.ExecuteNonQuery()


'futja e shitjeve ne tabelen e re, psh me emrin [dosja]

        Dim cmdDosja = New OleDbCommand("INSERT INTO Dosja (Data, Kodi , Pershkrimi, Njm, Sasia, CmimiMesatarFurnizues, CmimiShites, Vlera, Fitimi) VALUES ('" + String.Format("{0:dd.MM.yyyy HH:mm:ss}", DateTime.Now) + "','" + cboKodi.Text + "','" + lblPershkrimi.Text + "','" + lblNjm.Text + "','" + txtSasia.Text + "','" + dCmimiFurnizuesMesatar.ToString() + "','" + sCmimi + "','" + sVlera.ToString() + "','" + sFitimi.ToString() + "')", con)

        cmdDosja .ExecuteNonQuery()


        con.Close()


    End Sub 

[furkan]

Faleminderit per ndihmen tuaj, kam provuar shume menyra por nuk kam mund ta realizoj kete lloj lgoritmi

ne formen access i ke dy tabela nje tabele hyrje dhenje dalje
ne hyrje jane vendosur vetem molla sa pershembull.
i ke molla me tri cmime te ndrsyshme gjithsej jane 300 kg
ajo qka une kerkoj
nje kod
per vendosjen ne tabelen per dalje

komboboxi te jet i mbushur dhe molla me shfaqen ashtu si jane te evidentuara ne hyrje
por kur shtypi sasine 200 te me insertohen ne datagrid view 100 nga reshti i pare te komboboxitdhe 100 nga reshti i dyte nga komboboxi
nuk e di sa po me kuptoni.
nese column1 i komboboxit i ka100 cop e column 2 apo si thiren ne vbnet listindex .
300 jane gjithsej une i lypi200 ne dalje
ne datagrid duate me fiurojne
100 me 1 euro dhe 100 me 1.1. euro
shum faleminderit

[hot_prinz]

Furkan,


po don me ma hoger shpirtin me kto molla


Kodet me larte funksionojne ashtu, ne DataGrid te lisohen mollat me cmime te ndryshme, opcional mundesh me i sortu mollat ne datagrid edhe ashtu si i sorton ti sasia do te largohet ne baze te sortimit.

                    While intSasia > 0

                        Dim tmpSasia As Integer = 0
                        Dim tmpRow As Integer = 0
                        Dim tmpCmimiFurnizues As Double = 0

                        Dim con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + "\Furkan_company.mdb")
                        con.Open()

                        Dim strSQL As String

                        If rdFIFO.Checked = True Then
                            strSQL = "SELECT * FROM Hyrjet WHERE Kodi=" + cboKodi.Text + " ORDER BY Data ASC"
                        Else
                            strSQL = "SELECT * FROM Hyrjet WHERE Kodi=" + cboKodi.Text + " ORDER BY Data DESC"
                        End If

                        Dim cmd = New OleDbCommand(strSQL, con)
                        Dim dr As OleDbDataReader = cmd.ExecuteReader

                        While dr.Read()
                            tmpSasia = Convert.ToInt32(dr("Sasia"))
                            tmpRow = Convert.ToInt32(dr("Id"))
                            tmpCmimiFurnizues = Convert.ToDouble(dr("CmimiFurnizues"))
                            Exit While
                        End While

                        If (intSasia - tmpSasia) >= 0 Then
                            dCmimiFurnizuesMesatar += tmpCmimiFurnizues * intSasia
                            intSasia -= tmpSasia
                            shlyje_rekordin(tmpRow)
                        ElseIf (intSasia - tmpSasia) = 0 Then
                            dCmimiFurnizuesMesatar += tmpCmimiFurnizues * intSasia
                            shlyje_rekordin(tmpRow)
                            intSasia -= tmpSasia
                        ElseIf (intSasia - tmpSasia) < 0 Then
                            dCmimiFurnizuesMesatar += tmpCmimiFurnizues * intSasia
                            tmpSasia -= intSasia
                            intSasia = 0
                            aktualizo_rekordin(tmpRow, tmpSasia)
                        End If

                        con.Close()

                    End While 

[valdetshala]

Furkan,


po don me ma hoger shpirtin me kto molla

hahahahhahhha jo bre ma mire molla se cigare

[dili101]

Po une pkerisht kerkoj ta zbatoj metoden FIFO por nese keni mundesi te me udhezoni per metoden e Kostos mesatare nuk ka problem por kjo eshte metoda me e preferuar qe une e praktikoj, me duhet vetem formula te VBA-se ose VB.Net
Me kishe Shpetuar sikur te ma ipnit ndokush kete formule vellaut Kosovar

Per ta lehtsu programimin ma se lehti kish qen me shkue me koston mesatare

[dili101]

Faleminderit per ndihmen tuaj, kam provuar shume menyra por nuk kam mund ta realizoj kete lloj lgoritmi

ne formen access i ke dy tabela nje tabele hyrje dhenje dalje
ne hyrje jane vendosur vetem molla sa pershembull.
i ke molla me tri cmime te ndrsyshme gjithsej jane 300 kg
ajo qka une kerkoj
nje kod
per vendosjen ne tabelen per dalje

komboboxi te jet i mbushur dhe molla me shfaqen ashtu si jane te evidentuara ne hyrje
por kur shtypi sasine 200 te me insertohen ne datagrid view 100 nga reshti i pare te komboboxitdhe 100 nga reshti i dyte nga komboboxi
nuk e di sa po me kuptoni.
nese column1 i komboboxit i ka100 cop e column 2 apo si thiren ne vbnet listindex .
300 jane gjithsej une i lypi200 ne dalje
ne datagrid duate me fiurojne
100 me 1 euro dhe 100 me 1.1. euro
shum faleminderit

nje vrejtje per projektin:
1. se pari duhesh qe te mendosh mir se qfar shenim don me rujt ne Database
2.Te kujdesesh qe shenimet qe i run ne database mos te perseriten por te referencohen
3. Te mendosh per integritetin e shenimeve ne database etj.
dmth duhesh me pas kujdes ne dizajnin e bazes se shenimeve.
Ktu tek kjo baza do te ishte e rruges me ba nje ket struktur:
1. Fakturat
2.Klientet
3.Shenimet (ndrrimet hyrje-dalje)
4.Artikujt
Pastaj vendos relacionet.

Perseri po tham se nuk jam naj expert por kto jan rregullat kryesore ne programimin e Bazave si ne Acces e ashtu edhe SQL etj.

[Uke Topalli]

Nje verrejtje per programuesit e ri. Koheve te fundit kam verejtur nje tendence tek programuesit e ri te cilen une e quaj "tejnormailizim". Ja per cka eshte fjala. Shumica e fillestareve kur vie puna tek dizajnimi i bazes se shenimeve, me zell te madh i percjellin tri normat e normalizimit te bazes por ne fund nuk e bejne denormalizimin e duhur. Denormailizimi si hapi i fundit eshte absolutisht i nevojshem neqoftese deshironi te keni nje platforme qe mund te shfrytezohet per nje kohe te gjate, sepse e mundeson mirembajtjen e shenimeve si dhe shpejteson raportet ne kurriz te rritjes minimale te bazes se shenimeve.