Új hozzászólás Aktív témák

• #5921 Fire/SOUL/CD félisten sonar #5918

  Új Válasz 2010-01-04 21:12:33 #5921

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz sonar #5918 üzenetére

  Hali!

  Látom ulrik19 kolléga megelőzött, de ha már én is megírtam, akkor be is rakom. Ez Microsoft ActiveX Data Objects 6.0 Library bővítménnyel és adatkapcsolattal, valamint mysql connector ODBC bővítménnyel megtámogatva van elkészítve. Természetesen kifogástalanul működik. Egy excel_mysql nevű adatbázis, test nevű tábláján megy végig és írja ki sorban a mezőket.

  Private Sub CommandButton1_Click()
  
  Dim FSCD_SQLConnection As ADODB.Connection
  Dim FSCD_Recordset As ADODB.Recordset
  
  Dim FSCD_SQLConnectionString As String
  Dim FSCD_SQLCommand As String
  Dim FSCD_MYSQL_Table As String
  
  On Error GoTo FSCD_ErrorHandler
  
  FSCD_MYSQL_Table = "test"
  
  FSCD_SQLConnectionString = "Provider=MSDASQL.1;Persist Security Info=True;" & _
  "User ID=root;Extended Properties='';DSN=Excel_MySQL_Tutorial;" & _
  "UID=root;SERVER=127.0.0.1;DATABASE=excel_mysql;PORT=3306;'';" & _
  "Initial Catalog=excel_mysql;Initial Catalog=excel_mysql"
  
  Set FSCD_SQLConnection = New ADODB.Connection
  FSCD_SQLConnection.ConnectionString = FSCD_SQLConnectionString
  FSCD_SQLConnection.Open
  
  FSCD_SQLCommand = "SELECT * FROM " & FSCD_MYSQL_Table
  Set FSCD_Recordset = New ADODB.Recordset
  FSCD_Recordset.Open FSCD_SQLCommand, FSCD_SQLConnection
  
  FSCD_Recordset.MoveFirst
  While Not FSCD_Recordset.EOF
  MsgBox FSCD_Recordset.Fields("mező1").Value
  MsgBox FSCD_Recordset.Fields("mező2").Value
  FSCD_Recordset.MoveNext
  Wend
  FSCD_Recordset.Close
  FSCD_SQLConnection.Close
  
  Exit Sub
  
  FSCD_ErrorHandler:
  
  MsgBox "Error:" & Err.Description, vbCritical, "Fire/SOUL/CD"
  
  End Sub

  Fire.

Új hozzászólás Aktív témák