Jump to content

Jonhis

Members
  • Δημοσιεύσεις

    13
  • Εγγραφή

  • Αξιολογήσεις

    0%

About Jonhis

  • Ημ. Γέννησης 25/06/1962

Jonhis's Achievements

Newbie

Newbie (1/14)

10

Φήμη

  1. Jonhis

    Visual Basic

    Ευχαριστώ πολύ αλλα δεν είναι κάτι σπουδαίο, κάποιος που γνωρίζει το κάνει σε 10 λεπτά. Τον παραθέτω ως έχει Public Class frmΠελάτες Private Sub frmΠελάτες_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Project1.Clear() OleDbDataAdapter1.Fill(Project1) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Me.BindingContext(Project1, "Πελάτες").Position = 0 Count() End Sub Private Sub btnΕπόμενος_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Me.BindingContext(Project1, "Πελάτες").Position += 1 Count() End Sub Private Sub btnΤελευταίος_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Me.BindingContext(Project1, "Πελάτες").Position = Me.BindingContext(Project1, "Πελάτες").Count - 1 End Sub Private Sub Count() Dim Records, Current As Integer Records = Me.BindingContext(Project1, "Πελάτες").Count Current = Me.BindingContext(Project1, "Πελάτες").Position + 1 lblCount.Text = "Record " & Current.ToString & " of " & _ Records.ToString End Sub Private Sub btnΠροηγούμενος_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Me.BindingContext(Project1, "Πελάτες").Position -= 1 Count() End Sub Private Sub btnΚαταχώρησεData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnΚαταχώρησεData.Click Try OleDbDataAdapter1.Update(Project1) Catch ex As Exception MsgBox(ex.ToString) End Try End Sub End Class
  2. Jonhis

    Visual Basic

    Δεν έκανα δουλειά, την εντολή rec δεν την αναγνωρίζει την αντικαθιστά με την εντολή XCData οπότε δεν ξέρω τι να γράψω παρακάτω. Μπορώ να σου στείλω τον κώδικα να τον δεις ? Εχω Microsoft Visual Basic 2008 Express Edition. Ευχαριστώ
  3. Jonhis

    Visual Basic

    Ευχαριστώ για την γρήγορη απάντηση θα το δοκιμάσω και θα απαντήσω.
  4. Jonhis

    Visual Basic

    Αν γνωρίζει κάποιος να βοηθήσει παρακαλώ. Σε μια φόρμα visual basic εχω ενα πλέγμα δεδομένων (data grid) συνδεδεμένο με μια βάση δεδομένων .mdb ή .accdb, εχω ενα κουμπί για φόρτωση Load) δεδομένων απο την βάση και ενα κουμπί για ενημέρωση (update) της βάσης. Φορτώνω δεδομένα αλλά δεν μπορώ να καταχωρήσω νέα δεδομένα στην βάση. Προσπαθώ να μάθω πως γίνετε η καταχώρηση, αν ξέρει κάποιος πως γίνεται ας γράψει τον κώδικα. Ευχαριστώ
  5. Συγνώμη για την καθυστέρηση, υποχρεώσεις δεν με άφησαν να απαντήσω νωρίτερα. Θέλω να πώ πως η άποψη η δικιά μου για την ευτυχία είναι να μπορείς να ξυπνάς το πρωί και να ξέρεις οτι είσαι καλά , ολα αυτά που αγαπάς να είναι καλά. Αυτά τα γράφω γιατί αναρωτιέμαι αν υπάρχουν άλλοι που να αρκούνται σε αυτά που έχουν. Βεβαίως και όλα τα υπόλοιπα είναι καλά και να μην βγαίνει μπλέ η οθόνη του υπολογιστή, και να σε περιμένουν δέκα αυτοκίνητα κάτω απο το σπίτι ( αν και είναι λίγο πλεονασμός ), βέβαια όλα αυτά και άλλα πολλά μπορείς να τα αποκτήσεις αλλά θα πρέπει να εργαστείς και πάνω από όλα ευτυχία και αισιοδοξία, χαρούμενα χαμόγελα το πρωί μια καλημέρα στον συνάνθρωπο και αμέσως δημιουργείς ευτυχισμένες στιγμές που κρατάνε όλη μέρα. Οπως λέω καμιά φορά σε φίλους Make my day
  6. Τι είναι η ευτυχία ? Πως μπορούμε να είμαστε ευτιχισμένοι ? Τι θα δίναμε για την ευτυχία ? Παρακαλώ απαντήστε όσο πιο αναλυτικά μπορείτε. Ευχαριστώ πολύ για τις απόψεις σας.
  7. Συμφωνώ και με τους δύο, Γιαυτό έβαλα και την ερώτηση αυτή. Ειναι πολύ που σου λένε εμπιστεύσουμε απο την πρώτη φορά, εγώ δεν το κάνω, ήθελα δε, να δώ αν άλλοι το κάνουν και εδώ στέκομαι και λέω πως οι απόψεις είναι διφορούμενες και κατά την αποψή μου όλες είναι σωστές σε σχέση με τον χαρακτήρα που έχουμε διαμορφώσει απο τα παιδικά μας χρόνια
  8. Την διαπίστωση την κάνω καθημερινά με το καλημέρα που μου λέει,επίσης με το να μιλάμε στο τηλέφωνο, με το να ανταλάσουμε έστω και κουτσομπολιά στην ώρα του διαλλείματος της εργασίας. Οτων σκύβει επάνω μου και μου σητάει να λύσουμε μαζί κάποιο πρόβλημα και δεν σθζητώ για ερωτική σχέση μην το παρεξηγήσουμε το θέμα αλλά για επαγγελματική. Οταν μας δίνει ή οταν εμεις δίνουμε τα φώτα για κάτι στην δουλεια και δεν φοβόμαστε οτι μετά θα μας μαχαιρώσει πισώπλατα. Αυτό το τελευταίο βλέπουν πολύ σε μένα, γνωρίζουν πως οτι και να μου πούνε μένει μεταξύ μας. Το ερώτημα είναι εγώ πως μπορώ να το δώ που εκ φύσεως είμαι καχύποπτος, το έγραψα και παραπάνω
  9. Ηρεμία ρε παιδιά να γράψουμε ήρθαμε και όχι να τσακωθούμε. Προσωπικά, είμαι λίγο καχύποπτος με τον κάθε ένα που προσπαθεί να κερδίσει μία καινούρια γνωριμία. Βέβαια πόρτες δεν κλείνω ποτέ και αν δω ότι μου πάει τότε τον εμπιστεύομαι, αυτό βέβαια γίνετε μετά από καιρό. Δεν είμαι από τους ανθρώπους που μπορώ να βγάλω τα εσώψυχα μου έτσι εύκολα και διερωτώμαι αν είναι καλό ή κακό. Βεβαίως και εγώ προσπαθώ να γνωρίσω κόσμο να κάνω φιλίες και γνωριμίες και άλλοτε το πετυχαίνω και άλλοτε όχι, ποτέ όμως δεν έχω προδώσει την εμπιστοσύνη κάποιου, με τα δικά μου κριτήρια πάντα. Το θέμα το άνοιξα όχι για κάποιον συγκεκριμένο λόγω αλλά απλώς να δω αν υπάρχουν ακόμα θέματα που μπορούν να απασχολήσουν κόσμο. Επίσης θέλω να διαβάσω τις απόψεις όλων εσάς που απαντήσατε στο θέμα είτε για να κρατήσουμε καλά στοιχεία που να μπορούν να μας διορθώσουν κάπου είτε να απορρίψουμε αυτά που δεν μας κάνουν. Επίσης κανένας ποτέ δεν έχασε ακούγοντας την γνώμη του άλλου ακόμα και αν δεν την έχει πάρει στα σοβαρά. Οι γνωριμίες κάθε είδους είναι πάντα εποικοδομητικές. Ετσι δεν είναι? Ολες οι απντήσεις είναι καλές αλλά το αρχικό θέμα δεν έχει απαντηθεί
  10. Μια καλή απάντηση είναι αυοτ που λεει η φίλη παραπάνω <συνήθως ένα άτομο που είναι καλοπροαίρετο...χαμογελαστό ευδιάθετο μας κάνει να το εμπιστευόμαστε > αυτό πωτώ και εγώ γιατί αυτόν και οχι κάποιον αλλα. Καποιον με εμφάνιση περιποιημένη οχι τόσο ευδιάθετο θα τον εμπιστευόμασταν. Εναν άλλο που δεν ξέρει να μιλάει και μόνο γελάει πως θα μας φαινόταν?
  11. Κυρίες και Κύριοι καλά όλα αυτά που γράψατε. Ρωτώ πάλι τι είναι εκείνο το μικρό ανθρωπάκι και τι θα του ενεργοποιειθεί για να μας δώσει μια απάντηση στο θέμα είτε θετική είτε αρνητική, συνεχίζω και σκέφτομαι μου εμπνέι την εμπιστοσύνη? αλλά πως μπορώ να είμαι σίγουρος αφού ο διπλανός μου ενω ξέρει πως το ωράριο μου είναι νύχτα μου βάζει τραγούδια 8 η ώρα το πρωί στην διαπασών, η φιλία βέβαια είναι διφορετική σχέση, εγώ όμως μιλώ για την πρώτη φορά που συναντάμαι κάποιον. Τι θα ήταν αυτό που θα σε έκανε να τον εμπιστευθείς? Μήπως η εμφάνιση, μήπως ο τρόπος που κινείται, μήπως ο τρόπος που μιλάει ή όλα αυτά μαζί?
  12. Να βάλω ενα θέμα δύσκολο. Να ρωτήσω την αποψη σας για την εμπιστοσύνη, τι είναι, πως κερδίζετε αυτή και πως θα εμπιστευόσαστε ενα ανθρωπο που συναντάται για πρώτη φορά? Τι κριτήρια θα πρέπει να πληρή για να τον εμπιστευθούμε? Περιμένω απαντήσεις. Ευχαριστώ πολύ
×
×
  • Create New...