(15-09-16, 10:20 PM)محمد كريّم كتب : عمو ابوليلىهلا اخ محمد,ولو انك راح تتعبني شوي ,لاني حذفت بعض المشاريع من عندي
الكلمات Server,Port,Database,Uid,Pwd
هي كلمات محجوزة وضرورية في connectionstring الخاص بmysql وليس كما جاء في المثال
راجع http://dev.mysql.com/doc/connector-net/e...-open.html
نص الاتصال الذي وضعته انت و حتى الرابط لا يشير على انه محجوز و حتى مراجعة التوثيق لا يشير لذلك
دعني اوضح فكرة بسيطة
اعتقد انك قد عملت مع قواعد MySQL على الاستضافة ,و اتمنى انك تكون عملت كذلك مع ضبط الاتصال مع قواعد البيانات اثناء تنصيب نسخة منتدى او مجلة او اي تطبيق من تطبيقات ادارة محتوى الويب
فلو عملت معهم ستفهم كلامي التالي
عندما تريد ان ترفع مجلتك او تطبيقك يكون هناك ملف حاوي على البيانات الاساسية المطلوبة لضبط الاتصال مع القواعد
و عادة هذا الملف يحتوي على معلومات دعنا نسميها ثابته , بمعنى انه جرى الاتفاق على شكل قياسي لضبط نص الاتصال من ناحية الوسائط التي ستستقبل الادخالات من المستخدم كاسم القاعدة و اسم المستخدم وكلمة المرور
المشكلة انني لم اتعامل مع تطبيقات الويب منذ فترة طويلة (اكثر من عشر سنين) ليس كلها و لكن لنقل بعضها
المهم جرى الاتفاق على ان يكون اسم المستخدم Uid كما اشرت و كذلك باقي الوسائط بالشكل الذي اشرت اليه انت
و لكن ماذا لوقام شخص ما بتغير اسم الوسيطة من Uid الى "سعيدان"

بالرجوع الى موقع ConnectionString
نرى الشكل التقليدي للاتصال كما يلي
PHP كود :
Server=myServerAddress;Database=myDataBase;Uid=myUsername;Pwd=myPassword;
و حتى لا ادخل بتفصيل اكثر منذ فترة كتبت مقالة بسيطة ترحيل البيانات هنا
و كنت قد انشأت قاعدة بيانات للتجربة و فيها جدولين
المهم ساحاول الاتصال بها وفق الكود الذي وضعته في الرابط في سياق ردي على السائل
فقط اطلب منك ان تصنع فورم بسيط مع زر و DataGridView , و اضف مرجع MySQL.Data للمشروع
وضع هذا الكود و جرب الاتصال مع جلب البيانات
PHP كود :
Imports MySql.Data.MySqlClient
Public Class Form1
Dim conn As New MySqlConnection
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
connect()
End Sub
Public Sub connect()
Dim DatabaseName As String = "sql6135155"
Dim server As String = "sql6.freesqldatabase.com"
Dim userName As String = "sql6135155"
Dim password As String = "u3ItbJC8wP"
If Not conn Is Nothing Then conn.Close()
conn.ConnectionString = String.Format("server={0}; user id={1}; password={2}; database={3}; pooling=false", server, userName, password, DatabaseName)
Try
conn.Open()
Dim cmd As New MySqlCommand("Select * From persons", conn)
Dim dt As New DataTable
Dim Dtreader As MySqlDataReader = cmd.ExecuteReader
dt.Load(Dtreader)
DataGridView1.DataSource = dt
MsgBox("Connected")
Catch ex As Exception
MsgBox(ex.Message)
End Try
conn.Close()
End Sub
End Class
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال


