Πρώτα Βήματα - Αρχές προγραμματισμού

Απ: vb.net Γράψιμο σε Access

maria58 — Wed, 30 Nov 2011 02:49:35 GMT

δυσκολο το access

Απ: vb.net Γράψιμο σε Access

AlKiS — Fri, 18 Nov 2011 08:20:44 GMT

Libra Storm:

    Private Sub btnCommit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCommit.Click
        If inc <> -1 Then
            Dim cb As New OleDb.OleDbCommandBuilder(da) ' Δεν δουλεύει πάντα σωστά αυτό. Σου έδωσαν ήδη την λύση.
            Dim dsNewRow As DataRow

            ' QuotePrefix - QuoteSuffix Gets or sets the beginning-end character or characters 
            ' to use when specifying database objects (for example, tables or columns) 
            ' whose names contain characters such as spaces or reserved tokens.
            cb.QuotePrefix = "["
            cb.QuoteSuffix = "]"

            MessageBox.Show(cb.GetInsertCommand.CommandText) ' γιά κοίταξε εδώ γιά κακούς (reserved) χαρακτήρες "/" κλπ

            dsNewRow = ds.Tables("AddressBook").NewRow()

            dsNewRow.Item(1) = txtFirstName.Text
            dsNewRow.Item(2) = txtSurname.Text

            ds.Tables("AddressBook").Rows.Add(dsNewRow)

            If da.Update(ds, "AddressBook") Then
                ds.AcceptChanges()

                MsgBox("New Record added to the Database")

                btnCommit.Enabled = False
                btnAddNew.Enabled = True
                btnUpdate.Enabled = True
                btnDelete.Enabled = True
            End If
        End If
    End Sub

Ναί, τελικά το πρόβλημα ήταν ο χαρακτήρας "/" που είχες ένα πεδίο.

Μόλις σταμάτησα να παίρνω αυτό το πεδίο, όλα καλά!!

Ευχαριστώ πολύ, για ακόμα μια φορά έδωσες τη λύση :)

Απ: vb.net Γράψιμο σε Access

AlKiS — Tue, 13 Sep 2011 05:15:28 GMT

Σε ευχαριστώ πολύ! θα το δοκιμάσω και θα σου πω αν δούλεψε.

btw για να ξεκαθαρίσω κάτι, τα 2 text λένε όνομα και επίθετο (άρα string) αλλά τα εγώ βάζω διάφορα στη βάση δεδομένων

(πάντα όμως προτού το κάνω τα μετατρέπω cint(txtFirstName.Text) cbool(txtFirstName.Text) κτλ κτλ αναλόγως με το τι θέλω να περάσω και σε πιο πεδίο της βάσης δεδομένων)

Σχετικα με το: Dim cb As New OleDb.OleDbCommandBuilder(da) ' Δεν δουλεύει πάντα σωστά αυτό. Σου έδωσαν ήδη την λύση.

Ίσως αλλά δεν δουλεύει ούτε η λύση...... θέλει λίγο φτιάξιμο.

Απ: vb.net Γράψιμο σε Access

Libra Storm — Tue, 13 Sep 2011 04:53:47 GMT

    Private Sub btnCommit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCommit.Click
        If inc <> -1 Then
            Dim cb As New OleDb.OleDbCommandBuilder(da) ' Δεν δουλεύει πάντα σωστά αυτό. Σου έδωσαν ήδη την λύση.
            Dim dsNewRow As DataRow

            ' QuotePrefix - QuoteSuffix Gets or sets the beginning-end character or characters 
            ' to use when specifying database objects (for example, tables or columns) 
            ' whose names contain characters such as spaces or reserved tokens.
            cb.QuotePrefix = "["
            cb.QuoteSuffix = "]"

            MessageBox.Show(cb.GetInsertCommand.CommandText) ' γιά κοίταξε εδώ γιά κακούς (reserved) χαρακτήρες "/" κλπ

            dsNewRow = ds.Tables("AddressBook").NewRow()

            dsNewRow.Item(1) = txtFirstName.Text
            dsNewRow.Item(2) = txtSurname.Text

            ds.Tables("AddressBook").Rows.Add(dsNewRow)

            If da.Update(ds, "AddressBook") Then
                ds.AcceptChanges()

                MsgBox("New Record added to the Database")

                btnCommit.Enabled = False
                btnAddNew.Enabled = True
                btnUpdate.Enabled = True
                btnDelete.Enabled = True
            End If
        End If
    End Sub

Απ: vb.net Γράψιμο σε Access

AlKiS — Tue, 13 Sep 2011 04:16:53 GMT

dimos.homatas:

Dim command As New oledbcommad()

θα έπρεπε να είναι

Dim command As New oledbcommand()

:)

Οκ, μου είπε να κάνω και import το System.Data.OleDb και το έκανα.
Τώρα όμως μου βγάζει μπλέ γραμές στα εξής:

command.Connection = conn

command.Parameters.Add("@p_col1", OleDbType.String).Value = txtFirstName.Text

Απ: vb.net Γράψιμο σε Access

AlKiS — Tue, 13 Sep 2011 04:11:43 GMT

hey, βρήκα τι φταίει!!

Η παλιά βάση δεδομένων έχει κάποια πεδία που δέχονται τιμές "Ναι/Οχι"

Όταν διέγραψα αυτά τα κουτιά τότε το πρόγραμμα άρχισε να περνάει τιμές μέσα χωρίς πρόβλημα.

Δυστυχώς όμως τα πεδία αυτά είναι απαραίτητα!

Τώρα που ξέρουμε πιο ακριβώς είναι το πρόβλημα μήπως μπορούμε να το λύσουμε?

Εγώ σκέφτηκα να βάζω σε αυτά τα πεδία τιμή False γιατί λέω το πεδίο "Ναι/Οχι" είναι σαν boolean

και έτσι έκανα αλλά δεν δούλεψε πάλι! οπότε λέω 0/1 θα είναι, βάζω 0 αλλά πάλι τπτ..

Οπότε ρωτώ: τι πρέπει να γράψω έτσι ώστε ένα πεδίο "Ναι/Οχι" σε Access να πάρει τιμή "Οχι" ??

Απ: vb.net Γράψιμο σε Access

dimos.homatas — Tue, 13 Sep 2011 01:28:59 GMT

Dim command As New oledbcommad()

θα έπρεπε να είναι

Dim command As New oledbcommand()

:)

Απ: vb.net Γράψιμο σε Access

AlKiS — Mon, 12 Sep 2011 20:30:09 GMT

σίγουρα δεν είναι πυρηνική φυσική αλλά μην ξεχνάμε ότι εγώ δεν είμαι προγραμματιστής..

Εγώ ο άνθρωπος ηλεκτρολόγος σπουδάζω...

Θα προσπαθήσω να το κάνω να δουλέψει, αλλά αν δεν τα καταφέρω σε πειράζει να μου γράψεις εσύ τον κώδικα για να γράφει σε ένα και μόνο πεδίο (όπως είχα προτείνει και στο προηγούμενο πόστ μου)???

(Προφανώς θα κάνω πόστ τον αλλαγμένο κώδικα που θα έχει τις δικές σου συμβουλές για να μην νομίζεις ότι απλώς οτι προσπάθησα και δν έκανα τπτ)

Post Edit -> Entry 1:

Έγραψα αυτό στο κουμπί Commit

    Private Sub btnCommit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCommit.Click
 
        Dim command As New oledbcommad()
        'OleDbCommand command = new OleDbCommand();
 
        command.Connection = conn
 
        command.CommandText = "INSERT INTO myTable (col1, col2) VALUES (@p_col1, @p_col2)"
 
        command.Parameters.Add("@p_col1", OleDbType.String).Value = txtFirstName.Text
 
        '...
 
        command.ExecuteNonQUery()
    End Sub


δυστυχώς όμως μου βγάζει λάθη. Είναι υπογραμμισμένα με μπλέ τα εξής:
1) Dim command As New --> oledbcommad() <---
2) command.Connection = --> conn <--
3) command.Parameters.Add("@p_col1", --> OleDbType.String <--).Value = txtFirstName.Text

Προφανώς τα βελάκια δεν τα έχω μέσα στον κώδικα, είναι για να δείξω τι έχει υπογραμμιστεί με μπλε.

Αφού έκανες τον κόπο να μου βρεις κώδικα, να ανοίξεις την βάση δεδομένων κτλ, ας το κάνουμε σωστά τουλάχιστον,
σε παρακαλώ, να σε πάρω τηλέφωνο να μπεις στον υπολογιστή μου 10 λεπτά να το κάνουμε να δουλέψει?

Αν πάρει πάνω απο 10 λεπτά τότε θα σε κλείσω και δεν πειράζει..
Δεν θα σε κρατήσω ώρα, αλλά 10 λεπτά ας το προσπαθήσουμε..
Το σταθερό σου το έχω (απο την αναγνώριση κλήσεων όταν με πήρες τηλ), αν μου πεις ναι (οτι δεν σε πειράζει σε να σε πάρω τηλ) θα σε πάρω.
αν έχεις πολύ δουλειά τότε πες μου όχι και δεν θα σε ενοχλήσω

Όπως και νάχει, ευχαριστώ για την προσπάθεια.

Απ: vb.net Γράψιμο σε Access

Antonios Chatzipavlis — Mon, 12 Sep 2011 19:29:40 GMT

Λογικό να σου βγάζουν λάθος αφου είναι σε C#.Εκ παραδρομής και απο την δύναμη της συνήθειας στις έδωσα σε αυτη και όχι σε VB. Αλλά πέρα απο το διαφορετικό declaration του command ολά τα άλλα είναι ίδια. Δεν νομίζω ότι είναι δα και πυρηνική φυσική να το αλλάξεις. Αλλά ακόμα και έτσι στο δίνω dim command as new oledbcommad(). Α και να μην ξεχάσεις να βγάλεις το ; στο τέλος των άλλων γραμμών. Απο εκει και πέρα νομίζω ότι είμαι ξεκάθαρος στο τι πρέπει να κανείς

Απ: vb.net Γράψιμο σε Access

AlKiS — Mon, 12 Sep 2011 19:15:26 GMT

Παναγιώτης Καναβός:
Όπως σου έχει πει ο Αντώνης τόσες φορες, το πρόβλημα δεν είναι η έκδοση της Access αλλά ο κώδικας που έχεις γράψει. Ή θα γράψεις ένα σωστό insert/update sql statement με τα πεδία που έχει ο κάθε πίνακας, ή θα φροντίσεις να προσθέσεις ένα primary key στον πίνακα για να δουλέψει ο CommandBuilder. Το πιο σωστό φυσικά είναι να γράψεις το σωστό statement. Από την άλλη, πίνακας χωρίς κλειδί είναι "κακός" πίνακας, καθώς μπορείς άνετα να βρεθείς με διπλές εγγραφές.

Αλήθεια, γατί επιμένεις να μην μετατρέψεις το παλιό αρχείο σε καινούριο? Θα το χρησιμοποιήσει κανείς άλλος μετά? Ή μήπως πρόκειται για άσκηση μαθήματος με αρχική βάση σε Access 2000? Αν το χρησιμοποιεί και άλλη εφαρμογή που βασίζεται στην έλλειψη κλειδιού, ίσως αντιμετωπίσεις προβλήματα.

Καταλαβαίνω, αλλά αυτό που είπα στο παραπάνω πόστ είναι οτι ΘΕΛΩ να κάνω ένα σωστό inser/update spa statement. όμως όλες οί σειρές κώδικα που έγραψε ο Αντώνης μου βγάζουν λάθος.

(Αυτές) [code]OleDbCommand command = new OleDbCommand();

command.Connection = conn;

command.CommandText= "INSERT INTO myTable (col1, col2) VALUES (@p_col1, @p_col2)";

command.Parameters.Add ("@p_col1", OleDbType.String).Value = textBox1.Text;

...

command.ExecuteNonQUery();[/code]

Και γιαυτό του ζήτησα αν μπορεί να μου κάνει τις απαραίτητες αλλαγές στον κώδικα έτσι ώστε να δουλεύει σωστά έστω για ένα μόνο πεδίο.

Σχετικά με αυτό που ανέφερες για το Primary Key, το έβαλα αλλά και πάλι δεν δούλεψε.

Σημείωση: Στον πίνακα αυτό θα υπάρχουν πολλές διπλές εγγραφές. Για την ακρίβεια θέλω να μπορούν να υπάρχουν και 100 εγγραφές ολόιδιες, όχι μόνο 2πλες.

Το Access αυτό έχει γραφτεί με Microsoft Access 1997, ούτε καν το 2000 δεν μπορεί να το επεξεργαστεί !

Το να κάνω convert το αρχείο αυτό δεν είναι επιλογή. Το αρχείο του πελάτη πρέπει να μείνει ως έχει γιατί μέσα του έχει πολλά macros και βλακίες όπου μπορεί να δει αυτός πόσες αγορές έγιναν κτλ κτλ κτλ. Και η επιχείρησή του ΔΕΝ θα πάρει πιο καινούργιο Access.

Άρα το μπαλάκι πέφτει σε εμένα

Και τέλος, έκανα έναν νέο table στην βάση δεδομένων που το ονόμασα "POS" έβαλα εκεί τα ίδια πεδία με τον άλλο πίνακα

και ενώ στον άλλο πίνακα ΔΕΝ δουλεύει στον καινούργιο πίνακα δουλεύει!! Στο ίδιο αρχείο μιλάμε τώρα!

Τώρα απλώς ελπίζω ότι κάποιος θα μπορέσει να μου κάνει τις απαραίτητες μετατροπές που μου λέτε εσύ και ο Αντώνης έτσι ώστε το πρόγραμμα να δουλεύει και στο table που το θέλω (table:Journal)

Ευχαριστώ πολύ για την συνεχή βοήθειά σας. Χωρίς αυτή θα είχα μείνει πολύ πίσω (μιλάω γενικά, και για προηγούμενες φορές που με βοηθήσατε. Σας είμαι ευγνώμων)

Απ: vb.net Γράψιμο σε Access

Παναγιώτης Καναβός — Mon, 12 Sep 2011 17:42:28 GMT

Όπως σου έχει πει ο Αντώνης τόσες φορες, το πρόβλημα δεν είναι η έκδοση της Access αλλά ο κώδικας που έχεις γράψει. Ή θα γράψεις ένα σωστό insert/update sql statement με τα πεδία που έχει ο κάθε πίνακας, ή θα φροντίσεις να προσθέσεις ένα primary key στον πίνακα για να δουλέψει ο CommandBuilder. Το πιο σωστό φυσικά είναι να γράψεις το σωστό statement. Από την άλλη, πίνακας χωρίς κλειδί είναι "κακός" πίνακας, καθώς μπορείς άνετα να βρεθείς με διπλές εγγραφές.

Αλήθεια, γατί επιμένεις να μην μετατρέψεις το παλιό αρχείο σε καινούριο? Θα το χρησιμοποιήσει κανείς άλλος μετά? Ή μήπως πρόκειται για άσκηση μαθήματος με αρχική βάση σε Access 2000? Αν το χρησιμοποιεί και άλλη εφαρμογή που βασίζεται στην έλλειψη κλειδιού, ίσως αντιμετωπίσεις προβλήματα.

Απ: vb.net Γράψιμο σε Access

AlKiS — Mon, 12 Sep 2011 08:30:58 GMT

Μου βγάζει πρόβλημα σε όλες τις σειρές του κώδικα αυτού που έγραψες...

Μπορείς σε παρακαλώ να αλλάξεις τον κώδικα έτσι ώστε να δουλεύει και να αλλάζει μόνο το πεδίο "Betrieb"?

αν δω ένα κώδικα που δουλεύει για ένα πεδίο μετά μπορώ να το κάνω να φορτώνει πληροφορίες σε όλα τα πεδία.

Οπότε άσε τα υπόλοιπα σε εμένα, αλλά σε παρακαλώ κάνε μου πόστ ένα ολοκληρωμένο κώδικα που να αποθηκεύει νέα δεδομένα στο πεδίο Betrieb (ή οποιοδήποτε πεδίο θέλεις, δν είναι το πεδίο που με νοιάζει, το να γίνει η αποθήκευση έστω και σε ένα πεδίο με νοιάζει)

Απ: vb.net Γράψιμο σε Access

Antonios Chatzipavlis — Mon, 12 Sep 2011 07:40:36 GMT

AlKiS:
Δεν με πειράζει να αλλάξει το πρόγραμμα, ας μην μείνει τίποτα ίδιο απο τον πηγαίο κώδικα που που έγραψα!! το μόνο που με νοιάζει είναι να βρεθεί ένας τρόπος να βάζω δεδομένα μέσα σε αυτό το access αρχείο με Visual Basic 2010.
Οποιοσδήποτε τρόπος είναι καλοδεχούμενος..
Οπότε.. καμιά ιδέα??

στον έχω πει τον τρόπο παραπάνω χωρίς να πειράξεις την βάση και με την παραδοχή ότι δεν υπάρχει κάποιο πεδίο υποχρεωτικό

και είναι αυτός

Antonios Chatzipavlis:
OleDbCommand command = new OleDbCommand();
command.Connection = conn;
command.CommandText= "INSERT INTO myTable (col1, col2) VALUES (@p_col1, @p_col2)";
command.Parameters.Add ("@p_col1", OleDbType.String).Value = textBox1.Text;
...
command.ExecuteNonQUery();

θα πρέπει να αντικαταστήσεις τροπο στον κώδικα που κάνεις insert με αυτό τον τρόπο

Απ: vb.net Γράψιμο σε Access

AlKiS — Mon, 12 Sep 2011 07:19:19 GMT

Δεν με πειράζει να αλλάξει το πρόγραμμα, ας μην μείνει τίποτα ίδιο απο τον πηγαίο κώδικα που που έγραψα!! το μόνο που με νοιάζει είναι να βρεθεί ένας τρόπος να βάζω δεδομένα μέσα σε αυτό το access αρχείο με Visual Basic 2010.

Οποιοσδήποτε τρόπος είναι καλοδεχούμενος..

Οπότε.. καμιά ιδέα??

Απ: vb.net Γράψιμο σε Access

Antonios Chatzipavlis — Mon, 12 Sep 2011 06:15:31 GMT

Δυστυχώς δεν έχω Access 2000 έχω και εγώ 2010. Αλλά το θέμα σου δεν είναι η version της Access αυτό είναι σίγουρο. Το θέμα σου είναι ότι δεν έχεις όλα όσα έχουμε πει παραπάνω. Έτσι και αλλιως θα πρέπει να προχωρήσεις με την προσθήκη του PK στον πίνακα. Ακόμα και σε περίπτωση που θα σου έρθει ακόμα μια τέτοια βάση αυτό θα πρέπει να κάνεις. Είναι μονόδρομος εφόσον θέλεις να μείνεις έτσι όπως το έχεις υλοποιήσει.