منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

انا عملت فروم login.vb     وعملت قاعدة بيانات للاتصال بها وبعد الاتصال يظهر فروم loadin.vb وبعدها مباشرة يظهر بعد التحميل فروم prog.vb

- دا كلة قمت الانتهاء به الحمدلله

وتم بالفعل الاتصال بقاعدة البيانات بنجاح   ولكن انا عملت فروم register لاضافة الاعضاء الى قاعدة البيانات

- الجداول التى تم انشأوها 


user_id
user_name
user_email
user_pass


  فروم register    يتكون من ( الاسم - الايميل - الباسورد )

- وهل من الممكن ظهور الـ user  فى فروم prog.vb     بمعنى welcome  user


   التعديل الاخير

اريد ادخال بيانات عن طريق فروم التسجيل لتغذية هذة الجداول بالقاعدة
user_id
user_name
user_email
user_pass

أخي الكريم وجدت هذا الموضوع ان شاء الله يفيدك
http://vb4arb.com/vb/thread-12865.html

فعلت ذلك لم تظبط معى

استعملت الجمل Insert INto ,ولكن لم اعرف استخدامها بشكل صحيح على المشروع

كل ال محتاجة تعديل فروم register

شكرا اخى هل سيتم التعديل على المشروع ؟

هل سيتم الاتصال بقاعدة البيانات لم ارى جملة الاتصال بسيرفر mysql

ممكن جملة الاتصال بالهوست ويوزر نيم وكلمة المرور واسم قاعدة البيانات لكى يتم الاتصال بقاعدة البيانات مثل فروم login.vb عندى

(12-03-16, 04:20 PM)khodor1985 كتب : [ -> ]في النموذج عندك لاسمه : register
قم باستدعاء المكتبة التالية :

PHP كود :

Imports System.Data.SqlClient
Imports Sysytem.Data.MySqlClient 


قم بالإعلان عن المتغيرات التالية في أعلى النموذج :

PHP كود :

Dim con As New MySqlConnection("ضع هنا جملة الإتصال")
    Dim cmd As MySqlCommand
    Dim da As MySqlDataAdapter
    Dim ds As DataSet
    Dim sqlstr As String 


ثم ضع الكود التالي في زر الأمر :

PHP كود :

Try
            con.Open()

            sqlstr = "Select * From tblUser Where UsrName=@UsrName"
            cmd = New MySqlCommand(sqlstr, con)
            cmd.Parameters.Add("@UsrName", MySqlDBType.VarWChar).Value = txtUser.Text

            If cmd.ExecuteScalar > 0 Then
                MsgBox("User exists in tblUser")
                con.Close()
                Return

            End If


            sqlstr = "Insert Into tblUser(UsrName,UsrPassword) Values (@UsrName,@UsrPassword)"
            cmd = New MySqlCommand(sqlstr, con)
            cmd.Parameters.Add("@UsrName", MysqlDBType.VarWChar).Value = txtUser.Text
            cmd.Parameters.Add("@UsrPassword", MySqlDBType.VarWChar).Value = txtPass.Text

            cmd.ExecuteNonQuery()
            MsgBox("User added successfully")
            con.Close()
        Catch ex As Exception
            If con.State = ConnectionState.Open Then con.Close()
            MsgBox(ex.Message)
        End Try 


استبدل أسماء مربعات النصوص الموجودة في الكود أعلاه بأسماء مربعات النصوص الموجودة عندك في المشروع.

تحياتى لك اخى على المساعدة وتم الحمدلله عمل المشروع بنجاح وشكرا على الخبرة الكبيرة والتعلم من حضرتك المزيد

اتمنى لك المزيد من النجاح والتفوق