Kam nevoj shume per ndihme

**Vb.Net** · 01-05-2011, 01:49

Pershendetje jam student i vitit te pare me ka dhene profesori nje detyre qe me duhet pa tjeter ta perfundoj e as qe e kam idene se qka duhet te beje jam shume fillestar ne vb.net por e kam lenden obligative e ju lutem me ndihmoni dikush.
Kam nje database me emrin artikujt jane 3 tabela tabela artikujt hyrje dhe dalje
ne tabelen hyrje hyjne artikujt te ndryshem me cmime te ndryshme mua me duhet ta beje nje datagrid qe do te duket keshtu
ArtikulliId,Shifra,Pershkrimi,CmimiFur,Hyrje,Dalje ,Mbetja CmimiFur do te thote cmimifurnizues.
Mua me duhet me bo dalje pa percaktu cmimin furnizues tk dalja por te datagridi rubrika mbetjet duhet te i mbledh sasine e artikujve te dalur dhe te mbetur por duke i mbledhur me metoden FIFO dmth sa kane hyre pelhure me nje cmim dhe sa kane mbetur.
detyra kerkohet te jete ne datagrid dhe pastaj te behet nje raport per shtypje te asaj pasqyre.
a ka dikush idene kam provuar me kodin leftinerjoin nga sql por po me paraqet problem kur po kemi cmime te ndryshme vetem per sasi ska problem mire funksionon por kur eshte ne pyetje cmime te ndrsyhme shum o broblem a profesori ma ka kufizuar kete metode e jam shume ne hall.

**hot_prinz** · 01-05-2011, 12:52

Datagrid te nevojitet ne Access apo ne VB.NET?
Kodin kur SQL funksionon nuk e postove.

**Vb.Net** · 02-05-2011, 02:36

Mua me duhet qe datgridi te jete ne Vb.net pasi qe une msaccesin e perdori vetem si database.
e pastaj disajnin po interfacein e bej me Vb.net 2008 une zakonisht punoj por e kam edhe 2010 por me shum punoj me 2008 sepse punoj me WIN XP nuk e kam WIn 7.

kodi

SELECT [Lista e Artikujve].ArtikulliID, [Lista e Artikujve].Shifra, [Lista e Artikujve].Pershkrimi, Hyrje.Hyrje, Dalje.Dalje
FROM ([Lista e Artikujve] LEFT JOIN Hyrje ON [Lista e Artikujve].ArtikulliID = Hyrje.ArtikulliID) LEFT JOIN Dalje ON Hyrje.ID = Dalje.ID;

shum here me punon shume here nuk me punoj nuk eshte stabl po me qudit apo une nuk dita konfiguroj.

kur kam nji resht tek hyrja po me punon mire si po me shtohen dy reshte apo me teper nuk po unksionon me.
Po kam nevoj per nji datagrid ne vb.net se pastaj duhet me bo nji raport per me e shtyp ne leter ate datagrid.
qe ka mu duk si ne foto

NESE E VERENI TEK ARTIKULLI PELHURE NE HYRJE dalje kemi shume hyrje me shume lloj cmime furnizuese por ne dalje kemi 185 qe do te thote cmimi i pare i mbulon komplet por sikur te mos mjaftonin duhet qe pjesa e mbetur te futet ne cmimine dyte keshtu funksionon FIFO.
sa i perket kodit sql nuk eshte i qendruesem pas artikullit te dyte me nji artikull funksionon bet po a duhet na me u alafaqu veq me nji artikull une nuk e di nashta ekziston zgjidhje per kete po une nuk e di.

**hot_prinz** · 02-05-2011, 05:43

Postuar më parë nga Vb.Net

NESE E VERENI TEK ARTIKULLI PELHURE NE HYRJE dalje kemi shume hyrje me shume lloj cmime furnizuese por ne dalje kemi 185 qe do te thote cmimi i pare i mbulon komplet por sikur te mos mjaftonin duhet qe pjesa e mbetur te futet ne cmimine dyte keshtu funksionon FIFO.

Nuk e dij nese keto dite kam probleme me kuptim, por kete fjaline e lexova dhjetera here por prape se prape nuk po muj me i ra ne fije, spo e kuptoj cka ki dashte me thane.
Te lutem, perdor ndonje presje ',', se pa leke jane.

**Vb.Net** · 02-05-2011, 10:08

E Ke Te Bashkangjitur Fajllin Ne Access Edhe Nje Forme Per Skjarim Por Forma Po Me Duhet Ne Vb.net Me Atagrid Te Lutem Me Ndihmo Se Te Merkurenduhet Me E Dorezu Projektin

**hot_prinz** · 03-05-2011, 04:02

Kodi me poshte, kalkulon daljet, mbetjet dhe vleren e mbetjeve. Llogaritjet behen ne VB Kod e jo ne SQL-sintakse. Te nevojitet dic e tille?

Kodi:

Imports System.Data.OleDb

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + Application.StartupPath + "\Artikujt.accdb")
        cn.Open()

        Dim adapter As OleDbDataAdapter = New OleDbDataAdapter("SELECT ArtikulliID, Shifra, Pershkrimi, CmimiFur, Hyrje FROM Hyrje ORDER BY Data", cn)

        Dim table As New DataTable()

        adapter.Fill(table)

        table.Columns.Add("Shuma e Daljeve")
        table.Columns.Add("Mbetja")
        table.Columns.Add("Vlera e Mbetjes")

        cn.Close()

        DataGridView1.DataSource = table
        DataGridView1.Update()

        dalja()

    End Sub

    Private Sub dalja()

        Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + Application.StartupPath + "\Artikujt.accdb")
        cn.Open()

        Dim adapter As OleDbDataAdapter = New OleDbDataAdapter("SELECT ArtikulliID,Dalje FROM Dalje ORDER BY Data", cn)

        Dim table As New DataTable()

        adapter.Fill(table)

        For Each myRow In table.Rows
            Kalkulo(myRow(0), myRow(1))
        Next

        cn.Close()

    End Sub

    Private Sub Kalkulo(ByVal art As String, ByVal dalja As Integer)

        For Each DataGridViewRow In DataGridView1.Rows

            Dim artikulliId As Integer = CInt(DataGridView1(0, DataGridViewRow.Index).Value)
            Dim cmimiFur As Double = CDbl(DataGridView1(3, DataGridViewRow.Index).Value)
            Dim hyrje As Integer = CInt(DataGridView1(4, DataGridViewRow.Index).Value)

            If artikulliId = art Then
                If dalja >= hyrje Then
                    DataGridView1(5, DataGridViewRow.Index).Value = hyrje
                    DataGridView1(6, DataGridViewRow.Index).Value = hyrje - DataGridView1(5, DataGridViewRow.Index).Value
                    DataGridView1(7, DataGridViewRow.Index).Value = DataGridView1(6, DataGridViewRow.Index).Value * cmimiFur
                    dalja = dalja - hyrje
                ElseIf dalja < hyrje And dalja <> 0 Then
                    DataGridView1(5, DataGridViewRow.Index).Value = dalja
                    DataGridView1(6, DataGridViewRow.Index).Value = hyrje - dalja
                    DataGridView1(7, DataGridViewRow.Index).Value = DataGridView1(6, DataGridViewRow.Index).Value * cmimiFur
                    dalja = hyrje - dalja
                    dalja = 0
                ElseIf dalja = 0 Then
                    DataGridView1(5, DataGridViewRow.Index).Value = 0
                    DataGridView1(6, DataGridViewRow.Index).Value = hyrje
                    DataGridView1(7, DataGridViewRow.Index).Value = DataGridView1(6, DataGridViewRow.Index).Value * cmimiFur
                End If

            End If

        Next

    End Sub

End Class

Ja dhe projekti i bashkangjitur, por databazen e Access-it e hoqa nga Folderi Debug sepse tejkalonte limitin e madhesise.

**Vb.Net** · 03-05-2011, 10:54

shembulli i pare funksionoj per mrekulli,por po mi kerkon edhe nja dy telashe qe kuku as ne ender sun e gjej zgjidhjen tentova ne google me bo search por nuk gjeta diqka as te ngjajshme tani po ma kerkon me i bo dy butona ku njeri ma ruan qat datagrid si tabela datagridi ne fajllin e accessit, e butoni tjeter te dhenat e datagrridit me i rujt ne fajllin e eksellit Excel ku shteu itij duhet te jete ne C:/Shembull1.xlsx dhe ne fund te reshtave sa do qe te ket reshta tek rubrika vlera te jete shuma e vleres. dhe ne rubriken data te jete data dhe emri i shitsit"kosova"
fajllin e eksellit i duhet te jet e ke ne zip te insertuar.

po me duket kjo eshte e pa mundur ju lutem dikush le te ma gjejzjidhjen

**hot_prinz** · 03-05-2011, 14:49

Ja kodi per ruajtje te DataGrid ne DB Artikujt ne Tabelen Raporti, kujdes Tabela Raporti tentohet te fshihet cdohere kur shtypet Butoni Ruaj ne Tabele dhe nuk mund duhet te jete i hapur ne Access. Gjithashtu eksporton DataGrid se bashku me shumen e vleres ne nje CSV File qe mund te hapet direkt me Excel. Lidhja direkte me Excel dhe injicimi i te dhenave atje eshte pak me i komplikueshem dhe mund te mos funksionoje me secilin version te Excel-it.

Kodi:

Imports System.IO
Imports System.Data.OleDb

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + Application.StartupPath + "\Artikujt.accdb")
        cn.Open()

        Dim adapter As OleDbDataAdapter = New OleDbDataAdapter("SELECT ArtikulliID, Shifra, Pershkrimi, CmimiFur, Hyrje FROM Hyrje ORDER BY Data", cn)

        Dim table As New DataTable()

        adapter.Fill(table)

        table.Columns.Add("Shuma e Daljeve")
        table.Columns.Add("Mbetja")
        table.Columns.Add("Vlera e Mbetjes")

        cn.Close()

        DataGridView1.DataSource = table
        DataGridView1.Update()

        dalja()

    End Sub

    Private Sub dalja()

        Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + Application.StartupPath + "\Artikujt.accdb")
        cn.Open()

        Dim adapter As OleDbDataAdapter = New OleDbDataAdapter("SELECT ArtikulliID,Dalje FROM Dalje ORDER BY Data", cn)

        Dim table As New DataTable()

        adapter.Fill(table)

        For Each myRow In table.Rows
            Kalkulo(myRow(0), myRow(1))
        Next

        cn.Close()

    End Sub

    Private Sub Kalkulo(ByVal art As String, ByVal dalja As Integer)

        For Each DataGridViewRow In DataGridView1.Rows

            Dim artikulliId As Integer = CInt(DataGridView1(0, DataGridViewRow.Index).Value)
            Dim cmimiFur As Double = CDbl(DataGridView1(3, DataGridViewRow.Index).Value)
            Dim hyrje As Integer = CInt(DataGridView1(4, DataGridViewRow.Index).Value)

            If artikulliId = art Then
                If dalja >= hyrje Then
                    DataGridView1(5, DataGridViewRow.Index).Value = hyrje
                    DataGridView1(6, DataGridViewRow.Index).Value = hyrje - DataGridView1(5, DataGridViewRow.Index).Value
                    DataGridView1(7, DataGridViewRow.Index).Value = DataGridView1(6, DataGridViewRow.Index).Value * cmimiFur
                    dalja = dalja - hyrje
                ElseIf dalja < hyrje And dalja <> 0 Then
                    DataGridView1(5, DataGridViewRow.Index).Value = dalja
                    DataGridView1(6, DataGridViewRow.Index).Value = hyrje - dalja
                    DataGridView1(7, DataGridViewRow.Index).Value = DataGridView1(6, DataGridViewRow.Index).Value * cmimiFur
                    dalja = hyrje - dalja
                    dalja = 0
                ElseIf dalja = 0 Then
                    DataGridView1(5, DataGridViewRow.Index).Value = 0
                    DataGridView1(6, DataGridViewRow.Index).Value = hyrje
                    DataGridView1(7, DataGridViewRow.Index).Value = DataGridView1(6, DataGridViewRow.Index).Value * cmimiFur
                End If

            End If

        Next

    End Sub

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

        Fshij_Raportin()

        Krijo_Raportin()

        Try
            Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + Application.StartupPath + "\Artikujt.accdb")

            cn.Open()

            For Each DataGridViewRow In DataGridView1.Rows

                Dim sqlStr = "INSERT INTO Raporti (ArtikulliID , Shifra, Pershkrimi, CmimiFur, Hyrje, ShumaeDaljeve, Mbetja, VleraeMbetjes) " _
                & "VALUES (@ArtikulliID , @Shifra, @Pershkrimi, @CmimiFur, @Hyrje, @ShumaeDaljeve, @Mbetja, @VleraeMbetjes)"

                Dim cmd As New OleDbCommand(sqlStr, cn)

                cmd.Parameters.AddWithValue("@ArtikulliID", DataGridView1(0, DataGridViewRow.Index).Value)
                cmd.Parameters.AddWithValue("@Shifra", DataGridView1(1, DataGridViewRow.Index).Value)
                cmd.Parameters.AddWithValue("@Pershkrimi", DataGridView1(2, DataGridViewRow.Index).Value)
                cmd.Parameters.AddWithValue("@CmimiFur", DataGridView1(3, DataGridViewRow.Index).Value)
                cmd.Parameters.AddWithValue("@Hyrje", DataGridView1(4, DataGridViewRow.Index).Value)
                cmd.Parameters.AddWithValue("@ShumaeDaljeve", DataGridView1(5, DataGridViewRow.Index).Value)
                cmd.Parameters.AddWithValue("@Mbetja", DataGridView1(6, DataGridViewRow.Index).Value)
                cmd.Parameters.AddWithValue("@VleraeMbetjes", DataGridView1(7, DataGridViewRow.Index).Value)

                cmd.ExecuteNonQuery()

            Next

            cn.Close()

        Catch
        End Try

        MessageBox.Show("Raporti u ruajt ne Databaze!")

    End Sub

    Private Sub Krijo_Raportin()

        Try
            Dim objCmd As New OleDbCommand
            Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + Application.StartupPath + "\Artikujt.accdb")
            cn.Open()

            Dim Sql = "CREATE TABLE Raporti ([Id] COUNTER, [ArtikulliID] INT,  [Shifra] TEXT(13), [Pershkrimi] TEXT(32), [CmimiFur] TEXT(13), [Hyrje] INT, [ShumaeDaljeve] INT, [Mbetja] INT, [VleraeMbetjes] TEXT(13))"

            objCmd = New OleDbCommand(Sql, cn)
            objCmd.ExecuteNonQuery()

            cn.Close()

        Catch
        End Try

    End Sub

    Private Sub Fshij_Raportin()

        Try
            Dim objCmd As New OleDbCommand
            Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + Application.StartupPath + "\Artikujt.accdb")
            cn.Open()

            Dim Sql = "DELETE FROM Raporti"

            objCmd = New OleDbCommand(Sql, cn)
            objCmd.ExecuteNonQuery()

            cn.Close()
        Catch
        End Try

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim permbajtja As String = ""

        permbajtja += ";;;;SHEMBULLI NR 1;;;;" & vbNewLine
        permbajtja += ";;Data;;Emri shitesit;;;;" & vbNewLine
        permbajtja += ";;;;;;;;" & vbNewLine
        permbajtja += "Nr;ArtikulliID;Shifra;Pershkrimi;CmimiFur;Hyrje;Dalje;Mbetja;Vlera" & vbNewLine

        Dim x As Integer = 1

        For Each DataGridViewRow In DataGridView1.Rows
            permbajtja += (x).ToString() + ";"
            For i As Integer = 0 To DataGridView1.Columns.Count

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

            Next
            permbajtja += vbNewLine
            x += 1

        Next

        Dim vlera As Double

        For Each DataGridViewRow In DataGridView1.Rows
            vlera += DataGridView1(7, DataGridViewRow.Index).Value
        Next

        permbajtja += ";;;;;;;;" & vlera & vbNewLine

        Dim fs As FileStream = New FileStream("Shembull1.csv", FileMode.Create, FileAccess.Write)
        Dim sw As StreamWriter = New StreamWriter(fs)


        sw.Write(permbajtja)

        sw.Close()
        fs.Close()

        MessageBox.Show("Raporti u ruajt ne Excel[CSV]!")

    End Sub

End Class

vbNET.zip

**hot_prinz** · 03-05-2011, 15:38

Harrova sa i perket emrit te shitesit, per te ruajtur emrin e shitesit mundesh me e kriju thjesht nje ComboBox ku lexon emrat e shitesve nga nje txtFile, e pastaj te injeksiohen ne csv-File.
Por nje zgjidhje me e mire do te ishte mundesia e aksesimit te databazes me perdorues dhe fjalekalim, pastaj ne baze te njohjes se perdoruesit permes identifikimit, te mirret emri i shitesit nga kjo variabel e identifikimit, kjo mbron edhe privacine e shitesve.
Por nuk e di se a te kerkohet nje zgjidhje e tille ne projekt dhe a jane te pershtatshe kombinimi i Vb - Access per nje projekt.

Sidoqofte nese ke ndonje kerkese tjeter mund te lajmerohesh, edhepse po me duhet me shume kohe te riaktualizoj sintaksen ne vb qe personalisht nuk e preferoj dhe e evitoj ku te eshte e mundur.

**Vb.Net** · 04-05-2011, 02:22

Ju faleminderit shume per kontibutin tuaj , por e verejta se profesori na detyroj ta mbushim me te dhenat sa me shume dhe une e insertova nje Timer dhe permes kodit insertinto lejova qe baza te mbushet deri ne 10.000 rekorde e pash qe ne momentin kur e mbrin kete limit ngadalesohet shum, por skam qka me ba ndoshta kjo nuk ka mundesi te behet qe mos ta ndjej vonesen se vonesa per ekzekutimin e programit behet reth 1 minuti.

por qka rash prej provimit ishte se fajlli qe e gjeneron e eksell i vendos krejt te dhenat ne nje rekord te eksellit
e une e kisha per detyre ta bej qe tabela e eksellit te ruhet ashtu si eshte ne datagrid e gjeta nji kod ne internet vetem se e kish nje penges se titullin e reshtave nuk po mi qet dhe ne qelulen A1: po me kushtezon me figuru teksti 01.01.2011 dhe ne qelulen A3: me pas tekstin "Kosova"

ne reshtin 3 te eksellit te jene titujt e sheshteve apo te kollumnave te datagridit dhe te dhenat me u shpernda neper kollumne te eksellit si ne datagrid dhe ne fund te tabeles te jete nji qelul qe ka me i parqit totalin e vleres.
ky kod qe e gjeta ne google po i trnsferon te dhenat por titujt e shtyllave te datagridit nuk po mitransferon por vetem te dhenat dhe ne qelulen A!: nuk po di si me ja qi kestin 01.01.2011 dhe ne qelulen A2 me vendos tekstin Kosova
per kete ma dha afat deri t premten me ja dorezu.
shpresoj se nuk ju kam merzitur me kete.

Imports Excel = Microsoft.Office.Interop.Excel

Dim xlApp As Excel.Application

Dim xlWorkBook As Excel.Workbook

Dim xlWorkSheet As Excel.Worksheet

Dim misValue As Object = System.Reflection.Missing.Value

Dim i As Int16, j As Int16

xlApp = New Excel.ApplicationClass

xlWorkBook = xlApp.Workbooks.Add(misValue)

xlWorkSheet = xlWorkBook.Sheets("sheet1")

For i = 0 To DataGridView1.RowCount - 2

For j = 0 To DataGridView1.ColumnCount - 1

xlWorkSheet.Cells(i + 1, j + 1) = DataGridView1(j, i).Value.ToString()

Next

Next

xlWorkBook.SaveAs("c:\vb.net-informations.xls", Excel.XlFileFormat.xlWorkbookNormal, misValue, misValue, misValue, misValue, _

Excel.XlSaveAsAccessMode.xlExclusive, misValue, misValue, misValue, misValue, misValue)

xlWorkBook.Close(True, misValue, misValue)

xlApp.Quit()

releaseObject(xlWorkSheet)

releaseObject(xlWorkBook)

releaseObject(xlApp)

MessageBox.Show("Over")

End Sub

Private Sub releaseObject(ByVal obj As Object)

Try

System.Runtime.InteropServices.Marshal.ReleaseComO bject(obj)

obj = Nothing

Catch ex As Exception

obj = Nothing

MessageBox.Show("Exception Occured while releasing object " + ex.ToString())

Finally

GC.Collect()

End Try

End Sub

Tema: Kam nevoj shume per ndihme

Funksionet e Temës

Kam nevoj shume per ndihme

Qe Edhe Nji Skjarim Ma Shqip Pak

funksionoj shum bukur,por edhe nji problem

Ekselli nuk funksionon

Regullat e Postimit

Projekti Albasoul

Komuniteti i Forumit

Rreth Nesh

Kërko

Krijoni Kontakt