[d3vc0d]

للاتصال بقاعدة البيانات 

Sub Process_Globals

Dim mh As MysqlHandler
Dim rs As ResultSet
End Sub

Sub dbconn
mh.Initialize("serveriporhost","db","user","pwd")
If mh.isConnected = False Then
Msgbox("Connexion Error", "Info")
Return
 
End If
End Sub

لاظافة البيانات

dbconnect.dbconn
dbconnect.mh.Exec("INSERT INTO tb VALUES('"&fnmtxt.text&"','"&lnmtxt.text&"','"&emailtxt.text&"','"&phontxt.text&"'))
dbconnect.mh.Close

Activity.Finish
StartActivity(ActivityX)

---

(25-02-20, 01:26 AM)k_medhat كتب : المشكلة عندك بأن نوع البيانات في قاعدة البيانات varchar وهذا غير صحيح
قم بتغيرها لتصبح nvarchar
وان شاء الله تنحل مشكلتك

لا يوجد nvarchar   في  mysql