+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] هل من الممكن جلب مواضيع عضو معين من قاعدة بيانات mysql (/showthread.php?tid=3763)
هل من الممكن جلب مواضيع عضو معين من قاعدة بيانات mysql - php3 - 06-09-14
السلام عليكم
هل هناك كود لجلب بيانات العضو
مثال : العضو يقوم بالتسجيل عن طريق البرنامج
وعندما يقوم بالدخول تظهر فقط مواضيعه
يعني لا تظهر مواضيع الاعضاء الاخرين
فقط يرى مواضيعه الخاصه
انا استخدم هذا الكود
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
اتمنى سؤالي واضح
شكرا لكم
RE: هل من الممكن جلب مواضيع عضو معين من قاعدة بيانات mysql - kslawy - 06-09-14
مفترض في جدول comments تضع رقم المستخدم id بدلا عن اسمه username حتى تستجلب مواضيعه بسهولة
وجملة sql لجلب مواضيع العضو كالتالي:
PHP كود :
"Select * from comments Where id='userID' '"
RE: هل من الممكن جلب مواضيع عضو معين من قاعدة بيانات mysql - php3 - 07-09-14
حاولت اعملها ماصار
يظهر معاي خطأ
RE: هل من الممكن جلب مواضيع عضو معين من قاعدة بيانات mysql - الشاكي لله - 07-09-14
لماذا لاتستخدم العلاقات (relationship) ؟
وبالتالي كل User سيصبح عنده collection وفي داخل الcollection يُوجد كل الcomments الخاصة بالuser
لاحظ كيف الموضوع بيصير سهل سواء في الحفظ او في عرض البيانات-
RE: هل من الممكن جلب مواضيع عضو معين من قاعدة بيانات mysql - php3 - 08-09-14
أولا اشكركم على مساعدتي
ولكن للأسف لم افهم واحب اعتذر لكم
وأتمنى احد منكم ان يقوم بتعديل مشروعي
المشروع مرفع مع الشكر الجزيل للقائمين على الموقع
RE: هل من الممكن جلب مواضيع عضو معين من قاعدة بيانات mysql - vbnet - 08-09-14
.....
تم تعديل الكود للفورم1
كما ذكر الأستاذ kslawy استخدم id المستخدم بدلا من اسمه وهو الأسلوب الصحيح
على افتراض ان:
الجدول users له الحقول التالية
id رقم
username نص
password نص
usertype نص
الجدول comments له الحقول التالية
post_id رقم
userid رقم
title نص
message نص
تم تجاهل أكواد Button1 وما بعدها
كود :
Imports MySql.Data.MySqlClient
Public Class Form1
Private conString As String = "Server=localhost; Database=oman ;Uid=root; Pwd=;"
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
GroupBox1.Enabled = True
lbllogin.Enabled = False
End Sub
Private Sub btnlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogin.Click
'check if the textbox is equal to nothing then it will display the message below!.
If Me.txtuname.Text = "" And Me.txtpass.Text = "" Then
MsgBox("Password or Username Incorrect!")
Exit Sub
End If
Try
Using con As New MySqlConnection(conString)
Dim sql As String = "SELECT * FROM `users` WHERE `username`=@username AND `password`=@password"
Using da As New MySqlDataAdapter(sql, con)
da.SelectCommand.Parameters.AddWithValue("@username", Me.txtuname.Text)
da.SelectCommand.Parameters.AddWithValue("@password", Me.txtpass.Text)
Dim dt As New DataTable
If da.Fill(dt) > 0 Then
Dim row As DataRow = dt.Rows(0)
Select Case row("usertype")
Case "admin"
'welcomes the user as Admiistrator
MsgBox("Welcome " & row("username") & " you login as Administrator ")
'set the lbllogin text to Logout
'disabled the groupbox
Me.GroupBox1.Enabled = False
'reset all the two textbox
'set the lblname to the specific user
Me.lblname.Text = "Hi, " & row("username")
Case "Encoder"
MsgBox("Welcome " & row("username") & " you login as Encoder ")
Me.GroupBox1.Enabled = True
Me.lblname.Text = "Hi, " & row("username")
Case Else
MsgBox("You login as Guest!")
Me.GroupBox1.Enabled = False
Me.lblname.Text = "Hi, " & row("username")
Me.lbllogin.Enabled = True
Me.DataGridView1.Visible = True
End Select
Me.lbllogin.Enabled = True
Me.lbllogin.Text = "Logout"
ViewUserComments(row("id"))
Else
MsgBox("Contact administrator to registered!")
End If
Me.txtuname.Text = ""
Me.txtpass.Text = ""
End Using
End Using
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub ViewUserComments(userid As String)
Using con As New MySqlConnection(conString)
Using da As New MySqlDataAdapter("SELECT * FROM `comments` WHERE `userid`=@userid ", con)
da.SelectCommand.Parameters.AddWithValue("@userid", userid)
Using dt As New DataTable
If da.Fill(dt) > 0 Then
DataGridView1.DataSource = dt
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
DataGridView1.Columns(1).DataGridView.Name = "& name"
End If
End Using
End Using
End Using
End Sub
Private Sub lbllogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbllogin.Click
If Me.lbllogin.Text = "Logout" Then
Me.DataGridView1.DataSource = Nothing
Me.lbllogin.Enabled = False
Me.lbllogin.Text = "Login"
Me.lblname.Text = "Hi, Guest!"
Me.GroupBox1.Enabled = True
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button1.Click
PrintDocument1.Print()
End Sub
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim bm As New Bitmap(Me.DataGridView1.Width, Me.DataGridView1.Height)
DataGridView1.DrawToBitmap(bm, New Rectangle(0, 0, Me.DataGridView1.Width, Me.DataGridView1.Height))
e.Graphics.DrawImage(bm, 0, 0)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim connectionString As String = "Data Source=.;Initial Catalog=pubs;Integrated Security=True"
Dim sql As String = "SELECT * FROM comments"
Dim ds As New DataSet()
DataGridView1.DataSource = ds
DataGridView1.DataMember = "comments"
End Sub
End Class.....
RE: هل من الممكن جلب مواضيع عضو معين من قاعدة بيانات mysql - php3 - 08-09-14
اشكرك اخي
فعلا هو الكود المطلوب
الان بقى علينا في ملفات البي اتش بي ورح اكتب موضوع هناك
لان سابقا كنت اتعلم السيشن في لغة البي اتش بي وتشتت افكاري