Σύνδεση Visual Basic με SQL

Συζητήσεις για τις γλώσσες του dot Net και για του Visual Studio της Microsoft

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
Άβαταρ μέλους
dimsis
Reporter
Δημοσιεύσεις: 7994
Εγγραφή: 25 Ιούλ 2001 03:00

Σύνδεση Visual Basic με SQL

Δημοσίευση από dimsis » 28 Οκτ 2007 21:31

Πας στο project reference και προσθέτεις το Microsoft ActiveX Data Object 2.7 (η μεγαλύτερο) library. ( Εικόνα 1 )

Εικόνα
Εικόνα 1

Πετάς 3 πεδία σε μια φόρμα που τα βάζεις ίδιο όνομα με αυτό των πεδίων της βάσης δεδομένων (Εικόνα 2)

Εικόνα
Εικόνα 2

Ο πίνακας (persons) στη βάση δεδομένων με όνομα mydatabase του SQL Server είναι έτσι (Εικόνα 3):
Εικόνα
Εικόνα 3

Ο κώδικας που χρειάζεσαι (με σχόλια σχεδόν σε κάθε γραμμή):

Κώδικας: Επιλογή όλων

' Global μεταβλητές
Dim sSQL As String
Dim ServerName, DBUsername, DBPassword, DBName, DBConString
Public Conn As ADODB.Connection ' Δημιουργούμε ένα ADODB connection για τη βάση μας με όνομα Conn

Private Sub Btn_Insert_Click()
TableName = "persons"  ' Ο πίνακας της βάσης δεδομένων
 
Dim rsPersons As ADODB.Recordset  ' Φτιάχνουμε Recordset
Set rsPersons = New ADODB.Recordset ' Φτιάχνουμε Recordset
rsPersons.CursorLocation = adUseClient
' Για SQL Server χρησιμοποιείς το παρακάτω:
'sSQL = "INSERT INTO " & TableName & " (onoma, epitheto, ilikia) VALUES (N'" & onoma.Text & "', N'" & epitheto.Text & "', " & ilikia.Text & ")" ' Ο T-SQL κώδικας που εισάγει ότι γράψαμε από τη φόρμα μας, στην βάση δεδομένων

' Για MS Access database το παρακάτω:
sSQL = "INSERT INTO " & TableName & " (onoma, epitheto, ilikia) VALUES ('" & onoma.Text & "', '" & epitheto.Text & "', " & ilikia.Text & ")" ' Ο T-SQL κώδικας που εισάγει ότι γράψαμε από τη φόρμα μας, στην βάση δεδομένων

rsPersons.Open sSQL, Conn, adOpenForwardOnly, adLockReadOnly ' εδώ εκτελείτε ο t-sql κώδικας
Set rsPersons = Nothing ' καλού κακού αφού τελειώσουμε κλείσε και το recordset
End Sub

Private Sub Form_Load()
    ' Για SQL Server χρησιμοποιείς το παρακάτω:
    'ServerName = "localhost" ' Όνομα SQL Server
    'DBUsername = "sa" ' Χρήστης με δικαιώματα στη βάση
    'DBPassword = "topassword" ' Ο κωδικός του χρήστη με τα δικαιώματα στη βάση
    'DBName = "mydatabase" ' Το όνομα της βάσης
    'DBConString = "Driver={SQL Server}; Server=" & ServerName & "; UID=" & DBUsername & "; PWD=" & DBPassword & ";Database=" & DBName ' Το connection string που χρησιμοποιούμε για να γίνει η σύνδεση με τον SQL Server
    
    ' Για MS Access database το παρακάτω:
    ServerName = "localhost" ' Όνομα SQL Server
    DBUsername = "admin" ' Χρήστης με δικαιώματα στη βάση
    DBPassword = "" ' Ο κωδικός του χρήστη με τα δικαιώματα στη βάση
    DBName = "contacts.mdb" ' Το όνομα της βάσης
    DBConString = "Provider= Microsoft.Jet.OLEDB.4.0;Data Source=" & DBName
    
    OpenDataBase  ' Καλούμε την sub OpenDataBase για να γίνει η σύνδεση
End Sub

Private Sub OpenDataBase()
    Set Conn = New ADODB.Connection
    Conn.Open DBConString
End Sub

Private Sub CloseDatabase()
    ' κλείνει την σύνδεση με την βάση δεδομένων όταν τερματίσουμε την εφαρμογή
    Conn.Close
    Set Conn = Nothing
End Sub

Private Sub Form_Unload(Cancel As Integer)
    'αν γίνει Unload της φόρμας κλείνουμε την σύνδεση με τον SQL Server
    CloseDatabase
End Sub
Συνημμένα
sqlServer_and_MS_Acess_ADODB_template.rar
Κώδικας σε VB 6.0 (με Access Database)
(10 KiB) Μεταφορτώθηκε 1100 φορές
connect_to_sql_server_from_vb6.rar
Κώδικας σε VB 6.0 (χωρίς database)
(2.29 KiB) Μεταφορτώθηκε 1074 φορές
Τελευταία επεξεργασία από το μέλος dimsis την 30 Οκτ 2007 21:48, έχει επεξεργασθεί 3 φορές συνολικά.

Άβαταρ μέλους
xultimatex
Honorary Member
Δημοσιεύσεις: 2505
Εγγραφή: 26 Ιούλ 2003 13:02
Τοποθεσία: Ξάνθη
Επικοινωνία:

Σύνδεση Visual Basic με SQL

Δημοσίευση από xultimatex » 29 Οκτ 2007 00:33

Πολύ καλό

Την καινούρια vb δεν την έχεις δοκιμάσει; Εγώ λίγο που την έψαξα μου φάνηκε πολύ καλή... Σχεδόν ο μισός κώδικας χρειάζεται! (Τώρα δεν ξέρω σε επαγγελματικό επίπεδο τι γίνεται.)
:arrow: Αν προσπαθείς πολύ για να πετύχεις κάτι, ίσως το κάνεις με λάθος τρόπο...

Άβαταρ μέλους
dimsis
Reporter
Δημοσιεύσεις: 7994
Εγγραφή: 25 Ιούλ 2001 03:00

Σύνδεση Visual Basic με SQL

Δημοσίευση από dimsis » 29 Οκτ 2007 10:02

Από vb.net είχα βάλει δοκιμαστικά την πρώτη έκδοση και με το που την εγκατέστησα, εκτός του ότι έκανε 5 ώρες εγκατάσταση, μου είχα ξεσκίσει και τα Windows, και χρειάστηκα μετά format. Από τότε δεν ξαναέβαλα, κάποια στιγμή θα βάλω, αλλά ούτως ή άλλως ότι γράφω σε VB είναι από χόμπι συνήθως, εκτός 2 εξαιρέσεων (ένα πρόγραμμα διαχείρισης net cafe και ένα για παρακολούθηση αποθήκης σε κατάστημα πληροφορικής)

Άβαταρ μέλους
Sheena
Honorary Member
Δημοσιεύσεις: 3654
Εγγραφή: 07 Σεπ 2005 00:00

Σύνδεση Visual Basic με SQL

Δημοσίευση από Sheena » 29 Οκτ 2007 12:31

Οτιδήποτε από VB.NET εδώ..... :wink:
Εικόνα

id12856 Οι άγγελοι πάνε κοντά με τους αγγέλους...

Άβαταρ μέλους
xultimatex
Honorary Member
Δημοσιεύσεις: 2505
Εγγραφή: 26 Ιούλ 2003 13:02
Τοποθεσία: Ξάνθη
Επικοινωνία:

Σύνδεση Visual Basic με SQL

Δημοσίευση από xultimatex » 29 Οκτ 2007 21:18

Το ότι είναι παραφορτωμένο το περιβάλλον είναι γνωστό! Και δυστυχώς αυτό ισχύει και για τα περισσότερα καινούρια προγράμματα που βγαίνουν! :-?
:arrow: Αν προσπαθείς πολύ για να πετύχεις κάτι, ίσως το κάνεις με λάθος τρόπο...

Άβαταρ μέλους
mrpc
WebDev Moderator
Δημοσιεύσεις: 3393
Εγγραφή: 03 Μάιος 2000 03:00
Τοποθεσία: Εξάρχεια
Επικοινωνία:

Σύνδεση Visual Basic με SQL

Δημοσίευση από mrpc » 01 Νοέμ 2007 19:51

Πάντως η σύγκριση vb και vb.net είναι λίγο άδικη... όπως επίσης η κρίση της γλώσσας με βάση το περιβάλλον ανάπτυξης.
Η Vb είναι μια πολύ περιορισμένη γλώσσα προγραμματισμού για windows εφαρμογές, ενώ η vb.net είναι μια πλήρως object oriented γλώσσα που κάθεται πάνω στο .net framework και οι εφαρμογές της μπορούν να παίξουν σε άλλα λειτουργικά πολύ εύκολα. Κατά τη γνώμη μου στην ουσία δε μιλάμε για νέα έκδοση της vb, αλλά για άλλη γλώσσα.
Επίσης αν δεν σας κάνει το visual studio, κυκλοφορούν αρκετοί free editor με πάρα πολλές δυνατότητες.

Άβαταρ μέλους
dimsis
Reporter
Δημοσιεύσεις: 7994
Εγγραφή: 25 Ιούλ 2001 03:00

Σύνδεση Visual Basic με SQL

Δημοσίευση από dimsis » 01 Νοέμ 2007 20:36

Κατά τη γνώμη μου στην ουσία δε μιλάμε για νέα έκδοση της vb, αλλά για άλλη γλώσσα
mrpc, ακριβώς για αυτό υπάρχει ΑΚΟΜΑ κόσμος που προγραμματίζει σε VB 6.0 και μάλιστα η MS είχε δεχθεί χιλιάδες emails διαμαρτυρίας για την συνέχισει της σειράς εκτός .net

Άβαταρ μέλους
majuranus
Δημοσιεύσεις: 404
Εγγραφή: 01 Μαρ 2006 19:47
Τοποθεσία: Veria
Επικοινωνία:

Σύνδεση Visual Basic με SQL

Δημοσίευση από majuranus » 25 Ιουν 2008 14:25

Το ίδιο πράγμα μπορεί να γίνει με Mysql? και πως?

και όχι μόνο η καταχώρηση δεδομένων αλλά και η ανάκτηση δεδομένων σε φόρμα vb από Mysql.

Άβαταρ μέλους
soteres2002
S. & H. Moderator
Δημοσιεύσεις: 1524
Εγγραφή: 05 Μαρ 2004 22:17
Τοποθεσία: Ιωάννινα

Σύνδεση Visual Basic με SQL

Δημοσίευση από soteres2002 » 08 Ιούλ 2008 15:10

Χρειάζεσαι το MySQL connector για .ΝΕΤ.

Απάντηση

Επιστροφή στο “dot Net και Visual Studio”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 0 επισκέπτες