| <% |
| Dim cnnSimple ' ADO connection |
| Dim rstSimple ' ADO recordset |
| Set cnnSimple = Server.CreateObject("ADODB.Connection") |
| |
| ' ODBC connection string |
| cnnSimple.Open "Driver={MySQL ODBC 5.1 Driver};Server=MySQL Server;Database=Database name;User=DB Login; Password=DB Password;Option=3;" |
| |
| Set rstSimple = cnnSimple.Execute("SELECT * FROM table1") |
| |
| |
| %> |
| <P> Connecting to MySQL DB with ODBC </P> |
| |
| <table border="1"> |
| <% |
| Do While Not rstSimple.EOF |
| %> |
| <tr> |
| <td><%= rstSimple.Fields("column1").Value %></td> |
| <td><%= rstSimple.Fields("column2").Value %></td> |
| </tr> |
| <% |
| rstSimple.MoveNext |
| Loop |
| %> |
| </table> |
| <% |
| ' Close our recordset and connection and dispose of the objects rstSimple.Close Set rstSimple = Nothing cnnSimple.Close Set cnnSimple = Nothing |
| |
| cnnSimple.close |
| %> |
Article ID: 165, Created: July 25, 2012 at 12:37 AM, Modified: July 25, 2012 at 12:37 AM