25. maj 2005 - 17:01Der er
10 kommentarer og 1 løsning
mysql connection
jeg stjal denne kode som virker til en accessDB, hvordan kan jeg tilrette nedestående til en mysql db..
Public Class sqlConn
#Region "Class Members" Friend WithEvents OLEConn As New System.Data.OleDb.OleDbConnection Friend WithEvents OLEComm As New System.Data.OleDb.OleDbCommand
Private sqlString As String Private err As System.Exception
Public Shared dataReturned As New ArrayList #End Region
#Region "class properties"
Public Property db() As String Get db = "C:\Documents and Settings\Administrator\Desktop\vbProjects\dbSample\ADDBK.mdb" End Get Set(ByVal Value As String) Value = db End Set End Property
Public Property xOLE() As String Get 'xOLE = "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=activationpayment_udv;uid=root;pwd=;option=3"
xOLE = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" End Get Set(ByVal Value As String) Value = xOLE End Set End Property
#End Region
#Region "class methods"
Sub New() End Sub
Function connectMe(ByVal sqlString) As Boolean Try OLEConn.ConnectionString = xOLE & db OLEConn.Open() OLEComm.CommandText = sqlString Return True Catch err As System.Exception MsgBox(err.Message) Return False End Try End Function
Function getData() As ArrayList Try
OLEComm.Connection = OLEConn
getData = New ArrayList
Dim d As OleDb.OleDbDataReader = OLEComm.ExecuteReader() Do While d.Read getData.Add(d("LName".ToString)) Loop
'Returns array collection dataReturned = getData
Try OLEConn.Close() Catch err As System.Exception MsgBox(err.Message) End Try Catch err As System.Exception MsgBox(err.Message) End Try End Function #End Region End Class
Nu får jeg kun en fejl: hvordan skal denne linie være..
---> Dim d As MySqlDb.OleDbDataReader = MySqlComm.ExecuteReader()
resten ser således ud ...
Public Class sqlConn
#Region "Class Members" ' Friend WithEvents OLEConn As New System.Data.OleDb.OleDbConnection ' Friend WithEvents OLEComm As New System.Data.OleDb.OleDbCommand Friend WithEvents MySqlConn As New MySql.Data.MySqlClient.MySqlConnection Friend WithEvents MySqlComm As New MySql.Data.MySqlClient.MySqlCommand
Private sqlString As String Private err As System.Exception
Public Shared dataReturned As New ArrayList #End Region
#Region "class properties"
Public Property db() As String Get db = "C:\Documents and Settings\Administrator\Desktop\vbProjects\dbSample\ADDBK.mdb" End Get Set(ByVal Value As String) Value = db End Set End Property
Public Property xMySql() As String Get xMySql = "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=activationpayment_udv;uid=root;pwd=;option=3"
'xOLE = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" End Get Set(ByVal Value As String) Value = xMySql End Set End Property
#End Region
#Region "class methods"
Sub New() End Sub
Function connectMe(ByVal sqlString) As Boolean Try MySqlConn.ConnectionString = xMySql ' & db MySqlConn.Open() MySqlComm.CommandText = sqlString Return True Catch err As System.Exception MsgBox(err.Message) Return False End Try End Function
Function getData() As ArrayList Try
MySqlComm.Connection = MySqlConn
getData = New ArrayList
Dim d As MySqlDb.OleDbDataReader = MySqlComm.ExecuteReader() Do While d.Read getData.Add(d("LName".ToString)) Loop
'Returns array collection dataReturned = getData
Try MySqlConn.Close() Catch err As System.Exception MsgBox(err.Message) End Try Catch err As System.Exception MsgBox(err.Message) End Try End Function #End Region End Class
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.