30-01-17, 12:26 AM
(29-01-17, 11:47 PM)مساعدة كتب : لا أعلم شيئا عن الكلاس الذي لم ترفقه من البداية،
ولكن هذا الكود يكفي.
هو فقط كلاس خاص بالاتصال فقط لا غير من اسموا
كود :
public calass DataConnexion
Public dbconn As New MySqlConnection
Public sql As String
Public dbcomm As New MySqlCommand
Public dbread As MySqlDataReader
Private Sub openconnexion
dbconn = New MySqlConnection("Data Source=localhost;user id=root;password=demo;port=3310;database=vb_mysql")
Try
dbconn.Open()
Catch ex As Exception
MsgBox("Connection Error: " & ex.Message.ToString)
End Try
dbconn.close
End Sub
Private Sub colseconnextion
dbconn.close
End Sub
end class