2.Create a new Variable for the connection:
PUBLIC $Con AS NEW Connection
3.Now create a Procedure to make the connection:
PUBLIC PROCEDURE Connect()
$Con.Close() ' Close the connection
$Con.Type = "mysql" ' Type of connection
$Con.Host = "localhost" ' Name of the server
$Con.Login = "root" ' User's name for the connection
$Con.Port = "3306" ' Port to use in the connection, usually 3306
$Con.Name = "Sophia" ' Name of the data base we want to use
$Con.Password = "root123" ' User's password
$Con.Open() ' Open the connection
END
4.Now create a Procedure to start the program:
PUBLIC SUB Main()
Connect() ' Run the Procedure to connect
FRMStart.Visible = TRUE ' The main form of your program
END
5.If you want to execute a query in the database only write:
MODMain.$Con.Exec(“SELECT * FROM mysql.user”)
6.You can create queries with information supplied by the user, just do something like this:
PUBLIC PROCEDURE SearchName()
DIM $Query AS String
$Query = “SELECT * FROM Friends WHERE Name = '” & TBXName.Text & “'”
MODMain.$Con.Exec($Query)
END
2.Store the query's result into a Variable:
PUBLIC PROCEDURE SearchName()
DIM $Query AS String
DIM $Result AS Result
DIM $Phone AS String
$Query = “SELECT * FROM Friends WHERE Name = '” & TBXName.Text & “'”
$Result = MODMain.$Con.Exec($Query)
$Phone = $Result!Phone
Message.Info($Phone)
END
3.If you want to create a printable report, you can put the query's result into a File using the HTML format, so you can open it using a Web Browser.
MODMain.$Con.Begin()
$Result = MODMain.$Con.Create(“Friends”)
$Result!FirstName = TBXName.Text
$Result!SecondName = TBXName2.Text
$Result!Address = TBXAddress.Text
$Result!Phone = TBXPhone.Text
$Result.Update]()
MODMain.$Con.Commit()
2.You should be careful with the Data Types, or course you can't save a String into a Integer.