تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] جلب بيانات العضو من قاعدة البيانات mysql
#1
السلام عليكم

هل هناك كود لجلب بيانات العضو
مثال : العضو يقوم بالتسجيل عن طريق البرنامج
وعندما يقوم بالدخول تظهر فقط مواضيعه
يعني لا تظهر مواضيع الاعضاء الاخرين
فقط يرى مواضيعه الخاصه

انا استخدم هذا الكود

PHP كود :
Imports MySql.Data.MySqlClient

Public Class Form1
    
'Represents an SQL statement or stored procedure to execute against a data source.
    Dim cmd As New MySqlCommand
    Dim da As New MySqlDataAdapter
    '
declare conn as connection and it will now a new connection because 
    
'it is equal to Getconnection Function
    Dim con As MySqlConnection = jokenconn()

    Public Function jokenconn() As MySqlConnection
        Return New MySqlConnection("Server=mysite.com;Port=3306;Database=mydata;Uid=myuser;Pwd=mypass;")
    End Function
    Private Sub btnlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogin.Click
        Dim sql As String
        Dim publictable As New DataTable
        Try
            '
check if the textbox is equal to nothing then it will display the message below!.
            If 
txtuname.Text "" And txtpass.Text "" Then
                MsgBox
("Password or Username Incorrect!")

            Else
                
sql "select * from users where username ='" txtuname.Text "' and password = '" txtpass.Text "'"
                'bind the connection and query
                With cmd
                    .Connection = con
                    .CommandText = sql
                End With
                da.SelectCommand = cmd
                da.Fill(publictable)
                '
check if theres a result by getting the count number of rows
                
If publictable.Rows.Count 0 Then

                    
'it gets the data from specific column and assign to the variable
                    Dim user_type, name As String
                    user_type = publictable.Rows(0).Item(1)
                    name = publictable.Rows(0).Item(2)
                    '
check if the type of user is admin
                    
If user_type "admin" Then
                        
'welcomes the user as Admiistrator
                        MsgBox("Welcome " & name & " you login as Administrator ")
                        '
set the lbllogin text to Logout 
                        lbllogin
.Text "Logout"
                        'disabled the groupbox
                        GroupBox1.Enabled = False
                        '
reset all the two textbox
                        txtuname
.Text ""
                        
txtpass.Text ""
                        'set the lblname to the specific user
                        lblname.Text = "Hi, " & name

                    ElseIf user_type = "Encoder" Then
                        MsgBox("Welcome " & name & " you login as Encoder ")
                        lbllogin.Text = "Logout"
                        GroupBox1.Enabled = True
                        txtuname.Text = ""
                        txtpass.Text = ""
                        lblname.Text = "Hi, " & name
                    Else
                        MsgBox("You login as Guest!")
                        lbllogin.Text = "Logout"
                        GroupBox1.Enabled = False
                        txtuname.Text = ""
                        txtpass.Text = ""
                        lblname.Text = "Hi, " & name
                        lbllogin.Enabled = True
                        DataGridView1.Visible = True
                    End If

                Else
                    MsgBox("Contact administrator to registered!")
                    txtuname.Text = ""
                    txtpass.Text = ""
                End If

                da.Dispose()
            End If

        Catch ex As Exception
            MsgBox(ex.Message)

        End Try
        con.Clone()

       
    End Sub

    Private Sub lbllogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbllogin.Click

        If lbllogin.Text = "Logout" Then
            lbllogin.Text = "Login"
            lblname.Text = "Hi, Guest!"
        ElseIf lbllogin.Text = "Login" Then
            GroupBox1.Enabled = True

        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        GroupBox1.Enabled = True
        lbllogin.Enabled = False
        Try
            Using da As New MySqlDataAdapter("Select * from `comments`", con)
                Using dt As New DataTable
                    da.Fill(dt)
                    DataGridView1.DataSource = dt
                    If DataGridView1.Rows.Count > 0 Then
                        DataGridView1.Columns(0).HeaderText = "ID"
                        DataGridView1.Columns(0).Width = 50
                        DataGridView1.Columns(1).HeaderText = "added by"
                        DataGridView1.Columns(1).Width = 150
                        DataGridView1.Columns(2).HeaderText = "Name Thread"
                        DataGridView1.Columns(2).Width = 200
                        DataGridView1.Columns(3).HeaderText = "Notes"
                        DataGridView1.Columns(3).Width = 200
                       
                    End If
                End Using
            End Using



        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
End Class 


هناك جدولين في قاعدة البيانات
comments
users

البيانات الموجوده في جدول comments

post_id username title message



البيانات الموجوده في جدول users

id username password



اتمنى سؤالي واضح

شكرا لكم
الرد
تم الشكر بواسطة:
#2
نفس طريقة تسجيل الدخول يتم الاستعلام عن اسم الكاتب!
الرد
تم الشكر بواسطة:
#3
وعليكم السلام ورحمة الله وبركاته

عند جلب مواضيع العضو يتم جلب المواضيع من جدول المواضيع بشرط معين وهو اسم العضو أو التسلسل الخاص به أو اي علامة أخرى تدل على العضو .

كل الموضوع يحصر في جملة جلب البيانات.
قال رسول الله صلى الله عليه وسلم ( من قال لا إله إلا الله دخل الجنة ) حديث صحيح.
قال رسول الله صلى الله عليه وسلم ( كلمتان خفيفتان على اللسان ثقيلتان في الميزان حبيبتان للرحمن : سبحان الله وبحمده سبحان الله العظيم ) حديث صحيح.
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] سؤال في vb.net و mysql اللورد محمود 1 55 18-10-18, 01:43 AM
آخر رد: sofizer
  مشكلة قاعدة البيانات لا تقبل البيانات بعد التنصيب abozeyd 8 240 10-09-18, 08:02 AM
آخر رد: elgokr
  هل يمكن نقل بيانات DataGridView إلى Dataset . عبد الله 7 1,800 03-09-18, 11:23 PM
آخر رد: انيس القبائلي
  سؤال حول عرض البيانات في الداتا جريد والاستعلام alfaiz678 12 497 25-08-18, 10:00 PM
آخر رد: elgokr
  [سؤال] حول تحديث البيانات داخل DataGridView مبرمج بلا حدود 20 3,595 14-08-18, 09:00 PM
آخر رد: elgokr
  كيفية حفظ التعديل في Data Grid View مباشرا الى قاعدة البيانات اللورد محمود 1 316 02-08-18, 07:26 PM
آخر رد: سعود
  كيفة عمل Attach لقاعدة بيانات SqlServer? abozeyd 5 331 18-07-18, 09:27 PM
آخر رد: abozeyd
  [سؤال] كيفية ربط قاعدة بيانات اكسس 2007 بالفيجوال 2008 mohmedhosen 3 5,334 16-07-18, 08:48 PM
آخر رد: aridje34
  مل نسخة احتياطية لقاعدة بيانات sql server djelloul 3 867 04-07-18, 02:18 PM
آخر رد: fareglarkt
  خطأ في الإتصال بقاعدة البيانات الموجودة على هذا السيرفر (ويندوز 10) djelloul 0 187 04-05-18, 12:14 AM
آخر رد: djelloul

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم