Close
Faqja 0 prej 2 FillimFillim 12 FunditFundit
Duke shfaqur rezultatin -9 deri 0 prej 12
  1. #1
    i/e regjistruar
    Anėtarėsuar
    08-05-2008
    Vendndodhja
    Middle East
    Postime
    243

    VB 2008 & Access 2003

    Pershendetje te nderuar forumista,
    se pari ju kerkoj ndjes nese kjo teme eshte hapur me heret, mirpo une nuk munda ta gjej dot!

    Jame fillestar ne VB 2008 edhe kam nevoj per nje ndihme.

    Kam nje Form ne VB 2008 qe ka nje fushe "txtEmri" dhe nje buton "cmdRuaj", ajo qka po deshiroj une eshte se cafar codi duhet te kete "on_Click" qe kur te klikoj "cmdRuaj" Stringu qe eshte ne "txtEmri" te ruhet ne databazen "D:\baza.mdb" perkatesishte ne tabelen "tbl_Emrat" qe ka fushen "TEmri".

    Faleminderit shume.
    Fotografitė e Bashkėngjitura Fotografitė e Bashkėngjitura  

  2. #2
    i/e regjistruar Maska e hot_prinz
    Anėtarėsuar
    29-05-2007
    Vendndodhja
    Frankfurt
    Postime
    9,878
    little-boy kalove nga access-i ne vb a?

    ja nje kod i komentuar per futjen e rekordeve nga vb2008 ne access:

    Kodi:
    Public Class Form1
    
        'ndryshorja per linkun e databazes
        Dim linkuDatabazes = "D:\Baza.mdb"
    
        'ndryshorja publike per lidhjen e databazes me visual basic
        Public lidhja As New OleDb.OleDbConnection("Provider=microsoft.jet.oledb.4.0;data source=" & linkuDatabazes)
    
        'procedura kur shtyp butonin "Ruaj"
        Private Sub cmdRuaj_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRuaj.Click
    
            'vertetimi nese kemi shkruar nje emer
            If txtEmri.Text.Length > 0 Then
    
                'provo ekzekutimin e kodit
                Try
                    'hap lidhjen me databaze
                    lidhja.Open()
    
                    Dim emriTabeles = "tbl_Emrat"
                    Dim emriKolones = "TEmri"
    
                    'ndryshorja me komanden per futjen e emrit ne databaze
                    Dim komanda As New OleDb.OleDbCommand("INSERT INTO " & emriTabeles & " (" & emriKolones & ") VALUES('" & txtEmri.Text & "')", lidhja)
    
                    'ekzekuto komanden
                    komanda.ExecuteNonQuery()
    
                    'perfundo lidhjen me databaze
                    lidhja.Close()
    
                    'shfaq nje informacion per ruajtjen e emrit ne databaze
                    MessageBox.Show("Emri """ & txtEmri.Text & """ u fut ne Databaze!", "Sukses:", MessageBoxButtons.OK, MessageBoxIcon.Information)
    
                Catch ex As Exception
    
                    'ne rast se ndodh gabim gjate ekzekutimit, shfaqet nje gabim me pershkrim
                    MessageBox.Show(ex.Message, "Ndodhi nje gabim:", MessageBoxButtons.OK, MessageBoxIcon.Error)
    
                End Try
    
            Else
    
                'nese kutia per futjen e emrit eshte e zbrazet, do te shfaqet nje gabim
                MessageBox.Show("Jeni i verber? Nuk e shifni se mungon emri!", "Ndodhi nje gabim:", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    
            End If
    
        End Sub
    
    End Class
    Skedarėt e Bashkėngjitur Skedarėt e Bashkėngjitur

  3. #3
    i/e regjistruar
    Anėtarėsuar
    08-05-2008
    Vendndodhja
    Middle East
    Postime
    243
    Tung Hot_Prinz,

    Jo hala bash nuk kom vendos me dal ne VB, sepse kam nevoj te mesoj akoma nga ti, (si te beje DELETE, UPDATE, AutoFill), pastaj munde te them se jam pak a shume i gatshem

    Sinqerisht e vlersoj shume ndihmen tende, shume te Falemenderoj.

    Te Lumte!
    Fotografitė e Bashkėngjitura Fotografitė e Bashkėngjitura  

  4. #4
    i/e regjistruar Maska e hot_prinz
    Anėtarėsuar
    29-05-2007
    Vendndodhja
    Frankfurt
    Postime
    9,878
    ta vendosa projektin dhe bazen me Insert, Update, Delete, Autofill. Nuk pata kohe me e komentu, nese ke ndonje pyetje lajmerohu.
    Skedarėt e Bashkėngjitur Skedarėt e Bashkėngjitur

  5. #5
    i/e regjistruar
    Anėtarėsuar
    08-05-2008
    Vendndodhja
    Middle East
    Postime
    243
    Hot_Prinz, flm shume per mundin, mirpo nuk po muj ti shoh ngjarjet qe i ke vendosur neper Butona... Po me shfaqet ky mesazh.

    Unable to create a manifest resource name for "H:\My Documents\Visual Studio 2008\Projects\VB\Ruaj Emrin ne Access\Form1.resx". Could not find a part of the path 'H:\My Documents\Visual Studio 2008\Projects\VB\Ruaj Emrin ne Access\Form1.vb'. AccesDB
    Fotografitė e Bashkėngjitura Fotografitė e Bashkėngjitura  

  6. #6
    i/e regjistruar Maska e hot_prinz
    Anėtarėsuar
    29-05-2007
    Vendndodhja
    Frankfurt
    Postime
    9,878
    po e verejta se mungonte forma, ja edhe njeher po ta dergoi permbajtjen e formes dhe projektin me databaze, databazen e vendos ne d:\ sepse kam shtuar edhe nje Id si index

    Kodi PHP:


    Imports System
    .Data
    Imports System
    .Data.OleDb

    Public Class Form1

        
    'ndryshorja per linkun e databazes
        Dim linkuDatabazes = "D:\Baza.mdb"

        '
    ndryshorja publike per lidhjen e databazes me visual basic
        
    Public lidhja As New OleDb.OleDbConnection("Provider=microsoft.jet.oledb.4.0;data source=" linkuDatabazes)

        
    Dim lexuesiDB As OleDbDataReader

        Dim indexi 
    As Integer
        Dim emriSelektuar 
    As String

        
    Private Sub Form1_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles MyBase.Load

            lstEmrat
    .Columns.Add("Id"30)
            
    lstEmrat.Columns.Add("Emri"140)

            
    lstEmrat.View View.Details

            lstEmrat
    .GridLines True

            lexoRekordetNeListe
    ()

            
    lstEmrat.FullRowSelect True

        End Sub


        
    Private Sub cmdRuaj_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles cmdRuaj.Click

            
    'vertetimi nese kemi shkruar nje emer
            If Trim(txtEmri.Text).Length > 0 Then

                If kontrolloEmrinNeDatabaze(txtEmri.Text) = False Then

                    '
    provo ekzekutimin e kodit
                    
    Try
                        
    'hap lidhjen me databaze
                        lidhja.Open()

                        Dim emriTabeles = "tbl_Emrat"
                        Dim emriKolones = "TEmri"

                        '
    ndryshorja me komanden per futjen e emrit ne databaze
                        Dim komanda 
    As New OleDb.OleDbCommand("INSERT INTO " emriTabeles " (" emriKolones ") VALUES('" Trim(txtEmri.Text) & "')"lidhja)

                        
    'ekzekuto komanden
                        komanda.ExecuteNonQuery()

                        '
    perfundo lidhjen me databaze
                        lidhja
    .Close()

                        
    lstEmrat.Items.Clear()
                        
    Call lexoRekordetNeListe()

                        
    'shfaq nje informacion per ruajtjen e emrit ne databaze
                        lblInfo.Text = "Emri """ & Trim(txtEmri.Text) & """ u fut ne Databaze!"

                        txtIndexi.Text = 0
                        txtEmri.Text = ""

                    Catch ex As Exception

                        '
    ne rast se ndodh gabim gjate ekzekutimitshfaqet nje gabim me pershkrim
                        MessageBox
    .Show(ex.Message"Ndodhi nje gabim:"MessageBoxButtons.OKMessageBoxIcon.Error)

                    
    End Try

                Else

                    
    MessageBox.Show("Emri """ Trim(txtEmri.Text) & """ ekziston ne Databaze!""Ndodhi nje gabim:"MessageBoxButtons.OKMessageBoxIcon.Warning)

                
    End If

            Else

                
    'nese kutia per futjen e emrit eshte e zbrazet, do te shfaqet nje gabim
                MessageBox.Show("Jeni i verber? Nuk e shifni se mungon emri!", "Ndodhi nje gabim:", MessageBoxButtons.OK, MessageBoxIcon.Warning)

            End If

        End Sub

        Function kontrolloEmrinNeDatabaze(ByVal strEmri As String) As Boolean

            Dim b As Boolean = False

            lidhja.Open()

            Dim komanda As New OleDb.OleDbCommand("SELECT * FROM tbl_Emrat", lidhja)

            lexuesiDB = komanda.ExecuteReader

            While lexuesiDB.Read()

                If strEmri = lexuesiDB("TEmri") Then
                    b = True
                End If

            End While

            lidhja.Close()

            If b = True Then
                kontrolloEmrinNeDatabaze = True
            Else
                kontrolloEmrinNeDatabaze = False
            End If

        End Function

        Sub lexoRekordetNeListe()

            lidhja.Open()

            Dim komanda As New OleDb.OleDbCommand("SELECT * FROM tbl_Emrat", lidhja)

            lexuesiDB = komanda.ExecuteReader

            While lexuesiDB.Read()

                futRekordetNeListe(lstEmrat, lexuesiDB("Id"), lexuesiDB("TEmri"))

            End While

            lidhja.Close()

        End Sub

        Public Sub futRekordetNeListe(ByVal lstEmrat As ListView, ByVal id As Integer, ByVal emri As String)

            Dim rreshtiListes As New ListViewItem

            lstEmrat.Items.Add(rreshtiListes)

            rreshtiListes.Text = id
            rreshtiListes.SubItems.Add(emri)

        End Sub

        Private Sub lstEmrat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstEmrat.Click

            Dim i As Integer

            For i = 0 To Me.lstEmrat.Items.Count - 1

                If lstEmrat.Items(i).Selected = True Then

                    txtEmri.Text = lstEmrat.Items(i).SubItems(1).Text
                    txtIndexi.Text = lstEmrat.Items(i).SubItems(0).Text
                    emriSelektuar = lstEmrat.Items(i).SubItems(1).Text

                    Exit For

                End If

            Next

            lblInfo.Text = ""
            lstEmrat.Focus()
            lstEmrat.FullRowSelect = True

        End Sub

        Private Sub cmdFshij_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdFshij.Click



            If Trim(txtIndexi.Text).Length > 0 Then

                Dim msgResultati As MsgBoxResult

                msgResultati = MsgBox("Deshironi vertete te fshini emrin """ & txtEmri.Text & """ nga databaza?", MsgBoxStyle.YesNo, "Kujdes:")

                If msgResultati = MsgBoxResult.Yes Then

                    Try
                        lidhja.Open()

                        Dim cmd As New OleDb.OleDbCommand("DELETE * FROM tbl_Emrat WHERE TEmri='" & Me.txtEmri.Text & "'", lidhja)

                        cmd.ExecuteNonQuery()

                        lidhja.Close()

                        lstEmrat.Items.Clear()
                        lexoRekordetNeListe()

                        lblInfo.Text = "Emri """ & txtEmri.Text & """ u fshi nga Databaza!"

                        txtIndexi.Text = 0
                        txtEmri.Text = ""

                    Catch ex As Exception

                        '
    ne rast se ndodh gabim gjate ekzekutimitshfaqet nje gabim me pershkrim
                        MessageBox
    .Show(ex.Message"Ndodhi nje gabim:"MessageBoxButtons.OKMessageBoxIcon.Error)

                    
    End Try

                Else

                
    End If

            Else

                
    MessageBox.Show("Nuk keni zgjedhur nje emer per ta fshire nga databaza!""Ndodhi nje gabim:"MessageBoxButtons.OKMessageBoxIcon.Warning)

            
    End If

        
    End Sub

        
    Private Sub cmdAktualizo_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles cmdAktualizo.Click

            
    If txtIndexi.Text 0 Then

                
    If emriSelektuar <> txtEmri.Text Then

                    
    If Trim(txtEmri.Text).Length 0 Then

                        
    Try
                            
    lidhja.Open()

                            
    Dim komanda As New OleDb.OleDbCommand("UPDATE tbl_Emrat SET TEmri='" txtEmri.Text "' WHERE Id=" txtIndexi.Text ""lidhja)

                            
    komanda.ExecuteNonQuery()

                            
    lidhja.Close()

                            
    lstEmrat.Items.Clear()
                            
    Call lexoRekordetNeListe()

                            
    txtIndexi.Text 0
                            emriSelektuar 
    txtEmri.Text

                            lblInfo
    .Text "Emri """ txtEmri.Text """ u aktualizua ne databaze!"

                        
    Catch ex As Exception

                            
    'lidhja.Close()
                            '
    ne rast se ndodh gabim gjate ekzekutimitshfaqet nje gabim me pershkrim
                            MessageBox
    .Show(ex.Message"Ndodhi nje gabim:"MessageBoxButtons.OKMessageBoxIcon.Error)
                        
    End Try

                    Else

                        
    MessageBox.Show("Emri """ emriSelektuar """ nuk mund te aktualizohet me zbrazetire!""Ndodhi nje gabim:"MessageBoxButtons.OKMessageBoxIcon.Warning)

                    
    End If

                Else

                    
    MessageBox.Show("Emri """ emriSelektuar """ ne databaze eshte i njejte me emrin """ txtEmri.Text """ dhe nuk ka nevoje te aktualizohet!""Ndodhi nje gabim:"MessageBoxButtons.OKMessageBoxIcon.Warning)

                
    End If
            Else

                
    MessageBox.Show("Nuk keni zgjedhur nje emer ne liste per ta aktualizuar!""Ndodhi nje gabim:"MessageBoxButtons.OKMessageBoxIcon.Warning)

            
    End If

        
    End Sub

    End 
    Class 
    Skedarėt e Bashkėngjitur Skedarėt e Bashkėngjitur

  7. #7
    i/e regjistruar
    Anėtarėsuar
    08-05-2008
    Vendndodhja
    Middle East
    Postime
    243
    Te Lumte Hot_Prinz,
    mundem te them se edhe kjo ndihme me duhet edhe jam gati te dal ne VB.

    Pra kam krijuar nje form tjeter ne kete projekt "Form2.vb" ku i ka fushat cboID, txtEmri, Sasia.
    cboID duhet ti marr vlerat nga tbl_Emrat.ID, dhe pas "After_Update" duhet te Exkekutohet kjo ngjarje.

    ja si ka qen ngjarja ne VBA qe une nuk po di ta konvertoj ne VB:

    Kodi:
    Private Sub cboID_AfterUpdate()
    Dim lidhja As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    
    Set lidhja = CurrentProject.Connection
    Set rs = New ADODB.Recordset
    lidhja.CursorLocation = adUseClient
    rs.Open "SELECT tbl_Emrat.*, tbl_Emrat.ID FROM tbl_Emrat WHERE tbl_Emrat.ID = " & Me.CboID, lidhu, adOpenKeyset, adLockOptimistic
    If rs.RecordCount > 0 Then
    Me.txtEmri = rs!TEmri
    Me.Sasia.SetFocus
    Set  rs.ActiveConnection = Nothing
    rs.Close
    lidhja.Close
    
    Else
         If MsgBox(“Nuk Ekziston kjo ID ne tbl_Emrat” 
        End If
    End Sub
    ndersa Sasia shkruhet Manualisht.


    edhe me duhet ndihma per Butonin SAVE, qe ka per detyr:

    Copjo te gjitha te dhenat nga "tbl_trans_temp" dhe Vendosi ne "tbl_trans".
    Kete ne access e kam bere me Appead query, ketu nuk kam ide si!

    Te Falemendoroj shume per kohen qe ke gjetur te me ndihmosh.
    Ndryshuar pėr herė tė fundit nga little-boy : 19-07-2010 mė 07:34

  8. #8
    i/e regjistruar
    Anėtarėsuar
    08-05-2008
    Vendndodhja
    Middle East
    Postime
    243
    po e ndryshoj extenzioninin nga .zip ne .pdf sepse po filtrohet nga Serveri... po shpresoj qe do fuksionon kjo metod :S
    Fotografitė e Bashkėngjitura Fotografitė e Bashkėngjitura
    Ndryshuar pėr herė tė fundit nga little-boy : 19-07-2010 mė 07:27

  9. #9
    i/e regjistruar Maska e hot_prinz
    Anėtarėsuar
    29-05-2007
    Vendndodhja
    Frankfurt
    Postime
    9,878
    Me Butonin Add deshiron me i bo update sasise ne tbl_Trans, apo deshiron me e fute nje Rekord te ri ne Databaze. Nese deshiron me e fute nje Rekord te ri ne Databaze, nuk te nevojitet komboboxi me e zgjidh nje Rekord pasi qe Id futet automatikisht me Insert.
    Nese deshiron me e aktualizu Sasine atehere do te ishte mire te gjenerohet nje numer transaksioni qe do te ishte unik kur kopjohen tabelat.

    Ja kodin e formes se dyte, formen e dyte e zgjodha tek opcioni te hapet e para kur startohet aplikacioni:


    Kodi:
    Imports System.Data
    Imports System.Data.OleDb
    
    Public Class Form2
    
        'ndryshorja per linkun e databazes
        Dim linkuDatabazes = "D:\Baza.mdb"
    
        'ndryshorja publike per lidhjen e databazes me visual basic
        Public lidhja As New OleDb.OleDbConnection("Provider=microsoft.jet.oledb.4.0;data source=" & linkuDatabazes)
    
        Dim lexuesiDB As OleDbDataReader
    
        Private Sub Fut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Fut.Click
            'vertetimi nese kemi shkruar nje emer
            If Trim(txtEmri.Text).Length > 0 Then
    
                'provo ekzekutimin e kodit
                Try
                    'hap lidhjen me databaze
                    lidhja.Open()
    
                    Dim emriTabeles = "tbl_Trans_Temp"
                    Dim emriKolones = "TEmri"
    
                    'ndryshorja me komanden per futjen e emrit ne databaze
                    Dim komanda As New OleDb.OleDbCommand("INSERT INTO " & emriTabeles & " (" & emriKolones & ") VALUES('" & Trim(txtEmri.Text) & "')", lidhja)
    
                    'ekzekuto komanden
                    komanda.ExecuteNonQuery()
    
                    'perfundo lidhjen me databaze
                    lidhja.Close()
    
                    lstEmrat.Items.Clear()
                    Call lexoRekordetNeListe()
    
                    'shfaq nje informacion per ruajtjen e emrit ne databaze
                    lblInfo.Text = "Emri """ & Trim(txtEmri.Text) & """ u fut ne Databaze!"
    
                    'txtIndexi.Text = 0
                    txtEmri.Text = ""
    
                Catch ex As Exception
    
                    'ne rast se ndodh gabim gjate ekzekutimit, shfaqet nje gabim me pershkrim
                    MessageBox.Show(ex.Message, "Ndodhi nje gabim:", MessageBoxButtons.OK, MessageBoxIcon.Error)
    
                End Try
    
            Else
    
                MessageBox.Show("Emri """ & Trim(txtEmri.Text) & """ ekziston ne Databaze!", "Ndodhi nje gabim:", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    
            End If
    
            'Else
    
            ''nese kutia per futjen e emrit eshte e zbrazet, do te shfaqet nje gabim
            'MessageBox.Show("Jeni i verber? Nuk e shifni se mungon emri!", "Ndodhi nje gabim:", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    
            'End If
    
        End Sub
    
        Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            lstEmrat.Columns.Add("Id", 30)
            lstEmrat.Columns.Add("Emri", 140)
            lstEmrat.Columns.Add("Sasia", 140)
    
            lstEmrat.View = View.Details
    
            lstEmrat.GridLines = True
    
            lexoIdNeKomboBox()
            lexoRekordetNeListe()
    
            lstEmrat.FullRowSelect = True
        End Sub
    
        Private Sub lexoIdNeKomboBox()
    
            lidhja.Open()
    
            Dim komanda As New OleDb.OleDbCommand("SELECT * FROM tbl_Emrat", lidhja)
    
            lexuesiDB = komanda.ExecuteReader
    
            While lexuesiDB.Read()
    
                cboID.Items.Add(lexuesiDB("Id"))
    
            End While
    
            lidhja.Close()
    
        End Sub
    
        Private Sub lexoRekordetNeListe()
    
            lidhja.Open()
    
            Dim komanda As New OleDb.OleDbCommand("SELECT * FROM tbl_Trans", lidhja)
    
            lexuesiDB = komanda.ExecuteReader
    
            While lexuesiDB.Read()
    
                futRekordetNeListe(lstEmrat, lexuesiDB("Id"), lexuesiDB("TEmri"), lexuesiDB("Sasia"))
    
            End While
    
            lidhja.Close()
    
        End Sub
        Public Sub futRekordetNeListe(ByVal lstEmrat As ListView, ByVal id As Integer, ByVal emri As String, ByVal sasia As String)
    
            Dim rreshtiListes As New ListViewItem
    
            lstEmrat.Items.Add(rreshtiListes)
    
            rreshtiListes.Text = id
            rreshtiListes.SubItems.Add(emri)
            rreshtiListes.SubItems.Add(sasia)
    
        End Sub
        Private Sub lstEmrat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstEmrat.Click
    
            Dim i As Integer
    
            For i = 0 To Me.lstEmrat.Items.Count - 1
    
                If lstEmrat.Items(i).Selected = True Then
    
                    txtEmri.Text = lstEmrat.Items(i).SubItems(1).Text
                    cboID.Text = lstEmrat.Items(i).SubItems(0).Text
                    'emriSelektuar = lstEmrat.Items(i).SubItems(1).Text
    
                    Exit For
    
                End If
    
            Next
    
            lblInfo.Text = ""
            lstEmrat.Focus()
            lstEmrat.FullRowSelect = True
    
        End Sub
    
        Private Sub cboID_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboID.SelectedIndexChanged
    
            lidhja.Open()
    
            Dim komanda As New OleDb.OleDbCommand("SELECT * FROM tbl_Trans WHERE Id=" & cboID.Text & "", lidhja)
    
            lexuesiDB = komanda.ExecuteReader
    
            While lexuesiDB.Read()
    
                txtEmri.Text = (lexuesiDB("TEmri"))
                sasia.Text = (lexuesiDB("Sasia"))
    
            End While
    
            lidhja.Close()
    
        End Sub
    End Class

  10. #10
    i/e regjistruar
    Anėtarėsuar
    08-05-2008
    Vendndodhja
    Middle East
    Postime
    243
    Hot_prinz,
    pasi po e Exekutoj po me shfaqet ky Gabim
    Fotografitė e Bashkėngjitura Fotografitė e Bashkėngjitura  

Faqja 0 prej 2 FillimFillim 12 FunditFundit

Regullat e Postimit

  • Ju nuk mund tė hapni tema tė reja.
  • Ju nuk mund tė postoni nė tema.
  • Ju nuk mund tė bashkėngjitni skedarė.
  • Ju nuk mund tė ndryshoni postimet tuaja.
  •