HELLO SIR ,
THANKING YOU FOR ANSWER ME AND GIVE ME YOUR TIME ,
I BIGINNER IN SQL AND THIS ISS MY FIRST PROJECT IN SQL
I AM USING MYSQL SERVER ,
AND MY FULL CODE AS BELLOW
BUT IT CANT READ PARAMETER
same code for using MYSqlConnection It workS TO OPEN DBCON
BUT NOT REVERT DATA
Imports MySql.Data.MySqlClient
Public Class sqlcontrol1
Private DBCon As New MySqlConnection
Private DBCmd As MySqlCommand
' DB DATA
Public DBDA As MySqlDataAdapter
Public DBDT As DataTable
Friend Parameters As MySqlParameter
' QUERY PARAMETERS
Private Params As New List(Of MySqlParameter)
' QUERY STATISTICS
Public RecordCount As Integer
Public Exception As String
Public Sub New()
End Sub
Public Sub New(ConnectionString As String)
DBCon.ConnectionString = "server=127.0.0.1;userid=root;password=yogababa72;database=movedb;"
End Sub
' EXECUTE QUERY SUB
Public Sub ExecQuery(Query As String)
RecordCount = 0
Exception = ""
DBCon.ConnectionString = "server=127.0.0.1;userid=root;password=yogababa72;database=movedb;"
MsgBox("connection succesful ")
Try
DBCon.Open()
If DBCon.State = ConnectionState.Open Then MsgBox("connection open ")
' CREATE DB COMMAND
DBCmd = New MySqlCommand(Query, DBCon)
' LOAD PARAMS INTO DB COMMAND
Params.ForEach(Sub(p) DBCmd.Parameters.Add(p))
' CLEAR PARAM LIST
Params.Clear()
' EXECUTE COMMAND & FILL DATASET
DBDA = New MySqlDataAdapter(DBCmd)
DBDT = New DataTable
RecordCount = DBDA.Fill(DBDT)
' sqlAdp = New SqlDataAdapter("select * from users", cnn)
Catch ex As Exception
Exception = "ExecQuery Error: " & vbNewLine & ex.Message
Finally
' CLOSE CONNECTION
If DBCon.State = ConnectionState.Open Then DBCon.Close()
End Try
End Sub
' ADD PARAMS
Public Sub AddParam(ByVal Name As String, Value As Object)
Dim NewParam As New MySqlParameter(Name, Value)
Params.Add(NewParam)
End Sub
' ERROR CHECKING
Public Function HasException(Optional Report As Boolean = False) As Boolean
If String.IsNullOrEmpty(Exception) Then Return False
If Report = True Then MsgBox(Exception, MsgBoxStyle.Critical, "Exception:")
Return True
End Function
End Class
AND SECOND CODE
Imports MySql.Data.MySqlClient
Imports System.Object
Imports System.MarshalByRefObject
Imports System.Data.Common.DbParameter
Class MySqlParameter
Public Params As New List(Of MySqlParameter)
Private _name As String
Private _NUMBERS As String
Private _value As Object
Sub New(ByVal Name As String, Value As Object)
' TODO: Complete member initialization
_name = Name
_value = Value
End Sub
End Class
AND FOR DATA ENTRY
Imports MySql.Data.MySqlClient
Public Class Form1
Public MySql As New sqlcontrol1
Public Function NOTEMPTY(ByVal TEXT As String) As Boolean
Return Not String.IsNullOrEmpty(TEXT)
End Function
Public Function EMPTY(ByVal TEXT As String) As Boolean
Return String.IsNullOrEmpty(TEXT)
Return False
End Function
Private Function noerrors(Optional ByVal report As Boolean = False) As Boolean
If Not String.IsNullOrEmpty(MySql.Exception) Then
If report = True Then MsgBox(MySql.Exception)
Return False
Else
Return True
End If
End Function
Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
txt_username.Focus()
txt_username.Select()
End Sub
Private Sub txt_username_KeyDown(sender As Object, e As KeyEventArgs) Handles txt_username.KeyDown
If e.KeyCode = Keys.Enter Then
txt_password.Focus()
txt_password.Select()
End If
End Sub
Private Sub txt_password_KeyDown(sender As Object, e As KeyEventArgs) Handles txt_password.KeyDown
If e.KeyCode = Keys.Enter Then
cmd_go.Focus()
cmd_go.Select()
End If
End Sub
Dim x_name As String = ""
Private DBCon As New MySqlConnection
Private Command As New MySqlCommand
Dim x_f_name As String = ""
Dim x_l_name As String = ""
Dim X_COUNT As Integer = 0
Private Sub cmd_go_Click(sender As Object, e As EventArgs) Handles cmd_go.Click
' DBCon.ConnectionString = "server=127.0.0.1;userid=root;password=yogababa72;database=movedb;"
' root@127.0.0.1:3306
' Try
' DBCon.Open()
' MsgBox("connection succesful ")
' DBCon.Close()
' Catch ex As MySqlException
' MsgBox(ex.Message)
' Finally
' DBCon.Dispose()
' End Try
'SELECT * FROM movedb.user1
MySql.ExecQuery("SELECT user1.username,user1.password FROM movedb.user1 ORDER BY user1.username ASC;")
X_COUNT = MySql.RecordCount
MsgBox(X_COUNT)
MySql.AddParam("@x1", txt_username.Text)
MySql.AddParam("@x2", txt_password.Text)
MySql.ExecQuery("SELECT user1.username,user1.password,user1.name,user1.lastname FROM movedb.user1 WHERE user1.username=@x1 AND user1.password=@x2 ;")
If noerrors(True) = False Then MsgBox(MySql.Exception)
Dim r As DataRow = MySql.DBDT.Rows(0)
x_f_name = r("name").ToString
x_l_name = r("lastname").ToString
MsgBox(x_f_name & Space(10) & x_l_name)
'ID, username, password, name, lastname, log_in_time, log_out_time
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
End Class