منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] مساعده في حل مشكلة ببرنامج vb.net - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مساعده في حل مشكلة ببرنامج vb.net (/showthread.php?tid=11109)

الصفحات: 1 2


مساعده في حل مشكلة ببرنامج vb.net - ghaida sultan - 07-01-15

مساء الخير ...
انا مشتركه جديد في المنتدى ,, حبيت اعمل مشروع صغير باستخدام الفيجوال بيسك وبدأت في واجهة المستخدم ولكن يوجد خطأ ولا اعرف ما هو الحل ؟
البرنامج موجود ضمن المرفقات .

اتمنى المساعده Smile



RE: مساعده في حل مشكلة ببرنامج vb.net - raoe-041 - 08-01-15

شو هو الخطأ ................


RE: مساعده في حل مشكلة ببرنامج vb.net - برير مسبل - 08-01-15

بالله عليك وضحك اكثر الخطا فين


RE: مساعده في حل مشكلة ببرنامج vb.net - ghaida sultan - 08-01-15

بصراحه انا ما بعرف وين المشكله لانو ما بعطي خطأ,, بس لما بدي انفذ البرنامج بعطيني متل ما هو باين في الصورة وخصوصا لما اضغط على SingUp وانتقل لشاشاه إضافة مستخدم جديد بعطي متل ما هو في الصورة ,, فشو هو السبب مش عارفه وعلى ما اعتقد انو في ربط قاعدة البيانات . ممكن تساعدوني بحلها ؟

وشكرا الكم


RE: مساعده في حل مشكلة ببرنامج vb.net - sami2015 - 08-01-15


Module1.vb
-----------------------------

Imports System.Data.OleDb
Module Module1
   Public con As New OleDbConnection
   Public Sub dbase_conn()
       If con.State = 1 Then con.Close()
       Dim mypath As String
       'mypath = CurDir() & "|DataDirectory|\users.accdb"
       mypath = "|DataDirectory|\users.accdb"
       'con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & mypath & "';persist security Info=false.")
       con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & mypath & "';persist security Info=false;")
       con.Open()

   End Sub
End Module




RE: مساعده في حل مشكلة ببرنامج vb.net - ghaida sultan - 08-01-15

اخ سامي مشكور على مساعدتك ,,بس بصراحه ما زبطت معي ,, في مجال تعدلي ياه على نفس المرفق :$ بعد إزنك ؟


RE: مساعده في حل مشكلة ببرنامج vb.net - sami2015 - 09-01-15


Add_User.vb
-----------------------------------

Imports System.Data.OleDb

Public Class Add_User
Dim save_cmd As New OleDbCommand
Dim edit_cmd As New OleDbCommand

Private Sub Add_User_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'save_cmd = New OleDbCommand("insert into usersDataSet (user-name,pass-word) values ('" & Textname.Text & "'," & Textpass.Text & ")", con)
save_cmd = New OleDbCommand("INSERT INTO users ([user-name],[pass-word]) VALUES ('" & Textname.Text & "'," & Textpass.Text & ")", con)

If con.State = ConnectionState.Closed Then con.Open()
save_cmd.ExecuteNonQuery()
con.Close()

MsgBox("تم الحفظ بنجاح")
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
edit_cmd = New OleDbCommand("update users set user-name='" & Textname.Text & "',pass-word=" & Textpass.Text & "where user-name='" & Textname.Text & ")", con)
If con.State = ConnectionState.Closed Then con.Open()
edit_cmd.ExecuteNonQuery()
con.Close()

MsgBox("تم تعديل بنجاح")
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form1.Show()
Me.Close()

End Sub
End Class



-------------------------------------


Form1.vb
------------------------------

Imports System.Data.OleDb
Public Class Form1
Dim Adapt As New OleDbDataAdapter
Dim dt As New DataTable
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
dbase_conn()
End Sub

Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
Add_User.Show()
Me.Hide()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Adapt = Nothing : dt.Clear()

'Adapt = New OleDbDataAdapter("Select ' from Users where user_name='" & TextBox1.Text & "'", con)
Adapt = New OleDbDataAdapter("SELECT * FROM Users WHERE [user-name]='" & TextBox1.Text & "' AND [pass-word]=" & TextBox2.Text, con)

Adapt.Fill(dt)

'If TextBox2.Text = dt.Rows.Item(0).Item("user-pass") Then
If dt.Rows.Count > 0 Then

Form2.Show()
Me.Hide()

Else
MsgBox("user name OR password incorrect")

End If

End Sub
End Class



RE: مساعده في حل مشكلة ببرنامج vb.net - hminfo - 09-01-15

تفضلي اختي المشروع معدل عليه


RE: مساعده في حل مشكلة ببرنامج vb.net - ghaida sultan - 10-01-15

اخ سامي و hminfo مشكوووووووووووورين كتييييييييييير على مجهودكم راح اجربوا عندي هلا يسلموا كتييييير غلبتكم معي Smile


RE: مساعده في حل مشكلة ببرنامج vb.net - ghaida sultan - 10-01-15

اخ hminfo مشكووووور كتييييير على مساعدتك بالنسبة لشاشة دخول المستخدم نفذ عندي وتمام يسلمو اديك يارب
بس بالنسبه للإضافة مستخدم جديد بعطيني هاي المشكله

اخ سامي اذا ممكن سؤال ,,, لما تنفذ البرنامج بنفذ عندك لانو بصراحه عدلت على البرنامج وطلعلي نفس المشكله ؟

ويسلمو كتيييييييييير الك تعبتك معي ، مشكورين كتير