Excel - Ερωτήσεις / Απαντήσεις Ότι έχει σχέση με συναρτήσεις, μορφοποίηση, εκτυπώσεις γραφήματα κτλ. |
| Εργαλεία Θεμάτων | Τρόποι εμφάνισης |
#1
| |||
| |||
vba excel mysql
Καλημέρα παιδιά πειραματίζομαι με excel vba και σύνδεση MySQL. Παραθέτω τον παρακάτω κώδικα Κώδικας: Private Sub CommandButton2_Click() Dim con As ADODB.Connection Dim rst As ADODB.Recordset Set con = New ADODB.Connection con.Open "DRIVER={Mysql ODBC 8.0 Unicode Driver};" _ & "Server=localhost;database=loginapp;user=root;option=3" Dim sqlstr As String Dim crow As Long, trow As Long Dim id As Integer Dim username As String Dim password As String Set rst = New ADODB.Recordset trow = Sheets("Service Company 1").Range("b" & Rows.Count).End(xlUp).Row For crow = 7 To trow id = Sheets("service company 1").Range("b" & crow).Value username = Sheets("service company 1").Range("c" & crow).Value password = Sheets("service company 1").Range("d" & crow).Value 'sqlstr = "INSERT INTO USERS (id, username, password) values ( ' " & id & " ', " & " ' " & username & "', " & " ' " & password & "')" sqlstr = "INSERT INTO USERS (username, password) values ( ' " & username & "', " & " ' " & password & "')" rst.Open sqlstr, con, adOpenForwardOnly Next Set rst = Nothing con.Close Set con = Nothing MsgBox ("Data inserted, succedssfully") End Sub Δεν ξέρω εάν το έχω εξηγήσει αναλυτικά Ευχαριστώ |
« Προηγούμενο Θέμα
|
Επόμενο Θέμα »
Εργαλεία Θεμάτων | |
Τρόποι εμφάνισης | |
| |
Παρόμοια Θέματα | ||||
Θέμα | Δημιουργός | Forum | Απαντήσεις | Τελευταίο Μήνυμα |
Access 2007 as Front End to MySQL database | intefix | Access - Ερωτήσεις / Απαντήσεις | 0 | 22-02-15 14:05 |
Η ώρα είναι 14:50.